Apprendre Maple Index du Forum Apprendre Maple
Site dédié au logiciel de calcul formel Maple
 
  Page d'accueilPage d'accueil   FAQFAQ    RechercherRechercher    Liste des MembresListe des Membres    Groupes d'utilisateursGroupes d'utilisateurs 
S'enregistrerS'enregistrer    ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

TIPE sur trébuchet : pbm résoudre un système d'équadif maple

 
Poster un nouveau sujet   Répondre au sujet    Apprendre Maple Index du Forum -> Maple en analyse
Voir le sujet précédent :: Voir le sujet suivant  
Auteur Message
alex



Inscrit le: 09 Juin 2007
Messages: 5

MessagePosté le: 10 Juin 2007 17:29    Sujet du message: TIPE sur trébuchet : pbm résoudre un système d'équadif maple Répondre en citant

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
Voir le profil de l'utilisateur Envoyer un message privé  
zozo



Inscrit le: 03 Jan 2013
Messages: 125

MessagePosté le: 10 Juin 2007 17:49    Sujet du message: Répondre en citant

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
Voir le profil de l'utilisateur Envoyer un message privé  
prof_simplet



Inscrit le: 12 Sep 2006
Messages: 86

MessagePosté le: 10 Juin 2007 18:03    Sujet du message: Répondre en citant

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
Voir le profil de l'utilisateur Envoyer un message privé  
alex



Inscrit le: 09 Juin 2007
Messages: 5

MessagePosté le: 10 Juin 2007 18:22    Sujet du message: Répondre en citant

ç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
Voir le profil de l'utilisateur Envoyer un message privé  
zozo



Inscrit le: 03 Jan 2013
Messages: 125

MessagePosté le: 10 Juin 2007 18:50    Sujet du message: Répondre en citant

Ca ne fonctionnera pas si tu laisses th1(0)=0,phi1(0)=0 dans les conditions initiales.
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé  
alex



Inscrit le: 09 Juin 2007
Messages: 5

MessagePosté le: 10 Juin 2007 18:54    Sujet du message: Répondre en citant

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
Voir le profil de l'utilisateur Envoyer un message privé  
alex



Inscrit le: 09 Juin 2007
Messages: 5

MessagePosté le: 10 Juin 2007 20:14    Sujet du message: Répondre en citant

mais si ce n'est pas solvable par maple dite le moi merci!
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé  
ALS



Inscrit le: 11 Sep 2006
Messages: 647

MessagePosté le: 11 Juin 2007 11:26    Sujet du message: Répondre en citant

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
Voir le profil de l'utilisateur Envoyer un message privé  
alex



Inscrit le: 09 Juin 2007
Messages: 5

MessagePosté le: 11 Juin 2007 11:45    Sujet du message: Répondre en citant

et de façon numérique vous pensez que ça pourrait marcher?
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé  
ALS



Inscrit le: 11 Sep 2006
Messages: 647

MessagePosté le: 11 Juin 2007 17:15    Sujet du message: Répondre en citant

Ca peut valoir le coup d'essayer...
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé  
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre Maple Index du Forum -> Maple en analyse Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  
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


phpBB

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.