Re: Solve and Trig functions

• To: mathgroup at smc.vnet.net
• Subject: [mg19334] Re: [mg19295] Solve and Trig functions
• From: BobHanlon at aol.com
• Date: Mon, 16 Aug 1999 02:15:00 -0400
• Sender: owner-wri-mathgroup at wolfram.com

```Kevin,

I assume that the intent is not to tell Mathematica the definition of Tan
since it already knows the definition. Rather, the intent is to force it to
use that knowledge. Consequently, I suggest you define the concept of
dividing two equations as follows:

Unprotect[Equal];
Equal /: Equal[a_, b_]/Equal[c_, d_] := Equal[a/c, b/d];
Protect[Equal];

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

eq1/eq2 // Reverse

Tan[fi] == (a1 + b1)/(a2 + b2)

Bob Hanlon

In a message dated 8/14/99 5:45:38 AM, kevin.mccann at jhuapl.edu writes:

>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.
>

```

• Prev by Date: Re: Simple edit ...
• Next by Date: Re: Element Extraction
• Previous by thread: Re: Solve and Trig functions