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

　　ランダムドット・ステレオグラム ひでき 2008/01/28 23:57:58 
　　├（２）について 山中和義 2008/01/29 10:27:01 

Re: ランダムドット・ステレオグラム	返事を書く ノートメニュー
山中和義 <drdlxujciw> 2008/01/29 10:27:01
（２）について !ランダムドット・ステレオグラム RANDOMIZE LET h=2 LET k=40 LET m=40 LET a=10 SET WINDOW -5,5,-5,5 INPUT PROMPT "回数=":n1 FOR n=1 TO n1 LET x0=10*RND-5 LET y0=10*RND-5 LET col=INT(7*RND)+1 SET AREA COLOR col PLOT AREA: x0,-y0;x0+0.05,-y0;x0+0.05,-y0-0.05;x0,-y0-0.05 FOR s=1 TO -1 STEP -2 LET xg=x0 LET yd=y0 DO !!!110 LET x=xg LET y=yd LET z=k LET m2=1 !--LET m1=1 LET xs=(xg+h*s)/a LET ys=yd/a LET zs=-m/a FOR c=1 TO 3 DO !--140 LET m1=m2 !-- LET x=x+xs LET y=y+ys LET z=z+zs CALL kansuu(x,y) LET m2=z-rittaiz LOOP WHILE m1*m2>0 !--IF m1*m2>0 THEN !--LET m1=m2 !--GOTO 140 !--END IF !--LET m1=m2 LET xs=-xs/a LET ys=-ys/a LET zs=-zs/a NEXT c CALL zahyo(x,y,z) IF ABS(xg)>5 THEN EXIT DO !!!220 PLOT AREA: xg,-yd;xg+0.05,-yd;xg+0.05,-yd-0.05;xg,-yd-0.05 LOOP !!!GOTO 110 !!!220 NEXT s NEXT n SUB zahyo(x,y,z) LET xg=((k-z)*h*s+m*x)/(k+m-z) LET yd=(m*y)/(k+m-z) END SUB SUB kansuu(x,y) LET rittaiz=COS(SQR(x^2+y^2)) END SUB END 参照．過去掲示板「センター試験」内 http://freebbs.around.ne.jp/article/b/basic/103/agebsy/zhdmjo.html#zhdmjo

　　│└回転ランダムドット・ステレオグラムを作っ... ひでき 2008/01/31 23:42:09 
　　├（１）について 山中和義 2008/01/29 10:46:59  (修正1回)
　　├ワイヤーフレームのステレオ画像（擬似３Ｄ... 山中和義 2008/02/02 20:48:40 
　　│└!２次元の絵（DRAW文）のステレオペア 山中和義 2008/02/04 11:59:05  (修正1回)
　　└ネットで、ステレオグラムについて検索して... ひでき 2008/02/03 13:30:56 

インデックスへ

EXIT