application comis
	real function func(x)
	common /pawpar/par(2)
	func = par(1) + par(2)*cos(x)*cos(x);
	return
	end
exit

vector/create par(2) R 10 10
*vec/cre name RealOrInteger reasonable_initial_values

opt stat
set stat 1111111
opt fit
set fit 1111

exe MC
cdir //upmu32r

histo/create/1dhisto 50 'Fit' 100 -1 1
nt/proj 50 1.fit_dir(3)

histo/fit 50 func ! 2 par
*ID function DefaultMode NParameters ParamVector
histo/plot