Grapes/win 2.8 [Don't Edit] 3.14 ---------- BGstretchOn BGfile 0 ---------- UserFunction 0 ---------- y = f(x) 0 ---------- 0 = f(x,y) 1 1 1 x^2/a^2 +y^2/b^2 =1 0 255 2 1 4 1 0 1 X ---------- Point 22 1 2 4 6 0 5 0 7 0 0 0 0 0 0 8 0 0 0 0 0 0 3 0 0 0 0 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 P 1 0 2 P acost bsint 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 Q 1 0 2 Q (-P).x (-P).y 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 R 1 0 2 R ((a b^2 sint,-a^2 bcost)/[U]).x ((a b^2 sint,-a^2 bcost)/[U]).y 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 S 1 0 2 S (-R).x (-R).y 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 T 0 0 1 U 1 0 2 U a^2 cost b^2 sint 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 3 0 1 0 V 0 0 1 A 2 0 2 A 0 0 [OH] t 0.1 0 0 16777215 48896 16777215 1 0 0 1 1 0 0 1 0 3 0 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 1 0 2 H (perp(P,R)).x (perp(P,R)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 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 1 0 2 O 0 0 0 t 0.1 0 0 16777215 16711680 16777215 1 0 0 1 1 0 0 3 0 1 0 ---------- Segments 1 7 1 1 16711680 16777215 2 0 1 0 0 0 1 4 2 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ---------- paramater 14 3 0 1 1 0.1 1 1 2 0 1 1 0.1 1 2 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 4 0 1 1 0.1 1 0 6.4 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 360 0 1 1 2 1 3 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 2.2 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 1 80 ---------- KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle 2 4 2 1 1 0 1 1 0 1 0 32 0 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg,MaxAimgN0 2 1 3001 circleMode 1 ---------- ScaleX Vlow,VHigh,label 0 914 x x AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible 1 0 0 0 0 NUmber,Base,Linterval,numberR 7 1 1 7 High,Low 3.71724191653032 -3.71365239241277 ---------- ScaleY Vlow,VHigh,label 0 914 y AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible 1 0 0 0 0 NUmber,Base,Linterval,NumbeerR 7 1 1 7 High,Low 3.72752592682529 -3.64896009349377 ---------- ScaleS SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed 1 1 0 1 12 0 0 0 0 0 12 0 0 0 ---------- Yvalue 1 1 ---------- Iinterval Svalue Evalue sliceNo 1 -1 1 1 40 10 Dfuncno Efuncno AreaQ 1 0 0 ---------- Yvalue Function List 6 y1 y2 y3 y4 y5 y6 ---------- Panel Position 0 100 35 0 180 145 322 178 0 1 0 1 1 0 1 0 1 ---------- PetaMEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 0 0 12 0 0 0 22 楕円に内接する菱形に、 内接する円は、閉形である。 つまり、菱形を書き始める点 をどこにとっても同じ円となる。 #//Auto #draw #ClrAImg #b:=2 #for a:=3 to 2 step -0.1 #draw #next a #Call(Rotation) #wait(1000) #for a:=2 to 3 step 0.1 #draw #next a #Call(Rotation) #//Rotation #for t:=0 to 360 step 1 #draw #next t ---------- 11 4 27 1 6 36 0 6 36 0 6 36 0 6 36 0 6 36 0 6 36 0 6 36 0 6 36 0 6 36 0 4 24 0 ---------- Table SECTION RowNo, ColumnNo 0 10 200 Table Data 60 60 60 60 60 60 60 60 60 60 ---------- SimpleMemo SECTION 0 ----------