Revision 351696 of "Mathematica Home Edition/Variables Séparables" on frwikiversity

{{Chapitre
|clé=variables separables
  | idfaculté = informatique
  | précédent = [[../Matrice Identité/]]
  | suivant   = [[../Equation Homogène/]]
  | niveau    = 15
  | numéro    = 6
}}

== 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 variables séparées).

Dans un premier temps, j'ai choisi le facteur intégrant manuellement. Dans un deuxième temps, j'ai essayé de coder en mathematica une méthode automatique.  Dans un troisième temps, j'ai essayé d'introduire une troisième variable par curiosité.

== Etude ==

=== Facteur Intégrant (manuel) ===



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

Equations du premier ordre et du premier degre.

 (Cas des variables separees)
 
Voici l'equation a etudier :
m=x^2*(y+1);
n=y^2*(x-1);

m dx +n dy
 
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 :
factor =1/(1)
L'equation s'ecrira : 
m=m factor ;
n=n factor ;

m dx +n dy
D'ou l'on tirera la primitive par integration.
resultat = Integrate[m, x] + Integrate[n, y]
 
Verifions, si nous retrouvons bien l' equation de depart :
Factor[D[resultat,x]]*dx+Factor[D[resultat,y]]*dy

m dx +n dy

</pre>
}}

=== Facteur Intégrant (auto) ===



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

Equations du premier ordre et du premier degre.

 (Cas des variables separees)
 
Voici l'equation a etudier :
m=x^2*(y+1);
n=y^2*(x-1);

m dx +n dy
 
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 :
factor =a^4/(Select[a^2*m,FreeQ[#,x]&] 
                        Select[a^2*n,FreeQ[#,y]&])
L'equation s'ecrira : 
m=m factor ;
n=n factor ;

m dx +n dy
D'ou l'on tirera la primitive par integration.
resultat = Integrate[m, x] + Integrate[n, y]
 
Verifions, si nous retrouvons bien l' equation de depart :
Factor[D[resultat,x]]*dx+Factor[D[resultat,y]]*dy

m dx +n dy
 
</pre>
}}

=== m = x ===



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

</pre>
}}

=== m = 1 ===

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

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

</pre>
}}

=== Trois variables (jeux) ===



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

 (Variables separees)
 
Voici l'equation a etudier :
m=x                                         *(3*z^2-1)    *y^2;
n=y^2  *(x^2-3)^3     *(3*z^2-1);
p=z^3  *(x^2-3)^3                                       *y^2;

m dx +n dy+p dz
 
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 :
factor =1/((x^2-3)^3     *(3*z^2-1) *y^2)
L'equation s'ecrira : 
m=m factor ;
n=n factor ;
p=p factor ;

m dx +n dy+p dz
D'ou l'on tirera la primitive par integration.
resultat = Integrate[m, x] + Integrate[n, y]+ Integrate[p, z]
 
Verifions, si nous retrouvons bien l' equation de depart :
Factor[D[resultat,x]]*dx+
Factor[D[resultat,y]]*dy+
Simplify[D[resultat,z]]*dz

m dx +n dy+p dz

</pre>
}}

== Conclusion ==

Ce travail sera utilisé dans l'étude d'autres types d'équations différentielles.

{{Bas de page|idfaculté = informatique
|précédent = [[../Matrice Identité/]]
|suivant   = [[../Equation Homogène/]]}}