original.not modified.

2012-05-22 11:33:21 +08:00
commit cb34aec845
83 changed files with 13475 additions and 0 deletions
--- a/FormAlphaD.m
+++ b/FormAlphaD.m
@@ -0,0 +1,9 @@
+function AlphaD=FormAlphaD(Init_Z,deltZ,Init_W,deltW)
+tdeltZinx=find(deltZ<0);
+tdeltWinx=find(deltW>0);
+t1=-Init_Z(tdeltZinx)./deltZ(tdeltZinx)';
+t2=-Init_W(tdeltWinx)./deltW(tdeltWinx)';
+t3=[t1,t2];
+t4=min(t3);
+AlphaD=0.9995*min([t4 1]);
+end