new test fit6shift: a shifted delta function, fitting data that are slightly...

new test fit6shift: a shifted delta function, fitting data that are slightly broader than the resolution.

pub/test/fit6shift.f2t

+#!/usr/bin/env frida
+fm 11 1 grid
+ox (i-5)
+1 oy 70*gauss(x,1)
+2 oy! y +- sqrt(y)
+1 oy 80*gauss(x-.15,1.1)
+3 oy! y +- sqrt(y)
+3 cc p2+p1*resol(p0)
+op0 .4
+op1 40
+op2 1e-8
+cv 2
+cf
+throw_unless(abs(p0[4,0]-.15)<.05,"shifted_resol_fit_failed")
+throw_unless(abs(p1[4,0]-80)<1,"shifted_resol_fit_failed")
+exit(1)