       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
--