Re: Solve and Trig functions

• To: mathgroup at smc.vnet.net
• Subject: [mg19313] Re: Solve and Trig functions
• From: "Allan Hayes" <hay at haystack.demon.co.uk>
• Date: Sat, 14 Aug 1999 23:42:46 -0400
• References: <7p308e\$aog@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Kevin:

Here'xs A rather inelegant way

eq1 = a1 + b1 == Sin[fi];
eq2 = a2 + b2 == Cos[fi];

Solve[{eq1, eq2, Sin[fi] == t Cos[fi]}, {t}, {fi}] (* fi not to appear in
solution*)

Out[51]=
{{t -> (a1 + b1)/(a2 + b2)}}

Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565

Kevin J. McCann <kevin.mccann at jhuapl.edu> wrote in message
news:7p308e\$aog at smc.vnet.net...
>
> 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: Pattern example
• Next by Date: Tricky Symbolizations with the Notation Package (Was Subscripts, Doh!!!)
• Previous by thread: Re: Solve and Trig functions
• Next by thread: Re: Solve and Trig functions