RE: "Solve" or "FindRoot" in a module

*To*: mathgroup at smc.vnet.net*Subject*: [mg18109] RE: [mg18033] "Solve" or "FindRoot" in a module*From*: "Tomas Garza" <tgarza at mail.internet.com.mx>*Date*: Thu, 17 Jun 1999 12:26:42 -0400*Delivery-date*: Thu Jun 17 16:22:57 1999*Sender*: owner-wri-mathgroup at wolfram.com

Jung Sik Kong [kongj at bechtel.colorado.edu] wrote: > I have following problems: > ------------------------------------------------------------------- > 1. How do I extract a solution from the results of > Solve or FindRoot in a module > > 2. How can I use % in a Module. > ------------------------------------------------------------------- > > I know that I can use "Replace" to extract a solution from a > result of "Solve" or "FindRoot". > However, I do not know how do I extract a solution in a Module. > > Next is a part of my file. > (I'd like to keep x as a local variable.) > > ----------------------------------------------- > In[1]=StandardDist = NormalDistribution[0,1]; > In[2]=CDFStandardDist[x_] := CDF[StandardDist, x] > In[3]=aa[y_] := Module[ {x}, > FindRoot[CDFStandardDist[x]==y,{x,0}] ] > > > In[4]= Plot[aa[y],{y,0.0001,0.9999}] > ----------------------------------------------- > > To plot a graph, I need to assign a value to the function "aa". > But I don't know how to do it. Hi Jung! I guess you don't have to use Module to do what you want -- since you're always using the same CDFStandardDist. Try this: In[1]:= Clear[aa, bb]; bb[y_] := FindRoot[CDFStandardDist[x] == y, {x, 0}]; aa[y_] := x /. bb[y] In[4]:= Plot[aa[v], {v, 0.05, 0.95}] Hope this helps, Tomas Garza Mexico City