PQ分解法潮流计算.docVIP

下载本文档

43
0
约3.17千字
约 3页
2020-12-21 发布于浙江
举报
版权申诉

PQ分解法潮流计算.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

//PQ分解法解潮流程序 #includestdio.h #includemath.h #define N 5 //节点数 #define n_PQ 3 //PQ节点数 #define n_PV 1 //PV节点数 #define PI 3.1415 float G[N][N] ={{0.4347,-0.6,-0.2747,0,0},{-0.6,0.418,-0.258,0,0},{-0.2747,-0.258,0.5327,0,0},{0,0,0,0,0},{0,0,0,0,0}};//导纳矩阵的实部 float B[N,N] ={{-1.7115,1,0.9615,0,0},{1,-64.9577,0.9677,63.49,0},{0.9615,0.9677,-33.4252,0,31.746},{0,-63.49,0,63.49,0},{0,0,31.746,0,-31.746}};//导纳矩阵的虚部 float U_amp[N]={1.0,1.0,1.0,1.05, 1.05,}; //电压初值 float U_ang[N]=[0,0,0,0,0] //电压相角初值 float Ps[N-1]={1.6,2,3.7,5}; //有功初值 float Qs[N-2]={0.8,1,1.3}; //无功初值 float dU_amp[n_PQ],dU_ang[N-1]; //电压幅值和相角修正值 float P1[N],Q1[N],dP[N],dQ[n_PQ],H[N-1, N-1],L[n_PQ-1, n_PQ-1]; float J[N+ n_PQ-1, N+ n_PQ-1]，M[N+ n_PQ -1,1]，N[N+ n_PQ-1, N+ n_PQ-1]; // J[N+ n_PQ -1 -1, N+ n_PQ -1]雅可比矩阵, N[N+ n_PQ -1 -1, N+ n_PQ -1] 雅可比矩阵逆矩阵 float dS[N+ n_PQ -1,1],T,U[N],SS; float precision =1.0; // precision计算精度 int kk=0; //迭代次数 int i,j,k; //主程序=================================================================== while(precision0.0001) { for(i=1;iN;i++) {U[i]= U_amp[i]*cos(U_ang[i])+ U_amp[i]*sin(U_amp[i]*);} for(i=0;iN;i++) {P1[i]=0; Q1[i]=0; for(j=0;jN;j++) { P1[i]=P1[i]+ U_amp[i]*(G[i][j]*U_amp[j]*cos(U_ang[j])+B[i][j]*U_amp[j]*sin(U_ang[j])); Q1[i]=Q1[i]+ U_amp[i]*(G[i][j]*U_amp[j]*sin(U_ang[j])-B[i][j]*U_amp[j]*cos(U_ang[j])); } dP[i]=Ps[i]- P1[i]; if(in_PQ) dQ[i]=Qs[i]- Q1[i]; } for(i=1;i N+ n_PQ;i++) {M(i,1)=dP[i]; If(iN-1) M[i,1]=dQ[i];} for(i=1;iN,i++) {for(j1;jN;j++) H[i,j]=0; If(iN-1j N-1) { L[i,j]=0;}} for(i=0;iN;i++) { for(j=0;jN;j++) if(i!=j) {H[i,j]= U_amp