Is there a way to solve q1 & q2 for alpha?
(%i4) did not work
neither did (%i7)
Thank you.
(%i1) kill(all)$
display2d: false;
(%o1) false
(%i2) q1: T*cos(theta) = F*cos(alpha);
(%o2) cos(theta)*T = cos(alpha)*F
(%i3) q2: M = T*sin(theta)+F*sin(alpha);
(%o3) M = sin(theta)*T+sin(alpha)*F
(%i4) solve([q1,q2],alpha);
(%o4) []
(%i5) _T: rhs(solve(q1,T)[1]);
(%o5) cos(alpha)*F/cos(theta)
(%i6) q2a: subst(_T,T,q2);
(%o6) M = cos(alpha)*sin(theta)*F/cos(theta)+sin(alpha)*F
(%i7) solve(q2a,alpha);
(%o7) [sin(alpha) = -(cos(alpha)*sin(theta)*F-cos(theta)*M)/(cos(theta)*F)]
-------------- next part --------------
A non-text attachment was scrubbed...
Name: z3.mac
Type: application/octet-stream
Size: 207 bytes
Desc: not available
URL: <http://www.math.utexas.edu/pipermail/maxima/attachments/20111119/be92b004/attachment.obj>;