以下はMathematicaに対する命令（コマンド）である。一つ一つのコマンドの文中にカーソルを持っていき、Shiftキーを押しながらEnterキーを押すとコマンドが実行されて結果の画像が表示される。

問題　1．

G=Plot3D[x+2y-3,{x,-1,2},{y,-1,2},　(* z=x+2y-3 のグラフを-1<x<2, -1<y<2 の範囲で書かせる命令。これ以後は必ずしもなくてもよい追加の指示。*)
BoxRatios->{3, 3, 9},PlotStyle->Opacity[0.8],Mesh->3,Axes->None,Boxed->False]

Ax=Graphics3D[{Blue,Thick,Arrow[{{0,0,-5},{0,0,5}}],Arrow[{{0,0,0},{3,0,0}}],Arrow[{{0,0,0},{0,3,0}}]},Boxed->False,Axes->False](* 座標軸を書かせる命令*)

n=Graphics3D[{Thick,Red,Arrow[{{0,0,0},{1,2,-1}}]}](* 法ベクトルを書かせる命令。*)

Show[G,Ax,n](* G, Ax, n を同じ画面に書かせる命令。*)

問題　2．

H=Plot3D[Sqrt[x^2+y^2],{x,-1,1},{y,-1,1},　(* z=(Sqrt[x^2+y^2]) のグラフを-1<x<1, -1<y<1 の範囲で書かせる命令。これ以後は必ずしもなくてもよい追加の指示。*)
BoxRatios->{2, 2, 1},PlotStyle->Opacity[0.8],Mesh->6,Axes->None,Boxed->False]

Circle1=ParametricPlot3D[{Cos[t],Sin[t],0},{t,0,2Pi},Axes->None,Boxed->False]

Circle2=ParametricPlot3D[{Cos[t],Sin[t],1},{t,0,2Pi},Axes->None,Boxed->False]

Ax2=Graphics3D[{Blue,Thick,Arrow[{{0,0,0},{0,0,1}}],Arrow[{{-1,0,0},{1,0,0}}],Arrow[{{0,-1,0},{0,1,0}}]},Boxed->False,Axes->False](* 座標軸を書かせる命令*)

L1=Graphics3D[Line[{{0,0,0},{1,1,0}}],Boxed->False,Axes->False]

L2=Graphics3D[{Blue,Thick,Line[{{0,0,0},{1,1,Sqrt[2]}}]},Boxed->False,Axes->False]

Show[H,Ax2,Circle1,Circle2,L1,L2]