# Apply conditions on the solution of this trigonometric system?

Posted 5 years ago
4149 Views
|
4 Replies
|
0 Total Likes
|
 Hi I'm looking for help to solve this problem. Well we can calculate the values of angles (alpha's) by but i need to impose these conditions Please help me out Regards Attachments:
4 Replies
Sort By:
Posted 5 years ago
 NMinimize[{function,constraint}, vars] is shown in the help page.There does not appear to be a solution where your four equations are approximately equal to zero, but this NMinimize[ {Norm[{ 1 - 2 Cos[5 w Degree] + 2 Cos[5 x Degree] - 2 Cos[5 y Degree] + 2 Cos[5 z Degree], 1 - 2 Cos[7 w Degree] + 2 Cos[7 x Degree] - 2 Cos[7 y Degree] + 2 Cos[7 z Degree], 1 - 2 Cos[11 w Degree] + 2 Cos[11 x Degree] - 2 Cos[11 y Degree] + 2 Cos[11 z Degree], 1 - 2 Cos[13 w Degree] + 2 Cos[13 x Degree] - 2 Cos[13 y Degree] + 2 Cos[13 z Degree] }], w < x < y < z < 90 Degree }, {w, x, y, z}] will let you add constraints to your problem.
Posted 5 years ago
 Thanks a lot Bill Simpson, there is a bit of problem occurring , that is the values of x,y & z are appearing same. they are not changing.
 With the following code starting from random initial points eq = {1 - 2 Cos[5 w Degree] + 2 Cos[5 x Degree] - 2 Cos[5 y Degree] + 2 Cos[5 z Degree], 1 - 2 Cos[7 w Degree] + 2 Cos[7 x Degree] - 2 Cos[7 y Degree] + 2 Cos[7 z Degree], 1 - 2 Cos[11 w Degree] + 2 Cos[11 x Degree] - 2 Cos[11 y Degree] + 2 Cos[11 z Degree], 1 - 2 Cos[13 w Degree] + 2 Cos[13 x Degree] - 2 Cos[13 y Degree] + 2 Cos[13 z Degree]}; sol = FindRoot[eq == 0, Thread[{{w, x, y, z}, Sort@RandomReal[{0, 90}, 4]}]]; sol eq /. sol after a few attempts I found the neat solution {w -> 20., x -> 40., y -> 60., z -> 80.}