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

HeartMagic


  Heart Magic yossy 2008/09/23 00:26:47 
  2次曲線による図形の、集散マジックです。 yossy 2008/09/23 00:51:23 

  Heart Magic yossy 2008/09/23 00:26:47   ツリーへ
Heart Magic  返事を書く  ノートメニュー
yossy <cfdugezjff> 2008/09/23 00:26:47
!Heart Magic
DEF i(x)=x^2-x
DEF j(x)=-x^2-x
DEF k(x)=-x^2+1/2*x+1
DEF l(x)=-x^2-1/2*x+1
DEF m(y)=y^2-y
DEF n(y)=y^2+1/2*y-1
DEF o(y)=y^2-1/2*y-1
DEF p(y)=-y^2+1/2*y+1
DIM A(4,4),B(4,4),C(4,4),D(4,4),E(4,4),F(4,4),G(4,4),H(4,4)
MAT READ A
DATA 1, 0, 0, 0
DATA 0, 1, 0, 0
DATA 0, 0, 1, 0
DATA 0, 0, 0, 1
MAT READ B
DATA -1, 0, 0, 0
DATA 0, 1, 0, 0
DATA 0, 0, 1, 0
DATA 0, 0, 0, 1
MAT READ C
DATA -1, 0, 0, 0
DATA 0, -1, 0, 0
DATA 0, 0, 1, 0
DATA 0, 0, 0, 1
MAT READ D
DATA 1, 0, 0, 0
DATA 0, -1, 0, 0
DATA 0, 0, 1, 0
DATA 0, 0, 0, 1
MAT READ E
DATA 0, 1, 0, 0
DATA -1, 0, 0, 0
DATA 0, 0, 1, 0
DATA 0, 0, 0, 1
MAT READ F
DATA 0, 1, 0, 0
DATA 1, 0, 0, 0
DATA 0, 0, 1, 0
DATA 0, 0, 0, 1
MAT READ G
DATA 0, -1, 0, 0
DATA 1, 0, 0, 0
DATA 0, 0, 1, 0
DATA 0, 0, 0, 1
MAT READ H
DATA 0, -1, 0, 0
DATA -1, 0, 0, 0
DATA 0, 0, 1, 0
DATA 0, 0, 0, 1
SET WINDOW -9.2,9.2,-9.2,9.2
FOR Q=6.9 TO 0 STEP -0.01
SET DRAW mode hidden
CLEAR
DRAW s WITH H*SHIFT(0,Q)
DRAW s WITH F*SHIFT(0,-Q)
DRAW s WITH B*SHIFT(Q,0)
DRAW s WITH D*SHIFT(-Q,0)
DRAW s WITH A*SHIFT(Q,-Q)
DRAW s WITH C*SHIFT(-Q,Q)
DRAW s WITH E*SHIFT(Q,Q)
DRAW s WITH G*SHIFT(-Q,-Q)
WAIT DELAY 0.01
SET DRAW mode explicit
NEXT Q
WAIT DELAY 8
FOR Q=0 TO 6.9 STEP 0.01
SET DRAW mode hidden
CLEAR
DRAW t WITH A*SHIFT(-Q,Q)
DRAW t WITH C*SHIFT(-Q/3,Q)
DRAW t WITH F*SHIFT(Q/3,Q)
DRAW t WITH H*SHIFT(Q,Q)
DRAW u WITH A*SHIFT(-Q,Q/3)
DRAW u WITH C*SHIFT(-Q/3,Q/3)
DRAW u WITH E*SHIFT(Q/3,Q/3)
DRAW u WITH B*SHIFT(Q,Q/3)
DRAW v WITH A*SHIFT(-Q,-Q/3)
DRAW v WITH C*SHIFT(-Q/3,-Q/3)
DRAW v WITH E*SHIFT(Q/3,-Q/3)
DRAW v WITH G*SHIFT(Q,-Q/3)
DRAW v WITH H*SHIFT(-Q,-Q)
DRAW v WITH F*SHIFT(-Q/3,-Q)
DRAW v WITH B*SHIFT(Q/3,-Q)
DRAW v WITH D*SHIFT(Q,-Q)
WAIT DELAY 0.01
SET DRAW mode explicit
NEXT Q
PICTURE t
FOR x=-1 TO 1 STEP 0.01
PLOT LINES: x,i(ABS(x));
NEXT x
FOR y=0 TO (1+SQR(17))/4 STEP 0.01
PLOT LINES: p(y),y;
NEXT y
PLOT LINES
FOR y=(1+SQR(17))/4 TO 0 STEP -0.01
PLOT LINES: o(y),y;
NEXT y
END PICTURE
PICTURE u
FOR x=-1 TO 0 STEP 0.01
PLOT LINES: x,j(x);
NEXT x
FOR y=0 TO 1 STEP 0.01
PLOT LINES: m(y),y;
NEXT y
FOR x=0 TO 2 STEP 0.01
PLOT LINES: x,k(x);
NEXT x
FOR y=-2 TO 0 STEP 0.01
PLOT LINES: n(y),y;
NEXT y
END PICTURE
PICTURE v
FOR y=-2 TO 1 STEP 0.01
PLOT LINES: -i(ABS(y)), y;
NEXT y
FOR x=0 TO -2 STEP -0.01
PLOT LINES: x, l(x);
NEXT x
END PICTURE
PICTURE s
FOR y=-2 TO 1 STEP 0.01
PLOT LINES: -i(ABS(y)), y;
NEXT y
FOR x=0 TO -2 STEP -0.01
PLOT LINES: x, l(x);
NEXT x
FOR x=-2 TO 2 STEP 0.01
PLOT LINES: x, SGN(x)*i(ABS(x));
NEXT x
END PICTURE
END
  2次曲線による図形の、集散マジックです。 yossy 2008/09/23 00:51:23   ツリーへ
Re: Heart Magic  返事を書く  ノートメニュー
yossy <cfdugezjff> 2008/09/23 00:51:23
2次曲線による図形の、集散マジックです。

まず、8枚のポトスの葉が1ヶ所に集合し、それから16種類のハート型が離散します。

この動画を作るために、十進BASIC掲示板や過去ログの利用者の皆さんのプログラムをかなり参考にいたしました。ありがとうございます。

以下に、私の新サイトのアドレスを掲載させていただきます。哲学から芸術へと転向しました。お暇があれば、一度覗いてみてください。

「ポトス数学美術」

http://www8.plala.or.jp/pothos/

 インデックスへ  EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。