4

This is a bit slow but you could construct the fit yourself as a minimization of square residuals. This gives me: {A -> 18.9346, w -> 0.768869, xc -> 1583.96, ϕ -> -0.632702} dx = 0.01; resl = 0.15; vX = Table[i, {i, 1582, 1586, dx}]; L = Length[vX]; vX2 = PadRight[vX, 2 L - 1]; Length[vX2]; c = 2.99792458*10^5; f[x_, y0_, A_, w_, xc_, ϕ_] := ...


Only top voted, non community-wiki answers of a minimum length are eligible