function[zs0,zr0,zSAm0,zRAm0,zSBp0,zRBp0,zMSm0,zMRm0]=...
pusec0(k0,Kr0,zr1,zlA0u,m,LA,zlB0u,p,LB,zlM0u,zbaseA,zbaseB,UbaseA,UbaseB,Sbase);
zr0=Kr0*zr1;
zs0=k0*zr0;
zSAm0=zlA0u*m*LA; zSAm0=zSAm0/zbaseA;
zRAm0=zlA0u*(1-m)*LA; zRAm0=zRAm0/zbaseA;
zSBp0=zlB0u*p*LB; zSBp0=zSBp0/zbaseB;
zRBp0=zlB0u*(1-p)*LB; zRBp0=zRBp0/zbaseB;
zMSm0=m*LA*zlM0u; zMSm0=zMSm0/(UbaseA*UbaseB/Sbase);
zMRm0=(1-m)*LA*zlM0u; zMRm0=zMRm0/(UbaseA*UbaseB/Sbase);
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
