<?xml version="1.0" encoding="UTF-8"?>
<?xml-stylesheet type="text/xsl" href="HTMLFiles/pmathml.xsl"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0//EN"
        "HTMLFiles/xhtml-math11-f.dtd">

<!-- Created by Wolfram Mathematica 5.1 -->

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
 <title>
  vaestok1.xml
 </title>
 <link href="../navi/css/sovell.css" rel="stylesheet" type="text/css"/>
 <link href="HTMLFiles/newDefault.css" rel="stylesheet" type="text/css" />
</head>

<body>

<p><a href="../mma/vaestok1.nb">vaestok1.nb</a></p>

<p class="Title">
 V&auml;est&ouml;nkasvu
</p>



<p class="Text">
 Populaation kehityst&auml; voidaan usein kuvata differentiaaliyht&auml;l&ouml;iden avulla. T&auml;ss&auml; tarkastellaan yksinkertaista v&auml;est&ouml;nkasvumallia, joka perustuu ihmispopulaation kehitykseen vakioymp&auml;rist&ouml;ss&auml;. 
</p>



<p class="Text">
 Kasvuyht&auml;l&ouml; konstruoidaan seuraavalla logiikalla. V&auml;est&ouml;m&auml;&auml;r&auml;n muutosta kuvaavaan yht&auml;l&ouml;&ouml;n vaikuttaa kaksi perustekij&auml;&auml;, <span style='font-style: italic;'>syntyvyys</span> <span><span style='font-family: Courier New;'><span style='font-family: Courier New;'><math xmlns='http://www.w3.org/1998/Math/MathML'>
 <msub>
  <mi>s</mi>
  <mn>0</mn>
 </msub>
</math></span></span></span> ja <span style='font-style: italic;'>kuolleisuus</span><span style='font-weight: bold;'> </span><span><span style='font-family: Courier New;'><span style='font-family: Courier New;'><math xmlns='http://www.w3.org/1998/Math/MathML'>
 <msub>
  <mi>k</mi>
  <mn>0</mn>
 </msub>
</math></span></span></span>. Olkoon v&auml;est&ouml;m&auml;&auml;r&auml;&auml; ajanhetkell&auml; <span>t</span> kuvaava funktio <span><span style='font-family: Courier New;'>N(t)</span></span>. T&auml;ll&ouml;in on voimassa differentiaaliyht&auml;l&ouml;
</p>



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'
    mathematica:form='TraditionalForm'
    xmlns:mathematica='http://www.wolfram.com/XML/'>
 <mstyle fontfamily='Courier New'
     fontweight='normal'>
  <mrow>
   <mrow>
    <mfrac>
     <mrow>
      <mi>d</mi>
      <mo>(</mo>
      <mi>t</mi>
      <mo>)</mo>
     </mrow>
     <mi>t</mi>
    </mfrac>
    <mo>=</mo>
    <mrow>
     <mrow>
      <mo>(</mo>
      <mrow>
       <msub>
        <mi>s</mi>
        <mn>0</mn>
       </msub>
       <mo>-</mo>
       <msub>
        <mi>k</mi>
        <mn>0</mn>
       </msub>
      </mrow>
      <mo>)</mo>
     </mrow>
     <mo>&InvisibleTimes;</mo>
     <mrow>
      <mi>N</mi>
      <mo>&ApplyFunction;</mo>
      <mo>(</mo>
      <mi>t</mi>
      <mo>)</mo>
     </mrow>
    </mrow>
   </mrow>
   <mo>,</mo>
  </mrow>
 </mstyle>
</math>
</p>

<p class="Text">
 ts. v&auml;est&ouml;m&auml;&auml;r&auml;n muutosnopeus on verrannollinen senhetkiseen v&auml;est&ouml;m&auml;&auml;r&auml;&auml;n verrannollisuuskertoimena syntyvyyden ja kuolleisuuden erotus. Yht&auml;l&ouml; ratkeaa helposti, jolloin saadaan v&auml;est&ouml;m&auml;&auml;r&auml;n kasvulle eksponentiaalinen malli 
</p>



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'
    mathematica:form='TraditionalForm'
    xmlns:mathematica='http://www.wolfram.com/XML/'>
 <mstyle fontfamily='Courier New'
     fontweight='normal'>
  <mrow>
   <mrow>
    <mrow>
     <mi>N</mi>
     <mo>&ApplyFunction;</mo>
     <mo>(</mo>
     <mi>t</mi>
     <mo>)</mo>
    </mrow>
    <mo>=</mo>
    <mrow>
     <msub>
      <mi>N</mi>
      <mn>0</mn>
     </msub>
     <mo>&InvisibleTimes;</mo>
     <msup>
      <mi>e</mi>
      <mrow>
       <mi>r</mi>
       <mo>&InvisibleTimes;</mo>
       <mi>t</mi>
      </mrow>
     </msup>
    </mrow>
   </mrow>
   <mo>,</mo>
  </mrow>
 </mstyle>
</math>
</p>

<p class="Text">
 miss&auml; <span class='InputInline' style='font-family: Courier New;font-weight: normal;'>r=<span class='InputInline' style='font-family: Courier New;font-weight: normal;'><math xmlns='http://www.w3.org/1998/Math/MathML'>
 <msub>
  <mi>s</mi>
  <mn>0</mn>
 </msub>
</math></span>-<span class='InputInline' style='font-family: Courier New;font-weight: normal;'><math xmlns='http://www.w3.org/1998/Math/MathML'>
 <msub>
  <mi>k</mi>
  <mn>0</mn>
 </msub>
</math></span></span> ja <span class='InputInline' style='font-weight: normal;'><span style='font-family: Courier New;'><span style='font-family: Courier New;'><math xmlns='http://www.w3.org/1998/Math/MathML'>
 <msub>
  <mi>N</mi>
  <mn>0</mn>
 </msub>
</math></span></span></span> on populaation suuruus alkuhetkell&auml; <span style='font-family: Courier New;'>t=<span style='font-family: Courier New;'><math xmlns='http://www.w3.org/1998/Math/MathML'>
 <msub>
  <mi>t</mi>
  <mn>0</mn>
 </msub>
</math></span></span>. Eksponentiaalinen kasvu kuvaa populaation kehityst&auml; yleens&auml; vain olosuhteissa, miss&auml; ymp&auml;ris&ouml;n asettamat rajoitukset ovat v&auml;h&auml;iset ja populaation kasvupotentiaali rajaton.
</p>



<p class="Text">
 Tarkasteltaessa l&auml;hes mit&auml; tahansa reaalista populaatiota, rajallinen ymp&auml;rist&ouml; ja populaation itsens&auml; aiheuttama lajin sis&auml;inen kilpailu aiheuttavat kasvulle selke&auml;t rajat. Kasvua rajoittava kilpailutekij&auml; on yleens&auml; kytketty populaatiotiheyteen. Niinp&auml; ymp&auml;rist&ouml;n rajallista kantokyky&auml; voidaan kuvata modifioimalla syntyvyytt&auml; ja kuolleisuutta populaatiotiheyteen verrannollisella tekij&auml;ll&auml;. T&auml;ll&ouml;in 
</p>



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'
    mathematica:form='TraditionalForm'
    xmlns:mathematica='http://www.wolfram.com/XML/'>
 <mstyle fontfamily='Courier New'
     fontweight='normal'>
  <mrow>
   <mrow>
    <mfrac>
     <mi>d</mi>
     <mi>t</mi>
    </mfrac>
    <mo>=</mo>
    <mrow>
     <mi>N</mi>
     <mtext> </mtext>
     <mo>[</mo>
     <mrow>
      <mrow>
       <mo>(</mo>
       <mrow>
        <msub>
         <mi>s</mi>
         <mn>0</mn>
        </msub>
        <mo>-</mo>
        <mrow>
         <msub>
          <mi>p</mi>
          <mi>s</mi>
         </msub>
         <mo>&InvisibleTimes;</mo>
         <mi>N</mi>
        </mrow>
       </mrow>
       <mtext> </mtext>
       <mo>)</mo>
      </mrow>
      <mo>-</mo>
      <mrow>
       <mo>(</mo>
       <mrow>
        <msub>
         <mi>k</mi>
         <mn>0</mn>
        </msub>
        <mo>+</mo>
        <mrow>
         <msub>
          <mi>p</mi>
          <mi>k</mi>
         </msub>
         <mo>&InvisibleTimes;</mo>
         <mi>N</mi>
        </mrow>
       </mrow>
       <mo>)</mo>
      </mrow>
     </mrow>
     <mo>]</mo>
    </mrow>
   </mrow>
   <mo>,</mo>
  </mrow>
 </mstyle>
</math>
</p>

<p class="Text">
 miss&auml; <span class='InputInline' style='font-weight: normal;'><span style='font-family: Courier New;'><span style='font-family: Courier New;'><math xmlns='http://www.w3.org/1998/Math/MathML'>
 <msub>
  <mi>p</mi>
  <mi>s</mi>
 </msub>
</math></span></span></span> on populaatiotiheyden syntyvyyskerroin ja <span class='InputInline' style='font-family: Courier New;font-weight: normal;'><span class='InputInline' style='font-family: Courier New;font-weight: normal;'><math xmlns='http://www.w3.org/1998/Math/MathML'>
 <msub>
  <mi>p</mi>
  <mi>k</mi>
 </msub>
</math></span></span> on populaatiotiheyden kuolleisuuskerroin. 
</p>



<p class="Text">
 Kun populaatio saavuttaa maksimikokonsa <span class='DisplayFormulaInline' style='font-family: Courier New;'><span class='DisplayFormulaInline' style='font-family: Courier New;'><math xmlns='http://www.w3.org/1998/Math/MathML'>
 <msub>
  <mi>N</mi>
  <mi>max</mi>
 </msub>
</math></span></span>, sanotaan, ett&auml; se on saavuttanut ymp&auml;rist&ouml;n kantokyvyn rajan. T&auml;ll&ouml;in derivaatta on <span>= 0</span> ja populaatiolle p&auml;tee
</p>



<p class="DisplayFormula">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <msub>
   <mi>N</mi>
   <mi>max</mi>
  </msub>
  <mo>=</mo>
  <mrow>
   <mi>K</mi>
   <mo>=</mo>
   <mrow>
    <mfrac>
     <mrow>
      <msub>
       <mi>s</mi>
       <mn>0</mn>
      </msub>
      <mo>-</mo>
      <msub>
       <mi>k</mi>
       <mn>0</mn>
      </msub>
     </mrow>
     <mrow>
      <msub>
       <mi>p</mi>
       <mi>s</mi>
      </msub>
      <mo>+</mo>
      <msub>
       <mi>p</mi>
       <mi>k</mi>
      </msub>
     </mrow>
    </mfrac>
    <mo>.</mo>
   </mrow>
  </mrow>
 </mrow>
</math>
</p>

<p class="Text">
 Voidaan ajatella, ett&auml; <span>K</span> on ymp&auml;rist&ouml;n kantokyky. T&auml;ll&ouml;in populaatiota koskeva differentiaaliyht&auml;l&ouml; saa muodon
</p>



<p class="DisplayFormula">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mfrac>
   <mi>d</mi>
   <mi>t</mi>
  </mfrac>
  <mo>=</mo>
  <mrow>
   <mi>r</mi>
   <mo>&InvisibleTimes;</mo>
   <mrow>
    <mfrac>
     <mrow>
      <mi>N</mi>
      <mo>&InvisibleTimes;</mo>
      <mrow>
       <mo>(</mo>
       <mrow>
        <mi>K</mi>
        <mo>-</mo>
        <mi>N</mi>
       </mrow>
       <mo>)</mo>
      </mrow>
     </mrow>
     <mi>K</mi>
    </mfrac>
    <mo>.</mo>
   </mrow>
  </mrow>
 </mrow>
</math>
</p>

<p class="Text">
 T&auml;m&auml; voidaan helposti todeta (aluksi poistetaan vanhat muuttujat varmuuden vuoksi):
</p>



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mi>Remove</mi>
  <mo>[</mo>
  <ms>Global`*</ms>
  <mo>]</mo>
 </mrow>
</math>
</p>

<p class="CellLabel">
 In[1]:=
</p>



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mrow>
   <mrow>
    <mi>r</mi>
    <mo>&InvisibleTimes;</mo>
    <mi>N</mi>
    <mo>&InvisibleTimes;</mo>
    <mrow>
     <mrow>
      <mo>(</mo>
      <mrow>
       <mi>K</mi>
       <mtext> </mtext>
       <mo>-</mo>
       <mtext> </mtext>
       <mi>N</mi>
      </mrow>
      <mo>)</mo>
     </mrow>
     <mo>/</mo>
     <mi>K</mi>
    </mrow>
   </mrow>
   <mo>/.</mo>
   <mrow>
    <mo>{</mo>
    <mrow>
     <mrow>
      <mi>r</mi>
      <mo>&rightarrow;</mo>
      <mrow>
       <msub>
        <mi>s</mi>
        <mn>0</mn>
       </msub>
       <mo>-</mo>
       <msub>
        <mi>k</mi>
        <mn>0</mn>
       </msub>
      </mrow>
     </mrow>
     <mo>,</mo>
     <mrow>
      <mi>K</mi>
      <mo>&rightarrow;</mo>
      <mrow>
       <mrow>
        <mo>(</mo>
        <mrow>
         <msub>
          <mi>s</mi>
          <mn>0</mn>
         </msub>
         <mo>-</mo>
         <msub>
          <mi>k</mi>
          <mn>0</mn>
         </msub>
        </mrow>
        <mo>)</mo>
       </mrow>
       <mo>/</mo>
       <mrow>
        <mo>(</mo>
        <mrow>
         <msub>
          <mi>p</mi>
          <mi>s</mi>
         </msub>
         <mo>+</mo>
         <msub>
          <mi>p</mi>
          <mi>k</mi>
         </msub>
        </mrow>
        <mo>)</mo>
       </mrow>
      </mrow>
     </mrow>
    </mrow>
    <mo>}</mo>
   </mrow>
  </mrow>
  <mo>//</mo>
  <mi>Simplify</mi>
 </mrow>
</math>
</p>

<p class="CellLabel">
 Out[1]=
</p>



<p class="Output">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mrow>
   <mo>-</mo>
   <mi>N</mi>
  </mrow>
  <mo>&InvisibleTimes;</mo>
  <mrow>
   <mo>(</mo>
   <mrow>
    <msub>
     <mi>k</mi>
     <mn>0</mn>
    </msub>
    <mo>+</mo>
    <mrow>
     <mi>N</mi>
     <mo>&InvisibleTimes;</mo>
     <msub>
      <mi>p</mi>
      <mi>k</mi>
     </msub>
    </mrow>
    <mo>+</mo>
    <mrow>
     <mi>N</mi>
     <mo>&InvisibleTimes;</mo>
     <msub>
      <mi>p</mi>
      <mi>s</mi>
     </msub>
    </mrow>
    <mo>-</mo>
    <msub>
     <mi>s</mi>
     <mn>0</mn>
    </msub>
   </mrow>
   <mo>)</mo>
  </mrow>
 </mrow>
</math>
</p>

<p class="Text">
 Lasketaan seuraavaksi yksinkertainen populaatioesimerkki, miss&auml; alkukantainen heimo alkaa vuonna 1000 jKr. asuttaa Tyynen valtameren Kolae-saarta omaa vakiintunutta traditiotaan&nbsp;&nbsp;ja el&auml;m&auml;ntapaa soveltaen. Olkoon heimolle tyypillinen kasvukerroin <span>r = 0.03</span> ja Kolae-saaren kantokyvyn raja <span>K = 953</span> asukasta.
</p>



<p class="Text">
 Heimon populaatiota kuvaava yht&auml;l&ouml; on
</p>



<p class="CellLabel">
 In[2]:=
</p>



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mi>yht</mi>
  <mo>=</mo>
  <mtext> </mtext>
  <mrow>
   <mrow>
    <mrow>
     <mi>n</mi>
     <mo>'</mo>
    </mrow>
    <mo>[</mo>
    <mi>t</mi>
    <mo>]</mo>
   </mrow>
   <mtext> </mtext>
   <mo>==</mo>
   <mtext> </mtext>
   <mrow>
    <mi>r</mi>
    <mo>*</mo>
    <mrow>
     <mi>n</mi>
     <mo>[</mo>
     <mi>t</mi>
     <mo>]</mo>
    </mrow>
    <mo>&InvisibleTimes;</mo>
    <mrow>
     <mrow>
      <mo>(</mo>
      <mrow>
       <mi>k</mi>
       <mo>-</mo>
       <mrow>
        <mi>n</mi>
        <mo>[</mo>
        <mi>t</mi>
        <mo>]</mo>
       </mrow>
      </mrow>
      <mo>)</mo>
     </mrow>
     <mo>/</mo>
     <mi>k</mi>
    </mrow>
   </mrow>
  </mrow>
 </mrow>
</math>
</p>

<p class="CellLabel">
 Out[2]=
</p>



<p class="Output">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mrow>
   <msup>
    <mi>n</mi>
    <mo>&prime;</mo>
   </msup>
   <mo>[</mo>
   <mi>t</mi>
   <mo>]</mo>
  </mrow>
  <mo>&Equal;</mo>
  <mfrac>
   <mrow>
    <mi>r</mi>
    <mo>&InvisibleTimes;</mo>
    <mrow>
     <mo>(</mo>
     <mrow>
      <mi>k</mi>
      <mo>-</mo>
      <mrow>
       <mi>n</mi>
       <mo>[</mo>
       <mi>t</mi>
       <mo>]</mo>
      </mrow>
     </mrow>
     <mo>)</mo>
    </mrow>
    <mo>&InvisibleTimes;</mo>
    <mrow>
     <mi>n</mi>
     <mo>[</mo>
     <mi>t</mi>
     <mo>]</mo>
    </mrow>
   </mrow>
   <mi>k</mi>
  </mfrac>
 </mrow>
</math>
</p>

<p class="Text">
 Valitaan alkuehto, joka kuvaa populaation kokoa asutuksen alkaessa:
</p>



<p class="CellLabel">
 In[3]:=
</p>



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mi>alkuehto</mi>
  <mo>=</mo>
  <mrow>
   <mrow>
    <mi>n</mi>
    <mo>[</mo>
    <mn>0</mn>
    <mo>]</mo>
   </mrow>
   <mo>==</mo>
   <mn>10</mn>
  </mrow>
 </mrow>
</math>
</p>

<p class="CellLabel">
 Out[3]=
</p>



<p class="Output">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mrow>
   <mi>n</mi>
   <mo>[</mo>
   <mn>0</mn>
   <mo>]</mo>
  </mrow>
  <mo>&Equal;</mo>
  <mn>10</mn>
 </mrow>
</math>
</p>

<p class="Text">
 Ratkaistaan differentiaaliyht&auml;l&ouml;ryhm&auml; ja manipuloidaan tulos k&auml;ytt&ouml;kelpoiseen muotoon:
</p>



<p class="CellLabel">
 In[4]:=
</p>



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mi>rtk</mi>
  <mo>=</mo>
  <mtext> </mtext>
  <mrow>
   <mi>DSolve</mi>
   <mo>[</mo>
   <mrow>
    <mrow>
     <mo>{</mo>
     <mrow>
      <mi>yht</mi>
      <mo>,</mo>
      <mi>alkuehto</mi>
     </mrow>
     <mo>}</mo>
    </mrow>
    <mo>,</mo>
    <mrow>
     <mi>n</mi>
     <mo>[</mo>
     <mi>t</mi>
     <mo>]</mo>
    </mrow>
    <mo>,</mo>
    <mi>t</mi>
   </mrow>
   <mo>]</mo>
  </mrow>
 </mrow>
</math>
</p>

<p class="Message">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mrow>
   <mi>Solve</mi>
   <mtext>::</mtext>
   <mi>ifun</mi>
  </mrow>
  <mo>&InvisibleTimes;</mo>
  <mrow>
   <mo>:</mo>
   <mtext> </mtext>
  </mrow>
  <semantics>
   <mrow>
    <mtext>Inverse functions are being used by </mtext>
    <mi>Solve</mi>
    <mtext>, so some solutions may not be found; use Reduce for complete solution information. </mtext>
    <maction actiontype='highlight'>
     <mi>More&hellip;</mi>
    </maction>
   </mrow>
   <annotation encoding='Mathematica'>&quot;Inverse functions are being used by \\!\\(Solve\\), so some solutions may not be found; use Reduce for complete solution information. \\!\\(\\*ButtonBox[\\\&quot;More\[Ellipsis]\\\&quot;, ButtonStyle-&gt;\\\&quot;RefGuideLinkText\\\&quot;, ButtonFrame-&gt;None, ButtonData:&gt;\\\&quot;Solve::ifun\\\&quot;]\\)&quot;</annotation>
  </semantics>
 </mrow>
</math>
</p>

<p class="CellLabel">
 Out[4]=
</p>



<p class="Output">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mo>{</mo>
  <mrow>
   <mo>{</mo>
   <mrow>
    <mrow>
     <mi>n</mi>
     <mo>[</mo>
     <mi>t</mi>
     <mo>]</mo>
    </mrow>
    <mo>&rightarrow;</mo>
    <mfrac>
     <mrow>
      <mn>10</mn>
      <mo>&InvisibleTimes;</mo>
      <msup>
       <mi>&ExponentialE;</mi>
       <mrow>
        <mi>r</mi>
        <mo>&InvisibleTimes;</mo>
        <mi>t</mi>
       </mrow>
      </msup>
      <mo>&InvisibleTimes;</mo>
      <mi>k</mi>
     </mrow>
     <mrow>
      <mrow>
       <mo>-</mo>
       <mn>10</mn>
      </mrow>
      <mo>+</mo>
      <mrow>
       <mn>10</mn>
       <mo>&InvisibleTimes;</mo>
       <msup>
        <mi>&ExponentialE;</mi>
        <mrow>
         <mi>r</mi>
         <mo>&InvisibleTimes;</mo>
         <mi>t</mi>
        </mrow>
       </msup>
      </mrow>
      <mo>+</mo>
      <mi>k</mi>
     </mrow>
    </mfrac>
   </mrow>
   <mo>}</mo>
  </mrow>
  <mo>}</mo>
 </mrow>
</math>
</p>

<p class="CellLabel">
 In[5]:=
</p>



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mi>popul</mi>
  <mo>=</mo>
  <mtext> </mtext>
  <mrow>
   <mrow>
    <mi>n</mi>
    <mo>[</mo>
    <mi>t</mi>
    <mo>]</mo>
   </mrow>
   <mo>/.</mo>
   <mrow>
    <mi>First</mi>
    <mo>[</mo>
    <mi>rtk</mi>
    <mo>]</mo>
   </mrow>
  </mrow>
 </mrow>
</math>
</p>

<p class="CellLabel">
 Out[5]=
</p>



<p class="Output">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mfrac>
  <mrow>
   <mn>10</mn>
   <mo>&InvisibleTimes;</mo>
   <msup>
    <mi>&ExponentialE;</mi>
    <mrow>
     <mi>r</mi>
     <mo>&InvisibleTimes;</mo>
     <mi>t</mi>
    </mrow>
   </msup>
   <mo>&InvisibleTimes;</mo>
   <mi>k</mi>
  </mrow>
  <mrow>
   <mrow>
    <mo>-</mo>
    <mn>10</mn>
   </mrow>
   <mo>+</mo>
   <mrow>
    <mn>10</mn>
    <mo>&InvisibleTimes;</mo>
    <msup>
     <mi>&ExponentialE;</mi>
     <mrow>
      <mi>r</mi>
      <mo>&InvisibleTimes;</mo>
      <mi>t</mi>
     </mrow>
    </msup>
   </mrow>
   <mo>+</mo>
   <mi>k</mi>
  </mrow>
 </mfrac>
</math>
</p>

<p class="Text">
 Sijoitetaan vakiot:
</p>



<p class="CellLabel">
 In[6]:=
</p>



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mi>numpopul</mi>
  <mo>=</mo>
  <mtext> </mtext>
  <mrow>
   <mi>popul</mi>
   <mo>/.</mo>
   <mrow>
    <mo>{</mo>
    <mrow>
     <mrow>
      <mi>r</mi>
      <mo>-&gt;</mo>
      <mn>0.03</mn>
     </mrow>
     <mo>,</mo>
     <mrow>
      <mi>k</mi>
      <mo>-&gt;</mo>
      <mn>953</mn>
     </mrow>
    </mrow>
    <mo>}</mo>
   </mrow>
  </mrow>
 </mrow>
</math>
</p>

<p class="CellLabel">
 Out[6]=
</p>



<p class="Output">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mfrac>
  <mrow>
   <mn>9530</mn>
   <mo>&InvisibleTimes;</mo>
   <msup>
    <mi>&ExponentialE;</mi>
    <mrow>
     <mn>0.03</mn>
     <mtext> </mtext>
     <mi>t</mi>
    </mrow>
   </msup>
  </mrow>
  <mrow>
   <mn>943</mn>
   <mo>+</mo>
   <mrow>
    <mn>10</mn>
    <mo>&InvisibleTimes;</mo>
    <msup>
     <mi>&ExponentialE;</mi>
     <mrow>
      <mn>0.03</mn>
      <mtext> </mtext>
      <mi>t</mi>
     </mrow>
    </msup>
   </mrow>
  </mrow>
 </mfrac>
</math>
</p>

<p class="Text">
 Piirret&auml;&auml;n kuva populaation kehityksest&auml; ajan funktiona: 
</p>



<p class="CellLabel">
 In[7]:=
</p>



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mi>Plot</mi>
  <mo>[</mo>
  <mrow>
   <mi>numpopul</mi>
   <mo>,</mo>
   <mrow>
    <mo>{</mo>
    <mrow>
     <mi>t</mi>
     <mo>,</mo>
     <mn>0</mn>
     <mo>,</mo>
     <mn>300</mn>
    </mrow>
    <mo>}</mo>
   </mrow>
   <mo>,</mo>
   <mrow>
    <mi>AxesLabel</mi>
    <mo>-&gt;</mo>
    <mrow>
     <mo>{</mo>
     <mrow>
      <ms>Aika/a</ms>
      <mo>,</mo>
      <ms>asukkaita</ms>
     </mrow>
     <mo>}</mo>
    </mrow>
   </mrow>
   <mo>,</mo>
   <mrow>
    <mi>PlotLabel</mi>
    <mo>-&gt;</mo>
    <ms>Kolaen populaatio</ms>
   </mrow>
  </mrow>
  <mo>]</mo>
 </mrow>
</math>
</p>

<p class="Graphics">
 <img src="HTMLFiles/vaestok1_1.gif" alt="[Graphics:HTMLFiles/vaestok1_1.gif]"  width="288" height="178"  style="vertical-align:middle" />
</p>

<p class="CellLabel">
 Out[7]=
</p>



<p class="Output">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mo>&hybull;</mo>
  <mo>&InvisibleTimes;</mo>
  <mi>Graphics</mi>
  <mo>&InvisibleTimes;</mo>
  <mo>&hybull;</mo>
 </mrow>
</math>
</p>

<p class="Text">
 Tuloksena on ns.&nbsp;&nbsp;s-kasvuk&auml;yr&auml;, joka osoittaa saaren populaation vuonna 1300 jKr. jo varsin saturoituneeksi. Todellisuudessa&nbsp;&nbsp;vain harvoin ymp&auml;rist&ouml;olot ovat niin tasaiset, ett&auml; yll&auml; lasketun kaltainen tasainen kasvuk&auml;yr&auml; p&auml;&auml;sisi syntym&auml;&auml;n. Tautiepidemiat, katovuodet yms. vaihtelevat tekij&auml;t muuttavat ymp&auml;rist&ouml;n kantokyky&auml; ja kuolleisuustekij&auml;&auml; merkitt&auml;v&auml;sti jopa vuositasolla. Ihmispopulaatiossa lis&auml;ksi kehittyv&auml; teknologia ja innovaatiot saattavat muuttaa ymp&auml;rist&ouml;tekij&ouml;iden vaikutuksia suuresti.&nbsp;&nbsp;
</p>



<p class="Subtitle">
 Teht&auml;v&auml;
</p>



<p class='Text' style='background-color: #FFFF00;'>
 <span>Tarkastellaan tilannetta, miss&auml; heimon perinteet kannustaisivat j&auml;seni&auml; suurempiin perhekokoihin. T&auml;ll&ouml;in heimolle ominainen kasvukerroin onkin 4%. Kuinka monta vuotta kest&auml;&auml; ennen kuin saaren asukasluku rikkoo 800 ihmisen rajan?</span>
</p>



<p><b>Linkkej&auml;</b></p>

<p>
 <a href="../xml_mma/vaestok2.xml">v&auml;est&ouml;n kehitys muuttuvissa olosuhteissa</a><br/>
 <a href="../xml_mma/petsaal.xml">peto- ja saaliskanta</a><br/>
</p>

<p style='font-style: italic;'>
 JP &amp; SKK 09.05.2001
</p>

<hr />

<p style='font-family: Helvetica; font-size: 10px;'>Created by
 <a href="http://www.wolfram.com"><span style='font-style: italic'>Mathematica</span></a>
 &nbsp;(April 13, 2005)</p>
</body>

</html>
