Yhtälöryhmät

Ratkaise yhtälöryhmä
{(x+y^2)/2+3z==2x,4y^2-y+x==0,z^2-3 y+y==2}

Laitetaan ratkaisun perään //N, jotta saadaan numerinen arvo :

In[36]:=

Solve[{(x + y^2)/2 + 3z2x, 4y^2 - y + x0, z^2 - 3 y + y2}, {x, y, z}]//N

Out[36]=

{{x2.75728 - 1.09789 , z1.49515 - 0.559814 , ... 754; -2.0465, y1.09408}, {x -1.78506, z -0.943796, y -0.554624}}

Luonnonvakiot ja kompleksiluvut

Kokeile mitä antaa Limit[(1+1/n)^n,n→Infinity]

Ratkaisu on E eli neperin luku:

In[37]:=

Limit[(1 + 1/n)^n, nInfinity]

Out[37]=



Laske sin(π) ja cos(π).

In[38]:=

Sin[Pi]

Cos[Pi]

Out[38]=

0

Out[39]=

-1

Laske (-1)^(1/2),    i^2,     i^3 ,      i^4.

In[40]:=

Sqrt[-1]

I^2

I^3

I^4

Out[40]=



Out[41]=

-1

Out[42]=

-

Out[43]=

1

Ratkaise yhtälö y^8==1. Laske numeeriset arvot kirjoittamalla //N ratkaisun perään.

In[44]:=

Solve[y^81, y]//N

Out[44]=

{{y -1.}, {y0. - 1. }, {y0. + 1. },  ... 0;}, {y0.707107 - 0.707107 }, {y -0.707107 + 0.707107 }}

Lausekkeiden sieventäminen ja muokkaus

Supista yhteiset tekijät lausekkeesta
x (2x-4)^3 (x-4)/((x^2-2x)^2)

In[45]:=

Cancel[x (2x - 4)^3 (x - 4)/((x^2 - 2x)^2)]

Out[45]=

(8 (-4 + x) (-2 + x))/x

Suorita kertolaskut ja potenssiin korotukset yo. lausekkeesta.

In[46]:=

Expand[%]

Out[46]=

-48 + 64/x + 8 x

Ota yo. lausekkeen osoittaja ja nimittäjä.

In[49]:=

Numerator[%45]

Denominator[%45]

Out[49]=

8 (-4 + x) (-2 + x)

Out[50]=

x

Kuvaajat

Tee kuvaaja lausekkeesta t^3 välillä -1<t<1.

In[51]:=

Plot[t^3, {t, -1, 1}]

[Graphics:Images/2_ratkaisu_30.gif]

Out[51]=

⁃Graphics⁃

Tee kuvaaja lausekkeesta Tan[theta] välillä -2 Pi<theta<2 Pi.

In[52]:=

Plot[Tan[theta], {theta, -2 Pi, 2 Pi}]

[Graphics:Images/2_ratkaisu_33.gif]

Out[52]=

⁃Graphics⁃

Tee kuvaaja lausekkeesta Sin[Cos[Exp[y x]]] välillä 0<x<Pi,0<y<Pi.

In[53]:=

Plot3D[Sin[Cos[Exp[y x]]], {x, 0, Pi}, {y, 0, Pi}]

[Graphics:Images/2_ratkaisu_36.gif]

Out[53]=

⁃SurfaceGraphics⁃

Tarkastele Plot3D-funktion optioita käskyllä Options[Plot3D]. Osaatko tehdä edellisestä kuvaajasta tämän käskyn ja Mathematican helppien avulla yo. tehtävän kuvaajasta sellaisen, että näytepisteitä on tiheämmässä?

In[54]:=

Options[Plot3D]

Out[54]=

{AmbientLightGrayLevel[0], AspectRatioAutomatic, AxesTrue, AxesEdge& ... ewCenterAutomatic, ViewPoint {1.3, -2.4, 2.}, ViewVertical {0., 0., 1.}}

In[55]:=

Plot3D[Sin[Cos[Exp[y x]]], {x, 0, Pi}, {y, 0, Pi}, PlotPoints50]

[Graphics:Images/2_ratkaisu_41.gif]

Out[55]=

⁃SurfaceGraphics⁃

Tee yo. kuvaajasta myös tasa-arvopintakuva.

In[57]:=

ContourPlot[Sin[Cos[Exp[y x]]], {x, 0, Pi}, {y, 0, Pi}]

[Graphics:Images/2_ratkaisu_44.gif]

Out[57]=

⁃ContourGraphics⁃


Created by Mathematica  (January 26, 2005) Valid XHTML 1.1!