<?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>linwrs.html</title>
<!-- Created by Maple 8.00, IBM INTEL NT -->
<link href="../navi/css/esim.css" rel="stylesheet" type="text/css"/>
</head>
<body bgcolor="FFFFFF">

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

<a name="MapleAutoBookmark1" />
<p align="center">
<b><u><font color="#000000" size="5">Wronskin determinantin differentiaaliyhtälön johtaminen</font></u></b>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Wronskin determinantti määritellään homogeenisen lineaariyhtälön ratkaisujen ja niiden derivaattojen muodostamana determinanttina, mutta sille voidaan johtaa yksinkertainen differentiaaliyhtälö, joka näyttää, miten determinantti riippuu vain yhdestä differentiaaliyhtälössä olevasta kerroinfunktiosta. Johto on seuraavassa toteutettuna </font>
<i><font color="#000000">Maple</font></i>
<font color="#000000">n keinoin. Lukija miettiköön, millainen tehtävä olisi käsin ratkaistuna (kuten toisen kertaluvun osalta on differentiaaliyhtälöiden kursseissa perinteisesti tehty). </font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Syötetään aluksi kertaluku ja muodostetaan vastaava normaalimuotoinen homogeeninen differentiaaliyhtälö, jossa kerroinfunktioita merkitään </font>
<img src="images/linwrs1.gif" width="34" height="32" alt="P[0]" align="middle" />
<font color="#000000">, </font>
<img src="images/linwrs2.gif" width="34" height="32" alt="P[1]" align="middle" />
<font color="#000000">&nbsp;jne. Differentiaaliyhtälössä korkeimman kertaluvun termi annetaan erikseen, muut voidaan antaa summalausekkeena. <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">n:= 3;</font></b>
</td></tr>
</table>
</p>
<p align="center">
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mrow>
    <mi>n</mi>
  </mrow>
  <mo>:=</mo>
  <mrow>
    <mn>3</mn>
  </mrow>
</math>
</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">diffyht:= diff(y(x), x$n)+sum(P[k](x)*diff(y(x), [x$k]), k=0..n-1)=0;</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/linwrs3.gif" width="528" height="63" alt="diffyht := diff(y(x),`$`(x,3))+P[0](x)*y(x)+P[1](x)*diff(y(x),x)+P[2](x)*diff(y(x),`$`(x,2)) = 0" />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Olkoot </font>
<img src="images/linwrs4.gif" width="31" height="32" alt="y[1]" align="middle" />
<font color="#000000">, </font>
<img src="images/linwrs5.gif" width="31" height="32" alt="y[2]" align="middle" />
<font color="#000000">, ... , </font>
<img src="images/linwrs6.gif" width="31" height="32" alt="y[n]" align="middle" />
<font color="#000000">&nbsp;differentiaaliyhtälön ratkaisuja. Sijoitetaan nämä yhtälöön, jolloin saadaan seuraavat yhtälöt:</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">diffyhtsij:= seq(subs(y=y[k], diffyht), k=1..n);</font></b>
</td></tr>
</table>
</p>
<p align="left">
<img src="images/linwrs7.gif" width="1069" height="63" alt="diffyhtsij := diff(y[1](x),`$`(x,3))+P[0](x)*y[1](x)+P[1](x)*diff(y[1](x),x)+P[2](x)*diff(y[1](x),`$`(x,2)) = 0, diff(y[2](x),`$`(x,3))+P[0](x)*y[2](x)+P[1](x)*diff(y[2](x),x)+P[2](x)*diff(y[2](x),`$`(..." />
<br />
<img src="images/linwrs8.gif" width="498" height="63" alt="diffyhtsij := diff(y[1](x),`$`(x,3))+P[0](x)*y[1](x)+P[1](x)*diff(y[1](x),x)+P[2](x)*diff(y[1](x),`$`(x,2)) = 0, diff(y[2](x),`$`(x,3))+P[0](x)*y[2](x)+P[1](x)*diff(y[2](x),x)+P[2](x)*diff(y[2](x),`$`(..." />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Nämä ovat voimassa kaikilla arvoilla </font>
<i><font color="#000000">x</font></i>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Kerätään ratkaisut listaksi ja tätä derivoimalla muodostetaan vastaavat derivaattojen muodostamat listat. Kun nämä kerätään matriisiksi, saadaan Wronskin determinanttia vastaava matriisi. Matriisioperaatioita varten ladataan paketti </font>
<b><font color="#000000">linalg</font></b>
<font color="#000000">.</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">ratk:= [seq(y[k](x), k=1..n)];</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/linwrs9.gif" width="204" height="27" alt="ratk := [y[1](x), y[2](x), y[3](x)]" />
</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">with(linalg):</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">wronskimatr:= matrix([ratk, seq(diff(ratk, x$k), k=1..n-1)]);</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/linwrs10.gif" width="360" height="155" alt="wronskimatr := matrix([[y[1](x), y[2](x), y[3](x)], [diff(y[1](x),x), diff(y[2](x),x), diff(y[3](x),x)], [diff(y[1](x),`$`(x,2)), diff(y[2](x),`$`(x,2)), diff(y[3](x),`$`(x,2))]])" />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Wronskin determinantti on saadun matriisin determinantti. Tämä kehitetään ja sijoitetaan oikeaksi puoleksi yhtälöön, jonka vasempana puolena on Wronskin determinantin symboli (jolle differentiaaliyhtälöä haetaan):</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">wronskidet:= w(x)=det(wronskimatr);</font></b>
</td></tr>
</table>
</p>
<p align="left">
<img src="images/linwrs11.gif" width="1225" height="63" alt="wronskidet := w(x) = y[1](x)*diff(y[2](x),x)*diff(y[3](x),`$`(x,2))-y[1](x)*diff(y[3](x),x)*diff(y[2](x),`$`(x,2))-diff(y[1](x),x)*y[2](x)*diff(y[3](x),`$`(x,2))+diff(y[1](x),x)*y[3](x)*diff(y[2](x),`$..." />
<br />
<img src="images/linwrs12.gif" width="233" height="63" alt="wronskidet := w(x) = y[1](x)*diff(y[2](x),x)*diff(y[3](x),`$`(x,2))-y[1](x)*diff(y[3](x),x)*diff(y[2](x),`$`(x,2))-diff(y[1](x),x)*y[2](x)*diff(y[3](x),`$`(x,2))+diff(y[1](x),x)*y[3](x)*diff(y[2](x),`$..." />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Derivoimalla saadaan vastaava Wronskin determinantin derivaattaa koskeva yhtälö:</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">wronskidetder:= diff(wronskidet, x);</font></b>
</td></tr>
</table>
</p>
<p align="left">
<img src="images/linwrs13.gif" width="1049" height="63" alt="wronskidetder := diff(w(x),x) = y[1](x)*diff(y[2](x),x)*diff(y[3](x),`$`(x,3))-y[1](x)*diff(y[3](x),x)*diff(y[2](x),`$`(x,3))-diff(y[1](x),x)*y[2](x)*diff(y[3](x),`$`(x,3))+diff(y[1](x),x)*y[3](x)*diff..." />
<br />
<img src="images/linwrs14.gif" width="450" height="63" alt="wronskidetder := diff(w(x),x) = y[1](x)*diff(y[2](x),x)*diff(y[3](x),`$`(x,3))-y[1](x)*diff(y[3](x),x)*diff(y[2](x),`$`(x,3))-diff(y[1](x),x)*y[2](x)*diff(y[3](x),`$`(x,3))+diff(y[1](x),x)*y[3](x)*diff..." />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Wronskin determinantti ja sen derivaatta on saatu lausutuiksi ratkaisujen ja niiden derivaattojen avulla. Toisaalta ratkaisut toteuttavat alkuperäisen differentiaaliyhtälön. Jos näistä yhtälöistä voidaan eliminoida ratkaisufunktiot derivaattoineen, saadaan ehto, joka sitoo Wronskin determinantin, sen derivaatan ja differentiaaliyhtälön kerroinfunktiot. Ennalta ei ole selvää, että tällainen yhteys on olemassa. </font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Ehtoyhtälöitä on </font>
<i><font color="#000000">n</font></i>
<font color="#000000">&nbsp;+ 2 kappaletta: </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">yhtalot:= {diffyhtsij, wronskidet, wronskidetder};</font></b>
</td></tr>
</table>
</p>
<p align="left">
<img src="images/linwrs15.gif" width="1067" height="63" alt="yhtalot := {diff(y[1](x),`$`(x,3))+P[0](x)*y[1](x)+P[1](x)*diff(y[1](x),x)+P[2](x)*diff(y[1](x),`$`(x,2)) = 0, diff(y[3](x),`$`(x,3))+P[0](x)*y[3](x)+P[1](x)*diff(y[3](x),x)+P[2](x)*diff(y[3](x),`$`(x,..." />
<br />
<img src="images/linwrs16.gif" width="1190" height="63" alt="yhtalot := {diff(y[1](x),`$`(x,3))+P[0](x)*y[1](x)+P[1](x)*diff(y[1](x),x)+P[2](x)*diff(y[1](x),`$`(x,2)) = 0, diff(y[3](x),`$`(x,3))+P[0](x)*y[3](x)+P[1](x)*diff(y[3](x),x)+P[2](x)*diff(y[3](x),`$`(x,..." />
<br />
<img src="images/linwrs17.gif" width="1162" height="63" alt="yhtalot := {diff(y[1](x),`$`(x,3))+P[0](x)*y[1](x)+P[1](x)*diff(y[1](x),x)+P[2](x)*diff(y[1](x),`$`(x,2)) = 0, diff(y[3](x),`$`(x,3))+P[0](x)*y[3](x)+P[1](x)*diff(y[3](x),x)+P[2](x)*diff(y[3](x),`$`(x,..." />
<br />
<img src="images/linwrs18.gif" width="894" height="63" alt="yhtalot := {diff(y[1](x),`$`(x,3))+P[0](x)*y[1](x)+P[1](x)*diff(y[1](x),x)+P[2](x)*diff(y[1](x),`$`(x,2)) = 0, diff(y[3](x),`$`(x,3))+P[0](x)*y[3](x)+P[1](x)*diff(y[3](x),x)+P[2](x)*diff(y[3](x),`$`(x,..." />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Eliminoitavia symboleja ovat ratkaisut ja näiden derivaatat; yhteensä </font>
<i><font color="#000000">n</font></i>
<font color="#000000">(</font>
<i><font color="#000000">n</font></i>
<font color="#000000">&nbsp;+ 1) kappaletta:</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">eliminoitavat:= map(op, [seq(diff(ratk, [x$k]), k=0..n)]);</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/linwrs19.gif" width="903" height="63" alt="eliminoitavat := [y[1](x), y[2](x), y[3](x), diff(y[1](x),x), diff(y[2](x),x), diff(y[3](x),x), diff(y[1](x),`$`(x,2)), diff(y[2](x),`$`(x,2)), diff(y[3](x),`$`(x,2)), diff(y[1](x),`$`(x,3)), diff(y[2]..." />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Eliminoitaessa </font>
<i><font color="#000000">Maple</font></i>
<font color="#000000">n </font>
<b><font color="#000000">eliminate</font></b>
<font color="#000000">-komennolla ei ole mahdollista eliminoida funktioita tai derivaattoja suhteen. Tämä voidaan ohittaa korvaamalla derivaatta- ja funktiomerkinnät väliaikaisilla muuttujilla.</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">d2m:= zip((x, y)-&gt;x=y, eliminoitavat, [seq(d[k], k=1..4*n)]):</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(d2m, [yhtalot, {eliminoitavat[]}]):<br />
eliminate(%[1], %[2]);</font></b>
</td></tr>
</table>
</p>
<p align="left">
<img src="images/linwrs20.gif" width="1232" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs21.gif" width="1200" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs22.gif" width="964" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs23.gif" width="1242" height="45" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs24.gif" width="777" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs25.gif" width="1143" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs26.gif" width="1243" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs27.gif" width="1221" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs28.gif" width="628" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs29.gif" width="1238" height="45" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs30.gif" width="1216" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs31.gif" width="210" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs32.gif" width="1166" height="45" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs33.gif" width="1201" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs34.gif" width="553" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs35.gif" width="1205" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs36.gif" width="1211" height="61" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs37.gif" width="384" height="59" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs38.gif" width="1203" height="61" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
<br />
<img src="images/linwrs39.gif" width="931" height="61" alt="[{d[6] = 0, d[1] = (w(x)+d[4]*d[2]*d[9])/d[5]/d[9], d[4] = d[4], d[9] = d[9], d[10] = -(P[0](x)*w(x)+P[0](x)*d[4]*d[2]*d[9]+P[1](x)*d[4]*d[5]*d[9]+P[2](x)*d[7]*d[5]*d[9])/d[5]/d[9], d[12] = -P[2](x)*d[..." />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Eliminointi onnistuu ja tuloksena </font>
<b><font color="#000000">eliminate</font></b>
<font color="#000000">-komento antaa listojen listan, jonka jokainen alkio on mahdollinen ratkaisu. Jokaisen ratkaisun viimeisenä alkiona on eliminoinnin tulos polynomin muodossa. Tarkastelemalla ratkaisuja havaitaan, että on löytynyt 2 erilaista ratkaisua:</font>
</p>
<p align="left">
</p>
<p align="center">
<img src="images/linwrs40.gif" width="179" height="58" alt="diff(w(x),x)+P[2](x)*w(x)" align="middle" />
<font color="#000000">&nbsp;ja <br />
</font>
<math xmlns='http://www.w3.org/1998/Math/MathML'>
  <mfenced open='{' close='}'>
    <mrow>
      <mfrac>
        <mo>&DifferentialD;</mo>
        <mrow>
          <mo>&DifferentialD;</mo>
          <mi>x</mi>
        </mrow>
      </mfrac>
      <mrow>
        <mi>w</mi>
        <mo>&ApplyFunction;</mo>
        <mfenced>
          <mi>x</mi>
        </mfenced>
      </mrow>
    </mrow>
    <mrow>
      <mo>-</mo>
      <mrow>
        <mi>w</mi>
        <mo>&ApplyFunction;</mo>
        <mfenced>
          <mi>x</mi>
        </mfenced>
      </mrow>
    </mrow>
  </mfenced>
</math>
<font color="#000000">.</font>
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Ensimmäinen on yleistapaus ja jälkimmäinen on erikoistapaus, jossa kerroinfunktio </font>
<img src="images/linwrs41.gif" width="34" height="32" alt="P[2]" align="middle" />
<font color="#000000">&nbsp;supistuu pois. Olemme kiinnostuneita yleisestä ratkaisusta, josta muodostamme Wronskin determinantille ensimmäisen kertaluvun differentiaaliyhtälön merkitsemällä polynomin nollaksi: </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">wronskiyht:= diff(w(x), x)+P[2](x)*w(x)=0;</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/linwrs42.gif" width="295" height="45" alt="wronskiyht := diff(w(x),x)+P[2](x)*w(x) = 0" />
</p>
<p align="left">
</p>
<p align="left">
<font color="#000000">Differentiaaliyhtälö voidaan ratkaista:</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(wronskiyht, w(x));</font></b>
</td></tr>
</table>
</p>
<p align="center">
<img src="images/linwrs43.gif" width="202" height="60" alt="w(x) = _C1*exp(Int(-P[2](x),x))" />
</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">Huomaa, että Wronskin determinantti riippuu vain toiseksi korkeinta kertalukua olevan derivaatan kerroinfunktiosta.</font>
</p>
<p align="left">
<font color="#000000"><br />
Lukija voi muuttaa alussa annettua differentiaaliyhtälön kertalukua ja tutkia, miten Wronskin determinantin differentiaaliyhtälön etsiminen tällöin sujuu.</font>
</p>
<p align="left">
</p>

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


 <a href="../xml/linwro.xml">Wronskin determinantti</a><br/>
 <a href="../xml/linhom.xml">homogeeniyhtälön ratkaisujoukko</a><br/>

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



</body>
</html>
