Table

 さて、今度はパラメータを変えて図形の変化の様子を観察してみましょう。使うコマンドは「Table」です。書式は次のようになっています。

Table [ Plot3D [ g , { x , xmin , xmax } , { y , ymin , ymax } ,{ a , amin , amax , step_a } ]

 これを用いることにより、パラメータの変化にともなう図形を一気に描画させることができます。
 それでは 関数 f = x^2+a x y + y^2 が描く図形をパラメータ a の変化ともに観察してみましょう。次のようにinputします。

Table [ Plot3D [ x ^ 2 + a x y + y ^ 2 , { x , -1 , 1 } , { y , -1 , 1 } ] , { a ,-1 , 1 , .5 } ]
 変化の様子を見やすくするために、正面から見た図を右にならべてみます。
Table [ Plot3D [ x ^ 2 + a x y + y ^ 2 , { x , -1 , 1 } , { y , -1 , 1 } , ViewPoint -> { 0 , -2 , 0 } ] , { a ,-1 , 1 , .5 } ]





Do

 別な関数を用いて描画させてみましょう。陽関数 f(x,y)=SIN(axy) におけるパラメータ a を変化させてみます。

Table [ Plot3D [ Sin [a x y] , { x , 0 , 3 } , { y , 0 , 3 } ] , { a , 0, 5 ,1 } ]


 ここで、今作った画像のアニメーションを作ってみましょう。コマンドは「Do」を用います。(「Table」もそのままで使用できるようです。)

D0 [ Plot3D [ Sin [a x y] , { x , 0 , 3 } , { y , 0 , 3 } ] , { a , 0, 5 ,1 } ]
 次の、要領で実行します。
  1. アニメーションをするセルを選択
  2. 「cell」メニューの中の「Animate Selected Graphics」を選択(short cut は ctrl+Y)
  3. コントロール・バーでスピードやこま送りを調節
 どうですか、とても簡単にアニメーションができて面白いですね。