Re: plotting roots of complex nonlinear equation

*To*: mathgroup at christensen.cybernetics.net*Subject*: [mg659] Re: [mg629] plotting roots of complex nonlinear equation*From*: wmm at chem.wayne.edu (Martin McClain)*Date*: Fri, 7 Apr 95 18:34:12 EDT

Dear Roque: I'm not sure this is what you want, but if you just want to know how to make colored plots, this is how: At the top of your script, write Needs["Graphics`Colors`"] Then when ready to plot, write something like Plot[{x,x^2,x^3},{x,0,1},PlotStyle->{Red,Green,Blue}]; Regards-Martin McClain >I have a complex nonlinear equation, f[z,p] = 0, that I want >to solve for complex z=x + I*y, as a function of real parameter p >(p varies from 0.5 to 1.5). This describes the problem (in MMA): > >g[z_] := I Sqrt[Pi] Exp[-z^2] ( 1 + Erf[I z] ) >f[z_,p_] := z^2 - 1 - 0.348 * g[3.87*(p-1)/(p*z)] / (z * p^2) > >This equation has multiple solutions. I want to plot a few (2 or 3) >branches on the same plot, i.e., I want to plot x versus p in one plot >and y versus p in another plot. Each branch should use a different >color for plotting. > >I haven't been able to find a concise way of doing this, with either >Maple or Mathematica. I got lost in the bookkeeping of the solutions. > >I know how to solve it, I just can't find a clean way to display >the results. > >Any help is appreciated (and you don't even have to use the function >above). > >Thanks. > > Roque > oliveria at engin.umich.edu