•Tehtävä 1

In[1]:=

kuvaaja = Sin[8 x] + Sin[9 x]

Out[1]=

Sin[8 x] + Sin[9 x]

In[2]:=

Plot[kuvaaja, {x, -6, 6}, PlotPoints -> 300]

[Graphics:HTMLFiles/ratk3_4.gif]

Out[2]=

-Graphics -

•Tehtävä 2

In[3]:=

Plot[{Sin[x], Cos[x]}, {x, -Pi, Pi}, PlotStyle -> {Dashing[{0.1, 0.05}], {RGBColor[0.9, 0.3, 0.4], Thickness[0.05]}}]

[Graphics:HTMLFiles/ratk3_7.gif]

Out[3]=

-Graphics -

Kuten huomataan, PlotStyle -option ensimmäinen määre (Dashing) liittyy sinin ja jälkimmäiset määreet (RGBColor ja Thickness) kosinin kuvaajaan.

•Tehtävä 3

In[4]:=

kuvaaja3d = x^3 - 2 y^2 - 5 x

Out[4]=

-5 x + x^3 - 2 y^2

In[5]:=

Plot3D[kuvaaja3d, {x, -10, 10}, {y, -10, 10}]

[Graphics:HTMLFiles/ratk3_12.gif]

Out[5]=

-SurfaceGraphics -

•Tehtävä 4

In[6]:=

p = 3 ; q = 2 ; ParametricPlot[{Cos[p * t], Sin[q * t]}, {t, 0, 2 Pi}, PlotPoints -> 10]

[Graphics:HTMLFiles/ratk3_15.gif]

Out[7]=

-Graphics -

•Tehtävä 5

In[8]:=

ParametricPlot3D[{u (1 - v/(8 Pi) ) Cos[v], u (1 - v/(8 Pi)) Sin[v], 1/5 (v - u)}, {u, 0, 3}, {v, 0, 8 Pi}, PlotPoints -> {5, 80}, PlotRange -> All]

[Graphics:HTMLFiles/ratk3_18.gif]

Out[8]=

-Graphics3D -

•Tehtävä 6

In[9]:=

Needs["Graphics`ImplicitPlot`"] ImplicitPlot[y^4 + y^2 + x y == x^3 - x, {x, -2, 2}, {y, -2, 2}, AxesOrigin -> {0, 0}]

[Graphics:HTMLFiles/ratk3_21.gif]

Out[10]=

-ContourGraphics -

•Tehtävä 7

In[11]:=

Plot3D[x * y/(x^2 + y^2), {x, -0.1, 0.1}, {y, -0.1, 0.1}, PlotPoints -> {100, 100}, Mesh -> False]

[Graphics:HTMLFiles/ratk3_24.gif]

Out[11]=

-SurfaceGraphics -

Kuvaajasta nähdään, että funktio ei ole jatkuva origossa.

•Tehtävä 8

In[12]:=

ParametricPlot3D[{(5 + Cos[25 t]) * Cos[5 t], (5 + Cos[25 t]) * Sin[5 t], Sin[25 t]}, {t, 0, 2 Pi}, PlotPoints -> 1000, BoxRatios -> {1, 1, 1}]

[Graphics:HTMLFiles/ratk3_27.gif]

Out[12]=

-Graphics3D -

•Tehtävä 9

In[13]:=

ParametricPlot[{y^3 - 5 y^2 + y + 3, y}, {y, -5, 5}]

[Graphics:HTMLFiles/ratk3_30.gif]

Out[13]=

-Graphics -

Jotta käyrän kuvaaja saadaan halutusta alueesta, on lisättävä optio PlotRange:

In[14]:=

ParametricPlot[{y^3 - 5 y^2 + y + 3, y}, {y, -5, 5}, PlotRange -> {{-25, 25}, {-5, 5}}]

[Graphics:HTMLFiles/ratk3_33.gif]

Out[14]=

-Graphics -

•Tehtävä 10

Piirretään kuvaaja funktiolla ImplicitPlot (on valmiiksi ladattu jo tehtävässä 6). Järkevässä piirtoalueessa on x, y > 0.

In[15]:=

ImplicitPlot[Log[y, x] == Log[x, y], {x, 0.001, 4}, {y, 0.001, 4}]

[Graphics:HTMLFiles/ratk3_36.gif]

Out[15]=

-ContourGraphics -

Mitä vikaa tuloksessa on?

Converted by Mathematica  (August 19, 2003)