> restart:
Ejercicio 3 - Examen final 11 septiembre 2000
José Mª Goicolea, septiembre 2000
Problema de cable con rozamiento sobre un plano inclinado
>
>
>
>
>
> solu:=solve({eq2,eq3,eq4},{s,a,y[B]});
> evalf(subs(datos,solu));
> fsolve((s/2)*((sqrt(3)-1)*(sqrt(3)/2-1)-1)+12,s);
>
>
>
> soluL:=subs(solu,L);
> evalf(subs(datos,soluL));
> evalf(subs(solu,datos,T[C]=q*y[C]));