%*******************************
%Filename:outputY.m
%Author:Hweel_Zheng(鄭奕輝)     
%First created:2008.08.23      
%Last mended:2008.08.25
%******************************
%outputY
%輸出節點導納矩陣
fid=fopen(resultfile,'a');
fprintf(fid,'\r\n----------------------------節點導納矩陣');
fprintf(fid,'----------------------------\r\n');
for i=1:nb
    fprintf(fid,'第%d行:',i);
    for jl=1:nb
        fprintf(fid,'%10.6f %10.6fj    ',real(Y(i,jl)),...
            imag(Y(i,jl)));
    end
    fprintf(fid,'\r\n');
end
            
fclose(fid);