Re: Solve Question - 2 Non zero values

• To: mathgroup at smc.vnet.net
• Subject: [mg112973] Re: Solve Question - 2 Non zero values
• From: Peter Pein <petsie at dordos.net>
• Date: Fri, 8 Oct 2010 04:50:49 -0400 (EDT)
• References: <i7seni\$pph\$1@smc.vnet.net>

```Am Tue, 28 Sep 2010 10:06:42 +0000 (UTC)
schrieb "Lea Rebanks" <lrebanks at netvigator.com>:

> Dear All,
>
>
>
> Enclosed are the workings to Solve for BOTH values of V1 and V2.
>
> I have already shown below the Solve for just one value either V1 or
> V2 and there is no problem.
>
> The correct values required for V1 and V2 are shown below when I
> worked them out individually.
>
> However, when I setup a Solve function to evaluate BOTH V1 and V2 in
> the same Solve function then I run into problems.
>
>
>
> Question 1:-In the instance shown below the result shows V1 and V2 to
> equal' zero'.
>
> Therefore to avoid this could someone show me how to set Solve, (or
> Reduce, or whatever) up to provide a result greater than zero.(I am
> sure this is easy, but I don' t know how to do it.)
>
>
>
> Secondly, I suspect there is a deeper or more involved mathematical
> method to extract these 2 required values. Any ideas anyone?
>
> Many thanks for everyones' help & attention.
>
> Best regards,
>
> Lea...
>
...

Hi Lea,

your posting has been a while ago but let's see...

It is almost ever a good idea to simplify expressions before feeding
them into Solve or Reduce.

In[1]:=
M=Simplify[45-ArcTan[Sqrt[(4-Pi)/Pi]]/Degree//FunctionExpand]//Apart
Out[1]= 45-(180 ArcTan[Sqrt[-1+4/\[Pi]]])/\[Pi] Out[2]=
((-Sqrt[4-\[Pi]]+Sqrt[\[Pi]]) x)/(Sqrt[4-\[Pi]]+Sqrt[\[Pi]])

so we've got a simple radiusD :-)

With the same simplifications and replacement of floating point numbers
by their exact values, the first equation reduces to 18 == V1^2 and the
second equation to V2^2 == 8.

So we get V1 == 3 Sqrt[2] and V2 == 2 Sqrt[2].

The list of equations reduces to two times the same equation:
Simplify[TrigExpand[ExpandAll[FunctionExpand[
{(((15*360)*
Tan[M*Degree]))]^2 +
(((15*Sqrt[2])*V1)/(Tan[135*Degree] -
Tan[M*Degree]))^2])/(360*15))^2*Pi -
(((45*360)*
Tan[M*Degree]))]^2 + ((((45/2)*
Sqrt[2])*V2)/(Tan[135*Degree] -
Tan[M*Degree]))^2])/(360*45))^2*
Pi == 0,
(((13*360)*
Tan[M*Degree]))]^2 +
(((13*Sqrt[2])*V1)/(Tan[135*Degree] -
Tan[M*Degree]))^2])/(360*13))^2*Pi -
(((39*360)*
Tan[M*Degree]))]^2 + ((((39/2)*
Sqrt[2])*V2)/(Tan[135*Degree] -
Tan[M*Degree]))^2])/(360*39))^2*
Pi == 0}]]]]
gives:
{4*V1^2 == 9*V2^2, 4*V1^2 == 9*V2^2}

Using Reduce[4*V1^2 == 9*V2^2 && V1 > 0 < V2, {V1, V2}] yields V1 > 0
&& V2 == (2*V1)/3, which confirms the relation between V1 and V2 found
above.

Regards,
Peter

```

• Prev by Date: Re: A list based table join?
• Next by Date: Re: Interpolate in polar coordinates or cartesian
• Previous by thread: Re: Difficulty with Interpolation / FunctionInterpolation
• Next by thread: Re: Interpolate in polar coordinates or cartesian