A=[539.658590944408,544.467335019023,543.118901615168,541.395536784412,539.719603563031,538.320685053971,536.799895148485,539.869612431029,534.915223499512,544.533125668254]; 1 o! n' c6 h! i. x
B=cumsum(A);. N0 ?& x( u3 H! h
n=length(A); 3 g9 u' a9 {, W2 N5 |& _9 } D
for m=1:(n-1) 8 N3 J- N4 ~' K+ u/ k7 G! S! l
C(m)=(B(m)+B(m+1))/2; . S9 {' @# n& G. X! E/ U
end' \$ C\" l' K- S$ Q* Q0 P
D=A; , }- F2 h+ W* W3 F8 w2 ^
D(1)=[]; . o* e N; E\" ?% A/ `
D=D';7 u: Y5 I5 J0 r2 A
E=[-C;ones(1,n-1)];7 }) R% p! f) }$ F# V; y
c=inv(E*E')*E*D;# \& {, e4 @! I; X8 {
c=c'; 2 ?2 T1 m3 s, M* O7 X- a4 j8 o' l
a=c(1); ; ]1 G# Y4 B! F6 g m) i
b=c(2);9 U5 S/ U5 D' Q% Y1 H) E7 ?. l
F=[];3 I0 O' i- V! ~/ g
F(1)=A(1);. T\" J' a& F. p/ b( x
for m=2:(n+10) & v T' K& g1 l6 k
F(m)=(A(1)-b/a)/exp(a*(m-1))+b/a; % \+ I# { M0 d# h g6 `