Recursion depth
- To: mathgroup at smc.vnet.net
- Subject: [mg49866] Recursion depth
- From: mathma18 at hotmail.com (Narasimham G.L.)
- Date: Wed, 4 Aug 2004 10:47:04 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Recursion depth exceeded while trying to solve four simultaneous ODEs.
How to fix this? TIA.
Clear[s,si2,r2,th2,ph2,si,r,th,ph];
equns={si2''[s]==-Sin[si2[s]]*Sin[ph2[s]],
si2'[0]==.2, si2[0]==-1.5,
ph2'[s]== -Cos[ph2[s]]*Cos[si2[s]]/r2[s],ph2[0]==-.01,
r2'[s]==Cos[si2[s]],r2[0]==1.25,
th2'[s]==Sin[si2[s]]/r2[s],th2[0]== 1};
NDSolve[equns,{si2,r2,th2,ph2},{s,0,1}];