MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

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