original.not modified.

2012-05-22 11:33:21 +08:00
commit cb34aec845
83 changed files with 13475 additions and 0 deletions
--- a/FormLxComa.m
+++ b/FormLxComa.m
@@ -0,0 +1,11 @@
+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