III. Grafika
Mathematica jest bardzo zaawansowanym narzędziem do tworzenia grafiki 2D oraz 3D. Ten rozdział jest z jednej strony najprostszy, a z drugiej najbardziej skomplikowany w tym skrypcie. Jest on prosty, ponieważ informacje o wszystkich poniższych konstrukcjach i szczegółowe instrukcje dotyczące ich można znaleźć w Documentation Center. Jednak dosyć skomplikowanym zadaniem jest znalezienie potrzebnych cech wśrod setek podobnych. Poniżej podajemy tylko przykłady najczęściej używanych cech graficznych. Wszystkie poniższe ilustracje zostały stworzone w Mathematice 7. We wcześniejszych wersjach Mathematiki niektóre z nich nie będą działać lub będą działać inaczej. Większość obrazków tłumaczy się sama przez się, a z pytaniami o sposób korzystania z różnych funkcji graficznych odsyłamy czytelnika do dokumentacji. Chcemy zwrócić szeczególną uwagę czytalnika na użycie opcji. Przypominamy że dla każdej funkcji można sprawdzić jej zbiór opcji przez instrukcje Options:
Czytelnik powinien sam sprawdzić efekt zmiany wartości różnych opcji w poniższych przykładach. Umiejętność dobiernia odpowiednich wartości opcji jest jednym z najważniejszych elementów w sprawnym posługiwaniu się Mathematiką.
Spis treści
Graphics[{Arrow[{{0, 0},{1, 1}}],
Hue[0], Arrow[{{.75, .25},{.25, .75}}]}]
Plot[Sin[x], {x, 0, 2Pi},
Epilog -> {Arrow[{{4, .25}, {Pi/2, 1}}],
Text["Here", {4, .15}, {0, -1}]}
]
ContourPlot[x^2 + 2 y^2 == 3, {x, -2, 2},{y,-2,2}]
ContourPlot[{(x^2 + y^2)^2 == (x^2 - y^2),
(x^2 + y^2)^2 == 2 x y}, {x,-2,2},{y,-2,2}
]
Animate[Plot[Sin[n x], {x, 0, 2 Pi}, Axes -> False], {n, 1, 3, 1}]
3D
g = ParametricPlot3D[
{x, Cos[t] Sin[x] , Sin[t] Sin[x]},
{x, -Pi, Pi}, {t, 0, 2Pi},
Axes -> False, Boxed -> False]
RevolutionPlot3D[{1.1 Sin[u], u^2},
{u, 0, 3 Pi/2}, BoxRatios -> {1, 1, 2}]
RevolutionPlot3D[
Sin[x], {x, 0, 2 Pi}]
RevolutionPlot3D[x^2, {x, 0, 1},
RevolutionAxis -> {1, 1, 1}]