6
Michał Kit
Mathematica 6
Rysowanie wykresów
Michał Kit
11 marca 2008
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 }]
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]
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]
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 }]
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]
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 }]]
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, . . . }]
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.
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]]
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 }]
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” ]
6
Michał Kit
KONIEC