Grapes/win 2.8 [Don't Edit] 3.14 ---------- BGstretchOn BGfile 0 ---------- UserFunction 1 1 1 proj(x,y,z,s+u,t,v) ---------- y = f(x) 7 1 2 3 4 5 6 7 1 1 1 1 1 1 1 a 0 16711680 2 0 1 b 0 16711680 2 0 1 c 0 16711680 2 0 1 d 0 16711680 2 0 1 m 0 16711680 2 0 1 p 0 16711680 2 0 1 q 0 16711680 2 0 1 ---------- 0 = f(x,y) 0 ---------- Point 22 16 0 0 0 0 0 0 1 3 4 5 6 7 8 9 10 11 12 13 14 15 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 P 1 0 2 P (qf(@a+(1-@)acos72,(1-@)asin(72),b)).x (qf(@a+(1-@)acos72,(1-@)asin(72),b)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 Q 0 0 1 R 0 0 1 S 0 0 1 T 0 0 1 U 0 0 1 V 0 0 1 A 1 0 2 A (qf((1-@)a+@acos72,-@asin(72),b)).x (qf((1-@)a+@acos72,-@asin(72),b)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 B 1 0 2 B (qf((1-@)a+@c,0,(1-@)b+@d)).x (qf((1-@)a+@c,0,(1-@)b+@d)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 C 1 0 2 C (qf(@a+(1-@)c,0,@b+(1-@)d)).x (qf(@a+(1-@)c,0,@b+(1-@)d)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 D 1 0 2 D (qf((1-@)c+@m,-@n,(1-@)d-@d)).x (qf((1-@)c+@m,-@n,(1-@)d-@d)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 E 1 0 2 E (qf(@c+(1-@)m,-(1-@)n,@d-(1-@)d)).x (qf(@c+(1-@)m,-(1-@)n,@d-(1-@)d)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 F 1 0 2 F (qf((1-@)c+@m,@n,(1-@)d-@d)).x (qf((1-@)c+@m,@n,(1-@)d-@d)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 G 1 0 2 G (qf(@c+(1-@)m,(1-@)n,@d-(1-@)d)).x (qf(@c+(1-@)m,(1-@)n,@d-(1-@)d)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 H 1 0 2 H (qf((1-@)m+@p,(1-@)n+0.5@,-(1-@)d-@b)).x (qf((1-@)m+@p,(1-@)n+0.5@,-(1-@)d-@b)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 I 1 0 2 I (qf(@m+(1-@)p,@n+0.5(1-@),-@d-(1-@)b)).x (qf(@m+(1-@)p,@n+0.5(1-@),-@d-(1-@)b)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 J 1 0 2 J (qf(p,0.5(1-@)-0.5@,-b)).x (qf(p,0.5(1-@)-0.5@,-b)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 K 1 0 2 K (qf(p,0.5@-0.5(1-@),-b)).x (qf(p,0.5@-0.5(1-@),-b)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 L 1 0 2 L (qf((1-@)p+@acos108,0.5(1-@)+@asin108,-b)).x (qf((1-@)p+@acos108,0.5(1-@)+@asin108,-b)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 M 1 0 2 M (qf((1-@)m+@ccos72,(1-@)n+@csin72,-(1-@)d+@d)).x (qf((1-@)m+@ccos72,(1-@)n+@csin72,-(1-@)d+@d)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 N 1 0 2 N (qf((1-@)a+@acos72,@asin(72),b)).x (qf((1-@)a+@acos72,@asin(72),b)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 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 7 6 1 1 16711680 16777215 2 1 1 0 0 0 21 8 9 10 11 12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1 1 16711680 16777215 2 1 1 0 0 0 11 13 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1 1 16711680 16777215 2 1 1 0 0 0 13 14 15 16 17 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1 1 16711680 16777215 2 1 1 0 0 0 17 19 16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1 1 16711680 16777215 2 1 1 0 0 0 15 20 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 16711680 16777215 2 1 1 0 0 0 9 21 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 16711680 16777215 2 1 1 0 0 0 21 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ---------- paramater 14 0.850651 0 1 1 0.1 0 1 1.11352 0 1 1 0.1 0 2 1.37638 0 1 1 0.1 0 3 0.262866 0 1 1 0.1 0 4 1.11352 0 1 1 0.1 0 5 0.809017 0 1 0 1 0 6 0.688191 0 1 1 0.1 0 7 2 0 1 1 0.1 1 8 631 0 1 1 2 1 9 168 0 1 1 2 1 10 360 0 1 1 0.1 1 11 160 0 1 1 0.2 1 12 0 0 1 1 0.037037037037037 1 13 5 0 1 1 0.1 1 0 1 1 1 ---------- 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 0 1 3001 circleMode 1 ---------- ScaleX Vlow,VHigh,label 0 914 x x AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible 0 0 0 0 0 NUmber,Base,Linterval,numberR 7 1 1 7 High,Low 3.58668766601003 -3.61016272769076 ---------- ScaleY Vlow,VHigh,label 0 914 y AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible 0 0 0 0 0 NUmber,Base,Linterval,NumbeerR 7 1 1 7 High,Low 3.3627564233248 -3.83409397037598 ---------- 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 0 0 0 325 52 0 85 0 0 0 0 1 0 1 0 1 ---------- PetaMEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 0 0 12 0 0 0 41 {q}:立体の拡大率 {s}:{z}軸の周りの回転 {t}:{x}軸の周りの回転 {v}:画角の決定 {0<=@<=1/2}の範囲で変化 {0},{1/3},{1/2}:綺麗です ①DODECAHEDRON ②TRUNCATED DODECAHEDRON ③ICOSIDODECAHEDRON #HideScript//sub #on q,@,s,t,v change #if @<0 then @:=0 #if @>1/2 then @:=1/2 #Calc #ClrAimgData #for k:=1 to 5 #u:=72*k #calc #next #refresh #//Auto Draw #for @:=0 to 1/3 step 1/720 #Call(sub) #s:=s+0.5 #next @ #wait(900) #for @:=1/3 to 1/2 step 1/720 #Call(sub) #s:=s+0.5 #next @ #wait(900) #for @:=1/2 to 0 step -1/560 #Call(sub) #s:=s+0.5 #next @ #s:=s-360*Int(s/360) ---------- 11 4 27 1 4 133 1 4 214 1 4 25 0 4 25 0 4 25 0 4 25 0 4 25 0 4 25 0 4 25 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 ----------