用VB制作李萨如图形动态演示程序[组图](3)

　 '画李萨如图形的坐标轴

　　　 Line (Xxc - wid, Yyc)-(Xxc + wid, Yyc), RGB(255, 0, 0)　　　 '画X轴

　　　 Line (Xxc, Yyc - wid)-(Xxc, Yyc + wid), RGB(255, 0, 0)　　　 '画Y轴

　 '计算相位

　　　 If i = 1 Then　　　　　　　　　　　　　　　　　　 '初相位

　　　　　　　 Xxw = Xchxw * pi / 180

　　　　　　　 Yxw = Ychxw * pi / 180

　　　 Else　　　　　　　　　　　　　　　　　　　　　　　　　　　 't时刻相位

　　　　　　　 Xxw = Xxw + 2 * Xpl * pi / 400

　　　　　　　 Yxw = Yxw + 2 * Ypl * pi / 400

　　　 End If

　 '画X轴的旋转矢量

　　　 Xx = Xxc + A * Cos(Xxw)

　　　 Xy = Xyc - A * Sin(Xxw)

　　　 Line (Xxc, Xyc)-(Xx, Xy), RGB(0, 0, 255)

　 '画Y轴的旋转矢量

　　　 Yx = Yxc - A * Sin(Yxw)

　　　 Yy = Yyc - A * Cos(Yxw)

　　　 Line (Yxc, Yyc)-(Yx, Yy), RGB(0, 0, 255)

　 '显示画图过程

　　　 Line (Xx, Xy)-(Xx, Yy), RGB(0, 255, 0)

　　　 Line (Yx, Yy)-(Xx, Yy), RGB(0, 255, 0)

　 '李萨如图形坐标

　　　 X(i) = Xx

　　　 Y(i) = Yy

　 '画李萨如图形

　　　 If i = 1 Then

　　　　　　　 PSet (Xx, Yy)

　　　 Else

　　　　　　　 DrawWidth = 1

　　　　　　　 For j = 2 To i

　　　　　　　　　　　 Line (X(j - 1), Y(j - 1))-(X(j), Y(j)), RGB(0, 0, 255)