bonjour à tous,
Je rencontre actuellement un problème sur mathematica. Je souhaiterai obtenir un graphe lorsque ma fonction satisfait deux conditions. J'ai résolu les équations differentielles (non linéaires) du mouvement:
ed1= a''(t) + (m2/(m1 + m2))*(l2/l1)*b''[t]*cos[a[t] -b[t]] + (m2/(m1 + m2))*(l2/l1)*(b'[t]^2)*sin[a[t] - b[t]] + (g/l1)*Sin[a[t]] = 0,
ed2=(l2/l1)*b''[t] + a''[t]*cos[a[t] - b[t]] - (a'[t]^2)*sin[a[t] -b[t]] + (g/l1)*sin[b[t]]=0.
J'obtiens le resultat :
{{a -> InterpolatingFunction[{{0.,43}},<>],b-> InterpolatingFunction[{{0.,43}},<>]}}.
Je veux obtenir le graphe de a'[t] en fonction de a[t] lorque b'[t]=0 et a'[t]*cos[a[t]]>0. Est ce que quelqu'un peut m'aider ? Je rencontre egalement un autre problème: je souhaite aussi tracer λ =lim(n→infini) (1/n)*(somme de i=0 à n-1)de |alpha'(ti)| en fonction de t et là je bloque completement. Pouvez vous m'aider ? Merci d'avance
-----