12-09-2024, 05:18 AM
Code: (Select All)
Code: (Select All)
Screen 12
Const pi = 3.1415926#
a% = 20
b% = 10
Dim deg As Double
Dim Shared As Single x2, y2
Window (-30, 30)-(30, -30)
Circle (0, 0), 2, 10
For theta = 0 To 360 Step 0.5
deg = theta * pi / 180
x = a% * Cos(deg)
y = b% * Sin(deg)
' PSet (x, y), 10
u1 = 30 * pi / 180
u2 = 90 * pi / 180
u3 = 150 * pi / 180
Call rote(x, y, u1)
PSet (x2, y2), 10
Call rote(x, y, u2)
PSet (x2, y2), 10
Call rote(x, y, u3)
PSet (x2, y2), 10
Next theta
Sub rote (x1, y1, u)
x2 = x1 * Cos(u) - y1 * Sin(u)
y2 = y1 * Cos(u) + x1 * Sin(u)
End Sub
![[Image: 2.jpg]](https://i.ibb.co/tzkz14M/2.jpg)