User Portlet
| Discussions |
|---|
| I hope this is better l = 1; P = 381; S = 0.5; Z = 1 - S; B = 100; Ks = 1000; NDSolve[{B*x''[t] + P*Z*Sin[x[t]] + P*S*Sin[x[t] + y[t]] == 0, Ks*S^2*Sin[y[t]]*Cos[y[t]] - P*S*Sin[x[t] + y[t]] ==... |
User Portlet | Discussions |
|---|
| I hope this is better l = 1; P = 381; S = 0.5; Z = 1 - S; B = 100; Ks = 1000; NDSolve[{B*x''[t] + P*Z*Sin[x[t]] + P*S*Sin[x[t] + y[t]] == 0, Ks*S^2*Sin[y[t]]*Cos[y[t]] - P*S*Sin[x[t] + y[t]] ==... |