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