2変数関数のグラフを描くのに Plot3D[ ] という関数が使える。
Plot3D[x^2-y^2,{x,-1,1}, {y, -1, 1}] |
複数の関数のグラフを同時に描くことも出来ます。
Plot3D[{x^3+y^3-3x y,0},{x,-2,2},{y,-2,2}] |
( ) に基づき球面を描く。 負数の が出て来ないように注意が必要である。 以下の2つの例は少し工夫している (これは以前の Mathematica 用で、 Version 7 は工夫をする必要がない?)。
Plot3D[Sqrt[Max[0, 1 - x^2 - y^2]], {x, -1, 1}, {y, -1, 1}] |
Plot3D[Sqrt[Boole[x^2+y^2<1]*(1-x^2-y^2)], {x, -1, 1}, {y, -1, 1}](Boole[] は真ならば , 偽ならば 0 を返す関数です。) |
極座標で表された関数のグラフ を描く場合、 , という関係を用いると良い。 例えば (実は ) のグラフを描くには、 以下のようにすれば良い。
Plot3D[(x^2+y^2)Cos[2Arg[x+I y]],{x,-1,1},{y,-1,1}] |