texto: metodos numericos para ecuaciones diferenciales ordinarias
texto: metodos numericos para ecuaciones diferenciales ordinarias
texto: metodos numericos para ecuaciones diferenciales ordinarias
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
B2=10000;B3=10000;B1=5000;<br />
B23=500;B12=500;<br />
M=[0 1 0 0 0 0;<br />
-K12/M1 -(B12+B1)/M1 K12/M1 B12/M1 0 0;<br />
0 0 0 1 0 0;<br />
K12/M2 B12/M2 -(K12+K23)/M2 -(B23+B12+B2)/M2 K23/M2 B23/M2;<br />
0 0 0 0 0 1;<br />
0 0 K23/M3 B23/M3 -K23/M3 -(B23+B3)/M3];<br />
Y(:,1)=[0;0;0;0;0;0];<br />
h=0.1;n=1;t(1)=0;U=1300;F=[0;U/M1;0;0;0;0];<br />
while t(n)