ElectroYou

Come si risolve questa equazione numericamente in mathematica?

$s''(t) \left(\frac{I_g}{R^2}+M\right)-g M \sin (\theta )+k s(t)=0$

Prova così:

Codice: Seleziona tutto: IG = 1; R = 1; k = 1; M = 1; g = 9.81; Theta = Pi/3; EXT = 20; INIT0 = 0; INIT1 = 0; s = NDSolve[{y''[x]*(IG/R^2 + M) + k*y[x] - g*M*Sin[Theta] == 0, y[0] == INIT0, y'[0] == INIT1}, y, {x, 0, EXT}] Plot[Evaluate[y[x] /. s], {x, 0, EXT}, PlotRange -> All]

La equazione differenziale verrà integrata per $x\in (0,EXT)$ .
Vedi tu come definire tutte le variabili, condizioni iniziali INIT0 e INIT1 comprese.

Ciao,
Pietro.

grazie mille

non è che potresti indicarmi cosa scrivere per risolvere questo sistema???

$\left\{-g M \sin (\theta )+k s(t)+p'(t)=0,s'(t)-\frac{p(t)}{\frac{I_g}{R^2}+M}=0\right\}$