johnpye/fprops/resid.mac

#
# Some code for use with wxMaxima for calculation of terms in the
# residual expression, particularly for the gaussian terms (see hydrogen.c)
#

term(tau,del) := n*del^d*tau^t*exp(-(alp*(del-eps)^2 + bet*(tau-gam)^2))

# l != 0
term(tau,del) := n*del^d*tau^t*exp(-del^l)

# l = 0
term(tau,del) := n*del^d*tau^t
1	#
2	# Some code for use with wxMaxima for calculation of terms in the
3	# residual expression, particularly for the gaussian terms (see hydrogen.c)
4	#
5
6	term(tau,del) := ndel^dtau^texp(-(alp(del-eps)^2 + bet*(tau-gam)^2))
7
8	# l != 0
9	term(tau,del) := ndel^dtau^t*exp(-del^l)
10
11	# l = 0
12	term(tau,del) := ndel^dtau^t