A=[539.658590944408,544.467335019023,543.118901615168,541.395536784412,539.719603563031,538.320685053971,536.799895148485,539.869612431029,534.915223499512,544.533125668254]; ' I9 I! D0 F' i, R
B=cumsum(A); + M0 w% Q; }, r; {
n=length(A);. k& q. E& j5 |# z3 ?9 h W( Q
for m=1:(n-1) * o- ^) a4 S/ p4 r: {6 B$ m
C(m)=(B(m)+B(m+1))/2;, \3 V& \& L, V3 o6 R9 E0 x
end * l1 s ~3 N# O& S) T
D=A; 2 \1 H& l# ]5 l+ I! q
D(1)=[]; \" s6 | u$ W+ T! I! s l
D=D';( C' o/ t- U3 c; w, o* S- F
E=[-C;ones(1,n-1)];# ^) Y; t$ r. a1 m
c=inv(E*E')*E*D; 3 a5 Q\" i u' I% |) c
c=c'; + g( n: R6 T7 [* O1 }/ A- c
a=c(1); * j8 L# d7 Y\" @' ?+ t\" R9 K6 i
b=c(2);* r# m6 d7 `8 ]4 t3 _( W. u
F=[];# u' A8 Z2 S+ t: g) m3 f' p
F(1)=A(1); 1 \+ C- U% i* q\" P8 N+ i
for m=2:(n+10)8 R: Y; t5 q& G\" v! p$ J( S
F(m)=(A(1)-b/a)/exp(a*(m-1))+b/a;' S% s. @$ j. n: {