Grapes/3D 1.21 [Don't Edit] ---------- UserFunction 0 ---------- Point 22 5 6 13 14 0 2 3 9 10 11 12 0 0 8 0 0 0 0 0 4 1 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 P 1 3 1 P k*(M.y/ tan(a) - M.x, 0, (-M.z) / 2) s 0.1 t 0.1 0 0 0 0 16711680 16711680 1 0 0 1 1 0 3 0 1 1 0 0 0 Q 1 3 1 Q k (M.y / tan(a), M.y, M.z / 2) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 1 0 0 1 1 0 3 0 1 1 0 0 0 R 7 3 1 E0 (p,0,q) 0 3 p 0.5 -2 2 q 0.5 0 0 0 16777215 16761087 16761087 1 0 0 1 1 0 3 0 1 1 0 0 0 S 7 3 1 Eα (p,p*tan(2Pi/n),q) 0 3 p 0.5 -2 2 q 0.5 0 0 0 16777215 16761024 16761024 1 0 0 1 1 0 3 0 1 1 0 0 0 T 0 0 1 U 1 3 1 v{u} (cos(t), 0, sin(t)) 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 V 1 3 1 v{v} unit(U&N) 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 A 1 3 1 A P-k/Sqrt2*U s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 1 0 0 1 1 0 3 0 1 1 0 0 0 B 1 3 1 B P+k/Sqrt2*U s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 1 0 0 1 1 0 3 0 1 1 0 0 0 C 1 3 1 C Q-k/Sqrt2*V s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 1 0 0 1 1 0 3 0 1 1 0 0 0 D 1 3 1 D Q+k/Sqrt2*V s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 1 0 0 1 1 0 3 0 1 1 0 0 0 E 0 0 1 F 0 0 1 G 1 3 1 G mid(P,Q) s 0.1 t 0.1 1 0 0 255 16711680 16711680 1 0 0 1 1 0 1 0 1 1 0 0 0 H 0 0 1 I 0 0 1 J 0 0 1 K 0 0 1 L 0 0 1 M 1 3 1 v{w} -U & V 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 N 1 3 1 v{nα } (-sin(a),cos(a),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 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 8 3 0 1 0 0 1 1 16711935 16777215 4 1 1 16711680 16777215 1 0 na 252 21 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 1 0 0 1 1 255 16777215 4 1 1 16711680 16777215 1 0 252 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 1 0 0 1 1 16711680 16777215 4 1 1 16711680 16777215 1 0 252 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 1 0 0 1 1 4227327 16777215 4 1 1 16711680 16777215 1 0 252 20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 2 1 44975 16777215 2 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 11 0 1 0 1 1 1 52992 12648384 2 1 1 16711680 16777215 1 0 8 9 10 11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 17 0 1 0 0 1 1 16711680 65535 1 1 1 16711680 16777215 1 0 1 9 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 17 0 1 0 0 1 1 16711680 16777215 1 1 1 16711680 16777215 1 0 2 1 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ---------- paramater 14 0.62831853 0 1 1 0.1 0 2 1.5 0 1 1 0.1 0 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1.8 0 1 1 0.1 1 4 1 0 1 1 0.1 1 0 10 0 1 1 2 1 1 1 0 1 1 0.1 0 5 1 0 1 1 0.1 0 6 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 0 0 1 1 0.1 1 3 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 1 104 ---------- KakuMode LogMode AreaMode 1 2 1 1 0 1 30 1 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg 2 1 ---------- ScaleS Vlow,VHigh -5 5 -5 5 MeshMode , Axiswidth , Sfontsize , Axismode , AxesColor 2 1 12 1 1 1 1 ViewPoint -10.6543246540642 19.5052493093269 41.1795508633786 14.1529064959268 0 0 0 0 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 187 1000 308 56 1000 0 233 1 0 0 1 0 1 0 ---------- MEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 1 0 14 22 n:カライドサイクルの四面体の数 t:x軸とv{AB}が作る回転角度[rad] k:PQの長さ(P,QはそれぞれABとCDの中点) カライドサイクルにおける正四面体の回転 v{nα }は、平面Eα の法線ベクトル v{u}はv{AB}の単位ベクトル v{v}はv{CD}の単位ベクトル v{w}はv{PQ}の単位ベクトル 重心Gは常にxy平面上にある。 #HideScript #on n,k change #a:=2Pi/n #//正四面体の回転 #for t:=0 to 2*Pi step Pi/200 #draw #next #t:=0 ---------- 11 13 734 0 13 9 0 600 729 0 4 24 0 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 3 参考文献 M.C.Escher Kaleidocyles (M.Engel,May 7, 2003) (http://www.kaleidocycles.de/pdf/kaleidocycles_theory.pdf) ----------