131exam.mws

> restart:

Ejercicio 3 - Examen final 11 septiembre 2000

José Mª Goicolea, septiembre 2000

Problema de cable con rozamiento sobre un plano inclinado

> datos := {phi = Pi/6, mu = 1, q = 1}

> y[C] := a+12

> eq2 := y[B] = mu*s*cos(phi)-s*sin(phi)

> eq3 := y[B]*cos(phi) = a

> eq4 := y[C]-y[B] = s*sin(phi)

> solu:=solve({eq2,eq3,eq4},{s,a,y[B]});

solu := {s = -12*1/(cos(phi)*(mu*cos(phi)-sin(phi)-...

> evalf(subs(datos,solu));

{y[B] = 7.999999991, a = 6.928203222, s = 21.856406...

> fsolve((s/2)*((sqrt(3)-1)*(sqrt(3)/2-1)-1)+12,s);

21.85640647

> S[B] := sqrt(y[B]^2-a^2)

> S[C] := sqrt(y[C]^2-a^2)

> L := s+y[C]+S[B]+S[C]

> soluL:=subs(solu,L);

soluL := -12*1/(cos(phi)*(mu*cos(phi)-sin(phi)-mu))...
soluL := -12*1/(cos(phi)*(mu*cos(phi)-sin(phi)-mu))...

> evalf(subs(datos,soluL));

62.39928756

> evalf(subs(solu,datos,T[C]=q*y[C]));

T[C] = 18.92820322