 |
Apprendre Maple Site dédié au logiciel de calcul formel Maple
|
Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
alex
Inscrit le: 09 Juin 2007 Messages: 5
|
Posté le: 10 Juin 2007 17:29 Sujet du message: TIPE sur trébuchet : pbm résoudre un système d'équadif maple |
|
|
bonjour je suis en 1 ère année et je fais un exposé sur le trébuchet, malgrès une bonne dizaine d'heure passé devant mon ordinateur à scruter toutes les pages du net pour trouver ma réponse en vain. Je fais appel à vous j'espere que vous pourrez m'aider!
Donc voici mon system d'équadiff: je cherche th(t) et phi(t)
eq1:={-0.30*0.19*45*(phi2+2*th2)*Cos(phi(t)) + 0.30*0.19*45*phi2*(phi2+2*th1)*Sin(phi(t)) + 1/6*(6*0.19^2*45*phi2 + 6*0.30^2*45*th2 + 6*0.19^2*45*th2 + 6*1.21^2*0.45*th2 + 2*0.19^2*1*th2 - 2*0.30*1.21*4*th2 + 2*1.21^2*1*th2 + 6*9.8*0.30*45*Sin(th(t)) - 6*9.8*1.21*0.45*Sin(th(t)) + 3*9.8*0.30*1*Sin(th(t)) -
> 3*9.8*1.21*1*Sin(th(t)) - 6*9.8*0.19*45*Sin(phi(t) + th(t)))=0, 0.19*45*(0.19*phi2 + 0.19*th2 - 0.30*th2*Cos(phi(t)) - 0.30*(th1^2)*Sin(phi(t)) -
> 9.8*Sin(phi(t) + th(t))) = 0}: eq1;
avec phi2=phi'' phi1=phi' th2...
et phi(0)=/4 et th(0)=3/4 et th'(0)=phi(0)=0
est-il possible de le résoudre avec maple juste de façon numérique?
Mes essais n'ont pas été concluant car les fonction dsolve ou fsolve ne sont que pour un systeme d'équations différentielles linéaires ordinaires(ODE).
Auriez vous une solution ? |
|
Revenir en haut de page |
|
 |
zozo
Inscrit le: 03 Jan 2013 Messages: 125
|
Posté le: 10 Juin 2007 17:49 Sujet du message: |
|
|
Bonsoir,
déjà commence par remplacer Sin par sin, Cos par cos, th2 par diff(th(t),t$2), etc...
et phi(0)=/4??? phi(0)=0??? (il faudrait peut-être se mettre d'accord)
A+ |
|
Revenir en haut de page |
|
 |
prof_simplet
Inscrit le: 12 Sep 2006 Messages: 86
|
Posté le: 10 Juin 2007 18:03 Sujet du message: |
|
|
Code: |
> eq1:=-0.30*0.19*45*(diff(phi(t),t$2)+2*diff(th(t),t$2))*cos(phi(t)) +0.30*0.19*45*diff(phi(t),t$2)*(diff(phi(t),t$2)+2*diff(th(t),t))*sin(phi(t)) + 1/6*(6*0.19^2*45*diff(phi(t),t$2) + 6*0.30^2*45*diff(th(t),t$2) + 6*0.19^2*45*diff(th(t),t$2) + 6*1.21^2*0.45*diff(th(t),t$2) + 2*0.19^2*1*diff(th(t),t$2) - 2*0.30*1.21*4*diff(th(t),t$2) + 2*1.21^2*1*diff(th(t),t$2) + 6*9.8*0.30*45*sin(th(t)) - 6*9.8*1.21*0.45*sin(th(t)) + 3*9.8*0.30*1*sin(th(t)) - 3*9.8*1.21*1*sin(th(t)) - 6*9.8*0.19*45*sin(phi(t) + th(t)))=0, 0.19*45*(0.19*diff(phi(t),t$2) + 0.19*diff(th(t),t$2) - 0.30*diff(th(t),t$2)*cos(phi(t)) - 0.30*(diff(th(t),t)^2)*sin(phi(t)) - 9.8*sin(phi(t) + th(t))) = 0;
|
|
|
Revenir en haut de page |
|
 |
alex
Inscrit le: 09 Juin 2007 Messages: 5
|
Posté le: 10 Juin 2007 18:22 Sujet du message: |
|
|
ça je l'avez déja fait en faite c'était pour simplifier l'équation
eq1:={-2.5650*((diff(phi(t), `$`(t, 2)))+2*(diff(th(t), `$`(t, 2))))*Cos(phi(t))+2.5650*(diff(phi(t), `$`(t, 2)))*((diff(phi(t), `$`(t, 2)))+2*(diff(th(t), t)))*Sin(phi(t))+1.624500000*(diff(phi(t), `$`(t, 2)))+6.349411667*(diff(th(t), `$`(t, 2)))+122.5049000*Sin(th(t))-83.79000000*Sin(phi(t)+th(t)) = 0,
1.6245*(diff(phi(t), `$`(t, 2)))+1.6245*(diff(th(t), `$`(t, 2)))-2.5650*(diff(th(t), `$`(t, 2)))*Cos(phi(t))-2.5650*(diff(th(t), t))^2*Sin(phi(t))-83.790*Sin(phi(t)+th(t)) = 0}
après je fais:
vars:={phi(t),th(t)}:vars; et puis
c_init:=(phi(0)=3*3.14/4,th(0)=3.14/4,th1(0)=0,phi1(0)=0) ; et puis
sol:=dsolve({eq1 union phi(0)=3*3.14/4,th(0)=3.14/4,th1(0)=0,phi1(0)=0}, numeric ,vars);
et la un message d'erreur me dit:
Error, (in dsolve/numeric/process_input) input system must be an ODE system, got independent variables {th(t), phi(t), t, phi(t)+th(t)}
je n'arrive pas à interpréter ce message |
|
Revenir en haut de page |
|
 |
zozo
Inscrit le: 03 Jan 2013 Messages: 125
|
Posté le: 10 Juin 2007 18:50 Sujet du message: |
|
|
Ca ne fonctionnera pas si tu laisses th1(0)=0,phi1(0)=0 dans les conditions initiales. |
|
Revenir en haut de page |
|
 |
alex
Inscrit le: 09 Juin 2007 Messages: 5
|
Posté le: 10 Juin 2007 18:54 Sujet du message: |
|
|
en faite à l'origine j'ai posé:
phi2:=diff(diff(phi(t),t),t);
th2:= diff(diff(th(t),t),t);
phi1:= diff(phi(t),t);
th1:=diff(th(t),t);
et il me prend bien mes conditions initiales
c_init:=(phi(0)=3*3.14/4,th(0)=3.14/4,th1(0)=0,phi1(0)=0)
c_init := phi(0) = 2.355000000, th(0) = .7850000000, diff(th(t), t)(0) = 0, diff(phi(t), t)(0) = 0 |
|
Revenir en haut de page |
|
 |
alex
Inscrit le: 09 Juin 2007 Messages: 5
|
Posté le: 10 Juin 2007 20:14 Sujet du message: |
|
|
mais si ce n'est pas solvable par maple dite le moi merci! |
|
Revenir en haut de page |
|
 |
ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 11 Juin 2007 11:26 Sujet du message: |
|
|
Bonjour, Maple ne donne rien pour résultat (patientez un peu pour la dernière instruction).
Code: |
> eq1:=-0.30*0.19*45*(diff(phi(t),t$2)+2*diff(th(t),t$2))*cos(phi(t)) +0.30*0.19*45*diff(phi(t),t$2)*(diff(phi(t),t$2)+2*diff(th(t),t))*sin(phi(t)) + 1/6*(6*0.19^2*45*diff(phi(t),t$2) + 6*0.30^2*45*diff(th(t),t$2) + 6*0.19^2*45*diff(th(t),t$2) + 6*1.21^2*0.45*diff(th(t),t$2) + 2*0.19^2*1*diff(th(t),t$2) - 2*0.30*1.21*4*diff(th(t),t$2) + 2*1.21^2*1*diff(th(t),t$2) + 6*9.8*0.30*45*sin(th(t)) - 6*9.8*1.21*0.45*sin(th(t)) + 3*9.8*0.30*1*sin(th(t)) - 3*9.8*1.21*1*sin(th(t)) - 6*9.8*0.19*45*sin(phi(t) + th(t)))=0, 0.19*45*(0.19*diff(phi(t),t$2) + 0.19*diff(th(t),t$2) - 0.30*diff(th(t),t$2)*cos(phi(t)) - 0.30*(diff(th(t),t)^2)*sin(phi(t)) - 9.8*sin(phi(t) + th(t))) = 0;
>
// 2 \ / 2 \\
||d | |d ||
eq1 := -2.5650 ||--- phi(t)| + 2 |--- th(t)|| cos(phi(t)) +
|| 2 | | 2 ||
\\dt / \dt //
/ 2 \ // 2 \ \
|d | ||d | /d \|
2.5650 |--- phi(t)| ||--- phi(t)| + 2 |-- th(t)|| sin(phi(t))
| 2 | || 2 | \dt /|
\dt / \\dt / /
/ 2 \ / 2 \
|d | |d |
+ 1.624500000 |--- phi(t)| + 6.349411667 |--- th(t)|
| 2 | | 2 |
\dt / \dt /
+ 122.5049000 sin(th(t)) - 83.79000000 sin(phi(t) + th(t))
/ 2 \ / 2 \
|d | |d |
= 0, 1.6245 |--- phi(t)| + 1.6245 |--- th(t)|
| 2 | | 2 |
\dt / \dt /
/ 2 \
|d |
- 2.5650 |--- th(t)| cos(phi(t))
| 2 |
\dt /
/d \2
- 2.5650 |-- th(t)| sin(phi(t))
\dt /
- 83.790 sin(phi(t) + th(t)) = 0
> c_init:=phi(0)=3*Pi/4,th(0)=Pi/4,D(th)(0)=0,D(phi)(0)=0;
3 Pi Pi
c_init := phi(0) = ----, th(0) = ----, D(th)(0) = 0, D(phi)(0) = 0
4 4
> dsolve({eq1,c_init},{th(t),phi(t)});
|
|
|
Revenir en haut de page |
|
 |
alex
Inscrit le: 09 Juin 2007 Messages: 5
|
Posté le: 11 Juin 2007 11:45 Sujet du message: |
|
|
et de façon numérique vous pensez que ça pourrait marcher? |
|
Revenir en haut de page |
|
 |
ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 11 Juin 2007 17:15 Sujet du message: |
|
|
Ca peut valoir le coup d'essayer... |
|
Revenir en haut de page |
|
 |
|
|
Vous ne pouvez pas poster de nouveaux sujets dans ce forum Vous ne pouvez pas répondre aux sujets dans ce forum Vous ne pouvez pas éditer vos messages dans ce forum Vous ne pouvez pas supprimer vos messages dans ce forum Vous ne pouvez pas voter dans les sondages de ce forum
|

Développé par phpBB © 2001, 2006 phpBB Group
Traduction par : phpBB-fr.com
Apprendre Maple - © 10/07/2025
- Alain Le Stang - Navigation optimisée pour une résolution 1024 x 768.
|