100 '****************************************
110 '揺動スライダ-クランク機構　速度比
120 '			2008.6.19
130 '　　　　　　designed by Takuma Tsuji
140 '****************************************
150 screen 3: cls 3
160 x0=100 : y0=140
170 zoom_x=1.3 : zoom_y=50
180 pi=3.141592653 : rad=pi/180
190 alp=1.4
200 '
210 line(x0-100,y0)-(x0+600,y0)
220 line(x0,y0-200)-(x0,y0+300)
230 for i=0 to 360
240 	sita=I*rad
250 	fai=atn(sin(sita)/(alp+cos(sita)))
260 '
270 	dfai_dsita=(alp*cos(sita)+1)*(cos(fai))^2/(alp+cos(sita))^2
280 '
290 	if i=0 then pset(x0,y0-dfai_dsita*zoom_y)
300 	line-(x0+i*zoom_x,y0-dfai_dsita*zoom_y)
310 '
320 next i
330 locate 2,5 : print "φ・/θ・"
340 locate 10,9 : print "0"
350 locate 40,9:print "π"
360 locate 70,9:print "2π"
370 locate 75,9:print "θ"
380 end