foo=curvefitnl(tl4,l4,'p(1)*exp(p(2)*x).*sin(p(3)*x+p(4))+p(5)',[5.5275 -0.0012 0.0187 -1.1093 47.5166])

l4:

10.6202   -0.0012    0.0187   -1.0796   47.4955

r4:

4.1600   -0.0011    0.0189   -2.2527   44.7762
