9 lines
242 B
Mathematica
9 lines
242 B
Mathematica
|
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)';
|
||
|
|
t3=[t1,t2];
|
||
|
|
t4=min(t3);
|
||
|
|
AlphaP=0.9995*min([t4 1]);
|
||
|
|
end
|