Revision 351728 of "Mathematica Home Edition/Equation exacte 6" on frwikiversity

{{Chapitre
  | idfaculté = informatique
  | précédent = [[../Equation exacte 5/]]
  | suivant   = [[../Equation linéaire 1/]]
  | niveau    = 15
  | numéro    = 16
}}

== Présentation ==

Si  l'équation est non exacte et homogène alors  (1/(m x + n y))  est un facteur intégrant.

Ce travail se base sur le chapitre 5 du livre de '''"Frank Ayres Jr" "Équations différentielles " Serie Schaum'''.

== Étude ==

=== Ex :  x^4+y^4 dx -x*y^3 dy = 0 === 

[[Fichier:M05d5.ogv|thumb|Add caption here]]

{{Boîte déroulante|titre=Le code Mathematica |contenu=
<pre>

Equations du premier ordre et du premier degre.

 (Equations non exactes : Homogene)

alors  (1/(m x + n y))  est un facteur intégrant.

 
Initialisation.

mT[x_,y_]:=x^4+y^4;
nT[x_,y_]:=-x*y^3;

mT[x,y]*dx +nT[x,y]*dy

Vérifions si l'équation est exacte :

D[mT[x,y],y]
D[nT[x,y],x]

 Il faut rechercher un facteur intégrant !

facT =Simplify[ 1 /  (x*mT[x,y]+y* nT[x,y])]

Voici la nouvelle équation :

m[x_,y_]:=Expand[facT * mT[x,y]];
n[x_,y_]:=Expand[facT * nT[x,y]];

m[x,y]*dx +n[x,y]*dy

Vérifions si l'équation est exacte : 

D[m[x,y],y]
D[n[x,y],x]

Nous allons supposer que nous connaissons déjà une solution particulière.

Soit   sol[x,y]   cette  solution

"D[sol[x,y],x]*dx+D[sol[x,y],y]*dy" ==m[x,y]*dx +n[x,y]*dy

en isolant les termes dépendant de  dx

"D[sol[x,y],x]"==m[x,y]*dx

Puis en intégrant les deux membres de l'égalité, pour faire disparaitre les différentiel.
 et en ajoutant b[x,y], correspondand à la partie encore inconnue
  de la solution particulière rechercher.

sol[x,y]=Integrate[m[x,y],x]+b[x,y]

or nous avons vue plus haut que :

D[sol[x,y],y] = n[x,y] 

                                 D[sol[x,y],y]-n[x,y] = 0

D[sol[x,y],y]*dy-n[x,y]*dy;
Simplify[%/dy]

Integrons le résultat pour trouver b[x,y]

Integrate[%,y]

La solution générale est

b[x,y] = -(0);

sol[x,y]= Integrate[m[x,y],x]+b[x,y]
 
Verifions, si nous retrouvons bien l'equation de depart :

Expand[Simplify[(D[sol[x,y],x]*dx+D[sol[x,y],y]*dy)/facT]];

Collect[%,dx];
Collect[%,dy]

mT[x,y] dx +nT[x,y] dy
 
</pre>
}}

=== Ex : x^2+y^2 dx + 2*x*y+x^2 dy =0 === 



{{Boîte déroulante|titre=Le code Mathematica |contenu=
<pre>

Equations du premier ordre et du premier degre.

 (Equations non exactes : Homogene)

alors  (1/(m x + n y))  est un facteur intégrant.

 
Initialisation.

mT[x_,y_]:=x^2+y^2;
nT[x_,y_]:=2*x*y+x^2;

mT[x,y]*dx +nT[x,y]*dy

Vérifions si l'équation est exacte :

D[mT[x,y],y]
D[nT[x,y],x]

 Il faut rechercher un facteur intégrant !

facT =Simplify[ 1 /  (x*mT[x,y]+y* nT[x,y])]

Voici la nouvelle équation :

m[x_,y_]:=Expand[facT * mT[x,y]];
n[x_,y_]:=Expand[facT * nT[x,y]];

m[x,y]*dx +n[x,y]*dy

Vérifions si l'équation est exacte : 

Simplify[D[m[x,y],y]]
Simplify[D[n[x,y],x]]

Nous allons supposer que nous connaissons déjà une solution particulière.

Soit   sol[x,y]   cette  solution

"D[sol[x,y],x]*dx+D[sol[x,y],y]*dy" ==m[x,y]*dx +n[x,y]*dy

en isolant les termes dépendant de  dx

"D[sol[x,y],x]"==m[x,y]*dx

Puis en intégrant les deux membres de l'égalité, pour faire disparaitre les différentiel.
 et en ajoutant b[x,y], correspondand à la partie encore inconnue
  de la solution particulière rechercher.

sol[x,y]=Simplify[Integrate[m[x,y],x]+b[x,y]]

or nous avons vue plus haut que :

D[sol[x,y],y] = n[x,y] 

                                 D[sol[x,y],y]-n[x,y] = 0

D[sol[x,y],y]*dy-n[x,y]*dy;
Simplify[%/dy]

Integrons le résultat pour trouver b[x,y]

Integrate[%,y]

La solution générale est

b[x,y] = -(0);

sol[x,y]= Integrate[m[x,y],x]+b[x,y]+C
 
Verifions, si nous retrouvons bien l'equation de depart :

Expand[Simplify[(D[sol[x,y],x]*dx+D[sol[x,y],y]*dy)/facT]];

Collect[%,dx];
Collect[%,dy]

mT[x,y] dx +nT[x,y] dy
 

</pre>
}}


=== Ex : 2*y-3*x dx + x dy = 0 === 

{{Boîte déroulante|titre=Le code Mathematica |contenu=
<pre>

Equations du premier ordre et du premier degre.

 (Equations non exactes : Homogene)

alors  (1/(m x + n y))  est un facteur intégrant.

 
Initialisation.

mT[x_,y_]:=2*y-3*x;
nT[x_,y_]:=x;

mT[x,y]*dx +nT[x,y]*dy

Vérifions si l'équation est exacte :

D[mT[x,y],y]
D[nT[x,y],x]

 Il faut rechercher un facteur intégrant !

facT =Simplify[ 1 /  (x*mT[x,y]+y* nT[x,y])]

Voici la nouvelle équation :

m[x_,y_]:=Expand[facT * mT[x,y]];
n[x_,y_]:=Expand[facT * nT[x,y]];

m[x,y]*dx +n[x,y]*dy

Vérifions si l'équation est exacte :
 
Simplify[D[m[x,y],y]]
Simplify[D[n[x,y],x]]

Nous allons supposer que nous connaissons déjà une solution particulière.

Soit   sol[x,y]   cette  solution

"D[sol[x,y],x]*dx+D[sol[x,y],y]*dy" ==m[x,y]*dx +n[x,y]*dy

en isolant les termes dépendant de  dx

"D[sol[x,y],x]"==m[x,y]*dx

Puis en intégrant les deux membres de l'égalité, pour faire disparaitre les différentiel.
 et en ajoutant b[x,y], correspondand à la partie encore inconnue
  de la solution particulière rechercher.

sol[x,y]=Simplify[Integrate[m[x,y],x]+b[x,y]]

or nous avons vue plus haut que :

D[sol[x,y],y] = n[x,y] 

                                 D[sol[x,y],y]-n[x,y] = 0

D[sol[x,y],y]*dy-n[x,y]*dy;
Simplify[%/dy]

Integrons le résultat pour trouver b[x,y]

Integrate[%,y]

La solution générale est

b[x,y] = -(0);

sol[x,y]= Integrate[m[x,y],x]+b[x,y]+C
 
Verifions, si nous retrouvons bien l'equation de depart :

Expand[Simplify[(D[sol[x,y],x]*dx+D[sol[x,y],y]*dy)/facT]];

Collect[%,dx];
Collect[%,dy]

mT[x,y] dx +nT[x,y] dy
 
</pre>
}}

=== Ex : y*(x+y) dx + x^2 dy = 0 === 


{{Boîte déroulante|titre=Le code Mathematica |contenu=
<pre>

Equations du premier ordre et du premier degre.

 (Equations non exactes : Homogene)

alors  (1/(m x + n y))  est un facteur intégrant.

 
Initialisation.

mT[x_,y_]:=y*(x+y);
nT[x_,y_]:=-x^2;

mT[x,y]*dx +nT[x,y]*dy

Vérifions si l'équation est exacte :

D[mT[x,y],y]
D[nT[x,y],x]

 Il faut rechercher un facteur intégrant !

facT =Simplify[ 1 /  (x*mT[x,y]+y* nT[x,y])]

Voici la nouvelle équation :

m[x_,y_]:=Expand[facT * mT[x,y]];
n[x_,y_]:=Expand[facT * nT[x,y]];

m[x,y]*dx +n[x,y]*dy

Vérifions si l'équation est exacte : 

Simplify[D[m[x,y],y]]
Simplify[D[n[x,y],x]]

Nous allons supposer que nous connaissons déjà une solution particulière.

Soit   sol[x,y]   cette  solution

"D[sol[x,y],x]*dx+D[sol[x,y],y]*dy" ==m[x,y]*dx +n[x,y]*dy

en isolant les termes dépendant de  dx

"D[sol[x,y],x]"==m[x,y]*dx

Puis en intégrant les deux membres de l'égalité, pour faire disparaitre les différentiel.
 et en ajoutant b[x,y], correspondand à la partie encore inconnue
  de la solution particulière rechercher.

sol[x,y]=Simplify[Integrate[m[x,y],x]+b[x,y]]

or nous avons vue plus haut que :

D[sol[x,y],y] = n[x,y] 

                                 D[sol[x,y],y]-n[x,y] = 0

D[sol[x,y],y]*dy-n[x,y]*dy;
Simplify[%/dy]

Integrons le résultat pour trouver b[x,y]

Integrate[%,y]

La solution générale est

b[x,y] = -(0);

sol[x,y]= Integrate[m[x,y],x]+b[x,y]+C
 
Verifions, si nous retrouvons bien l'equation de depart :

Expand[Simplify[(D[sol[x,y],x]*dx+D[sol[x,y],y]*dy)/facT]];

Collect[%,dx];
Collect[%,dy]

mT[x,y] dx +nT[x,y] dy
 
</pre>
}}

== Conclusion ==

{{Bas de page|idfaculté = informatique
|précédent = [[../Equation exacte 5/]]
|suivant   = [[../Equation linéaire 1/]]}}