Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Solve / Reduce for 2 missing values

  • To: mathgroup at smc.vnet.net
  • Subject: [mg114941] Solve / Reduce for 2 missing values
  • From: "Lea Rebanks" <lrebanks at netvigator.com>
  • Date: Thu, 23 Dec 2010 03:55:29 -0500 (EST)

Dear All,

Given the enclosed code for 2 spiral functions with mutually missing values
of (i) value AND (ii) rotation in each function.

Please could someone help me setup the code to Solve / Reduce for these 2
missing values.

I have tried many approaches & can not solve for both. ( I can get either
value (i) OR (ii), but not both.)  Been trying for quite sometime.
- Both spirals must equal = 32400 after the Correct number of rotations X
the value.
 - I have tried adjusting the orientation angle M of the spiral.
 - I have tried to setup calculus rate of change of area of square with
respect to time as degree progress inwards from the outer perimeter.
- I feel that my methods are not correct.
Any suggestions welcome.

This question is as much a Math question as it is an exercise in writing
Mathematica code.

Many thanks for your help & attention, really appreciated. Please see below.

Best regards,
Lea...
............................................................................
.....................
Clear[value]

value = 180;

Clear[rotation]

rotation = 15;

Clear[M1]

M1 = N[(45) - ArcTan[(Sqrt[4 - Pi])/Sqrt[Pi]]/Degree, 20];

Clear[M2]

M2 = 0*Degree;

Clear[spiral1Yaxis]

spiral1Yaxis[\[Theta]_] := ((1/360)*\[Theta])*(((value)/Sqrt[Pi])/
    rotation)*Sin[(\[Theta] + M1)*Degree]

Clear[spiral1Xaxis]

spiral1Xaxis[\[Theta]_] := ((1/360)*\[Theta])*(((value)/Sqrt[Pi])/
    rotation)*Cos[(\[Theta] + M1)*Degree]

Sqrt[spiral1Yaxis[15*360]^2 + spiral1Xaxis[15*360]^2]^2*Pi == 32400

True

Clear[spiral2Yaxis]

spiral2Yaxis[\[Theta]_] := ((1/360)*\[Theta])*(value/(2*rotation))*
  Sin[(\[Theta] + M2)*Degree]

Clear[spiral2Xaxis]

spiral2Xaxis[\[Theta]_] := ((1/360)*\[Theta])*(value/(2*rotation))*
  Cos[(\[Theta] + M2)*Degree]

(Sqrt[spiral2Yaxis[15*360]^2 + spiral2Xaxis[15*360]^2]*2)^2 == 32400

True
...............................





  • Prev by Date: Using Extract where some indices are out of bounds (efficiently)
  • Next by Date: Re: Generic Button/Palette design pattern?
  • Previous by thread: Using Extract where some indices are out of bounds (efficiently)
  • Next by thread: Mathematica 8 & reports / books