ncp_sigmoid/Sigmoid函数法/formY_RPP.m

function [G,B,lineI,lineJ,lineB,transI,transJ,transK0,transNum,transKmin,transKmax,capI,capGi,capBi,capK,capKmin,capKmax,capNum,transG,transB,...
    transG1,transB1,lineNum]=formY_RPP(nodeNum,lineNum,mtrLine,mtrGround,mtrTrans,mtrCapacitor)              
%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܣ<EFBFBD><EFBFBD>γɽڵ㵼<EFBFBD>ɾ<EFBFBD><EFBFBD><EFBFBD>
%<EFBFBD><EFBFBD>дʱ<EFBFBD>䣺2010<EFBFBD><EFBFBD>10<EFBFBD><EFBFBD>

%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>壺
%G--<EFBFBD>絼<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,B--<EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>lineI,lineJ--<EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ţ<EFBFBD>lineR--<EFBFBD><EFBFBD>·<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
%lineX--<EFBFBD><EFBFBD>·<EFBFBD>翹<EFBFBD><EFBFBD>groundI--<EFBFBD>ӵ<EFBFBD>֧·<EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
%groundR--<EFBFBD>ӵ<EFBFBD>֧·<EFBFBD><EFBFBD><EFBFBD>裬groundX--<EFBFBD>ӵ<EFBFBD>֧·<EFBFBD>翹
%transI<EFBFBD><EFBFBD>transJ--<EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD>֧·<EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 
%transR--<EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD>֧·<EFBFBD><EFBFBD><EFBFBD>裬transX--<EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD>֧·<EFBFBD>翹
%transK--<EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
%transG--<EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD>֧·<EFBFBD><EFBFBD>Ч<EFBFBD>絼<EFBFBD><EFBFBD>transB--<EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD>֧·<EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD><EFBFBD><EFBFBD>

%% <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD>ͽӵ<EFBFBD>֧·<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>γɵ<EFBFBD><EFBFBD>ɾ<EFBFBD><EFBFBD><EFBFBD> 
lineI=mtrLine(:,2);                                                         
lineJ=mtrLine(:,3);                                                         
lineR=mtrLine(:,4);                                                        
lineX=mtrLine(:,5);                                                         
lineB=mtrLine(:,6); 
%<EFBFBD>ӵ<EFBFBD>֧·<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
groundI=mtrGround(:,2);  
groundG=mtrGround(:,3);
groundB=mtrGround(:,4); 
%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
capCtrl=mtrCapacitor(:,2);
capCtrl=ones(length(capCtrl),1);
capIall=mtrCapacitor(:,3);
capGiall=mtrCapacitor(:,4);
capBiall=mtrCapacitor(:,5);
capKall=mtrCapacitor(:,6);
capKminall=mtrCapacitor(:,7);
capKmaxall=mtrCapacitor(:,8);

Yij=1./(lineR+j*lineX);
Y1=-sparse(lineI,lineJ,Yij,nodeNum,nodeNum)-sparse(lineJ,lineI,Yij,nodeNum,nodeNum)...
    +sparse(lineI,lineI,Yij+j*lineB,nodeNum,nodeNum)+sparse(lineJ,lineJ,Yij+j*lineB,nodeNum,nodeNum)...
    +sparse(groundI,groundI,groundG+j*groundB,nodeNum,nodeNum)...
    +sparse(capIall,capIall,j*capKall,nodeNum,nodeNum);
%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݵ翹<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
capCtrlNode=find(capCtrl);
capI=capIall(capCtrlNode);
capGi=capGiall(capCtrlNode);
capBi=capBiall(capCtrlNode);
capK=capKall(capCtrlNode);
capKmin=capKminall(capCtrlNode);
capKmax=capKmaxall(capCtrlNode);
capNum=length(capI);
%% <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD>֧·<EFBFBD>޸ĵ<EFBFBD><EFBFBD>ɾ<EFBFBD><EFBFBD><EFBFBD>
transCtrl=mtrTrans(:,2);
transIall=mtrTrans(:,3);
transJall=mtrTrans(:,4);
transR=mtrTrans(:,5);
transX=mtrTrans(:,6);
transK0all=mtrTrans(:,7);
transY=1./(transR+j*transX);
Y1=Y1-sparse(transIall,transJall,transY./transK0all,nodeNum,nodeNum)-sparse(transJall,transIall,transY./transK0all,nodeNum,nodeNum)...
    +sparse(transIall,transIall,transY./transK0all./transK0all,nodeNum,nodeNum)+sparse(transJall,transJall,transY,nodeNum,nodeNum);
Yt=sparse(transIall,transJall,-transY,nodeNum,nodeNum);                     %<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>̨<EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵Ľڵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڸ<EFBFBD><EFBFBD>½ڵ㵼<EFBFBD>ɾ<EFBFBD><EFBFBD><EFBFBD>ʱֻʶ<EFBFBD><EFBFBD>һ̨<EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD>
transIJ=sub2ind(size(Yt),transIall,transJall);
%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɵ<EFBFBD><EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
transYt=Yt(transIJ);
ctrTransNum=find(transCtrl);
transI=transIall(ctrTransNum);
transJ=transJall(ctrTransNum);
transKmax=1/0.9*ones(size(transI));
transKmin=1/1.1*ones(size(transI));
transK0=transK0all(ctrTransNum);
transG=real(transYt(ctrTransNum));
transB=imag(transYt(ctrTransNum));
transG1=-real(transY(ctrTransNum));                                         %֮<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ΪtransG<EFBFBD><EFBFBD>transB<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>еĻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><EFBFBD>ڼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ե<EFBFBD><EFBFBD>ɵ<EFBFBD>ʱ<EFBFBD><EFBFBD>ע<EFBFBD><EFBFBD>Ҫ<EFBFBD><EFBFBD>-transG<EFBFBD><EFBFBD>-transB!!!!
transB1=-imag(transY(ctrTransNum));
transNum=length(transI);
lineI=[lineI;transI];                                                       %<EFBFBD><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD>ͱ<EFBFBD>ѹ<EFBFBD><EFBFBD>֧·<EFBFBD>ı<EFBFBD><EFBFBD>źϲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ں<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>·Լ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>ͬʱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
lineJ=[lineJ;transJ];
lineNum=lineNum+transNum;
%% <EFBFBD><EFBFBD><EFBFBD>ڵ㵼<EFBFBD>ɵķ<EFBFBD>ֵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
[Yrows,Ycols,Y1] = find(Y1);
G=real(Y1);
B=imag(Y1);
G=sparse(Yrows,Ycols,G,nodeNum,nodeNum);
B=sparse(Yrows,Ycols,B,nodeNum,nodeNum);