用vb 方法画摆线.函数轨迹如下:x=at+b*sin(ct) ,y=b*(1-cos(ct))其中a,b,c为需要用inputbox输入的常数

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/19 09:23:59
用vb 方法画摆线.函数轨迹如下:x=at+b*sin(ct) ,y=b*(1-cos(ct))其中a,b,c为需要用inputbox输入的常数
xWmoV+QV&%` 6j)*|+IhDi4Kh4"5c/h? |_56Zȴ~sHE9Gj(X԰pUD$X}4-k|}[__ݝfȜo?fcD܅bBM^ su=Fc!oP x7= #lq v$ܕ-ޗe;33Cs50!#l rtTs9FG2IIdsRmR侗 %O,DnYH M{ Y@,Ͳa>p< i }>|,dA z@=>!MKAiu-cy//˂0Xg ?.w_g

用vb 方法画摆线.函数轨迹如下:x=at+b*sin(ct) ,y=b*(1-cos(ct))其中a,b,c为需要用inputbox输入的常数
用vb 方法画摆线.函数轨迹如下:x=at+b*sin(ct) ,y=b*(1-cos(ct))
其中a,b,c为需要用inputbox输入的常数

用vb 方法画摆线.函数轨迹如下:x=at+b*sin(ct) ,y=b*(1-cos(ct))其中a,b,c为需要用inputbox输入的常数
Rem 正如一楼所述,你没给出t的取值范围,这里我假设就是窗体的宽度
Rem 其实这种题最难的不是画函数,而是预估函数的最大值和最小值,只有这样才能归一化,否
Rem 则没法显示
Private Sub Command1_Click()
  Rem x=at+b*sin(ct) ,y=b*(1-cos(ct))
  Dim t As Integer, x As Double, y As Double, ang    As Double
  Dim minX As Double, MaxX As Double, minY As Double, MaxY As Double
  Dim StartX As Integer, StartY As Double, LastX As Integer, LastY As Double
  Dim a As Integer, b As Integer, c As Integer
'   a = Val(InputBox("a是?"))
'   b = Val(InputBox("b是?"))
'   c = Val(InputBox("c是?"))
  a = 1: b = 2: c = 3
  Pi = 3.14
  Me.ScaleMode = vbPixels
  
  minX = 0: MaxX = 120
  minY = 0: MaxY = 5
  StartX = minX: StartY = MaxY
  For t = 1 To ScaleWidth Step 1
        ang = (t / Me.ScaleWidth) * 2 * Pi '仅显示一个周期
        ant = t
        x = (a * t + b * Sin(c * ang))
        x = x * (Me.ScaleWidth - 20) / (MaxX - minX) '归一化处理
    
    
        ang = (t / Me.ScaleHeight) * 2 * Pi '仅显示一个周期
        ang = t
        y = (b * (1 - Cos(c * ang)))
        y = Me.ScaleHeight - 40 - y * Me.ScaleHeight / (MaxY - minY) '归一化处理
        
    
        Rem Me.PSet (x, y), vbRed
        Rem Me.Circle (x, y), 2, vbRed
        LastX = x: LastY = y
        Me.Line (StartX, StartY)-(LastX, LastY), vbRed
        StartX = LastX: StartY = LastY
  Next
End Sub

用vb 方法画摆线.函数轨迹如下:x=at+b*sin(ct) ,y=b*(1-cos(ct))其中a,b,c为需要用inputbox输入的常数 用C语言绘制摆线函数的动态曲线绘制摆线函数的动态曲线x=a(t-sint)y=a(1-cost)希望能得到源代码 高数:摆线x=a(t-sint),y=a(1-cost)(0《=t《2π)确定隐函数y=y(x),求dy/dx vb 一个分段函数 编程错误 我用的 vb6.0版的 编一个分段函数 如下Private Sub form_Click()Dim x As Integer,y As Integerx = Val(InputBox(请输入x值:))If x 由摆线x=a(t-sint),y=a(1-cost),0最好用格林公式求解 关于摆线曲线和方程的问题.我知道摆线的方程式:x=r*(t-sint) y=r*(1-cost) r为圆的半径,t是圆的半径所经过的角度0到2π.我想用solidworks2009的软件画这个曲线,可是软件要求是y是x的函数,那上面的 求摆线的参数方程x=a(t-sint) 和 y=a(1-cost)所确定的函数y=y(x)的求摆线的参数方程x=a(t-sint) 和 y=a(1-cost)所确定的函数y=y(x)的二阶导数 .答案是-1/a(1-cost)^2 求摆线x=a(t-sint),y=a(1-cost)的一拱,y=0,绕直线y=2a旋转所得的体积.请问摆线要怎么画? 用曲线积分求摆线一拱的面积摆线参数方程x=a(t-sint) y=a(1-cost) 答案为3PI*a^2 怎样算都对不上这答案 高等数学摆线求摆线x=a(t - sint),y=a(1 -cost)的一拱(0≤t≤2∏) 的长度 VB的picturebox怎么画函数图像y=x^2+2*x啊, VB中Asc函数ElseIf a >= A And a 用matlab以动画的方式绘制出摆线 x=a(t-sint) y=a(1-cost) (a自己赋值)的渐屈线 一首数学题(轨迹的)平面上有两定点A和B现有一浮动点P使得2AP=PB问点P组成的轨迹是什么请不要用函数解析式好吗,没学用几何的方法,什么的 - - 用Mathematica画图用Mathematica5怎么画图啊?我想画一条摆线,请把具体操作步骤发上来,我菜鸟一只,只会复制粘贴一下~另外,我要是想再画出该摆线的一条切线,怎么弄?摆线 x=ra-rcosa y=-r+rsina 在摆线x=a(t-sint),y=(1-cost)上求分摆线第一拱成1:3的点的坐标在摆线x=a(t-sint),y=a(1-cost)上求分摆线第一拱成1:3的点的坐标,大侠们我题目打错了,这个才是我要问的题目 一道VB题,如下 x=2,即求a(f(2)+2),即a(7)=15.请问这个思路有什么不对? 摆线方程的参数方程x=a(t-sin t),y=a(1-cos t)中的a,