Mathematica

6

Michał Kit

Mathematica 6

Rysowanie wykresów

Michał Kit

11 marca 2008

Mathematica

6

Michał Kit

Polecenie

Do rysowania wykresów służy polecenie:

Plot[funkcja, {x, a, b}]

Gdzie:

•

x - zmienna;

•

a - lewy kraniec zakresu;

•

b - prawy kraniec zakresu;

Przykład

Plot[xˆ2, {x, -3, 2}]

Mathematica

6

Michał Kit

Zmiana zakresu wartości

Plot[xˆ3, {x, -3, 2}, PlotRange->{-3, 3}]

lub

Plot[xˆ3, {x, -3, 2}, PlotRange->All]

Mathematica

6

Michał Kit

Podziałka i proporcje

Na osi OX podziałka jest 5 razy dłuższa niż na osi OY.

Plot[Sin[x], {x, -3, 3}, AspectRatio-> 1/ 5]

Na obu osiach podziałki są równe.

Plot[Sin[x], {x, -3, 3}, AspectRatio->Automatic]

Mathematica

6

Michał Kit

Kilka wykresów w jednym układzie współrzędnych

Plot[{Sin[x], Cos[x]}, {x, -Pi, Pi}]

można też:

f[x ]:=Sqrt[1 + 10xˆ4 - 20xˆ5 + 25xˆ6]

g[x ]:=xˆ2 + 5 Sin[x]

Plot[{f[x], g[x]}, {x, -3, 3}]

Mathematica

6

Michał Kit

Użycie Show

graph1 = Plot[Cos[x], {x, -3, 1}]

graph2 = Plot[Sin[x], {x, 0, 3}]

graph3 = Plot[0.5, {x, -2, 4}]

Show[graph1, graph2, graph3]

Mathematica

6

Michał Kit

Wykresy obok siebie

Show[GraphicsArray[{plot1, plot2, . . . }]]

Przykład

graph1 = Plot[Cos[x], {x, -3, 1}]

graph2 = Plot[Sin[x], {x, 0, 3}]

Show[GraphicsArray[{ graph1, graph2 }]]

Mathematica

6

Michał Kit

Opcje styli graficznych

Plot[f(x), {x, a, b}, PlotStyle->option]

lub dla kilku opcji

Plot[f(x), {x, a, b}, PlotStyle->{option1, option2, . . . }]

Mathematica

6

Michał Kit

Opcje

•

Thickness[r] - Thickness[0.02] oznacza, że linia wykresu
będzie o grubości 2% długości całej grafiki.

•

Dashing[{r1, r2}] - Dashing[{0.02, 0.04}] - oznacza że,
2% linii będzie narysowane , następnie 4% będzie nie
narysowane potem 2% znowu narysowane i tak dalej.

•

GrayLevel[i] - GrayLevel[0.5] oznacza, że linia wykresu
będzie rysowana z 50% skalą szarości co jest w połowie
pomiędzy białym (1) a czarnym (0).

•

RGBColor[{r1, r2, r3}] - RGBColor[{0.8, 0.8, 0.3}]
oznacza, że do narysowania linii wykresu użyjemy koloru
będącego mieszanką: 80% czerwonego, 80% zielonego i
30% niebieskiego.

Mathematica

6

Michał Kit

Przykłady użycia opcji stylów

Plot[2x+1, {x, -5, 5}, PlotStyle->{Thickness[.01], Dashing[{0.03, 0.03}], GrayLevel[0.5]}]

Plot[Sqrt[x], {x, 1, 100}, PlotStyle->RGBColor[0,0,1]]

Mathematica

6

Michał Kit

Różne style

style1 = {RGBColor[1,0,0], Dashing[{0.02, 0.02}]}

style2 = {RGBColor[0,1,0], Thickness[0.02]}

Plot[{Sin[x], Cos[x]}, {x, -Pi, Pi}, PlotStyle->{style1, style2}]

Mathematica

6

Michał Kit

Zapisywanie wykresów

•

Kopiowanie: Edit>Copy As wybieramy spośród PICT,
Bitmap, PostScript

•

Zapis na dysku: Edit>Save Selection As

•

Komenda:

Display[”nazwa pliku z rozszerzeniem”, ”nazwa grafiki”, ”Format”]

Przykład

pict1 = Plot[3x, {x, -3, 1}]

Display[”plik.pdf”, pict1, ”PDF”]

Mathematica

6

Michał Kit

KONIEC