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 10 11 12 13 14 15 0 2 3 4 5 6 7 8 9 0 0 0 0 16 0 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(F,k) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 3 0 1 1 0 0 0 Q 1 0 1 Q g(E,k) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 3 0 1 1 0 0 0 R 1 0 1 R g(C,k) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 3 0 1 1 0 0 0 S 1 0 1 S g(D,k) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 3 0 1 1 0 0 0 T 1 0 1 T g(G,k) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 3 0 1 1 0 0 0 U 1 0 1 U g(H,k) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 3 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 0 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 0 0 1 1 0 1 0 1 1 0 0 0 C 1 1 1 C f((a,b,c),s,t)-M s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 3 0 1 1 0 0 0 D 1 1 1 D B+CB s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 3 0 1 1 0 0 0 E 1 7 1 E f((a+c,0,0),s,t)-M s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 F 1 8 1 F A+EA s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 3 0 1 1 0 0 0 G 1 1 1 G g(F,1) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 3 0 1 1 0 0 0 H 1 1 1 H g(E,1) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 3 0 1 1 0 0 0 I 0 0 1 J 0 0 1 K 0 0 1 L 0 0 1 M 1 0 1 M (0,0,bsintcoss/2) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 3 0 1 1 0 0 0 N 0 0 1 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 6 5 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 5 3 1 4 5 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 6 3 2 4 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ---------- paramater 14 6.22956418971701 0 1 1 0.1 0 4 3 0 1 1 0.1 1 2 2 0 1 1 0.1 1 3 1 0 1 1 0.1 1 0 6 0 1 1 0.1 0 7 1 0 1 1 0.1 1 0 7 0 1 1 1 1 1 0 0 1 1 0.1 1 0 -1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 12.5663706143596 0 1 1 0.196349540849362 1 5 -2.05654403197549E-13 0 1 1 1 0 6 0 0 1 1 0.01 1 0 1 0 1 1 0.1 1 0 1 1 1 ---------- KakuMode LogMode AreaMode 1 2 1 1 0 1 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg 0 1 ---------- ScaleS Vlow,VHigh -4.39706677155068 4.55327182890078 -4.90968370692004 4.04065489353142 MeshMode , Axiswidth , Sfontsize , Axismode , AxesColor 2 3 24 0 2 4 1 ViewPoint -67.5 36 40.4721108273706 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 0 0 162 0 0 0 0 1 0 1 0 ---------- MEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 1 0 12 37 {n>=3} n-KaleidocycleV2 赤い線分の上下動を 無くしたバージョン #//初期化(フィッテング) #ClrAImgData #t:=Atan(-sin(s)tan(Pi/n)) #a:=b/(cos(t)tan(Pi/n)) #Call(D) #//【AUTO】 #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,c,s change #if n<3 then n:=3 #if c>b/tan(Pi/n) then c:=b/tan(Pi/n) #Call(初期化(フィッテング)) #//赤線鉛直水平 #s:=0 #Call(初期化(フィッテング)) ---------- 11 4 24 1 4 59 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 ----------