<?xml version="1.0"  encoding="iso-8859-1" ?>
<?xml-stylesheet type="text/xsl" href="xsl/mathml.xsl"?>
<!DOCTYPE MMLEntities [
<!ENTITY af "&#x02061;">
<!ENTITY alpha "&#x003B1;">
<!ENTITY ap "&#x02048;">
<!ENTITY apos "&#x00027;">
<!ENTITY ApplyFunction "&#x02061;">
<!ENTITY Backslash "&#x02216;">
<!ENTITY beta "&#x003B2;">
<!ENTITY cap "&#x02229;">
<!ENTITY CenterDot "&#x000B7;">
<!ENTITY chi "&#x003C7;">
<!ENTITY compfn "&#x02218;">
<!ENTITY cup "&#x0222A;">
<!ENTITY dd "d">
<!ENTITY Del "&#x02207;">
<!ENTITY Delta "&#x00394;">
<!ENTITY delta "&#x003B4;">
<!ENTITY DifferentialD "d">
<!ENTITY DoubleRightArrow "&#x021D2;">
<!ENTITY ee "e">
<!ENTITY empty "&#x02205;&#x02063;">
<!ENTITY emptyset "&#x02205;&#x02063;">
<!ENTITY epsi "&#x003B5;">
<!ENTITY epsilon "&#x003B5;">
<!ENTITY epsiv "&#x0025B;">
<!ENTITY equiv "&#x02261;">
<!ENTITY eta "&#x003B7;">
<!ENTITY exist "&#x02203;">
<!ENTITY Exists "&#x02203;">
<!ENTITY ExponentialE "e">
<!ENTITY forall "&#x02200;">
<!ENTITY ForAll "&#x02200;">
<!ENTITY Gamma "&#x00393;">
<!ENTITY gamma "&#x003B3;">
<!ENTITY Gammad "&#x003DC;">
<!ENTITY gammad "&#x003DC;">
<!ENTITY ge "&#x02265;">
<!ENTITY gt "&#x0003E;">
<!ENTITY ii "i">
<!ENTITY image "&#x02111;">
<!ENTITY ImaginaryI "i">
<!ENTITY in "&#x02208;">
<!ENTITY infin "&#x0221E;">
<!ENTITY Integral "&#x0222B;">
<!ENTITY InvisibleTimes "&#x02062;">
<!ENTITY iota "&#x003B9;">
<!ENTITY it "&#x02062;">
<!ENTITY kappa "&#x003BA;">
<!ENTITY kappav "&#x003F0;">
<!ENTITY Lambda "&#x0039B;">
<!ENTITY lambda "&#x003BB;">
<!ENTITY lceil "&#x02308;">
<!ENTITY le "&#x02264;">
<!ENTITY LeftBracketingBar "|">
<!ENTITY LeftCeiling "&#x02308;">
<!ENTITY LeftFloor "&#x0230A;">
<!ENTITY lfloor "&#x0230A;">
<!ENTITY LowerRightArrow "&#x02198;">
<!ENTITY mu "&#x003BC;">
<!ENTITY nabla "&#x02207;">
<!ENTITY nbsp "&#x000A0;">
<!ENTITY ne "&#x02260;">
<!ENTITY not "&#x000AC;">
<!ENTITY NotElement "&#x02209;">
<!ENTITY NotEqual "&#x02260;">
<!ENTITY notin "&#x02209;">
<!ENTITY NotSubsetEqual "&#x02288;">
<!ENTITY nsub "&#x02284;">
<!ENTITY nsube "&#x02288;">
<!ENTITY nsubseteq "&#x02288;">
<!ENTITY nu "&#x003BD;">
<!ENTITY Omega "&#x003A9;">
<!ENTITY omega "&#x003C9;">
<!ENTITY OverBar "&#x000AF;">
<!ENTITY part "&#x02202;">
<!ENTITY Phi "&#x003A6;">
<!ENTITY phi "&#x003C6;">
<!ENTITY phiv "&#x003D5;">
<!ENTITY Pi "&#x003A0;">
<!ENTITY pi "&#x003C0;">
<!ENTITY piv "&#x003D6;">
<!ENTITY prime "&#x02032;">
<!ENTITY Product "&#x0220F;">
<!ENTITY Psi "&#x003A8;">
<!ENTITY psi "&#x003C8;">
<!ENTITY rarr "&#x02192;">
<!ENTITY rceil "&#x02309;">
<!ENTITY real "&#x0211C;">
<!ENTITY rfloor "&#x0230B;">
<!ENTITY rho "&#x003C1;">
<!ENTITY rhov "&#x003F1;">
<!ENTITY RightArrow "&#x02192;">
<!ENTITY rightarrow "&#x02192;">
<!ENTITY RightBracketingBar "|">
<!ENTITY RightCeiling "&#x02309;">
<!ENTITY RightFloor "&#x0230B;">
<!ENTITY Sigma "&#x003A3;">
<!ENTITY sigma "&#x003C3;">
<!ENTITY sigmav "&#x003C2;">
<!ENTITY sub "&#x02282;">
<!ENTITY sube "&#x02286;">
<!ENTITY SuchThat "&#x0220B;">
<!ENTITY Sum "&#x02211;">
<!ENTITY tau "&#x003C4;">
<!ENTITY Theta "&#x00398;">
<!ENTITY theta "&#x003B8;">
<!ENTITY thetav "&#x003D1;">
<!ENTITY times "&#x000D7;">
<!ENTITY UpperRightArrow "&#x02197;">
<!ENTITY Upsi "&#x003D2;">
<!ENTITY upsi "&#x003C5;">
<!ENTITY vee "&#x02228;">
<!ENTITY wedge "&#x02227;">
<!ENTITY weierp "&#x02118;">
<!ENTITY xi "&#x003BE;">
<!ENTITY Xi "&#x0039E;">
<!ENTITY zeta "&#x003B6;">
]>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>petsaal.html</title>
<!-- Created by Maple 8.00, IBM INTEL NT -->
<link href="../navi/css/sovell.css" rel="stylesheet" type="text/css"/>
</head>
<body bgcolor="FFFFFF">

<a href="../mpl/petsaal.mws" target="_blank">petsaal.mws</a>

<a name="MapleAutoBookmark1" />
<p align="center">
<b><u><font color="#000000" size="5">Peto- ja saaliskanta</font></u></b>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Peto- ja saaliskantojen keskinäistä vuorovaikutusta voidaan mallintaa toisistaan riippuvien differentiaaliyhtälöiden avulla. Tässä tarkastellaan yksinkertaista mallia, joka perustuu ns. </font>
<i><font color="#000000">Volterran</font></i>
<font color="#000000">Â–</font>
<i><font color="#000000">Lotkan</font></i>
<font color="#000000">&nbsp;</font>
<i><font color="#000000">yhtälöihin</font></i>
<font color="#000000">. Yhtälöt konstruoidaan seuraavalla logiikalla. Saaliseläinkantaa kuvaavan funktion </font>
<i><font color="#000000">s</font></i>
<font color="#000000">(</font>
<i><font color="#000000">t</font></i>
<font color="#000000">) muutokset (derivaatan arvot) riippuvat kahdesta tekijästä. Toisaalta kantaan vaikuttaa &nbsp;ympäristötekijöiden muodostama kasvutermi </font>
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mi>&alpha;</mi>
</math>
<i><font color="#000000">&nbsp;s</font></i>
<font color="#000000">(</font>
<i><font color="#000000">t</font></i>
<font color="#000000">), joka kuvaa populaation (eksponentiaalista) kasvua olosuhteissa, jossa petokannan vaikutusta ei ole. Tämän lisäksi kantaan vaikuttaa petokannan </font>
<i><font color="#000000">p</font></i>
<font color="#000000">(</font>
<i><font color="#000000">t</font></i>
<font color="#000000">) aiheuttama kantaa vähentävä tekijä. Perusyhtälö saaliskannalle on siis <br />
</font>
</p>
<p align="center">
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mrow>
    <mrow>
      <mfrac>
        <mo>&DifferentialD;</mo>
        <mrow>
          <mo>&DifferentialD;</mo>
          <mi>t</mi>
        </mrow>
      </mfrac>
      <mrow>
        <mi>s</mi>
        <mo>&ApplyFunction;</mo>
        <mfenced>
          <mi>t</mi>
        </mfenced>
      </mrow>
    </mrow>
    <mo>=</mo>
    <mrow>
      <mfenced>
        <mrow>
          <mi>&alpha;</mi>
          <mo>-</mo>
          <mrow>
            <mi>&beta;</mi>
            <mo>&InvisibleTimes;</mo>
            <mrow>
              <mi>p</mi>
              <mo>&ApplyFunction;</mo>
              <mfenced>
                <mi>t</mi>
              </mfenced>
            </mrow>
          </mrow>
        </mrow>
      </mfenced>
      <mo>&InvisibleTimes;</mo>
      <mrow>
        <mi>s</mi>
        <mo>&ApplyFunction;</mo>
        <mfenced>
          <mi>t</mi>
        </mfenced>
      </mrow>
    </mrow>
  </mrow>
</math>
<font color="#000000">,</font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">jossa </font>
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mi>&alpha;</mi>
</math>
<font color="#000000">&nbsp;on saalispopulaation kasvukerroin ja </font>
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mi>&beta;</mi>
</math>
<font color="#000000">&nbsp;on petopopulaationsyömiskerroin. Vastaavasti petokannan yhtälössä tulee olla saaliskannan puuttumisesta aiheutuva kantaa heikentävä (eksponentiaalinen) vähenemistekijä </font>
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mn>&gamma;</mn>
</math>
<font color="#000000">&nbsp;</font>
<i><font color="#000000">p</font></i>
<font color="#000000">(</font>
<i><font color="#000000">t</font></i>
<font color="#000000">) sekä saaliskannan runsaudesta aiheutuva kasvutekijä. Niinpä perusyhtälö petokannalle on muotoa</font>
</p>
<p align="left">
</p>
<p align="center">
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mrow>
    <mrow>
      <mfrac>
        <mo>&DifferentialD;</mo>
        <mrow>
          <mo>&DifferentialD;</mo>
          <mi>t</mi>
        </mrow>
      </mfrac>
      <mrow>
        <mi>p</mi>
        <mo>&ApplyFunction;</mo>
        <mfenced>
          <mi>t</mi>
        </mfenced>
      </mrow>
    </mrow>
    <mo>=</mo>
    <mrow>
      <mfenced>
        <mrow>
          <mrow>
            <mo>-</mo>
            <mn>&gamma;</mn>
          </mrow>
          <mo>+</mo>
          <mrow>
            <mrow>
              <mi>&delta;</mi>
              <mo>&InvisibleTimes;</mo>
              <mi>&beta;</mi>
            </mrow>
            <mo>&InvisibleTimes;</mo>
            <mrow>
              <mi>s</mi>
              <mo>&ApplyFunction;</mo>
              <mfenced>
                <mi>t</mi>
              </mfenced>
            </mrow>
          </mrow>
        </mrow>
      </mfenced>
      <mo>&InvisibleTimes;</mo>
      <mrow>
        <mi>p</mi>
        <mo>&ApplyFunction;</mo>
        <mfenced>
          <mi>t</mi>
        </mfenced>
      </mrow>
    </mrow>
  </mrow>
</math>
<font color="#000000">,</font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">missä </font>
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mn>&gamma;</mn>
</math>
<font color="#000000">&nbsp;on saalistajien vähenemistekijä ja </font>
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mi>&delta;</mi>
</math>
<font color="#000000">&nbsp;on saalistajien tehokerroin saaliseläinten ollessa saatavilla. <br />
</font>
</p>
<p align="left">
<font color="#000000">Tarkastellaan seuraavaksi, millaisen mallin kantojen käyttäytymiselle yllä esitetyt mallit antavat. Olkoot tarkasteltavina lajeina ilves- ja lumikenkäjäniskannat Kanadassa. &nbsp;&nbsp;&nbsp;<br />
</font>
</p>
<p align="center">
<img src="images/petsaal1.gif" width="543" height="197" alt="[Maple Bitmap]" />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Laskujen aluksi on syytä hävittäÂä mahdollisista aiemmista laskuista jäÂäneet muuttujat. </font>
</p>
<p align="left">
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">restart;</font></b>
</td></tr>
</table>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">MäÂäritelläÂän ilves- ja jäniskantoja kuvaava differentiaaliyhtälöryhmä (yksikkönä tuhat yksilöÂä). (</font>
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mi>&alpha;</mi>
</math>
<font color="#000000">&nbsp;= 1.2, </font>
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mi>&beta;</mi>
</math>
<font color="#000000">&nbsp;= 0.04, </font>
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mn>&gamma;</mn>
</math>
<font color="#000000">&nbsp;= 0.5, </font>
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mi>&delta;</mi>
</math>
<font color="#000000">&nbsp;= 0.3)</font>
</p>
<p align="left">
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">ryhma:= diff(s(t), t)=s(t)*(1.2-0.04*p(t)), diff(p(t), t)=p(t)*(-0.5 +0.012*s(t));</font></b>
</td></tr>
</table>
</p>
<p align="center">
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mrow>
    <mi>ryhma</mi>
  </mrow>
  <mo>:=</mo>
  <mrow>
    <mrow>
      <mrow>
        <mfrac>
          <mo>&DifferentialD;</mo>
          <mrow>
            <mo>&DifferentialD;</mo>
            <mi>t</mi>
          </mrow>
        </mfrac>
        <mrow>
          <mi>s</mi>
          <mo>&ApplyFunction;</mo>
          <mfenced>
            <mi>t</mi>
          </mfenced>
        </mrow>
      </mrow>
      <mo>=</mo>
      <mrow>
        <mrow>
          <mi>s</mi>
          <mo>&ApplyFunction;</mo>
          <mfenced>
            <mi>t</mi>
          </mfenced>
        </mrow>
        <mo>&InvisibleTimes;</mo>
        <mfenced>
          <mrow>
            <mn>1.2</mn>
            <mo>-</mo>
            <mrow>
              <mn>.4e-1</mn>
              <mo>&InvisibleTimes;</mo>
              <mrow>
                <mi>p</mi>
                <mo>&ApplyFunction;</mo>
                <mfenced>
                  <mi>t</mi>
                </mfenced>
              </mrow>
            </mrow>
          </mrow>
        </mfenced>
      </mrow>
    </mrow>
    <mo>,</mo>
    <mrow>
      <mrow>
        <mfrac>
          <mo>&DifferentialD;</mo>
          <mrow>
            <mo>&DifferentialD;</mo>
            <mi>t</mi>
          </mrow>
        </mfrac>
        <mrow>
          <mi>p</mi>
          <mo>&ApplyFunction;</mo>
          <mfenced>
            <mi>t</mi>
          </mfenced>
        </mrow>
      </mrow>
      <mo>=</mo>
      <mrow>
        <mrow>
          <mi>p</mi>
          <mo>&ApplyFunction;</mo>
          <mfenced>
            <mi>t</mi>
          </mfenced>
        </mrow>
        <mo>&InvisibleTimes;</mo>
        <mfenced>
          <mrow>
            <mn>-.5</mn>
            <mo>+</mo>
            <mrow>
              <mn>.12e-1</mn>
              <mo>&InvisibleTimes;</mo>
              <mrow>
                <mi>s</mi>
                <mo>&ApplyFunction;</mo>
                <mfenced>
                  <mi>t</mi>
                </mfenced>
              </mrow>
            </mrow>
          </mrow>
        </mfenced>
      </mrow>
    </mrow>
  </mrow>
</math>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Probleeman tuntemattomat funktiot ovat jäniskantaa kuvaava </font>
<i><font color="#000000">s</font></i>
<font color="#000000">(</font>
<i><font color="#000000">t</font></i>
<font color="#000000">) sekä ilveskantaa kuvaava </font>
<i><font color="#000000">p</font></i>
<font color="#000000">(</font>
<i><font color="#000000">t</font></i>
<font color="#000000">). Aika </font>
<i><font color="#000000">t</font></i>
<font color="#000000">&nbsp;kuvaa kuluneita vuosia. </font>
</p>
<p align="left">
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">tuntemattomat:= {s(t), p(t)};</font></b>
</td></tr>
</table>
</p>
<p align="center">
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mrow>
    <mi>tuntemattomat</mi>
  </mrow>
  <mo>:=</mo>
  <mrow>
    <mfenced open='{' close='}'>
      <mrow>
        <mi>s</mi>
        <mo>&ApplyFunction;</mo>
        <mfenced>
          <mi>t</mi>
        </mfenced>
      </mrow>
      <mrow>
        <mi>p</mi>
        <mo>&ApplyFunction;</mo>
        <mfenced>
          <mi>t</mi>
        </mfenced>
      </mrow>
    </mfenced>
  </mrow>
</math>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Valitaan kantojen kokoa kuvaavat alkuehdot tarkastelun alkaessa. Ilveksiä olkoon 15 000 ja lumikenkäjäniksiä 60 000 yksilöÂä. </font>
</p>
<p align="left">
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">alkuehto:= s(0)=60, p(0)=15;</font></b>
</td></tr>
</table>
</p>
<p align="center">
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mrow>
    <mi>alkuehto</mi>
  </mrow>
  <mo>:=</mo>
  <mrow>
    <mrow>
      <mrow>
        <mi>s</mi>
        <mo>&ApplyFunction;</mo>
        <mfenced>
          <mn>0</mn>
        </mfenced>
      </mrow>
      <mo>=</mo>
      <mn>60</mn>
    </mrow>
    <mo>,</mo>
    <mrow>
      <mrow>
        <mi>p</mi>
        <mo>&ApplyFunction;</mo>
        <mfenced>
          <mn>0</mn>
        </mfenced>
      </mrow>
      <mo>=</mo>
      <mn>15</mn>
    </mrow>
  </mrow>
</math>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Ratkaistaan differentiaaliyhtälöryhmä. </font>
</p>
<p align="left">
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">rtk:= dsolve({ryhma,alkuehto}, tuntemattomat, type=numeric, output=listprocedure);</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/petsaal2.gif" width="622" height="20" alt="rtk := [t = proc (t) option `Copyright (c) 1993 by the University of Waterloo. All rights reserved.`; t end proc, p(t) = proc (t) local res, solnproc, outpoint, ndsol; option `Copyright (c) 2000 by Wat..." />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Poimitaan ratkaisusta kantojen koot.</font>
</p>
<p align="left">
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">maarat:= subs(rtk, [s(t), p(t)]):</font></b>
</td></tr>
</table>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">PiirretäÂän kuvat saaliseläin- ja petokantojen vaihtelusta ajan suhteen.</font>
</p>
<p align="left">
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">plot([maarat[1], maarat[2]], 0..80);</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/petsaal3.gif" width="612" height="612" alt="[Maple Plot]" />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Saamme tulokseksi erittäin säÂännöllisesti vaihtelevat populaatiot, jossa jäniskanta on merkitty punaisella ja ilveskanta vihreällä käyrällä. <br />
<br />
Todellisuudessa vain harvoin ympäristöolot ovat niin tasaiset, että yllä lasketun kaltaista kantojen vaihtelua esiintyisi. Yleensä säÂä ja muut kannoista riippumattomat ympäristötekijät vaikuttavat merkittävästi populaatioihin. Verrataan kuitenkin saatua tulosta Kanadan lumikenkäjänis- ja ilveskantoihin vuosina 1855 - 1930 (datan alkuperänä on Hudson's Bay Companyn tilastot). <br />
</font>
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">janis:= [[1855, 76], [1856, 88], [1859, 19], [1861.5, 26], [1862.5, 10], [1863.5, 155], [1865, 151], [1867, 20], [1868, 5], [1871.5, 11], [1872.5, 69], [1873, 51], [1875, 52], [1876, 100], [1877.5, 73], [1881.5, 7], [1882.5, 9], [1884, 43], [1885, 130], [1887, 133], [1889.5, 19], [1892, 62], [1893, 65], [1895, 86], [1897.5, 11], [1899.5, 6], [1901, 12], [1902, 4], [1904, 67], [1906.5, 24], [1907.5, 23], [1909, 24], [1910, 50], [1912.5, 72], [1916.5, 3], [1919, 9], [1921, 57], [1923, 77], [1925, 72], [1926, 10], [1928, 4], [1930, 7]]:</font></b>
</td></tr>
</table>
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">ilves:= [[1855, 29], [1857, 28], [1861, 4], [1862.5, 4], [1866, 68], [1867.5, 72], [1869, 12], [1872, 7], [1873, 33], [1875, 35], [1876, 48], [1879, 44], [1881, 11], [1882, 11], [1884.5, 50], [1885.5, 78], [1887, 80], [1889, 39], [1892, 21], [1893, 46], [1895, 52], [1901, 9], [1903, 20], [1905.5, 62], [1907, 55], [1908, 5], [1911, 14], [1912, 36], [1915, 43], [1917.5, 6], [1920, 6], [1925, 45], [1927, 52], [1930, 19]]:</font></b>
</td></tr>
</table>
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">plot([janis, ilves], legend=["Jänis", "Ilves"]);</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/petsaal4.gif" width="612" height="612" alt="[Maple Plot]" />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Havaitaan, että vaikka luonnollisia kannanvaihteluja aiheuttavat myös muut tekijät, on yhdeksän vuoden välein esiintyvä maksimi molemmille kannoille varsin säÂännöllinen. </font>
<i><font color="#000000">VolterranÂ–Lotkan yhtälö näyttäÂä siis kuvaavan jotain olennaista saalis-peto-suhteessa olevien kantojen keskinäisestä vuorovaikutuksesta</font></i>
<font color="#000000">. Toisaalta se ei kerro kovinkaan monesta kannan suuruuteen vaikuttavasta tekijästä. </font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Tarkastellaan vielä peto- ja saaliskantojen käyttäytymistä faasitasossa. Tarkoituksena on piirtäÂä faasitasokuva, jossa x-akseli kuvastaa kannan kasvunopeutta ja y-akseli kannan suuruutta. Periaatteessa kannan kasvunopeus on kannan kokoa kuvaavan funktion derivaatta. Koska ratkaisu kuitenkin laskettiin numeerisesti, se ei ole funktio jota voitaisiin derivoida. Karkea kuva on sen sijaan mahdollista piirtäÂä laskemalla erotusosamäÂärän avulla derivaatta tietyissä pisteissä, joiden kautta lopuksi piirretän käyrä.</font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Lasketaan jäniskannan koko 100 pisteessä:</font>
</p>
<p align="left">
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">spisteet:= seq(maarat[1](t/10), t=0..100):</font></b>
</td></tr>
</table>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Lasketaan erotusosamäÂärän avulla derivaatalle arvio samoissa pisteissä:</font>
</p>
<p align="left">
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">sderivpisteet:= seq((maarat[1](t/10+0.00001)-maarat[1](t/10))/0.00001, t=0..100):</font></b>
</td></tr>
</table>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">TehdäÂän vastaavat operaatiot ilveskannalle:</font>
</p>
<p align="left">
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">ppisteet:= seq(maarat[2](t/10), t=0..100):</font></b>
</td></tr>
</table>
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">pderivpisteet:= seq((maarat[2](t/10+0.00001)-maarat[2](t/10))/0.00001, t=0..100):</font></b>
</td></tr>
</table>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">PiirretäÂän kantoja kuvaavat kuvaajat samaan kuvaan siten, että x-akselilla on kasvunopeus ja y-akselilla on kannan koko:</font>
</p>
<p align="left">
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"><b><font color="#FF0000">plot([zip((x, y)-&gt;[x, y], [sderivpisteet], [spisteet]), zip((x, y)-&gt;[x, y], [pderivpisteet], [ppisteet])]);</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/petsaal5.gif" width="612" height="612" alt="[Maple Plot]" />
</p>
<p align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><tt>&gt; &nbsp;&nbsp;</tt></td>
<td width="100%" valign="top"></td></tr>
</table>
</p>
<p align="left">
<i><b><font color="#000000">Tehtäviä</font></b></i>
</p>
<p align="left">
<font color="#000000">Mitä tämä faasitason kuvaaja kertoo kantojen käyttäytymisestä? Tarkastele, miten eri parametrien muuttaminen vaikuttaa faasitason kuvaajaan. <br />
<br />
Tutki myös, onko olemassa alkuehtoja, joiden avulla saavutetaan tasapaino peto- ja saaliskannan välillä. Vihje: Tarkastele alkuehtoa, jossa </font>
<i><font color="#000000">x</font></i>
<font color="#000000">'(</font>
<i><font color="#000000">t</font></i>
<font color="#000000">) = </font>
<i><font color="#000000">y</font></i>
<font color="#000000">'(</font>
<i><font color="#000000">t</font></i>
<font color="#000000">) = 0. <br />
</font>
</p>

<p><b>Linkkejä</b></p>


 <a href="../xml/ryhyle.xml">differentiaaliyhtälöryhmä</a><br/>
 <a href="../xml/nkkfas.xml">faasitaso</a><br/>

<p align="left">
<i><font color="#000000">JP &amp; SKK &amp; MS 12.07.2001</font></i>
</p>



</body>
</html>
