Re: FindRoot[] with mixed complex and real variables?

• To: mathgroup at smc.vnet.net
• Subject: [mg79643] Re: FindRoot[] with mixed complex and real variables?
• From: chuck009 <dmilioto at comcast.com>
• Date: Wed, 1 Aug 2007 04:55:25 -0400 (EDT)

```Ok, ok.  I was wrong.  How about coding it as 7 variables in 7 unknowns (the two equations in terms of u, v and w, then the same two equations in terms x, y, t and s (that's 4, then these three:

u=x+iy
w=it
g=-200+is

Alright, that's seven.  Then use FindRoot with your starting values:

FindRoot[{(x + I*y)*BesselJ[1, x + I*y]*BesselK[0, I*t] ==
I*t*BesselK[1, I*t]*BesselJ[0, x + I*y],
(x + I*y)^2 - t^2 == -200 + I*s,
u*BesselJ[1, u]*BesselK[0, w] == w*BesselK[1, w]*
BesselJ[0, u], u^2 + w^2 == g, u == x + I*y, w == I*t,
g == -200 + I*s}, {{x, -2.39}, {y, 0.8}, {t, 14.34},
{s, 0.8}, {u, 2.39 + 0.17*I}, {g, -200 + 0.8*I},
{w, 14.34*I}}]

when I do that, I get the following solutions:

{x -> -2.389999999999996 + 1.7419722275807886*^-15*I,
y -> 0.7999999999999983 + 3.775812800225189*^-15*I,
t -> 14.34 + 8.01608452040757*^-24*I,
s -> 0.8 + 4.257789892107953*^-22*I, u -> 2.39 + 0.17*I,
g -> -200. + 0.8*I, w -> -8.016084539066267*^-24 + 14.34*I}

> Yes -- besides the two initial complex-valued
> equations, there are the
> two real constraints:   Re[w]==0  and  Re[g]==(a
> fixed & stated value).
>
> So, there's enough info to solve the problem, and I
> can indeed get
> answers in other ways.  My problem is how to get this
> info into
> FindRoot[].
>

```

• Prev by Date: Re: presence of Wolfram Research in this mailing list
• Next by Date: RE: How do you set up third party (or your own) packages?
• Previous by thread: Re: FindRoot[] with mixed complex and real variables?
• Next by thread: Re: Is Save As->HTML broken in 6.0?