% demo for fitting non-linear combination of parameters

t = sort(rand(128,1))*10-2;
C = 6;
Tau = -4;
K = -2;

y = C*exp(t/Tau)+K + randn(size(t))*0.4;

clf
plot(t,y,'bo')

pause

cob = 1;
kob = -1;
tauob = -1;

[eb,cb,taub,kb] = expFit(t,y,cob,tauob,kob);

hold on

plot(t,eb,'rx-')

pause

co = 3.9;
ko = -2;
tauo = -3.5;

[e,c,tau,k] = expFit(t,y,co,tauo,ko);

plot(t,eb,'gd-')

hold off

return