1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| function main
global ti yi
ti = [10800 43200 86400 172800 604800];
yi = [0.6 0.7 1 1.2 1.4];
a0 = [0.1 5];
asol = fminsearch ( @F, a0)
plot (ti, yi, '*', ti, f(asol, ti))
function y = f(a,t)
y=0.035*Integrale(a,t);
end
function out = F(a)
global ti yi
out = sum ( (yi - f(a,ti)).^2 );
end
function I = Integrale(a,t)
v=-1.8:1.8;
I=trapz(v,maFonction(a,t,v));
end
function fc = maFonction(a,t,v)
t = t(:);
v = v(:)';
f = v.*((a(2)-1).*a(1).*1400*t+(-35.95.*v).^(1-a(2))).^(1./(1-a(2)));
end
end |
Partager