9 lines
242 B
Mathematica
9 lines
242 B
Mathematica
|
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
|