QENS fit functions - jump diffusion

#pragma rtGlobals=1		// Use modern global access method.
//Jobic, H. & Theodorou, D.
//"Quasi-elastic neutron scattering and molecular dynamics simulation
// as complementary techniques for studying diffusion in zeolites",
// Microporous and Mesoporous Materials, 2007, 102, 21-50

//note that we are fitting FWHM, NOT HWHM, so there are factors of two difference.
Function chudleyelliot(w, y, x):fitfunc
	wave w, y, x
	//eqn 51
	//w[0] = tau
	//w[1] = d

	y = sin(x * w[1]) / (x * w[1])
	y = 1 - y
	y /= w[0] / 2
End

Function hallross(w, y, x):fitfunc
	wave w, y, x
	//eqn 53
	//w[0] = tau
	//w[1] = <r^2>

	y = exp(-1 * x^2 * w[1] / 6)
	y = 1 - y
	y /= w[0] / 2
End

Function singwisjolander(w, y, x):fitfunc
	wave w, y, x
	//eqn 55
	//w[0] = tau
	//w[1] = <r^2>

	y = x^2 * w[1]
	y /= 1 + x^2 * w[1] / 6
	y /= w[0] * 6 / 2
End