Grapes/win 2.6 [Don't Edit] ---------- BGstretchOn BGfile 0 ---------- UserFunction 1 1 1 (bcosx,sinx) ---------- y = f(x) 0 ---------- 0 = f(x,y) 0 ---------- Point 20 1 2 3 4 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 P 2 0 2 P ((a+Sqrt(b^2 cos^2 @ +sin^2 @ ) )roll(@)).x ((a+Sqrt(b^2 cos^2 @ +sin^2 @ ) )roll(@)).y a t 0.1 0 0 1 1 8 1 0 0 1 1 0 2 0 1 Q 1 3 2 Q (P-aroll((1+d/a)@)).x (P-aroll((1+d/a)@)).y 0 q 0.0349065850398866 0 0 2 2 0 1 0 0 1 1 0 2 2 2 R 6 0 2 R (f(@)).x (f(@)).y 0 0 2Pi @ 0.1 0 0 0 9 14 1 0 0 2 1 1 2 0 1 S 1 0 2 S (T-aroll((1+1/a)@)).x (T-aroll((1+1/a)@)).y 0 t 0.1 0 0 1 1 0 1 0 0 1 1 0 3 1 1 T 2 0 2 T ((a+1)roll(@)).x ((a+1)roll(@)).y a t 0.1 0 0 0 0 0 1 0 0 1 1 0 3 0 1 A 0 0 1 B 0 0 1 C 0 0 1 D 0 0 1 E 0 0 1 F 0 0 1 G 0 0 1 H 0 0 1 I 0 0 1 J 0 0 1 K 0 0 1 L 0 0 1 M 0 0 1 N 0 0 1 O 2 0 2 O 0 0 1 t 0.1 0 0 0 1 14 0 0 0 1 1 0 3 0 1 ---------- Segments 3 1 1 1 1 0 1 0 1 0 1 2 0 0 0 0 0 0 0 0 0 1 1 1 1 0 1 0 0 6 !{len(P,O)|3}//長さ 1 252 0 0 0 0 0 0 0 0 0 1 1 1 1 0 1 0 0 5 !{len(R,O)|3}//長さ 3 252 0 0 0 0 0 0 0 0 0 ---------- paramater 14 2.4 0 1 1 0.1 1 1 0 1 1 0.1 1 6.3 0 1 1 0.0872664625997165 1 1 0 1 1 0.0872664625997165 1 1 0 1 1 0.0872664625997165 1 12 0 1 1 0.0872664625997165 1 1 0 1 1 0.0872664625997165 1 1 0 1 1 0.0872664625997165 1 1 0 1 1 0.0872664625997165 1 1 0 1 1 0.0872664625997165 1 1 0 1 1 0.0872664625997165 1 1 0 1 1 0.0872664625997165 1 0 0 1 1 0.1 1 1 0 1 1 0.0872664625997165 1 1 1 1 ---------- KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle 1 2 1 2 1 0 0 1 0 0 DrawMode SegmentShowSync 1 1 AfterImageColorNo, CanAImg 0 1 circleMode 1 ---------- ScaleX Vlow,VHigh,label 0 630 x x AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible 1 0 1 0 1 NUmber,Base 4 1 High,Low 6.3 -6.3 ---------- ScaleY Vlow,VHigh,label 0 630 y AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible 1 0 1 1 NUmber,Base 4 1 High,Low 6.3 -6.3 ---------- ScaleS SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed 1 1 0 1 12 0 0 0 0 0 12 0 ---------- Yvalue 1 1 ---------- Iinterval Svalue Evalue sliceNo 1 -1 1 1 40 Dfuncno Efuncno AreaQ 1 0 0 ---------- Yvalue Function List 9 y1 y2 y3 y4 y5 y6 y7 y8 y9 ---------- Panel Position 0 0 690 771 447 609 0 0 0 0 1 1 1 1 1 0 1 ---------- MEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 4 1 10 0 0 0 46 外サイクロイド 定円(半径1)に外接して転がる円の,円周 上の点{Q}の軌跡です. 定円は,{b}を変えることで楕円になります. {a},{b}を変えて,θを動かすと,の点{Q}の 軌跡が描かれます.(ただし,最後までたどり つけないかもしれません...) 定円({b=1})のとき,外サイクロイドが描かれ ていく様子を見るには,「えがく(途中経過)」を おしてください.(F1を押すと中断できます) {a}をマイナスに変えて見てもおもしろいので, 試してみてください. # hidescript # on a,b change #HideObj(S) #ShowObj(Q,R,P) #@ := 0 #calc #Clraimg # c := 2a+Sqrt(b^2 cos^2 @ +sin^2 @ )+0.5 # d := Sqrt(b^2 cos^2 @ +sin^2 @ ) #n := a/(a+d) # while (n <> round(n)) and (n <= 200) # inc(n,a/(a+d)) # wend # SetArea(-c,-c,c,c) # draw//refresh #//えがく(途中経過) #HideObj(Q) #ShowObj(S) #b := 1 #n := a/(a+1) # while (n <> round(n)) and (n <= 70) # inc(n,a/(a+1)) # wend # refresh #@ := 0 #calc #Clraimg #for @ := 0 to (2n+1/36)Pi step Pi/36 #draw #next ---------- 11 4 24 1 4 22 1 4 22 1 4 22 1 4 22 1 4 22 1 4 22 1 4 22 1 4 22 1 3 18 0 4 24 0 ----------