100 '---ピストン速度---'
110 '初期設定'
120  WINDOW (0,0)-(639,400)
130 SCREEN 3
140 CLS 3
150 PAI=3.1415927#
160 L=100:R=30:A=R/L
170 ELY=100
180 '軸'
190 LINE (100,20)-(100,350)
200 LINE (50,200)-(500,200)
210 LOCATE 0,2:PRINT"vb/va:xp/rθ"
220 LOCATE 60,11 :PRINT "θ"
230 '描画'
240 FOR I=0 TO 12
250 DATA 0,-0.33,-0.63,-0.85,-0.98,-1,-0.96,-0.86,-0.73,-0.55,-0.38,-0.19,0
260 READ Y
270 X=(PAI/180)*(15*I)
280 X1=100+50*X :Y1=200-ELY*Y
290 CIRCLE (X1,Y1),3
300 NEXT I
310 FOR I=13 TO 24
320 DATA 0.19, 0.38, 0.55, 0.73, 0.86, 0.96, 1,  0.98, 0.85, 0.63, 0.33, 0
330 READ Y
340 X=(PAI/180)*(15*I)
350 X1=100+50*X :Y1=200-ELY*Y
360 CIRCLE (X1,Y1),3
370 NEXT I
380 FOR I=1 TO 360
390 B=(PAI/180)*(1*(I-1))
400 C=(PAI/180)*(1*(I))
410 D=-1*(SIN(B)+((1/2)*A*SIN(2*B))/SQR(1-(A*SIN(B)^2)))
420 E=-1*(SIN(C)+((1/2)*A*SIN(2*C))/SQR(1-(A*SIN(C)^2)))
430 LINE (100+50*B,200-ELY*D)-(100+50*C,200-ELY*E)
440 NEXT I
450 END