Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: solving for 2 angles

  • To: mathgroup at smc.vnet.net
  • Subject: [mg89817] Re: solving for 2 angles
  • From: Steven Siew <stevensiew2 at gmail.com>
  • Date: Sat, 21 Jun 2008 05:31:40 -0400 (EDT)
  • References: <g3g00h$kvd$1@smc.vnet.net>

I dont know what you are trying to find but you should first get rid
of Sin and Cosine
by turning them into exponential functions.

eqn01 = J*Cos[az]*Sin[el] + K*Sin[az]*Sin[el] + L*Cos[el] == 0

eqn02 = M*Cos[az]*Sin[el] + N*Sin[az]*Sin[el] + P*Cos[el] == 0

eqn03 = TrigToExp[eqn01]

eqn04 = TrigToExp[eqn02]

soln01 = Solve[eqn03, el]

eqn05 = eqn04 /. soln01

finalsolution=Solve[eqn05, az]

It's much better if you put in all your assumptions at the very start
with the form

$Assumptions = And @@ {x > 0, y > 0, z > 0}


Steven Siew


  • Prev by Date: FindROot and substitutions
  • Next by Date: Export a matrix in C form
  • Previous by thread: Re: FindROot and substitutions
  • Next by thread: Re: solving for 2 angles