from
Double Exponentian Calculating Program
by Andrés Vanegas
This program compute the double exponential Alpha and Beta parameters.
|
| valores=NUEVO(Imax,t1,t2)
|
function valores=NUEVO(Imax,t1,t2)
global t1 t2
t03=t1*0.3;
t09=t1*0.9;
% PUNTOS INICIALES E ITERACION
if (t1==8) & (t2==20)
kini=2.11653466667;
alfaini=0.05776227;
betaini=0.2310491;
valores=[kini alfaini betaini t03 t09];
else
if (t2>0) & (t2<10)
kini=1.5;
alfaini=0.15;
betaini=2;
valores=fminsearch('RAYO',[kini alfaini betaini t03 t09]);
end
if (t2>=10) & (t2<30)
kini=2;
alfaini=0.05;
betaini=0.2;
valores=fminsearch('RAYO',[kini alfaini betaini t03 t09]);
end
if (t2<=50) & (t2>=30)
kini=3;
alfaini=0.01;
betaini=0.1;
valores =fminsearch('RAYO',[kini alfaini betaini t03 t09]);
end
if (t2>50) & (t2<2000)
kini=1.1;
alfaini=0.003;
betaini=0.1;
valores=fminsearch('RAYO',[kini alfaini betaini t03 t09]);
end
if t2>=2000
kini=1.2;
alfaini=0.00043;
betaini=0.009;
valores=fminsearch('RAYO',[kini alfaini betaini t03 t09]);
end
end
|
|
Contact us at files@mathworks.com