3种内摆线轨迹方程20140527.docVIP

3种内摆线轨迹方Dim i, j, x, y, t, n As Integer Function Pi(Num As Integer) As Double Pi = Num * 3.1415926 / 180 End Function Private Sub Command1_Click() Picture1(0).Cls Picture1(1).Cls Command4.Caption = C4n个花叶 Dim a As Double, x#, y#, r% n = Val(Text1.Text) Picture1(0).Scale (-40, 60)-(40, -60) Picture1(1).Scale (-40, 60)-(40, -60) r1 = Rnd * 16 r = 5 For a = Pi(0) To Pi(360) Step 0.001 r1 = 10 1,2,4,8,10,12,14, r2 = 2 X11 = (r1 - r2) * Cos(a) + r2 * Cos((r1 - r2) / r2 * a) ’‘圆的内摆线方程r2/r1=1/5为五边形 Y11 = (r1 - r2) * Sin(a) - r2 * Sin((r1 - r2) / r2 * a) X111 = (r1 - r2) * Cos(a) + r2 * Cos((r1 - r2) / r2 * a) Y111 = (r1 - r2) * Sin(a) + r2 * Sin((r1 - r2) / r2 * a) x0 = 2 / 3 * r * (c - Cos(n * a)) * Cos(a) + i * 200 n=1时为c8为降落伞本方程为三角形’c渐渐变为5,1或到1/30我要的一种箭头三角形 y0 = 1 / 2 * r * (11 / 3 + Cos(n * a)) * Sin(a) d渐渐变为11,1 x00 = 2 / 3 * r * (5 - Cos(n * a)) * Cos(a) + i * 200 n=1时为c8为降落伞本方程为三角形’c渐渐变为5,1或到1/30我要的一种箭头三角形 y00 = 1 / 2 * r * (d / 3 + Cos(n * a)) * Sin(a) d渐渐变为11,1 x000 = 2 / 3 * r * (c - Cos(n * a)) * Cos(a) + i * 200 n=1时为c8为降落伞本方程为三角形’c渐渐变为5,1或到1/30我要的一种箭头三角形 y000 = 1 / 2 * r * (11 / 3 + Cos(n * a)) * Sin(a) d渐渐变为11,1 Picture1(1).PSet (X1, Y1), vbBlue 比红绿蓝多2个角边 Picture1(1).PSet (X11 + 20, Y11 + 40), vbGreen 圆的内摆线方程 Picture1(1).PSet (X111 + 20, Y111 + 40), vbRed 花 Picture1(0).PSet (X111 + 20, Y111 - 40), vbGreen 花 Picture1(0).PSet (X11 + 20, Y11 - 40), vbRed Next a End Sub Private Sub Command2_Click() Picture1(0).Cls Picture1(1).Cls Command4.Caption = C4n个花叶 Dim a As Double, x#, y#, r% n = Val(Text1.Text) c = 8 * Rnd d = 11 * Rnd r = 8 Picture1(0).Scale (-40, 60)-(40, -60) Picture1(1).Scale (-40, 60)-(40, -60) For a = Pi(0) To Pi(360) Step 0.001 x0 = 2 / 3 * r * (1 - Cos(n * a)) * Cos(a) + i * 200 n=1时为c8为降落伞本方程为三角形’c渐渐变为5,1或到1/30我要的一种箭头三角形 y0 = 1 / 2 * r * (11 / 3 + Cos(n * a)) * Sin(a) d渐渐变为11,1 x00 = 2 / 3 * r * (5 - Cos(n * a)) * Cos(a) + i * 200 n=1时为c8为降落伞本方程为三角形’c渐渐变为5,1或到1/30我要的一种箭头三角形 y00 = 1 / 2 * r * (d / 3 + Cos(n * a)) * Sin(a) d渐渐变为11