d=U_It(n,1)*(1-B1(i,5))/B1(i,5)/B1(i,5)/B1(i,3)+(U_It(n,1)-U_It(m,1))/B1(i,5)/B1(i,3);
Branch_It(i,8)=sqrt(real(d)^2+imag(d)^2); e=a+c;
Branch_It(i,9)=real(e); Branch_It(i,10)=imag(e); end end
disp('【 迭代收敛后各支路的功率和功率损耗:】'); Branch_It %显示迭代收敛后各支路的功率和功率损耗
% %—————————————————————————————向Excel表中输出数据 % Node_S_It_Real=real(Node_S_It); % Node_S_It_imag=imag(Node_S_It); % xlswrite('output.xls',Node_U_It,1,'B3'); % xlswrite('output.xls',angle_It,1,'C3'); % xlswrite('output.xls',Node_S_It_Real,1,'D3'); % xlswrite('output.xls',Node_S_It_imag,1,'E3');
% xlswrite('output.xls',Branch_It,1,'G3');
程序中还有将数据从Excel表格中读入输出的xlsread和xlswrite功能,直接将数据输入到Excel表格中,可以省略将数据写在程序中或者一一输入的步骤,适用于任何节点的电力系统潮流计算。
四、程序运行结果
相关推荐: