Message Boards Message Boards

Plot multiple functions?

GROUPS:

hi , when i tried to solve these eqns to give me function of anther variable ....it gives me so many eqns and i cant know which the right ones so i couldnt plot them i want to plot w3 , w4 with respect to varible theta2 (i want all varibles in output to be with respect to theta2} i will attach the code programming

r1 = 600;
r2 = 200;
r3 = 700;
r4 = 900;
(* \[Theta]2 is NOT constant !..*)
\[Alpha]2 = 0;
\[Omega]2 = 12.568;

eq1 = -r1  + r2 Cos[\[Theta]2 ] + r3 Cos[\[Theta]3 ] + 
   r4 Cos[\[Theta]4 ] ;
eq2 = r2 Sin[\[Theta]2 ] + r3 Sin[\[Theta]3  ] + r4 Sin[\[Theta]4 ] ;
m = Map[{\[Theta]3 , \[Theta]4} /. # &, {ToRules[
      N[Reduce[{eq1 == 0 && eq2 == 0} , {\[Theta]3, \[Theta]4}] /. {C[
           1] -> 0 , C[2] -> 0}]]}]/Degree;
Plot[m, {\[Theta]2, 0, 2 Pi}]
eq3 = -r2 \[Omega]2 *Sin[\[Theta]2 Degree] - 
   r3 \[Omega]3 Sin[\[Theta]3 Degree] - 
   r4 \[Omega]4 Sin[\[Theta]4 Degree];
eq4 = r2 \[Omega]2 Cos[\[Theta]2 Degree] + 
   r3 \[Omega]3 Cos[\[Theta]3 Degree] + 
   r4 \[Omega]4 Cos[\[Theta]4 Degree];

q = Map[{\[Omega]3 , \[Omega]4} /. # &, {ToRules[
     N[Reduce[{eq3 == 0 && eq4 == 0} , {\[Omega]3 , \[Omega]4}]]]}];
Plot[q, {\[Theta]2, 0, 2 Pi}]
Attachments:
POSTED BY: Ahmed Khodari
Answer
21 days ago

Group Abstract Group Abstract