No BSD License  

Highlights from
Double Exponentian Calculating Program

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