A=[539.658590944408,544.467335019023,543.118901615168,541.395536784412,539.719603563031,538.320685053971,536.799895148485,539.869612431029,534.915223499512,544.533125668254]; 1 I: p# u, a1 A
B=cumsum(A); & l- x# \* W5 {! _' U% G
n=length(A);4 }9 P; x9 ?7 [( k( f, l
for m=1:(n-1)) z/ \1 p# C& h3 x
C(m)=(B(m)+B(m+1))/2;# N8 S/ t8 K* i4 F: S& B% h
end! K! `% b2 s) P7 F! y
D=A; $ F: X1 s- @' a' M$ e. Q
D(1)=[]; 9 v' P; M( k7 A6 f! G
D=D';! N: q+ t\" Z: ?/ k7 d5 I6 o5 o
E=[-C;ones(1,n-1)];; j3 A) b6 |5 Z( Z* |
c=inv(E*E')*E*D; 6 q* {1 N% X9 \ j5 u! ^
c=c'; 3 P, e0 ~# H\" v- B2 ?
a=c(1);0 w# ]3 N2 q& ]$ l, w7 ~
b=c(2); * ~' B6 u+ `& \$ a
F=[]; 5 N. h7 k- J# O! G/ r/ i
F(1)=A(1); ; A# G3 r* S. _2 I6 f
for m=2:(n+10) % ^+ | `3 F1 [: \
F(m)=(A(1)-b/a)/exp(a*(m-1))+b/a; 8 g# m\" y\" i* L