ejercicio 3
ejercicio 3 mov del sist masa-resorte
function ejercicio3 [t1, xx1]=ode45(@muelle, [0,40], [1,0],[ ], 5); plot(t1,xx1(:,1)) hold on [t2, xx2]=ode45(@muelle, [0,40], [1,0],[ ], 40); plot(t2,xx2(:,1)) [t3, xx3]=ode45(@muelle, [0,40], [1,0],[ ], 200); plot(t3,xx3(:,1)) xlabel('tiempo'); ylabel('desplazamiento'); title('desplaz en funcion del tiempo para cada coef de amortiguamiento'); legend('c=5','c=40','c=200'); end % funcion muelle function x=muelle(t,x,c) x=[x(2); (-c*x(2)-20*x(1))/20]; end
