Revision 351697 of "Mathematica Home Edition/Equation Homogène" on frwikiversity

{{Chapitre
|clé=equation homogene
  | idfaculté = informatique
  | précédent = [[../Variables Séparables/]]
  | suivant   = [[../Equation Non Homogène 1/]]
  | niveau    = 15
  | numéro    = 7
}}

== Présentation ==

Ce travail se base sur le quatrième chapitre du livre de '''"Frank Ayres Jr" "Equations différentielles " Serie Schaum'''.

Dans ce chapitre nous allons voir les équations du premier ordre et du premier degré (Cas des équations homogenes).

== Etudes ==

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



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

Equations du premier ordre et du premier degre.

(Equations homogenes)
 
Nous voyons que  l'equation est homogene.

m=x^3+y^3;
n=-3*x*y^2;

m dx +n dy

Appliquons  la transformation :
y -> v x
dy -> v dx + x dv 

((m/.y->v*x)dx +(n/.y->v*x) dy)/.dy->v*dx+x*dv

 Essayons de simplifier  le resultat :

Factor[%]

Simplifions par le facteur commun.

%/-x^3

Arrangeons l'equation :

Collect[%,dx];
Collect[%,dv]

Voici la nouvelle equation a etudier.

Entrez manuellement les valeurs de P et Q 
en utilisant eventuellement Copy/Paste

p=-1+2 v^3;
q=3 v^2 x;

p dx +q dv
 
Les variables de l'equation sont dites separees, 
car l'equation peut s'ecrire sous la forme :

 f1(x) g2(y) + f2(x) g1(y) = 0
 
En multipliant par le facteur integrant :

facteur =a^4/(Select[a^2*p,FreeQ[#,x]&] 
                          Select[a^2*q,FreeQ[#,v]&])

L'equation s'ecrira : 

p=facteur p;
q=facteur q;

p dx +q dv

D'ou l'on tirera la primitive par integration.

 Integrate[p,x] + Integrate[q,v]

Refaisons apparaitre y:

sol=% /.v->y/x
 
Verifions, si nous retrouvons bien l' equation de depart :

Simplify[D[sol,x]*dx+D[sol,y]*dy]

Denominator[%]*%

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

m dx +n dy
 
</pre>
}}


=== Ex : (-Sqrt[x^2+y^2]-y) dx + (x) dy ===

[[Fichier:M04b2.ogv|thumb|M04b2]]

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


Equations du premier ordre et du premier degre.

(Equations homogenes)
 
Nous voyons que  l'equation est homogene.

m=-Sqrt[x^2+y^2]-y;
n=x;

m dx +n dy

Appliquons  la transformation :
y -> v x

dy -> v dx + x dv 

((m/.y->v*x)dx +(n/.y->v*x) dy)/.dy->v*dx+x*dv

 Essayons de simplifier  le resultat :

Simplify[%,x>0]

Simplifions par le facteur commun.

%/x

Arrangeons l'equation :

Collect[%,dx];
Collect[%,dv]

Voici la nouvelle equation a etudier.

Entrez manuellement les valeurs de P et Q 
en utilisant eventuellement Copy/Paste

p=-Sqrt[1+v^2];
q=x;

p dx +q dv
 
Les variables de l'equation sont dites separees, 
car l'equation peut s'ecrire sous la forme :

 f1(x) g2(y) + f2(x) g1(y) = 0
 
En multipliant par le facteur integrant :

facteur =a^4/(Select[a^2*p,FreeQ[#,x]&] 
                          Select[a^2*q,FreeQ[#,v]&])

L'equation s'ecrira : 

p=facteur p;
q=facteur q;

p dx +q dv

D'ou l'on tirera la primitive par integration.

 Integrate[p,x] + Integrate[q,v]

Refaisons apparaitre y:

sol=% /.v->y/x
 
Verifions, si nous retrouvons bien l' equation de depart :

Simplify[D[sol,x]*dx+D[sol,y]*dy]

Denominator[%]*%

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

m dx +n dy
 
</pre>
}}


=== Ex : (2*x*Sin[y/x]+3*y*Cos[y/x]) dx - (3*x*Cos[y/x]) dy ===

[[Fichier:M04b3.ogv|thumb|M04b3]]

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

Equations du premier ordre et du premier degre.

(Equations homogenes)
 
Nous voyons que  l'equation est homogene.

m=2*x*Sin[y/x]+3*y*Cos[y/x];
n=-3*x*Cos[y/x];

m dx +n dy

Appliquons  la transformation :
y -> v x

dy -> v dx + x dv 

((m/.y->v*x)dx +(n/.y->v*x) dy)/.dy->v*dx+x*dv


 Essayons de simplifier  le resultat :

Factor[%]

Simplifions par le facteur commun.

%/-x

Arrangeons l'equation :

Collect[%,dx];
Collect[%,dv]

Voici la nouvelle equation a etudier.

Entrez manuellement les valeurs de P et Q 
en utilisant eventuellement Copy/Paste

p=-2 Sin[v];
q=3 x  Cos[v];

p dx +q dv
 
Les variables de l'equation sont dites separees, 
car l'equation peut s'ecrire sous la forme :

 f1(x) g2(y) + f2(x) g1(y) = 0
 
En multipliant par le facteur integrant :

facteur =a^4/(Select[a^2*p,FreeQ[#,x]&] 
                          Select[a^2*q,FreeQ[#,v]&])

L'equation s'ecrira : 

p=facteur p;
q=facteur q;

p dx +q dv

D'ou l'on tirera la primitive par integration.

 Integrate[p,x] + Integrate[q,v]

Refaisons apparaitre y:

sol=% /.v->y/x
 
Verifions, si nous retrouvons bien l' equation de depart :

Simplify[D[sol,x]*dx+D[sol,y]*dy]

Denominator[%]*%

TrigReduce[%*Sin[y/x]]

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

m dx +n dy

</pre>
}}


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

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

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


Equations du premier ordre et du premier degre.

(Equations homogenes)
 
Nous voyons que  l'equation est homogene.

m=2*x+3*y;
n=y-x;

m dx +n dy

Appliquons  la transformation :
y -> v x

dy -> v dx + x dv 

((m/.y->v*x)dx +(n/.y->v*x) dy)/.dy->v*dx+x*dv

 Essayons de simplifier  le resultat :

Factor[%]

Simplifions par le facteur commun.

%/x

Arrangeons l'equation :

Collect[%,dx];
Collect[%,dv]

Voici la nouvelle equation a etudier.

Entrez manuellement les valeurs de P et Q 
en utilisant eventuellement Copy/Paste

p=(2+2 v+v^2);
q=Factor[-x+v x];

p dx +q dv
 
Les variables de l'equation sont dites separees, 
car l'equation peut s'ecrire sous la forme :

 f1(x) g2(y) + f2(x) g1(y) = 0
 
En multipliant par le facteur integrant :

facteur =a^4/(Select[a^2*p,FreeQ[#,x]&] 
                          Select[a^2*q,FreeQ[#,v]&])

L'equation s'ecrira : 

p=facteur p;
q=facteur q;

p dx +q dv

D'ou l'on tirera la primitive par integration.

 Integrate[p,x] + Integrate[q,v]

Refaisons apparaitre y:

sol=% /.v->y/x
 
Verifions, si nous retrouvons bien l' equation de depart :

Simplify[D[sol,x]*dx+D[sol,y]*dy]

Denominator[%]*%

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

m dx +n dy
 
</pre>
}}


=== Ex : dx + dy ===

[[Fichier:M04b5.ogv|thumb|M04b5]]

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


Equations du premier ordre et du premier degre.

(Equations homogenes)
 
Nous voyons que  l'equation est homogene.

m=1;
n=1;

m dx +n dy

Appliquons  la transformation :
y -> v x
dy -> v dx + x dv 

((m/.y->v*x)dx +(n/.y->v*x) dy)/.

dy->v*dx+x*dv

Arrangeons l'equation :

Collect[%,dx];
Collect[%,dv]

Voici la nouvelle equation a etudier.

Entrez manuellement les valeurs de P et Q 
en utilisant eventuellement Copy/Paste

p=(1+v);
q=x;

p dx +q dv
 
Les variables de l'equation sont dites separees, 
car l'equation peut s'ecrire sous la forme :

 f1(x) g2(y) + f2(x) g1(y) = 0
 
En multipliant par le facteur integrant :

facteur =a^4/(Select[a^2*p,FreeQ[#,x]&] 
                          Select[a^2*q,FreeQ[#,v]&])

L'equation s'ecrira : 

p=facteur p;
q=facteur q;

p dx +q dv

D'ou l'on tirera la primitive par integration.

 Integrate[p,x] + Integrate[q,v]

Refaisons apparaitre y:

sol=% /.v->y/x
 
Verifions, si nous retrouvons bien l' equation de depart :

Simplify[D[sol,x]*dx+D[sol,y]*dy]

Denominator[%]*%

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

m dx +n dy
 
</pre>
}}

== Conclusion ==

Le dernier exemple me semble possible que dans le cadre de Mathematica.

{{Bas de page|idfaculté = informatique
|précédent = [[../Variables Séparables/]]
|suivant   = [[../Equation Non Homogène 1/]]}}