【正文】 1；一0．6—0．1i 0 1 l] 請輸入節(jié)點(diǎn)號及對地阻抗： A=[l 0；2 0；3 0；4 0；5 O ] 請輸入修正值：ip=0．000 0l參考文獻(xiàn)[1]陳珩．電力系統(tǒng)穩(wěn)定分析[M]．北京：中國電力出版社，2002：139—187．[2]鄭阿奇．MATLAB實(shí)用教程[M]．北京：電子工業(yè)出版社，2005：1243．[3] 束洪春，孫士云，等．云電送粵交商流混聯(lián)系統(tǒng)全過 程動態(tài)電壓研究[J】．中國電力，2008，4l(10)：l4． SHU Hong—ch吼，SUN Shiyun，et a1．Research on fun prc39。J(:,no)=[]。J(no:)=[]。J(no:)=[]。end J(m,q)=X3。end J(p,q)=X1。P=2*i1。X4= C(i)+G(i,j)*f(i)B(i,j)*e(i)。X3= C(i)+G(i,j)*e(i)B(i,j)*f(i)。X2=C(i)+G(i,j)*e(i)+B(i,j)*f(i)。X1=D(i)+G(i,j)*f(i)B(i,j)*e(i)。Else if j=amp。J(m,q)=X4。J(p,q)=X2。m=p+1。J(p,q)=X1。q=2*j1。p=2*i1。X4=X1。X3=X2。X2=G(i,j)*e(i)+B(i,j)*f(i)。X1=G(i)*f(i)B(i,j)*e(i)。ifJ=amp。case 1 J(p,q)=X1。case 3 P=2*i1。%該子程序是用來求取jacci矩陣for i=1:n X3=0。End End case 2 Function for j=1:n J=jacci(Y,G,B,PQ,e,f,V,C,D,B2,n,ph,no)X1=G(i,j)*f(i)B(i,j)*e(i)。Df(k)=DX(i)。[x,y]=size(DX)。End ElseDX=[DX1,0,0]。DX(no+1)=0。x1=length(DX1)。endfunction [De,Df]=hxf(J,Df,ph,n,no)%該子函數(shù)是為求取De Df DX=JDf。end end end Df=Df’。p=p+1。else p=2*i1。Df(p)=P(i)P1。V1=e(i)^2+f(i)^2。endP1=C(i)*e(i)+D(i)*f(i)。For j=i:nC(i)=C(i)+G(i,j)*e(j)B(i,j)*f(j)。type resultm function [C,D,Df]=xxf(G,B,e,f,P,Q,n,B2,ph,V,no)%該子程序是用來求取Df for i=1:nIfi=phC(i)=0。end result2=[B1(:,6),B1(:,1),B1(:,2),real(b’),imag(b’),real(c’),imag(c’), real(b’+c’),imag(b’+c’)]。b(i)=v(B1(i1))*a(i)j*B1(i4)*v(B1(i))^2/2。resulte1=[A(:,1),real(v),imag(v),V,jd,real(S’)，imag(S’),real(B2(:1)),imag(B2(:1)),real(B2(:2)),imag(B2(:,2))]。V=abs(v)。end S(ph)=sum(hh)*v(ph)。end v=e+f*j。e=e+De；f=f+Df。whilemax(abs(De))ipamp。[De,Di]=hxf(J,D,F,ph,n,no)。[C,D,DF]=xxf(G,B,e,f,P,Q,n,B2,ph,V,no)。end Y(p,p)=Y(p,p)+1./(B1(i3)*B1(i5)^2+B1(i4)./2P=real(S)。V(i)=B2(i3)。For i=1:m S(i)=B2(i1)B2(i2)。for i=1：n End e(i)=real(B2(i3))。if A（i2）=0B=imag(Y)。e=zeros（1，n）；Y(p,q)=Y(p,q)。%它以矩陣形式存貯支路的情況，每行存貯一條支路 %第一列存貯支路的一個(gè)端點(diǎn) %第二列存貯支路的另一個(gè)端點(diǎn) %第三列存貯支路阻抗%第四列存貯支路的對地導(dǎo)納%第五列存貯變壓器的變比，注意支路為1 %第六列存貯支路的序號B2=input(‘n請輸入節(jié)點(diǎn)信息：B2=’)； %第一列為電源側(cè)的功率 %第二列為負(fù)荷側(cè)的功率 %第三列為該點(diǎn)的電壓值%第四列為該點(diǎn)的類型：1為PQ，2為PV節(jié)點(diǎn)，3為平衡節(jié)點(diǎn) A=input（‘n請輸入節(jié)點(diǎn)號及對地阻抗：A=’）； ip=input（‘n請輸入修正值：ip=’）； %ip為修正值)?！尽俊尽縁unction tisco %這是一個(gè)電力系統(tǒng)潮流計(jì)算的程序 n=input（‘n請輸入節(jié)點(diǎn)數(shù)：n=’）； m=input(‘請輸入支路數(shù)：m=’)。六 結(jié)論通過這個(gè)任務(wù)，自己在matlab編程，潮流計(jì)算，word文檔的編輯功能等方面均有提高，但也暴漏出一些問題：理論知識儲備不足，對matlab的性能和特點(diǎn)還不能有一個(gè)全面的把握，對word軟件也不是很熟練，相信通過以后的學(xué)習(xí)能彌補(bǔ)這些不足，達(dá)到一個(gè)新的層次。牛頓拉夫遜法是求解非線性方程的迭代過程，其計(jì)算公式為DF=JDX，式中J為所求函數(shù)的雅可比矩陣；DX為需要求的修正值；DF為不平衡的列向量。S% 求節(jié)點(diǎn)注入電流I=Y*U39。Q(i)=U(i)*U(j)*(G(i,j)*sin(a(i)a(j))B(i,j)*cos(a(i)a(j)))+Q(i)。endk,U,a% 求節(jié)點(diǎn)注入功率i=5。U(i)=U(i)+oU(i)。oU(i)=x1(i+4)*U(i)。M,L]% J為雅克比矩陣x1=((inv(J))*x2)。L(i,i)=L(i,i)+2*(U(i))^2*B(i,i)。M(i,i)=M(i,i)U(i)*U(j)*(G(i,j)*cos(a(i)a(j))+B(i,j)*sin(a(i)a(j)))。endendend% 當(dāng)i=j時(shí)，求H,N,M,Lfor i=1:4for j=1:5if i~=j H(i,i)=H(i,i)+U(i)*U(j)*(G(i,j)*sin(a(i)a(j))B(i,j)*cos(a(i)a(j)))。L(i,j)=H(i,j)。% x2為不平衡量列向量% 求雅克比矩陣% 當(dāng)i~=j時(shí)，求H,N,M,Lfor i=1:4for j=1:4if i~=jH(i,j)=U(i)*U(j)*(G(i,j)*sin(a(i)a(j))B(i,j)*cos(a(i)a(j)))。oQ(i)=oQ(i)+Q(i)。oQ(i)=oQ(i)U(i)*U(j)*(G(i,j)*sin(a(i)a(j))B(i,j)*cos(a(i)a(j)))。oQ(i)=0。L(i,j)=0。N(i,j)=0。k=0。x1=ones(8,1)。U(5)=。Q=imag(S)。S(5)=0。S(3)=。% 輸入原始節(jié)點(diǎn)的給定注入功率S(1)=+。endY% Y為導(dǎo)納矩陣G=real(Y)。% 求節(jié)點(diǎn)導(dǎo)納矩陣中互導(dǎo)納for i=1:5for j=1:5if i~=jY(i,j)=y(i,j)。for i=1:5for j=i:5y(j,i)=y(i,j)。y(2,5)=1/(+)。y(1,5)=1/(+)。y(1,3)=1/(+)。% 輸入原始數(shù)據(jù)，求節(jié)點(diǎn)導(dǎo)納矩陣y(1,2)=1/(+)。由課本總結(jié)基本步驟如下：1)形成節(jié)點(diǎn)導(dǎo)納矩陣Y；2)設(shè)各節(jié)點(diǎn)電壓的初值，如果是直角坐標(biāo)的話設(shè)電壓的實(shí)部e和虛部f；如果是極坐標(biāo)的話則設(shè)電壓的幅值U和相角a；3)將各個(gè)節(jié)點(diǎn)電壓的初值代入公式求修正方程中的不平衡量以及修正方程的系數(shù)矩陣的雅克比矩陣；4)解修正方程式，求各節(jié)點(diǎn)電壓的變化量，即修正量； 5)計(jì)算各個(gè)節(jié)點(diǎn)電壓的新值，即修正后的值；6)利用新值從第（3）步開始進(jìn)入下一次迭代，直至達(dá)到精度退出循環(huán)； 7)計(jì)算平衡節(jié)點(diǎn)的功率和線路功率，輸出最后計(jì)算結(jié)果； ① 公式推導(dǎo)② 流程圖三matlab編程代碼clear。為了便于用迭代法解方程組，需要將上述功率方程改寫成功率平衡方程，并對功率平衡方程求偏導(dǎo)，得出對應(yīng)的雅可比矩陣，給未知節(jié)點(diǎn)賦電壓初值，將初值帶入功率平衡方程，得到功率不平衡量，這樣由功率不平衡量、雅可比矩陣、節(jié)點(diǎn)電壓不平衡量（未知的）構(gòu)成了誤差方程，解誤差方程，得到節(jié)點(diǎn)電壓不平衡量，節(jié)點(diǎn)電壓加上節(jié)點(diǎn)電壓不平衡量構(gòu)成節(jié)點(diǎn)電壓新的初值，將新的初值帶入原來的功率平衡方程，并重新形成雅可比矩陣，然后計(jì)算新的電壓不平衡量，這樣不斷迭代，不斷修正，一般迭代三到五次就能收斂。牛頓迭代法其最大優(yōu)點(diǎn)是在方程f(x)=0的單根附近時(shí)誤差將呈平方減少，而且該法還可以用來求方程的重根、復(fù)根。計(jì)算精度要求各節(jié)點(diǎn)電壓修正量不大于106。一 研究內(nèi)容通過一道例題來認(rèn)真分析牛頓拉夫遜法的原理和方法（采用極坐標(biāo)形式的牛拉法），同時(shí)掌握潮流計(jì)算計(jì)算機(jī)算法的相關(guān)知識，能看懂并初步使用MATLAB軟件進(jìn)行編程，培養(yǎng)自己電力系統(tǒng)潮流計(jì)算機(jī)算法編程能力。潮流計(jì)算的計(jì)算機(jī)算法包含高斯—賽德爾迭代法、牛頓拉夫遜法和P—Q分解法等，其中牛拉法計(jì)算原理較簡單、計(jì)算過程也不復(fù)雜，而且由于人們引入泰勒級數(shù)和非線性代數(shù)方程等在算法里從而進(jìn)一步提高了算法的收斂性和計(jì)算速度。}}。outfile()。outfileoutfiledouble cc。double bb。outfile()。ee=()。(“e:”,ios::ate)。()。for(int//添加節(jié)點(diǎn)(A[11*i+0],A[11 A[11*i+5],A[11*i+6],A[11*i+7],A[11} for(i = 0。如下“()。outfile”i=0。}。(b)。char b。int a。ifstream infile。()。量double *A=new double[10*M]。//輸入數(shù)據(jù)流定義infilea。}else{}}。pass_w2(t,trchild)。amp。tSbegin()。}else{tlchildSbegin()。pass_w(t,tlchild,trchild)。t{tlchildSbegin()。t { if(tget_rchild()get_val()0amp。if(tget_lchild()get_val()0amp。tget_val()get_lchild()get_val()get_rchild()get_val()get_rchild()get_val(){ PostOrder(tlchild)。void BinTree::PostOrder(line_part *t){//后序遍歷二叉樹修改潮流if(tget_val()0amp。PreOrder(trchild)。trchildUend()。t{tUend()。} } else { if(tget_rchild()get_val()0amp。pass_U2(t,tlchild)。trchildUend()。pass_U(t,tlchild,trchild)。amp。amp。amp。/////////////////////////////////////////////////////////////////////////////////////////////////////////////////void BinTree::PreOrder(line_part *amp。outfile1”()。outfile1“double Q_cost。outfile1”outfile1“outfile1”outfile1“outfile1”double P_cost。outfile1get_val()”outfile1””get_Ubegin()outfile1””get_Uend()//計(jì)算并存放各個(gè)支double U_cost。double U。(“e:”,ios::ate)。display(trchild)。amp。/////////////////////////////////////////////////////////////////////////////////////////////////////////////// void BinTree::display(line_part *amp。} else {insertline_part(trchild, vall,u_end,u_begin,r,x,b,Pe,Xe,K,P0,Q0)。if(t==0||tget_val()t=new line_part(vall,u_end,u_begin,r,x,b,Pe,Xe,K,P0,Q0)。void BinTree::insertline_part(line_part *amp。void display(line_part *amp。t)。line_part *root。void display(){display(root)。void PostOrder(){PostOrder(root)。} void insertline_part(doubledouble x=0,double b=0,doubledouble K=0,double insertline_part(root,val