Re: Mathematica help (plotting solutions of transendental equation from
- To: mathgroup at smc.vnet.net
- Subject: [mg110032] Re: Mathematica help (plotting solutions of transendental equation from
- From: "David Park" <djmpark at comcast.net>
- Date: Sun, 30 May 2010 06:46:54 -0400 (EDT)
Something like this?
f[c_?NumericQ, m_?NumericQ, n_?NumericQ] :=
FindRoot[{a - b == 2 \[Pi] (m - n) + ArcTan[(a - b)/c],
a + b == 2 \[Pi] (m + n)}, {{a, 2 I + 1}, {b, -2 I + 1}}]
fParametrization[c_] := Chop[{a, b} /. f[c, 2, 3]];
ParametricPlot[fParametrization[c], {c, 0, 5}]
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
From: JustanotherDave [mailto:david.holdaway at gmail.com]
I'm having trouble getting Mathematica to plot what I would like from
a system of equations. I have the function
f[c_?NumericQ, m_?NumericQ, n_?NumericQ] :=
FindRoot[{a - b == 2*Pi*(m - n) + ArcTan[(a - b)/c],
a + b == 2*Pi*(m + n)}, {{a, 2 I + 1}, {b, -2 I + 1}}]
Which evaluates to something like {a -> 13.333 + 2.99972*10^-20 I, b -
> -13.333 - 2.99972*10^-20 I}
What I would like is to be able to plot the imaginary values of a and
b on the same graph (varying the parameter c, keeping m and n
constant) but I'm not sure how to convert the FindRoot output to
plotable values