Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1999
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1999

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

Search the Archive

Re: Solve and Trig functions

  • To: mathgroup at smc.vnet.net
  • Subject: [mg19322] Re: [mg19295] Solve and Trig functions
  • From: "David Park" <djmp at earthlink.net>
  • Date: Sat, 14 Aug 1999 23:42:52 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

Kevin,

In this particular case, this would be a simple way:

Inner[Divide, eq1, eq2, Equal]
(a1 + b1)/(a2 + b2) == Tan[fi]

For something more general you might try something like this:

eqns = {a1 + b1 == sin[fi], a2 + b2 == cos[fi], Tan[x] == sin[fi]/cos[fi]};
Solve[eqns, Tan[x], {sin[fi], cos[fi]}]
{{Tan[x] -> (a1 + b1)/(a2 + b2)}}

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/

>
>If I have the following two equations:
>
>eq1 = a1 + b1 == Sin[fi];
>eq2 = a2 + b2 == Cos[fi];
>
>It is clear that
>
>Tan[fi] == (a1+b1)/(a2+b2)
>
>but how do I get Mathematica to recoginize this? This problem is trivial, but 
>with more complicated expressions, the answer may not be immediately 
>obvious.
>
>Thanks,
>
>Kevin
>
>Kevin J. McCann
>Johns Hopkins University APL
>
>



  • Prev by Date: Re: Re: Gaussian PDF Overlay
  • Next by Date: Simple edit ...
  • Previous by thread: Solve and Trig functions
  • Next by thread: Re: Solve and Trig functions