11 lines
280 B
Mathematica
11 lines
280 B
Mathematica
|
function LxComa=FormLxComa(deltF,deltG,deltH,Init_L,Luu,Lul,Init_Z,Init_Y,Lz,Init_U,Init_W,Lw,Lx)
|
||
|
|
%t1=deltG*(Init_Z'+Init_W');%%
|
||
|
|
t2=Lul+diag(Init_Z)*Lz;
|
||
|
|
t3=inv(diag(Init_L));
|
||
|
|
t4=t3*t2;%
|
||
|
|
t5=Luu-diag(Init_W)*Lw;
|
||
|
|
t6=inv(diag(Init_U));
|
||
|
|
t7=t6*t5;%
|
||
|
|
t8=deltG*(t4+t7);%%
|
||
|
|
LxComa=Lx+t8;
|
||
|
|
end
|