九节点系统潮流计算编程牛N_R法精选.docVIP

如图所示系统，试计算潮流分布，相关数据见《 PSASP7.0版潮流计算用户手册》P121。 #include stdio.h #include math.h float divRe(float b1,float b2,float b3,float b4) { float a1r; a1r=(b1*b3+b2*b4)/(b3*b3+b4*b4); return(a1r); } float divIm(float b1,float b2,float b3,float b4) { float a1i; a1i=(b2*b3-b1*b4)/(b3*b3+b4*b4); return(a1i); } float mulRe(float b1,float b2,float b3,float b4) { float a2r; a2r=b1*b3-b2*b4; return(a2r); } float mulIm(float b1,float b2,float b3,float b4) { float a2i; a2i=b2*b3+b1*b4; return(a2i); } float Max(float a[],int n) {int i; float max; max= fabs(a[0]); for(i=1;in;i++) {if(fabs(a[i])max)max=fabs(a[i]);} return(max); } void main() { int i,j,k,h,km; int T=16; float eps,sumpi1,sumpi2,sumqi1,sumqi2,max,sumir,sumii,I1r,I1i,t,xx,xxx; float pi0[8],qi0[8],detpi[8],detqi[8],Iir0[8],Iii0[8],J0[16][16], detsi[16],detui[16], delta_p[9][9],delta_q[9][9], a[16][32],ni[16][16],H[8][8],N[8][8], J[8][8],L[8][8],ei1[9],fi1[9],sp[9][9],sq[9][9]; static float ybr[9][9]={ {3.3074,-1.3652,0,0,0,-1.9422,0,0,0}, {-1.3652,2.5528,-1.1876,0,0,0,0,0,0}, {0,-1.1876,2.8047,-1.6171,0,0,0,0,0}, {0,0,-1.6171,2.7722,-1.1551,0,0,0,0}, {0,0,0,-1.1551,2.437,-1.282,0,0,0}, {-1.9422,0,0,0,-1.282,3.2242,0,0,0}, {0}, {0}, {0}}; static float ybi[9][9]={ {-39.3089,11.6041,0,0,0,10.5107,0,0,17.3611}, {11.6041,-17.3382,5.9751,0,0,0,0,0,0}, {0,5.9751,-35.4456,13.6980,0,0,16,0,0}, {0,0,13.6980,-23.3033,9.7843,0,0,0,0}, {0,0,0,9.782,-32.1538,5.5882,0,17.0648,0}, {10.5107,0,0,0,5.5882,-15.841,0,0,0}, {0,0,16,0,0,0,-16,0,0}, {0,0,0,0,17.0648,0,0,-17.0648,0}, {17.3611,0,0,0,0,0,0,0,-17.3611}}; static float yd[9][9]={ {0,0.088,0,0,0,0.079,0,0,0}, {0.088,0,0.153,0,0,0,0,0,0}, {0,0.153,0,0.0745,0,0,0,0,0}, {0,0,0.0745,0,0.1045,0,0,0,0}, {0,0,0,0.1045,0,0.179,0,0,0}, {0.079,0,0,0,0.179,0,0,0,0}, {0}, {0}, {0}} ; float ei0[9]={1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.04}; float fi0[9]={0.0}; float pi[9]={0,-1.25,0,-1.0,0,-0.9,1.6