Grapes/3D 1.21 [Don't Edit] ---------- UserFunction 2 1 2 1 1 ((X.x-a)cosy+(X.ysinz+X.zcosz)siny+a,X.ycosz-X.zsinz,-(X.x-a)siny+(X.ysinz+X.zcosz)cosy) (X.xcos(2yPi/n)-X.ysin(2yPi/n),X.xsin(2yPi/n)+X.ycos(2yPi/n),X.z) ---------- Point 22 12 13 14 15 16 17 0 2 3 4 5 6 7 8 9 10 11 0 19 18 20 1 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 1 P g(E,k) s 0.1 t 0.1 0 0 0 255 16711680 16711680 0 0 0 1 1 0 2 0 1 1 0 0 0 Q 1 0 1 Q g(F,k) s 0.1 t 0.1 0 0 0 255 16711680 16711680 0 0 0 1 1 0 2 0 1 1 0 0 0 R 1 0 1 R g(G,k) s 0.1 t 0.1 0 0 0 255 16711680 16711680 0 0 0 1 1 0 2 0 1 1 0 0 0 S 1 0 1 S g(H,k) s 0.1 t 0.1 0 0 0 255 16711680 16711680 0 0 0 1 1 0 2 0 1 1 0 0 0 T 1 0 1 T g(I,k) s 0.1 t 0.1 0 0 0 255 16711680 16711680 0 0 0 1 1 0 2 0 1 1 0 0 0 U 1 0 1 g(J,k) s 0.1 t 0.1 0 0 0 255 16711680 16711680 0 0 0 1 1 0 2 0 1 1 0 0 0 V 0 0 1 A 1 3 1 A f((a,0,0),s,t)-M s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 1 0 1 1 0 1 0 1 1 0 0 0 B 1 3 1 B f((a,b,0),s,t)-M s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 1 0 1 1 0 1 0 1 1 0 0 0 C 1 1 1 C f((a,b,1),s,t)-M s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 1 0 1 1 0 1 0 1 1 0 0 0 D 1 0 1 D f((a+1,0,0),s,t)-M s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 1 0 1 1 0 1 0 1 1 0 0 0 E 1 1 1 E A+pAD s 0.1 t 0.1 0 0 0 255 16711680 16711680 1 1 0 1 1 0 3 0 1 1 0 0 0 F 1 1 1 F A+qAD s 0.1 t 0.1 0 0 0 255 16711680 16711680 1 1 0 1 1 0 3 0 1 1 0 0 0 G 1 1 1 G B+uBC s 0.1 t 0.1 0 0 0 255 16711680 16711680 1 1 0 1 1 0 3 0 1 1 0 0 0 H 1 1 1 H B+vBC s 0.1 t 0.1 0 0 0 255 16711680 16711680 1 1 0 1 1 0 3 0 1 1 0 0 0 I 1 8 1 I g(E,1) s 0.1 t 0.1 0 0 0 255 16711680 16711680 0 1 0 1 1 0 3 0 1 1 0 0 0 J 1 4 1 J g(F,1) s 0.1 t 0.1 0 0 0 255 16711680 16711680 0 1 0 1 1 0 3 0 1 1 0 0 0 K 0 0 1 L 7 0 1 L (s,0,t) 0 8 s 0.5 -3 3 t 0.5 0 0 0 16777215 52992 52992 1 0 0 1 1 0 3 0 1 1 0 0 0 M 1 0 1 M (0,0,bsintcoss/2) s 0.1 t 0.1 0 0 0 0 16711680 16711680 0 0 0 1 1 0 3 0 1 1 0 0 0 N 7 0 1 N (s,s*tan(Pi/n),t) 0 8 s 0.5 -4 4 t 0.5 0 0 0 16777215 52992 52992 1 0 0 1 1 0 3 0 1 1 0 0 0 O 1 0 3 O (0,0,0) s 0.1 t 0.1 0 0 0 16777215 16711680 16711680 1 0 0 1 1 0 3 0 1 1 0 0 0 ---------- Segments 5 1 1 1 0 0 1 1 255 16777215 3 1 1 16711680 16777215 1 0 1 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 1 1 255 16777215 3 1 1 16711680 16777215 1 0 3 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 1 1 255 16777215 3 1 1 16711680 16777215 1 0 5 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1 1 0 0 1 1 16711680 16777215 3 1 1 16711680 16777215 1 0 1 3 5 4 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1 1 0 0 1 1 16711680 16777215 3 1 1 16711680 16777215 1 0 2 3 6 4 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ---------- paramater 14 4.12914576141352 0 1 1 0.1 0 7 3 0 1 1 0.1 1 1 1.2 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 4 0 1 1 0.1 0 10 1 0 1 1 0.1 1 0 5 0 1 1 1 1 2 -0.8 0 1 1 0.1 1 3 3.1 0 1 1 0.1 1 4 1 0 1 1 0.1 1 0 12.5663706143596 0 1 1 0.1 1 8 -3.10266912248335E-13 0 1 1 1 0 9 0.2 0 1 1 0.1 1 5 3.4 0 1 1 0.1 1 6 1 1 1 ---------- KakuMode LogMode AreaMode 1 2 1 1 0 1 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg 0 1 ---------- ScaleS Vlow,VHigh -4.24553733700579 4.70480126344567 -4.6975424985572 4.25279610189426 MeshMode , Axiswidth , Sfontsize , Axismode , AxesColor 2 3 24 0 1.6 4 1 ViewPoint -95 36 34.2695701244927 30.0002813211634 0 0 0 1 0 (0,0,0) ---------- ViewPosition 5 30 20 25 30 -70 20 25 30 60 20 25 30 -90 90 25 30 -90 0 25 30 ---------- Panel Position 0 0 0 504 0 0 0 0 0 0 1 0 1 0 ---------- MEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 1 0 12 51 wˆκ”ΚƒJƒ‰ƒCƒhƒTƒCƒNƒ‹x ‚Μ•\Ž¦ƒVƒXƒeƒ€ |||||||||||| {2n}ŒΒ‚Μ•s“™•ΣŽl–Κ‘Μ |||||||||||| “_E,F,G,H‚ΜˆΚ’uŒˆ‚ί ƒpƒ‰ƒ[ƒ^{p,q,u,v} ŒvŽZŒ‹‰Κ’€ŽŸ•\Ž¦ EF=!{[EF]} GH=!{[GH]} EG=!{[EG]} EH=!{[EH]} FH=!{[FH]} FG=!{[FG]} #//‰Šϊ‰»(ƒtƒBƒbƒeƒ“ƒO) #ClrAImgData #t:=Atan(-sin(s)tan(Pi/n)) #a:=b/(cos(t)tan(Pi/n)) #Call(D) #//yAUTOz #ClrAImg #for s:=0 to 4Pi+0.001 step Pi/16 #t:=Atan(-sin(s)tan(Pi/n)) #a:=b/(cos(t)tan(Pi/n)) #Call(D) #wait(100) #ClrAimgData #next #hidescript//D #for k:=0 to n-1 #Calc #next #Draw #hidescript//Dummy #on n,b,s,p,q,u,v change #if n<3 then n:=3 #if n>20 then n:=20 #Call(‰Šϊ‰»(ƒtƒBƒbƒeƒ“ƒO)) #//“_‚Μ–ΌΜ•\Ž¦y‚r‚vz #InvShowObj(E,F,G,H) #Call(‰Šϊ‰»(ƒtƒBƒbƒeƒ“ƒO)) #//‚’Ό–Κ‚Μ•\Ž¦y‚r‚vz #InvShowObj(L,N) #Call(‰Šϊ‰»(ƒtƒBƒbƒeƒ“ƒO)) ---------- 11 4 24 1 4 202 1 4 141 1 4 330 1 4 24 0 4 24 0 4 24 0 4 24 0 4 24 0 4 24 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 ----------