function[zs0,zSAm0,zSBp0,zMSm0]=...
pusec0(Ks0,zs1,zlA0u,m,LA,zlB0u,p,LB,zlM0u,zbaseA,zbaseB,UbaseA,UbaseB,Sbase);%pu
zs0=Ks0*zs1;
zSAm0=zlA0u*m*LA; zSAm0=zSAm0/zbaseA;
zSBp0=zlB0u*p*LB; zSBp0=zSBp0/zbaseB;
zMSm0=m*LA*zlM0u; zMSm0=zMSm0/(UbaseA*UbaseB/Sbase);
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
