A=[539.658590944408,544.467335019023,543.118901615168,541.395536784412,539.719603563031,538.320685053971,536.799895148485,539.869612431029,534.915223499512,544.533125668254];- ]! C3 M; P, K4 G
B=cumsum(A);. ~* }: m; B/ a! H
n=length(A); : i! ?* l) d# Z\" D h! a$ k
for m=1:(n-1) : I- |* k/ ]9 e
C(m)=(B(m)+B(m+1))/2; % y8 e$ V* w' f' y# L- x9 a1 _1 E
end7 y7 H% z; ~5 f+ u$ N
D=A;$ j) j: e/ p2 @0 `
D(1)=[];( E0 @! N2 V/ P' l9 R6 l$ d
D=D'; - N3 R: s# }) B6 ]1 z; b
E=[-C;ones(1,n-1)]; ! r; q0 p\" @) f/ ?
c=inv(E*E')*E*D; {* |! l( f9 B$ C. {- ?) |
c=c';3 O; W4 D: }- H
a=c(1);9 S& f1 H\" G: A6 l0 q
b=c(2);- y, ]4 o8 S/ w2 R) G' Q
F=[]; 1 }; R. T& W# e) x5 h\" }: y/ r
F(1)=A(1); - b/ x @2 j+ Q' z7 I5 [' m# f
for m=2:(n+10) 1 o! b3 q6 _\" `7 [
F(m)=(A(1)-b/a)/exp(a*(m-1))+b/a;, {9 }4 X, e1 ^ P6 f, a8 A