新しく発言する EXIT インデックスへ

　　万華鏡 ひでき 2007/12/22 19:15:43 
　　├!ご参考に。 SECOND 2007/12/23 02:54:41 
　　│└x軸，y軸に関する対称移動は，それぞれ，SC... 白石　和夫 2007/12/23 10:36:54 
　　│　└気が付きませんでした、直します。 SECOND 2007/12/23 17:13:48 
　　├!ご参考に。こちらが簡単になります。 SECOND 2007/12/23 17:16:58 
　　│└ポイントは、再帰呼び出しにあるのですね。 ひでき 2007/12/24 19:56:12 
　　│　├飾る前に、３重書きの不具合がありました。 SECOND 2007/12/24 21:10:09 
　　│　├!少し飾ったものです。(修2) SECOND 2007/12/24 23:45:32  (修正2回)
　　│　└厳密の計算ではありませんが、また、対称変... 山中和義 2007/12/25 11:18:13 
　　└!フラクタル描画で、３重書きの弊害を解消し... SECOND 2007/12/24 21:02:15 
　　　├!こちらが見やすい。動きを細かくした。 SECOND 2007/12/25 04:00:25 
　　　│└シェルピンスキーの三角形ですね。 山中和義 2007/12/25 11:08:08 
　　　│　├日増しに訪問者が、減っていくようで寂しい... SECOND 2007/12/25 19:09:12 
　　　│　└腰を折ってすみません。六角形の方を紹介し... SECOND 2007/12/26 03:06:45 
　　　│　　└!簡易万華鏡（ランダム）※FOR文による６角... 山中和義 2007/12/26 11:26:29 

Re: 腰を折ってすみません。六角形の方を紹介し...	返事を書く ノートメニュー
山中和義 <drdlxujciw> 2007/12/26 11:26:29
!簡易万華鏡（ランダム）※FOR文による６角形の平面充填 OPTION ARITHMETIC NATIVE LET N=3 !飾りの数 DIM px(N),py(N),sc(N) !（親集合での）飾りの位置、大きさ SET WINDOW -2,5, -1,6 PRINT "右クリックで、停止。" DO FOR i=1 TO N !飾りの位置を求める LET x=RND*0.5 !長方形内の点 x=[0,0.5)、y=[0,SQR(3)/2) LET y=RND*SQR(3)/2 IF -x*SQR(3)+y>0 THEN !外部なら　※対角線　直線y=SQR(3)*x LET y=-y !x軸対称 LET x=x+1/2 !平行移動 LET y=y+SQR(3)/2 END IF !ヒット率（三角形△の内部になる確率）が100%になる LET px(i)=x !採用 LET py(i)=y LET sc(i)=RND*0.1+0.1 !s=[0.1,0.2) NEXT i SET DRAW mode hidden CLEAR FOR ix=0 TO 2 !６角形で平面を充填する FOR iy=0 TO 2 DRAW p6 WITH SHIFT(1.5*ix,SQR(3)*(iy+MOD(ix,2)/2)) NEXT iy NEXT ix SET DRAW mode explicit MOUSE POLL x,y,left,right WAIT DELAY 0.1 LOOP UNTIL 0<right PICTURE p6 !６角形を描く FOR r=0 TO 5 IF MOD(r,2)=1 THEN DRAW t1 WITH SCALE(1,-1)*ROTATE(2*PI*(r+1)/6) !x軸対称、回転 ELSE DRAW t1 WITH ROTATE(2*PI*r/6) !回転のみ END IF NEXT r END PICTURE PICTURE t1 !三角形を描く PLOT LINES: 0,0; 1,0; 1/2,SQR(3)/2; 0,0 !鏡の縁 FOR i=1 TO N SET AREA COLOR i+1 !DRAW disk WITH SCALE(sc(i))*SHIFT(px(i),py(i)) !飾り DRAW g WITH SCALE(sc(i))*SHIFT(px(i),py(i)) !飾り NEXT i END PICTURE PICTURE g !飾りを描く　※図形の中心が原点（単位円内） PLOT AREA: 1,0; COS(2*PI/3),SIN(2*PI/3); COS(4*PI/3),SIN(4*PI/3) !三角形 END PICTURE END

　　　└!シルピンスキーのガスケットと並べて動かし... SECOND 2007/12/26 05:27:23  (修正2回)
　　　　└「中を抜いたもの」を、シルピンスキーのガ... SECOND 2007/12/26 09:35:33 

インデックスへ

EXIT