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

<a name="MapleAutoBookmark1" />
<p align="center">
<b><u><font color="#000000" size="5">Väestönkasvu</font></u></b>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Populaation kehitystä voidaan usein kuvata differentiaaliyhtälöiden avulla. Tässä tarkastellaan yksinkertaista väestönkasvumallia, joka perustuu ihmispopulaation kehitykseen vakioympäristössä. <br />
<br />
Kasvuyhtälö konstruoidaan seuraavalla logiikalla. Väestömäärän muutosta kuvaavaan yhtälöön vaikuttaa kaksi perustekijää, </font>
<i><font color="#000000">syntyvyys</font></i>
<font color="#000000">&nbsp;</font>
<img src="images/vaestok11.gif" width="30" height="32" alt="s[0]" align="middle" />
<font color="#000000">&nbsp;ja </font>
<i><font color="#000000">kuolleisuus</font></i>
<font color="#000000">&nbsp;</font>
<img src="images/vaestok12.gif" width="32" height="32" alt="k[0]" align="middle" />
<font color="#000000">. Olkoon väestömäärää ajanhetkellä </font>
<i><font color="#000000">t</font></i>
<font color="#000000">&nbsp;kuvaava funktio </font>
<i><font color="#000000">N</font></i>
<font color="#000000">(</font>
<i><font color="#000000">t</font></i>
<font color="#000000">). Tällöin on voimassa differentiaaliyhtälö <br />
</font>
</p>
<p align="center">
<img src="images/vaestok13.gif" width="177" height="58" alt="diff(N(t),t) = (s[0]-k[0])*N(t)" align="middle" />
<font color="#000000">,</font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">ts. väestömäärän muutosnopeus on verrannollinen senhetkiseen väestömäärään verrannollisuuskertoimena syntyvyyden ja kuolleisuuden erotus. Yhtälö ratkeaa helposti, jolloin saadaan väestömäärän kasvulle eksponentiaalinen malli <br />
</font>
</p>
<p align="center">
<img src="images/vaestok14.gif" width="125" height="58" alt="N(t) = N[0]*exp(r*t)" align="middle" />
<font color="#000000">,</font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">missä </font>
<img src="images/vaestok15.gif" width="86" height="32" alt="r = s[0]-k[0]" align="middle" />
<font color="#000000">&nbsp;ja </font>
<img src="images/vaestok16.gif" width="35" height="32" alt="N[0]" align="middle" />
<font color="#000000">&nbsp;on populaation suuruus alkuhetkellä </font>
<img src="images/vaestok17.gif" width="51" height="32" alt="t = t[0]" align="middle" />
<font color="#000000">. Eksponentiaalinen kasvu kuvaa populaation kehitystä yleensä vain olosuhteissa, missä ympärisön asettamat rajoitukset ovat vähäiset ja populaation kasvupotentiaali rajaton. <br />
<br />
Tarkasteltaessa lähes mitä tahansa reaalista populaatiota, rajallinen ympäristö ja populaation itsensä aiheuttama lajin sisäinen kilpailu aiheuttavat kasvulle selkeät rajat. Kasvua rajoittava kilpailutekijä on yleensä kytketty populaatiotiheyteen. Niinpä ympäristön rajallista kantokykyä voidaan kuvata modifioimalla syntyvyyttä ja kuolleisuutta populaatiotiheyteen verrannollisella tekijällä. Tällöin <br />
</font>
</p>
<p align="center">
<img src="images/vaestok18.gif" width="245" height="58" alt="diff(N,t) = N*(s[0]-p[s]*N-(k[0]+p[k]*N))" align="middle" />
<font color="#000000">,</font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">missä </font>
<img src="images/vaestok19.gif" width="30" height="32" alt="p[s]" align="middle" />
<font color="#000000">&nbsp;on populaatiotiheyden syntyvyyskerroin ja </font>
<img src="images/vaestok110.gif" width="32" height="32" alt="p[k]" align="middle" />
<font color="#000000">&nbsp;on populaatiotiheyden kuolleisuuskerroin. </font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Kun populaatio saavuttaa maksimikokonsa </font>
<img src="images/vaestok111.gif" width="55" height="32" alt="N[max]" align="middle" />
<font color="#000000">, sanotaan, että se on saavuttanut ympäristön kantokyvyn rajan. Tällöin derivaatta on = 0 ja populaatiolle pätee <br />
</font>
</p>
<p align="center">
<img src="images/vaestok112.gif" width="83" height="32" alt="N[max] = K" align="middle" />
<font color="#000000">&nbsp;= </font>
<img src="images/vaestok113.gif" width="67" height="72" alt="(s[0]-k[0])/(p[s]+p[k])" align="middle" />
<font color="#000000">.</font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Voidaan ajatella, että </font>
<i><font color="#000000">K</font></i>
<font color="#000000">&nbsp;on ympäristön kantokyky. Tällöin populaatiota koskeva differentiaaliyhtälö saa muodon <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>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Tämä voidaan helposti todeta (aluksi poistetaan vanhat muuttujat varmuuden vuoksi): <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">
<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">subs({r=s[0]-k[0], K=(s[0]-k[0])/(p[s]+p[k])}, r*N*(K-N)/K):<br />
simplify(%);</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/vaestok114.gif" width="204" height="27" alt="-(-s[0]+k[0]+N*p[s]+N*p[k])*N" />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Lasketaan seuraavaksi yksinkertainen populaatioesimerkki, missä alkukantainen heimo alkaa vuonna 1000 jkr. asuttaa Tyynen valtameren Kolae-saarta omaa vakiintunutta traditiotaan &nbsp;ja elämäntapaa soveltaen. Olkoon heimolle tyypillinen kasvukerroin </font>
<i><font color="#000000">r</font></i>
<font color="#000000">&nbsp;= 0.03 ja Kolae-saaren kantokyvyn raja </font>
<i><font color="#000000">K</font></i>
<font color="#000000">&nbsp;= 953 asukasta. <br />
</font>
</p>
<p align="left">
<font color="#000000">Heimon populaatiota kuvaava yhtälö on</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*n(t)*(k-n(t))/k;</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>
      <mfrac>
        <mrow>
          <mrow>
            <mi>r</mi>
            <mo>&InvisibleTimes;</mo>
            <mrow>
              <mi>n</mi>
              <mo>&ApplyFunction;</mo>
              <mfenced>
                <mi>t</mi>
              </mfenced>
            </mrow>
          </mrow>
          <mo>&InvisibleTimes;</mo>
          <mfenced>
            <mrow>
              <mi>k</mi>
              <mo>-</mo>
              <mrow>
                <mi>n</mi>
                <mo>&ApplyFunction;</mo>
                <mfenced>
                  <mi>t</mi>
                </mfenced>
              </mrow>
            </mrow>
          </mfenced>
        </mrow>
        <mi>k</mi>
      </mfrac>
    </mrow>
  </mrow>
</math>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Valitaan 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ä.</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)):<br />
popul:= subs(%, n(t));</font></b>
</td></tr>
</table>
</p>
<p align="center">
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mrow>
    <mi>popul</mi>
  </mrow>
  <mo>:=</mo>
  <mrow>
    <mfrac>
      <mi>k</mi>
      <mrow>
        <mn>1</mn>
        <mo>+</mo>
        <mrow>
          <mrow>
            <mfrac>
              <mn>1</mn>
              <mn>10</mn>
            </mfrac>
            <mo>&InvisibleTimes;</mo>
            <msup>
              <mi>&ExponentialE;</mi>
              <mfenced>
                <mrow>
                  <mo>-</mo>
                  <mrow>
                    <mi>r</mi>
                    <mo>&InvisibleTimes;</mo>
                    <mi>t</mi>
                  </mrow>
                </mrow>
              </mfenced>
            </msup>
          </mrow>
          <mo>&InvisibleTimes;</mo>
          <mfenced>
            <mrow>
              <mi>k</mi>
              <mo>-</mo>
              <mn>10</mn>
            </mrow>
          </mfenced>
        </mrow>
      </mrow>
    </mfrac>
  </mrow>
</math>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Sijoitetaan vakiot: </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">numpopul:= subs({r=0.03, k=953}, popul);</font></b>
</td></tr>
</table>
</p>
<p align="center">
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mrow>
    <mi>numpopul</mi>
  </mrow>
  <mo>:=</mo>
  <mrow>
    <mfrac>
      <mn>953</mn>
      <mrow>
        <mn>1</mn>
        <mo>+</mo>
        <mrow>
          <mfrac>
            <mn>943</mn>
            <mn>10</mn>
          </mfrac>
          <mo>&InvisibleTimes;</mo>
          <msup>
            <mi>&ExponentialE;</mi>
            <mfenced>
              <mrow>
                <mo>-</mo>
                <mrow>
                  <mn>.3e-1</mn>
                  <mo>&InvisibleTimes;</mo>
                  <mi>t</mi>
                </mrow>
              </mrow>
            </mfenced>
          </msup>
        </mrow>
      </mrow>
    </mfrac>
  </mrow>
</math>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Piirretään kuva populaation kehityksestä 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(numpopul, t=0..300, labels=["Aika/a", "Asukkaita"], title="Kolaen populaatio");</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/vaestok115.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">
</p>
<p align="left">
<font color="#000000">Tuloksena on ns. &nbsp;s-kasvukäyrä, joka osoittaa saaren populaation vuonna 1300 jkr. jo varsin saturoituneeksi. Todellisuudessa &nbsp;vain harvoin ympäristöolot ovat niin tasaiset, että yllä lasketun kaltainen tasainen kasvukäyrä pääsisi syntymään. Tautiepidemiat, katovuodet yms. vaihtelevat tekijät muuttavat ympäristön kantokykyä ja kuolleisuustekijää merkittävästi jopa vuositasolla. Ihmispopulaatiossa lisäksi kehittyvä teknologia ja innovaatiot saattavat muuttaa ympäristötekijöiden vaikutuksia suuresti. &nbsp;</font>
</p>
<p align="left">
</p>
<p align="left">
<i><b><font color="#000000">Tehtävä</font></b></i>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Tarkastellaan tilannetta, missä heimon perinteet kannustaisivat jäseniä suurempiin perhekokoihin. Tällöin heimolle ominainen kasvukerroin onkin 4%. Kuinka monta vuotta kestää ennen kuin saaren asukasluku rikkoo 800 ihmisen rajan? <br />
</font>
</p>

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


 <a href="../xml_mpl/vaestok2.xml">väestön kehitys muuttuvissa olosuhteissa</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>
