18 lines
418 B
Plaintext
18 lines
418 B
Plaintext
10 OVER 1: CLS
|
|
20 LET theta=1
|
|
30 LET g=9.81
|
|
40 LET l=0.5
|
|
50 LET speed=0
|
|
100 LET pivotx=120
|
|
110 LET pivoty=140
|
|
120 LET bobx=pivotx+l*100*SIN (theta)
|
|
130 LET boby=pivoty+l*100*COS (theta)
|
|
140 GO SUB 1000: PAUSE 1: GO SUB 1000
|
|
190 LET accel=g*SIN (theta)/l/100
|
|
200 LET speed=speed+accel/100
|
|
210 LET theta=theta+speed
|
|
220 GO TO 100
|
|
1000 PLOT pivotx,pivoty: DRAW bobx-pivotx,boby-pivoty
|
|
1010 CIRCLE bobx,boby,3
|
|
1020 RETURN
|