printout.m

This is the file load flow in power system

function printout(varargin)
fid=fopen(varargin{1}(:,:),'w');
for k=2:3:nargin
    fprintf(fid,'\n');
    fprintf(fid,varargin{k}(:,:));
    fprintf(fid,'\n');
    fprintf(fid,varargin{k+1}(:,:));    
    fprintf(fid,'\n');
    s=varargin{k+2}(:,:);
    size_s=size(s);
    for p=1:size_s(1)
        for q=1:size_s(2)
            fprintf(fid,'%7.3f\t',s(p,q));
        end
        fprintf(fid,'\n');
    end
end
fclose(fid);