resultoutput.m

％ 该Matlab程序基于牛顿－拉夫逊算法

function ResultOutput(U,S,NetLoss,num_Iter)
% this program was used for output the result of power flow computation

str2=[];
R=abs(U);
%fai=angle(U);
fai=angle(U)*180/pi;
fp=fopen('e:\powerflow.doc','w');
str1=sprintf('牛顿-拉夫逊潮流算法经%d迭代收敛:',num_Iter);
disp(str1);
fprintf(fp,'%s\n',str1);
str2=sprintf('节点序号       节点电压          注入有功功率      注入无功功率');
disp(str2);
fprintf(fp,'%s\n',str2);
node=1;
for node=1:length(U)
    str3=sprintf('   %d        %6.4f∠%6.4f°       %6.4f           %6.4f',node,R(node),fai(node),real(S(node)),imag(S(node)));
    fprintf(fp,'%s\n',str3);
    disp(str3);
end
str4=sprintf('\n网络总损耗为:\n%s',num2str(NetLoss));
disp(str4);
fprintf(fp,'%s\n',str4);
fclose(fp);
disp('潮流计算结果已保存至E盘poweflow.doc')