UC知道动态绘制圆的渐开线
来源：百度知道 编辑：UC知道 时间：2024/05/10 13:09:09
内容：在屏幕上描点绘制圆的渐开线，曲线颜色为红色。此绘制曲线轨迹函数如下所示：x=a (cost+tsint) y=a (sint-ycost)
你的公式错了
Const PI As Double = 3.14159265
Private Sub Form_Click()
'x=r(cost+tsint) y=r(sint-tcost)
Dim t As Double
Dim x As Double, y As Double, r As Double
r = 5
Cls
Scale (-400, 400)-(400, -400)
For t = 0 To 16 * PI Step PI / 360
x = r * (Cos(t) + t * Sin(t))
y = r * (Sin(t) - t * Cos(t))
PSet (x, y), vbRed
Next t
End Sub
Private Sub Form_Load()
AutoRedraw = True
End Sub