Re: what is the general theory of extracting solutions from DSolve (and similar) functions
- To: mathgroup at smc.vnet.net
- Subject: [mg45567] Re: what is the general theory of extracting solutions from DSolve (and similar) functions
- From: "Peltio" <peltio at twilight.zone>
- Date: Wed, 14 Jan 2004 01:26:21 -0500 (EST)
- References: <bu0dma$an4$1@smc.vnet.net>
- Reply-to: "Peltio" <peltioNOSP at Miname.com.invalid>
- Sender: owner-wri-mathgroup at wolfram.com
"steve_H" wrote >I am learning Mathematica (Mathematica 5.0) and I am having hard time finding >a general method that works everytime to extract solutions >from output of DSolve and other Mathematica functions that generates >solutions in the same format. Perhaps this is what you are looking for? I can't test it right now on the output of DSolve, but when I tested it on Solve's output it did work right (I might be overlooking something essential, though). I wonder why there is no such a procedure built-in in Mathematica (well, probably because it's easy to write it, but like Trace it can help in writing a neater code...) toValues[li_] := Module[ {newli, vars, sols}, sols = First[Dimensions[li]]; vars = Last[Dimensions[li]]; newli = li /. (_ -> v_) -> v; If[vars == 1, newli = Flatten[newli] ]; If[sols == 1, First[newli], newli ] ] Just apply it to your solutions list in this way: solutions //toValues or toValues[solutions] Let me know if it works as you wished. Hope this helps, Peltio -- Invalid address in reply-to. Crafty demunging required to mail me.