A=[539.658590944408,544.467335019023,543.118901615168,541.395536784412,539.719603563031,538.320685053971,536.799895148485,539.869612431029,534.915223499512,544.533125668254];6 i2 L/ l$ e, ^2 `2 Z
B=cumsum(A); 0 {1 P# k* d8 N) V+ ^
n=length(A);5 G; E* W9 N$ g2 Y
for m=1:(n-1) + w/ f( V: o) b( z* l% X
C(m)=(B(m)+B(m+1))/2; + N9 K& I2 q' o1 V8 I3 x
end( L2 u% T) B$ R
D=A;$ D# o+ L! X9 e9 I5 r& }) W
D(1)=[]; 2 O8 X9 C' \( F
D=D';1 g$ \7 c. W- N+ x6 O3 c: \
E=[-C;ones(1,n-1)]; # N8 w7 v$ W7 x: }& a6 p
c=inv(E*E')*E*D;5 B% e4 D\" q7 J- l9 v% o0 S
c=c'; + T1 [1 {# M5 A* C
a=c(1); . H' [- Z; I+ V! h- V
b=c(2); ' i* k0 r6 W6 m$ D& l# u
F=[]; & F6 X: i' O; Q4 |
F(1)=A(1); \" B1 L\" n: Q5 n; ?; q! l' C/ W' D. ?& n' C
for m=2:(n+10)7 N3 K/ s; z; A4 h: q
F(m)=(A(1)-b/a)/exp(a*(m-1))+b/a;/ F& e8 |+ y\" `
end- N/ ^\" c* J\" ~: `
G=[];1 z m4 W3 ~* P1 M* o
G(1)=A(1);2 I A\" U: W$ } R& j( k
for m=2:(n+2) ) X- Y1 {% A: w9 |& i; z$ o
G(m)=F(m)-F(m-1);/ G# d, m! f% g
end; |2 H. D0 }: z' D6 G2 X1 ~
t1=1:10; % @5 v6 R. ^' k7 u
t2=1:12;, [6 ^) k% e0 i: T! N
plot(t1,A,'r',t2,G,'g')( n* t2 v/ q\" L# r; {0 `! w