% Directorio: PFCz_2mp % Archivo: YB2mp_0 % Obtencion de z0 y YB0=Y. %[Y0]=YB2mp_0(Minc,z0) function [Y0]=YB2mp_0(Minc,z0) y0=inv(z0); Y0=Minc.'*y0*Minc;