12 lines
220 B
Mathematica
12 lines
220 B
Mathematica
|
function Lz=FormLz(Mat_G,Init_L,Busnum,Loadi)
|
||
|
|
VoltL=sparse(0.9*ones(Busnum,1));
|
||
|
|
PDL=sparse(0*ones(length(Loadi),1));
|
||
|
|
QDL=sparse(0*ones(length(Loadi),1));
|
||
|
|
t1=[PDL;
|
||
|
|
QDL;
|
||
|
|
VoltL
|
||
|
|
];
|
||
|
|
t2=Mat_G-Init_L-t1;
|
||
|
|
Lz=t2;
|
||
|
|
|
||
|
|
end
|