include "../../common/header.inc"; ?>
¡Û 2Â÷¿ø ±×·¡ÇÁ(Plot)
Plot[Sin[x], {x, 0, 2Pi}]
Plot[Sin[x], {x, 0, 2Pi}, PlotLabel -> "Graph of Sine", AxesLabel -> {"x", "y"}]
Show:
a1 = Plot[Sin[x], {x, 0, 2Pi}];
a2 = Plot[Sin[2 x], {x, 0, 2Pi}];
a3 = Plot[Sin[3 x], {x, 0, 2Pi}];
Show[a1, a2, a3]
Plot[Evaluate[Table[Sin [n x], {n, 1, 3}]], {x, 0, 2Pi}]
Show[GraphicsArray[{{a1}, {a2}, {a3}}]
¡Û 2Â÷¿ø ±×·¡ÇÁ(ParametricPlot)
a = ParametricPlot[{2 Sin[t], 2 Cos[t]}, {t, 0, 2Pi}]
Show[a, AspectRatio -> Automatic]
a = ParametricPlot[{2 Sin[t], 2 Cos[t]}, {t, 0, 2Pi}, AspectRatio -> Automatic]
ParametricPlot[{t, 1/(t+1)+Sin[30 t]}, {t, 0, 2Pi}]
ParametricPlot[{t, 1/(t+1)+Sin[30 t]}, {t, 0, 2Pi}, PlotPoints -> 50]
¡Û 3Â÷¿ø ±×·¡ÇÁ(Plot3D)
Plot3D[Sin[x] Cos[x], {x, 0, Pi}, {y, 0, Pi}]
Clear[r, x, y];
r = Sqrt[x^2 + y^2]
Clear[a];
a = Plot3D[Sin[r] / r, {x, -10, 10}, {y, -10, 10}]
Show[a, PlotRange -> All]
Plot3D[Sin[r] / r, {x, -10, 10}, {y, -10, 10}, PlotRange -> All, PlotPoints -> 50]
Plot3D[Sqrt[1 - x^2 - y^2], {x, -1, 1}, {y, -1, 1}]
Plot3D[Sqrt[1 - x^2 - y^2], {x, -1, 1}, {y, -1, 1}, PlotRange -> All, PlotPoints -> 100]
¡Û 3Â÷¿ø ±×·¡ÇÁ(ParametricPlot3D)
ParametricPlot3D[{Sin[3 t], Cos[3 t], t}, {t, 0, 2Pi}]
ParametricPlot3D[{x, y, x^2 + y^2}, {x, -2, 2}, {y, -2, 2}]
ParametricPlot3D[{Sin[u] Cos[v], Sin[u] Sin[v], Cos[u]}, {u, 0, Pi}, {v, 0, 2Pi}]