% Directorio: PFCz_2mp % Archivo: YB2mp_2 %[Y2]=YB2mp_2(Minc,z2) function [Y2]=YB2mp_2(Minc,z2) y2=inv(z2); Y2=Minc.'*y2*Minc;