A=[539.658590944408,544.467335019023,543.118901615168,541.395536784412,539.719603563031,538.320685053971,536.799895148485,539.869612431029,534.915223499512,544.533125668254]; % z# W ?4 O' K' L6 |8 {3 E
B=cumsum(A);3 W' c; o# T4 E; s9 Z5 T( s
n=length(A); + Z) j# q6 p9 n' `
for m=1:(n-1)' d2 S& v0 S4 m S& P8 a1 Z
C(m)=(B(m)+B(m+1))/2;3 ^! X* [5 k0 W/ `& K
end 6 A% y) z) c7 d3 `- O$ J
D=A;8 w$ x2 w$ k/ @
D(1)=[]; 0 r5 l! n, E+ b+ j3 \' _
D=D'; $ J e. K$ {# T1 F3 R
E=[-C;ones(1,n-1)]; 0 [% [. y' V$ R& y
c=inv(E*E')*E*D;0 F8 C: g# L( U- y5 m( z
c=c'; 1 e M; z7 p\" _: r& t
a=c(1); + \\" L# G# x/ S3 \9 L, N2 x; l\" e
b=c(2);2 D! Z# |( H7 P1 T7 j- P0 P& F
F=[]; 5 V; h9 }& _, i' D7 {
F(1)=A(1);7 ~5 @/ n5 l/ P+ {) ^) W2 u# Z/ A3 I
for m=2:(n+10)) f9 n% d3 B* I( ?
F(m)=(A(1)-b/a)/exp(a*(m-1))+b/a;. b1 _4 f$ x0 Q; q' F