<?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>vaestok2.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/vaestok2.mws" target="_blank">vaestok2.mws</a>

<a name="MapleAutoBookmark1" />
<p align="center">
<b><u><font color="#000000" size="5">Väestön kehitys muuttuvissa olosuhteissa</font></u></b>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Populaation kehitystä voidaan usein kuvata differentiaaliyhtälöiden avulla.</font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Kun populaation ja ympäristön vaikutus on huomioitu, voidaan populaation kehitys &nbsp;kuvata differentiaaliyhtälöllä <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>
      <mi>N</mi>
    </mrow>
    <mo>=</mo>
    <mfrac>
      <mrow>
        <mrow>
          <mi>r</mi>
          <mo>&InvisibleTimes;</mo>
          <mi>N</mi>
        </mrow>
        <mo>&InvisibleTimes;</mo>
        <mfenced>
          <mrow>
            <mi>K</mi>
            <mo>-</mo>
            <mi>N</mi>
          </mrow>
        </mfenced>
      </mrow>
      <mi>K</mi>
    </mfrac>
  </mrow>
</math>
<font color="#000000">,</font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">missä </font>
<i><font color="#000000">N</font></i>
<font color="#000000">&nbsp;= </font>
<i><font color="#000000">N</font></i>
<font color="#000000">(</font>
<i><font color="#000000">t</font></i>
<font color="#000000">) on populaation suuruus tarkasteluhetkellä </font>
<i><font color="#000000">t</font></i>
<font color="#000000">, </font>
<i><font color="#000000">K</font></i>
<font color="#000000">&nbsp;on ympäristön kantokyky ja </font>
<i><font color="#000000">r </font></i>
<font color="#000000">on populaatiolle tyypillinen kasvukerroin. (Vrt. yksinkertaista väestönkasvua kuvaavaan esimerkkiin.)</font>
</p>
<p align="left">
<font color="#000000"><br />
Tarkastellaan tilannetta, missä vakiot </font>
<i><font color="#000000">K</font></i>
<font color="#000000">&nbsp;ja </font>
<i><font color="#000000">r</font></i>
<font color="#000000">&nbsp;muuttuvat ajan funktioina, eli</font>
</p>
<p align="left">
</p>
<p align="center">
<i><font color="#000000">K </font></i>
<font color="#000000">=</font>
<i><font color="#000000">&nbsp;</font></i>
<font color="#000000">K(</font>
<i><font color="#000000">t</font></i>
<font color="#000000">), &nbsp;&nbsp;&nbsp;&nbsp;</font>
<i><font color="#000000">r</font></i>
<font color="#000000">&nbsp;= r(</font>
<i><font color="#000000">t</font></i>
<font color="#000000">).</font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Tämä vastaa tilannetta, missä ympäristötekijät ovat muutoksen alaisia. Esimerkiksi ihmispopulaation kyky hyödyntää ympäristöä voi muuttua tai ympäristön kantokyky ihmisen muokkauksen kautta muuntua. Kantokyky on myös syntyvyyden funktio!</font>
</p>
<p align="left">
<font color="#000000"><br />
Tyynen valtameren Kolae-saarta asuttavalle heimolle tyypillinen kasvukerroin olkoon 3%. Alkupopulaatio vuonna 1000 jkr. on 10 asukasta, mutta väestön kasvu ja heimon suosima veneiden rakentaminen sekä siitä aiheutuva puiden häviäminen johtavat eroosion kiihtymiseen saarella ja &nbsp;saaren alkuperäisen kantokyvyn romahtamisen. Nyt kantokykyä &nbsp;kuvataan seuraavassa esitettävällä funktiolla, jossa kantokyky laskee väestömäärän kasvaessa ja ajan kuluessa. <br />
<br />
Tarkastellaan Kolae-saaren väestön kehittymistä 500 vuoden ajanjakson verran. <br />
<br />
Aluksi poistetaan vanhat muuttujat. <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">restart;</font></b>
</td></tr>
</table>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Määritellään kantokykyfunktio </font>
<i><font color="#000000">K</font></i>
<font color="#000000">&nbsp;ja piirretään sille kuvaaja. </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">k:= t-&gt;953*exp(-n(t)*0.000005*t+0.0005);</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/vaestok21.gif" width="288" height="42" alt="k := proc (t) options operator, arrow; 953*exp(-.5e-5*n(t)*t+.5e-3) end proc" />
</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">plot3d(subs(n(t)=n, k(t)), t=0..500, n=0..953, axes=boxed, orientation=[-60,20], labels=["Vuosia", "Väkiluku", "Kantokyky"]);</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/vaestok22.gif" width="448" height="448" alt="[Maple Plot]" />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Lyhyillä aikaväleillä käyttäytyminen on lähes lineaarisesti laskeva, vaikka pidemmillä tarkasteluväleillä kantokyvyn eksponentiaalinen vähentyminen tulee esille. Mallilla pyritään osoittamaan mekanismi, joka alkuun päästyään aiheuttaa pitkällisen vaikutuksen. <br />
<br />
Kasvukerroinfunktio </font>
<i><font color="#000000">r</font></i>
<font color="#000000">&nbsp;olkoon vakio: &nbsp;<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">r:= t-&gt;0.03;</font></b>
</td></tr>
</table>
</p>
<p align="center">
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mrow>
    <mi>r</mi>
  </mrow>
  <mo>:=</mo>
  <mrow>
    <mn>.3e-1</mn>
  </mrow>
</math>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Populaatiota kuvaava differentiaaliyhtälö on tällöin</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">yht:= diff(n(t), t)=r(t)*n(t)*(k(t)-n(t))/k(t);</font></b>
</td></tr>
</table>
</p>
<p align="center">
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mrow>
    <mi>yht</mi>
  </mrow>
  <mo>:=</mo>
  <mrow>
    <mrow>
      <mrow>
        <mfrac>
          <mo>&DifferentialD;</mo>
          <mrow>
            <mo>&DifferentialD;</mo>
            <mi>t</mi>
          </mrow>
        </mfrac>
        <mrow>
          <mi>n</mi>
          <mo>&ApplyFunction;</mo>
          <mfenced>
            <mi>t</mi>
          </mfenced>
        </mrow>
      </mrow>
      <mo>=</mo>
      <mrow>
        <mn>.3147953830e-4</mn>
        <mo>&InvisibleTimes;</mo>
        <mfrac>
          <mrow>
            <mrow>
              <mi>n</mi>
              <mo>&ApplyFunction;</mo>
              <mfenced>
                <mi>t</mi>
              </mfenced>
            </mrow>
            <mo>&InvisibleTimes;</mo>
            <mfenced>
              <mrow>
                <mrow>
                  <mn>953</mn>
                  <mo>&InvisibleTimes;</mo>
                  <msup>
                    <mi>&ExponentialE;</mi>
                    <mfenced>
                      <mrow>
                        <mrow>
                          <mo>-</mo>
                          <mrow>
                            <mrow>
                              <mn>.5e-5</mn>
                              <mo>&InvisibleTimes;</mo>
                              <mrow>
                                <mi>n</mi>
                                <mo>&ApplyFunction;</mo>
                                <mfenced>
                                  <mi>t</mi>
                                </mfenced>
                              </mrow>
                            </mrow>
                            <mo>&InvisibleTimes;</mo>
                            <mi>t</mi>
                          </mrow>
                        </mrow>
                        <mo>+</mo>
                        <mn>.5e-3</mn>
                      </mrow>
                    </mfenced>
                  </msup>
                </mrow>
                <mo>-</mo>
                <mrow>
                  <mi>n</mi>
                  <mo>&ApplyFunction;</mo>
                  <mfenced>
                    <mi>t</mi>
                  </mfenced>
                </mrow>
              </mrow>
            </mfenced>
          </mrow>
          <msup>
            <mi>&ExponentialE;</mi>
            <mfenced>
              <mrow>
                <mrow>
                  <mo>-</mo>
                  <mrow>
                    <mrow>
                      <mn>.5e-5</mn>
                      <mo>&InvisibleTimes;</mo>
                      <mrow>
                        <mi>n</mi>
                        <mo>&ApplyFunction;</mo>
                        <mfenced>
                          <mi>t</mi>
                        </mfenced>
                      </mrow>
                    </mrow>
                    <mo>&InvisibleTimes;</mo>
                    <mi>t</mi>
                  </mrow>
                </mrow>
                <mo>+</mo>
                <mn>.5e-3</mn>
              </mrow>
            </mfenced>
          </msup>
        </mfrac>
      </mrow>
    </mrow>
  </mrow>
</math>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Alkuehto, joka kuvaa populaation kokoa asutuksen alkaessa: </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:= n(0)=10;</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>n</mi>
        <mo>&ApplyFunction;</mo>
        <mfenced>
          <mn>0</mn>
        </mfenced>
      </mrow>
      <mo>=</mo>
      <mn>10</mn>
    </mrow>
  </mrow>
</math>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Ratkaistaan differentiaaliyhtälöryhmä numeerisesti.</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">dsolve({yht, alkuehto}, n(t), type=numeric, output=listprocedure):<br />
popul:= subs(%, n(t));</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/vaestok23.gif" width="201" height="20" alt="popul := proc (t) local res, solnproc, outpoint, ndsol; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; _EnvDSNumericSaveDigits := Digits; Digits := 14; if _EnvInFsolve = true ..." />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Piirretään kuvaaja väestön kehitykselle.</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(popul, 0..500, labels=["Aika/a", "Asukkaita"], title="Kolaen populatio", view=[0..500, 0..1000]);</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/vaestok24.gif" width="448" height="448" alt="[Maple Plot]" />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Tuloksena ei olekaan säännöllinen s-käyrä, vaan noin 150 vuoden kohdalla populaation kehityksessä tapahtuu muutos. Eroosio on vaikuttanut ympäristön kantokykyä alentavasti niin, että väestönkasvu pysähtyy. Eroosio kuitenkin yhä jatkuu, mikä aiheuttaa kantokyvyn heikkenemisen jatkumisen ja siten heimon väestön vähentymisen. <br />
<br />
Myös tautiepidemiat voivat muuttaa merkittävästi populaation kasvukerrointa. Kasvukerroin r voisi muuttua esimerkiksi kuolleisuutta voimakkaasti lisäävän tautiepidemian seurauksena seuraavasti </font>
</p>
<p align="left">
</p>
<p align="center">
<img src="images/vaestok25.gif" width="355" height="58" alt="r(t) = r[0]*(1-1.7*(tanh((t-200)/20)-tanh((t-240)/20)))" align="middle" />
<font color="#000000">,</font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">missä </font>
<img src="images/vaestok26.gif" width="30" height="32" alt="r[0]" align="middle" />
<font color="#000000">&nbsp;= </font>
<font color="#000000">0.03. Piirretään kasvukertoimen kuvaaja. <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">r:= t-&gt;0.03*(1-1.7*(tanh((t-200)/20)-tanh((t-240)/20)));</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/vaestok27.gif" width="411" height="45" alt="r := proc (t) options operator, arrow; .3e-1-.51e-1*tanh(1/20*t-10)+.51e-1*tanh(1/20*t-12) end proc" />
</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(r, 0..500, view=[0..500, -0.05..0.04]);</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/vaestok28.gif" width="448" height="448" 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">
</p>
<p align="left">
<font color="#000000">Yllä esitetyllä tavalla populaation kasvukerrointa muuttava tautiepidemia iskee Kolae-saaren heimoon. Oletetaan, että kantokyky on vakio </font>
<i><font color="#000000">K</font></i>
<font color="#000000">&nbsp;= 953, ts. ei huomioida eroosiota, ainoastaan tauti. Kuinka tautiepidemia vaikuttaa populaation kehitykseen? Piirrä kuvaaja Kolae-saaren väkiluvulle 500 vuotta alkuasutuksesta eteenpäin. Vertaa tulostasi 'Väestönkasvu'-esimerkin tuloksiin. <br />
<br />
Tarkastele myös populaation kehitystä, kun huomioit sekä Kolae-saaren heimoon iskevän taudin että ympäristön eroosion vaikutuksen yhdessä. Mikäli ottaisit myös huomioon heimon kehittämän uuden, tehokkaamman maanviljelymenetelmän, mihin tekijään se vaikuttaisi?</font>
</p>
<p align="left">
</p>

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


 <a href="../xml_mpl/vaestok1.xml">yksinkertainen väestönkasvu</a><br/>
 <a href="../xml_mpl/petsaal.xml">peto- ja saaliskanta</a><br/>

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



</body>
</html>
