A=[539.658590944408,544.467335019023,543.118901615168,541.395536784412,539.719603563031,538.320685053971,536.799895148485,539.869612431029,534.915223499512,544.533125668254]; \" C( o2 K- F. Y
B=cumsum(A); , f x1 J1 W* |8 N
n=length(A);# Y5 z _4 G! M& g
for m=1:(n-1) ' l' K2 ]/ ^ Q4 ? _1 ], i/ ]8 k7 D
C(m)=(B(m)+B(m+1))/2;( f6 d0 B, Z& G. P
end 6 y1 |& [$ ^, Q% d7 G, N3 ?, k+ F
D=A; 8 Z( `, t% |% [: a' m3 `
D(1)=[];/ h x5 `5 Y8 J- Z& f\" O
D=D';% H- o9 B4 B- E; Z% Y$ @* f
E=[-C;ones(1,n-1)];) o3 u6 H4 s7 D. q6 i\" R3 i
c=inv(E*E')*E*D; + s/ Y; m0 @9 g( ^; K7 V D
c=c';- b8 D ` z4 q( G\" Q\" p$ Y
a=c(1);- X# H: y. @9 w% B! m! U
b=c(2); . n: G* j2 y/ u/ ]% n
F=[]; U# t3 e: D Y
F(1)=A(1);. T' F* O\" A0 G9 K; d: R
for m=2:(n+10)6 l4 A7 |8 Q: F5 ]
F(m)=(A(1)-b/a)/exp(a*(m-1))+b/a; ! C0 [! u. @; H0 d) C! q