2014-05-21 22:26:48 +08:00
|
|
|
function AlphaP=FormAlphaP(Init_L,deltL,Init_U,deltU)
|
|
|
|
|
tdeltLinx=find(deltL<0);
|
|
|
|
|
tdeltUinx=find(deltU<0);
|
|
|
|
|
t1=-Init_L(tdeltLinx)./deltL(tdeltLinx);
|
|
|
|
|
t2=-Init_U(tdeltUinx)./deltU(tdeltUinx);
|
2014-05-23 18:03:03 +08:00
|
|
|
t3=[t1;t2];
|
2014-05-21 22:26:48 +08:00
|
|
|
t4=min(t3);
|
|
|
|
|
AlphaP=0.9995*min([t4 1]);
|
|
|
|
|
end
|
