Exercise 1.2 Problem 11.

> restart;

> with(linalg):

Warning, new definition for norm

Warning, new definition for trace

> A:='A': A:=vector(2, [0,-20]);

> B:='B': B:=vector(2, [100*cos(Pi/3),100*sin(Pi/3)]);

> C:='C': C:=vector(2, [F*cos(theta),F*sin(theta)]);

> X:=evalm(A+B+C);

> theta[1]:= solve(X[1]=0,theta);

> theta[2]:= solve(X[2]=0,theta);

> T:= solve(theta[1]=theta[2], F);

> simplify(T);

> theta:= subs(F=T, theta[1]);

> tan(theta);

> simplify(%);

> evalf(%, 20);

> C:='C': C:=vector(2, [T*cos(theta),T*sin(theta)]);

> simplify(%);