hi/fil 1 jpsipolar.hst


APPLIC COMIS QUIT
      REAL FUNCTION FUNC(X)
	COMMON/PAWPAR/PAR(2)
	FUNC=PAR(1)*(1+PAR(2)*x*x)
 	END
QUIT



opt nsta
opt fit
set fit 111
zone 1 3

vec/create par(2) 

hi/fit 1 func L 2 par
hi/fit 2 func L 2 par
hi/fit 3 func L 2 par

close 0