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 radiusD[x_]=Tan[M*Degree]*x//FunctionExpand//ExpandAll//TrigExpand//Simplify 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)* Sqrt[radiusD[-(((15*Sqrt[2])*V1)/(Tan[135*Degree] - Tan[M*Degree]))]^2 + (((15*Sqrt[2])*V1)/(Tan[135*Degree] - Tan[M*Degree]))^2])/(360*15))^2*Pi - (((45*360)* Sqrt[radiusD[-((((45/2)*Sqrt[2])*V2)/(Tan[135*Degree] - Tan[M*Degree]))]^2 + ((((45/2)* Sqrt[2])*V2)/(Tan[135*Degree] - Tan[M*Degree]))^2])/(360*45))^2* Pi == 0, (((13*360)* Sqrt[radiusD[-(((13*Sqrt[2])*V1)/(Tan[135*Degree] - Tan[M*Degree]))]^2 + (((13*Sqrt[2])*V1)/(Tan[135*Degree] - Tan[M*Degree]))^2])/(360*13))^2*Pi - (((39*360)* Sqrt[radiusD[-((((39/2)*Sqrt[2])*V2)/(Tan[135*Degree] - 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