Re: Rule to Function, Frontend funnies

*To*: mathgroup at smc.vnet.net*Subject*: [mg5320] Re: Rule to Function, Frontend funnies*From*: haberndt at dnai.com (Harald Berndt)*Date*: Wed, 27 Nov 1996 01:47:37 -0500*Organization*: DNAI ( Direct Network Access )*Sender*: owner-wri-mathgroup at wolfram.com

In article <57645l$28t at dragonfly.wolfram.com>, Wouter Meeussen <meeussen.vdmcc at vandemoortele.be> wrote: > how can I convert a rule to a function? > if I get a result from > > rulesoln = DSolve[{y'[x]==y[x]/(c+1/x),y[0]==1},y[x],x] > > in the form : > > 2 > x/c - Log[1 + c x]/c > {{y[x] -> E }} > > how do I get the definition : > > y[x_]:= E^(x/c - Log[1 + c x]/c^2) > Simply change the attribute of the output cell from Formatted to Not Formatted. On the Mac that is <Command>+t, on Windows it's something similar (<Alt>+t or <Ctrl>+t). Then copy and paste, but even easier ... > Flatten[rulesoln]/.y[x]->y[x_]/.Rule->SetDelayed > > {Null} ... simply write In[5]:= y[x_] := Evaluate[y[x]/.Flatten[rulesoln]] That still leaves undefined parameter c, so you might consider In[5]:= y[x_][c_] := Evaluate[y[x]/.Flatten[rulesoln]] Best, -- Harald Berndt, Ph.D. Research Specialist, Voice: 510-652-5974 Consultant FAX: 510-215-4299