DouKaku?beta

challenge ポリゴンを表示するプログラム 

適当なポリゴンを表示させて、描画するプログラムを書いてください。
ポリゴンは回転させてください。

2D処理だけなら、標準ライブラリで大体いけますが、
3D処理は追加でライブラリを利用すると思うので、
何のライブラリを利用したのか書いてください。
post comment

Posted feedbacks - Mathematica

以下の手順で描いています(Mathematica 6)。

1. 頂点を定義
2. ポリゴンを定義
3. 描画

マウスでドラッグすると回転します。

特別なライブラリは使っていません。
（Mathematica 5だと「<< RealTime3D`」が必要です。）
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
a = {1, 0, 0};
b = {-1/2, Sqrt@3/2, 0};
c = {-1/2, -Sqrt@3/2, 0};
d = {0, 0, Sqrt@2};

tetra = {
   Polygon[{a, b, c}],
   Polygon[{a, b, d}],
   Polygon[{b, c, d}],
   Polygon[{c, a, d}]
  };

Show[Graphics3D[tetra]]

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]