<?xml version="1.0"?>
<?xml-stylesheet type="text/xsl" href="HTMLFiles/pmathml.xsl"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
        "HTMLFiles/xhtml1-transitional.dtd">

<!-- This HTML document was created by converting a Mathematica notebook using Export. -->


<html xmlns="http://www.w3.org/1999/xhtml" class="Notebook">

<head >
<title>
  hinaus.nb
</title>

<link href="../navi/css/sovell.css" rel="stylesheet" type="text/css"/>
<link href="HTMLFiles/Default.css" rel="stylesheet" type="text/css" />
</head>

<body>

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

<p class="Title">
 Hinaaja
</p>



<p class="Text">
 Tarkastellaan tilannetta, miss&auml; alus hinaa toista joustamattoman k&ouml;yden tai tangon avulla. Tanko tai k&ouml;ysi on kiinnitetty molemmista p&auml;ist&auml;&auml;n kitkattomien nivelten avulla. L&auml;ht&ouml;asetelmana olkoon tilanne, jossa hinaaja sijaitsee origossa ja hinattava et&auml;isyydell&auml; <span><math xmlns='http://www.w3.org/1998/Math/MathML'
    mathematica:form='TraditionalForm'
    xmlns:mathematica='http://www.wolfram.com/XML/'>
 <mi>a</mi>
</math></span> y-akselilla. Hinaajan l&auml;htee liikkeelle x-akselin suuntaan.
</p>



<p class="Graphics">
 <img src="HTMLFiles/hinaus_1.gif"  border="0"  alt="[Graphics:HTMLFiles/hinaus_1.gif]"  width="288" height="200"  align="absmiddle"  />
</p>

<p class="Text">
 Koska hinauset&auml;isyys pysyy vakiona (<span><math xmlns='http://www.w3.org/1998/Math/MathML'
    mathematica:form='TraditionalForm'
    xmlns:mathematica='http://www.wolfram.com/XML/'>
 <mrow>
  <mo>=</mo>
  <mtext> </mtext>
  <mi fontfamily='Courier New'>a</mi>
 </mrow>
</math></span>), saadaan Pythagoraan lauseella johdettua tilanteen liikeyht&auml;l&ouml;:<br />
</p>



<p class="DisplayFormula">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mfrac>
   <mrow>
    <mi>d</mi>
    <mo>&#8290;</mo>
    <mi>y</mi>
   </mrow>
   <mrow>
    <mi>d</mi>
    <mo>&#8290;</mo>
    <mi>x</mi>
   </mrow>
  </mfrac>
  <mo>=</mo>
  <mrow>
   <mfrac>
    <mrow>
     <mo>-</mo>
     <mi>y</mi>
    </mrow>
    <msqrt>
     <mrow>
      <msup>
       <mi>a</mi>
       <mn>2</mn>
      </msup>
      <mo>-</mo>
      <msup>
       <mi>y</mi>
       <mn>2</mn>
      </msup>
     </mrow>
    </msqrt>
   </mfrac>
   <mo>.</mo>
  </mrow>
 </mrow>
</math>
</p>

<p class="Text">
 Tarkastellaan hinattavan kulkemaa reitti&auml;.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</p>



<p class="Text">
 Laskujen aluksi on syyt&auml; h&auml;vitt&auml;&auml; mahdollisista aiemmista laskuista j&auml;&auml;neet muuttujat.
</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="Text">
 Olkoon hinausk&ouml;yden pituus
</p>



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



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mi>a</mi>
  <mo>=</mo>
  <mn>1</mn>
 </mrow>
</math>
</p>

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



<p class="Output">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mn>1</mn>
</math>
</p>

<p class="Text">
 M&auml;&auml;ritell&auml;&auml;n differentiaaliyht&auml;l&ouml;:
</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>y</mi>
     <mo>&apos;</mo>
    </mrow>
    <mo>[</mo>
    <mi>x</mi>
    <mo>]</mo>
   </mrow>
   <mtext> </mtext>
   <mo>==</mo>
   <mtext> </mtext>
   <mrow>
    <mrow>
     <mo>-</mo>
     <mrow>
      <mi>y</mi>
      <mo>[</mo>
      <mi>x</mi>
      <mo>]</mo>
     </mrow>
    </mrow>
    <mo>/</mo>
    <mrow>
     <mi>Sqrt</mi>
     <mo>[</mo>
     <mrow>
      <mrow>
       <mi>a</mi>
       <mo>^</mo>
       <mn>2</mn>
      </mrow>
      <mo>-</mo>
      <mrow>
       <mrow>
        <mi>y</mi>
        <mo>[</mo>
        <mi>x</mi>
        <mo>]</mo>
       </mrow>
       <mo>^</mo>
       <mn>2</mn>
      </mrow>
     </mrow>
     <mo>]</mo>
    </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>y</mi>
    <mo>&#8242;</mo>
   </msup>
   <mo>[</mo>
   <mi>x</mi>
   <mo>]</mo>
  </mrow>
  <mo>&#10869;</mo>
  <mrow>
   <mo>-</mo>
   <mfrac>
    <mrow>
     <mi>y</mi>
     <mo>[</mo>
     <mi>x</mi>
     <mo>]</mo>
    </mrow>
    <msqrt>
     <mrow>
      <mn>1</mn>
      <mo>-</mo>
      <msup>
       <mrow>
        <mi>y</mi>
        <mo>[</mo>
        <mi>x</mi>
        <mo>]</mo>
       </mrow>
       <mn>2</mn>
      </msup>
     </mrow>
    </msqrt>
   </mfrac>
  </mrow>
 </mrow>
</math>
</p>

<p class="Text">
 Luonnollinen alkuehto olisi <span><math xmlns='http://www.w3.org/1998/Math/MathML'
    mathematica:form='TraditionalForm'
    xmlns:mathematica='http://www.wolfram.com/XML/'>
 <mrow>
  <mrow>
   <mi fontfamily='Courier New' fontstyle='italic'>y</mi>
   <mo fontfamily='Courier New'>(</mo>
   <mn fontfamily='Courier New'>0</mn>
   <mo fontfamily='Courier New'>)</mo>
  </mrow>
  <mo fontfamily='Courier New'>=</mo>
  <mi fontfamily='Courier New'>a</mi>
 </mrow>
</math></span><span style='font-style: italic;'>,</span> mutta t&auml;m&auml; on yht&auml;l&ouml;ss&auml; nimitt&auml;j&auml;n nollakohta eik&auml; numeerinen ratkaiseminen onnistu. Pieni huijauksenomainen muutos alkuehdossa auttaa:
</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>y</mi>
    <mo>[</mo>
    <mn>0.000001</mn>
    <mo>]</mo>
   </mrow>
   <mo>==</mo>
   <mrow>
    <mi>a</mi>
    <mo>-</mo>
    <mrow>
     <mn>1.</mn>
     <mo>&#215;</mo>
     <msup>
      <mn>10</mn>
      <mrow>
       <mo>-</mo>
       <mn>11</mn>
      </mrow>
     </msup>
    </mrow>
   </mrow>
  </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>y</mi>
   <mo>[</mo>
   <mn>0.000001</mn>
   <mo>]</mo>
  </mrow>
  <mo>&#10869;</mo>
  <mn>0.99999999999</mn>
 </mrow>
</math>
</p>

<p class="Text">
 Ratkaistaan differentiaaliyht&auml;l&ouml;:
</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>NDSolve</mi>
   <mo>[</mo>
   <mrow>
    <mrow>
     <mo>{</mo>
     <mrow>
      <mi>yht</mi>
      <mo>,</mo>
      <mi>alkuehto</mi>
     </mrow>
     <mo>}</mo>
    </mrow>
    <mo>,</mo>
    <mrow>
     <mi>y</mi>
     <mo>[</mo>
     <mi>x</mi>
     <mo>]</mo>
    </mrow>
    <mo>,</mo>
    <mrow>
     <mo>{</mo>
     <mrow>
      <mi>x</mi>
      <mo>,</mo>
      <mn>0.000001</mn>
      <mo>,</mo>
      <mn>20</mn>
     </mrow>
     <mo>}</mo>
    </mrow>
   </mrow>
   <mo>]</mo>
  </mrow>
 </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>y</mi>
     <mo>[</mo>
     <mi>x</mi>
     <mo>]</mo>
    </mrow>
    <mo>&#8594;</mo>
    <mrow>
     <mrow>
      <mi>InterpolatingFunction</mi>
      <mo>[</mo>
      <mrow>
       <mrow>
        <mo>{</mo>
        <mrow>
         <mo>{</mo>
         <mrow>
          <mn>0.000001</mn>
          <mo>,</mo>
          <mn>20.</mn>
         </mrow>
         <mo>}</mo>
        </mrow>
        <mo>}</mo>
       </mrow>
       <mo>,</mo>
       <mo>&lt;&gt;</mo>
      </mrow>
      <mo>]</mo>
     </mrow>
     <mo>[</mo>
     <mi>x</mi>
     <mo>]</mo>
    </mrow>
   </mrow>
   <mo>}</mo>
  </mrow>
  <mo>}</mo>
 </mrow>
</math>
</p>

<p class="Text">
 Muokataan tulos k&auml;ytt&ouml;kelpoisempaan muotoon ja piirret&auml;&auml;n ratkaisun kuvaaja:
</p>



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



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mi>kaari</mi>
  <mo>=</mo>
  <mtext> </mtext>
  <mrow>
   <mrow>
    <mi>y</mi>
    <mo>[</mo>
    <mi>x</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'>
 <mrow>
  <mrow>
   <mi>InterpolatingFunction</mi>
   <mo>[</mo>
   <mrow>
    <mrow>
     <mo>{</mo>
     <mrow>
      <mo>{</mo>
      <mrow>
       <mn>0.000001</mn>
       <mo>,</mo>
       <mn>20.</mn>
      </mrow>
      <mo>}</mo>
     </mrow>
     <mo>}</mo>
    </mrow>
    <mo>,</mo>
    <mo>&lt;&gt;</mo>
   </mrow>
   <mo>]</mo>
  </mrow>
  <mo>[</mo>
  <mi>x</mi>
  <mo>]</mo>
 </mrow>
</math>
</p>

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



<p class="Input">
 <math xmlns='http://www.w3.org/1998/Math/MathML'>
 <mrow>
  <mi>Plot</mi>
  <mo>[</mo>
  <mrow>
   <mi>kaari</mi>
   <mo>,</mo>
   <mrow>
    <mo>{</mo>
    <mrow>
     <mi>x</mi>
     <mo>,</mo>
     <mn>0.000001</mn>
     <mo>,</mo>
     <mn>2</mn>
    </mrow>
    <mo>}</mo>
   </mrow>
   <mo>,</mo>
   <mrow>
    <mi>PlotRange</mi>
    <mo>-&gt;</mo>
    <mrow>
     <mo>{</mo>
     <mrow>
      <mrow>
       <mo>-</mo>
       <mn>0.05</mn>
      </mrow>
      <mo>,</mo>
      <mn>1.5</mn>
     </mrow>
     <mo>}</mo>
    </mrow>
   </mrow>
   <mo>,</mo>
   <mrow>
    <mi>AspectRatio</mi>
    <mo>-&gt;</mo>
    <mi>Automatic</mi>
   </mrow>
  </mrow>
  <mo>]</mo>
 </mrow>
</math>
</p>

<p class="Graphics">
 <img src="HTMLFiles/hinaus_2.gif"  border="0"  alt="[Graphics:HTMLFiles/hinaus_2.gif]"  width="288" height="213"  align="absmiddle"  />
</p>

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



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

<p class="Text">
 Saatua k&auml;yr&auml;&auml; kutsutaan nimell&auml; <span style='font-style: italic;'>traktrix</span>. Sit&auml; voidaan k&auml;ytt&auml;&auml; miss&auml; tahansa j&auml;ykiss&auml; veto-, ty&ouml;nt&ouml;- tai seuraustilanteissa.
</p>



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



<p class='Text' style='background-color: #FFFF00;'>
 Jos vet&auml;j&auml; etenee jatkuvasti samaan suuntaan, alussa eri suuntaan kulkenut hinattava saavuttaa t&auml;sm&auml;lleen saman kulkusuunnan vasta &auml;&auml;rett&ouml;myydess&auml;. Tarkastele tilannetta, miss&auml; vene l&auml;htee vet&auml;m&auml;&auml;n lauttaa 50 metrin joustamattoman hinausk&ouml;yden avulla edell&auml; kuvatulla tavalla. Kuinka pitk&auml;&auml;n hinausta pit&auml;&auml; suorittaa, ennen kuin lautan poikkeama suoraan etenev&auml;n veneen kulkusuunnan m&auml;&auml;ritt&auml;m&auml;st&auml; suorasta on alle 5 cm? 
</p>



<p class='Text' style='background-color: #FFFF00;'>
 Tutki, voidaanko probleeman differentiaaliyht&auml;l&ouml; ratkaista Mathematican <span style='font-family: Courier New;'>DSolve</span>-komennolla. Voidaanko ratkaisu lausua alkeisfunktioiden avulla? Onko yht&auml;l&ouml; ratkaistavissa k&auml;sin laskemalla?
</p>



<p class='Text' style='background-color: #FFFF00;'>
 Ratkaise edell&auml; tarkasteltu probleema valitsemalla <span><math xmlns='http://www.w3.org/1998/Math/MathML'
    mathematica:form='TraditionalForm'
    xmlns:mathematica='http://www.wolfram.com/XML/'>
 <mi>y</mi>
</math></span> riippumattomaksi muuttujaksi, jolloin hinattavan reitti&auml; kuvaava tuntematon funktio on <span><math xmlns='http://www.w3.org/1998/Math/MathML'
    mathematica:form='TraditionalForm'
    xmlns:mathematica='http://www.wolfram.com/XML/'>
 <mrow>
  <mi>x</mi>
  <mo>&#8289;</mo>
  <mo>(</mo>
  <mi>y</mi>
  <mo>)</mo>
 </mrow>
</math></span>. Muodosta tilannetta vastaava differentiaaliyht&auml;l&ouml; alkuehtoineen ja ratkaise se numeerisesti.&nbsp;&nbsp;Joudutaanko jossakin kohdassa vastaavaan ongelmaan kuin edell&auml; alkuehtoa asetettaessa?
</p>







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

<p>
<a href="../xml/algsep.xml">separoituva yht&auml;l&ouml;</a>
<br/>
</p>

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


<hr />
<p style='font-family: Helvetica; font-size: 8pt'>Created by
<a href="http://www.wolfram.com"><span style='font-style: italic'>Mathematica</span></a>
&nbsp;(July 21, 2004) </p>

</body>

</html>
