Tehtävä 1

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

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

Tehtävä 2

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

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

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

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

Tehtävä 4

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

Tehtävä 5

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]

Tehtävä 6

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

Tehtävä 7

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

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

Tehtävä 8

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}]

Tehtävä 9

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

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

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

Tehtävä 10

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

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

Mitä vikaa tuloksessa on?