<Mathematicaで平面図を描く２>
前ページのサンプルプログラムを解説する．
| In[1]:= | x1 = -0.5; x2 = 1.5; y1 = -0.5; y2 = 1.5; |
| rx = x2 - x1; ry = y2 - y1; | |
| ar = ry/rx; | |
| wx = rx/36; hx = 0.2*wx; | |
| wy = ry/36; hy = 0.2*wy; | |
| LX = {Thickness[0.00402], {Line[{{x1, 0}, {x2, 0}}], | |
| Line[{{x2 - wx, -hx}, {x2, 0}, {x2 - wx, hx}}]}}; | |
| LY = {Thickness[0.00402], {Line[{{0, y1}, {0, y2}}], | |
| Line[{{-hy, y2 - wy}, {0, y2}, {hy, y2 - wy}}]}}; |
最初の行（In[1] := 以下）は -0.5 ≦ x ≦ 1.5 ， -0.5 ≦ y ≦1.5 の範囲でx軸（LX）とy軸（LY）を描くためのプログラムである． x1 = x-0.5 ; x2 = 1.5 ; y1 = -0.5 ; y2 = 1.5 ;は グラフによって変えられるが，他のところは変更しなくてよい．
| In[7]:= | f[x_] := x^2; |
| in[8]:= | fL = {Thickness[0.00405], Line[Table[{x, f[x]}, {x, 0, 1.1, 0.01}]]}; |
| DL1 = {Dashing[{0.01, 0.01}], Line[Table[{x, f[x]}, {x, -0.45, 0, 0.01}]]}; | |
| In[9]:= | DL2 = {Dashing[{0.01, 0.01}], Line[{{0, 1}, {1, 1}}]}; |
| SL = Line[{{1, 0}, {1, 1}}]; |
In[7] では関数 f(x) = x2 を定義している．
In[8] では 0 ≦ x ≦ 1.1 の範囲で f(x) = x2 のグラフ（実線の曲線 = fL）を定め， -0.45 ≦ x ≦ 0 の範囲で f(x) = x2 のグラフ（点線の曲線 = DL1）を定めている．
In[9] では2点（0 , 1）と（1 , 1）を結ぶ点線（DL2）と2点（1 , 0）と（1 , 1）を結ぶ実線（SL）を定めている．
| In[11] := | Show[Graphics[{LX, LY, fL, SL, DL1, DL2}], |
| AspectRatio -> Automatic, PlotRange -> All ] |
In[11] ではLX（x軸），LY（y軸），fL（実際の曲線），DL1（点線の曲線），DL2（点線の線分），SL（実線の線分）をグラフに表示させる命令である．ここでAspectRatio -> Automaticはグラフの水平方向の長さと垂直方向の長さを自動的に計算して表示する命令である．またPlotRange -> All ]は図の全ての範囲を表示させる命令であり，変える必要はない．
| << |