Re: Solving a simple equation

• To: mathgroup at smc.vnet.net
• Subject: [mg121874] Re: Solving a simple equation
• From: dimitris <dimmechan at yahoo.com>
• Date: Wed, 5 Oct 2011 04:03:52 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <j6e675\$kds\$1@smc.vnet.net>

```Hi.
1) You haven't specified value for ma1.
2) I guess that with degree you meen Degree.
3) You specified value for Capital Theta instead of Theta.
4) The equation has infinity roots as it is a Transcendental equation.
Use FindRoot instead of NSolve. Be careful with the singularities at
n*Pi, n integer.

\[Kappa] = 1.4;
\[Theta] = 10.;
ma1 = 5.;

eq = Tan[\[Theta]*Degree] - ( 2*Cot[\[Beta]]*((ma1^2*Sin[\[Beta]]^2 -
1)/(ma1^2*(\[Kappa] + Cos[2*\[Beta]]) + 2)));

pl = Plot[eq, {\[Beta], -11, 11}, Exclusions -> Table[n Pi, {n, -3,
3}], Frame -> True, Axes -> {True, False}]

For example

FindRoot[eq == 0, {\[Beta], 1}]
FindRoot[eq == 0, {\[Beta], 1.5}]
{\[Beta] -> 0.338175}
{\[Beta] -> 1.52629}

5) Another way is using Reduce.

Clear["Global*`"]

\[Kappa] = 14/10;
\[Theta] = 10;
ma1 = 5;
eq = Tan[\[Theta]*Degree] - (  2*Cot[\[Beta]]*((ma1^2*Sin[\[Beta]]^2 -
1)/(ma1^2*(\[Kappa] + Cos[2*\[Beta]]) + 2)));

Reduce[eq == 0, \[Beta]]
(*output ommited*)

Regards
Dimitris

```

• Prev by Date: Thread::tdlen: Objects of unequal length
• Next by Date: Dynamic evaluation not automatically enabled in CDF documents
• Previous by thread: Re: Solving a simple equation
• Next by thread: Re: Solving a simple equation