* amotry -1,0.5,2
.control
let fac = $argv[1]
let fac1 = (1-fac)/ndim
let fac2 = fac1-fac
let ptry = psum*fac1-p[ihi]*fac2
func
let ytry = funcval
if ytry lt (y[(ihi)])
	let y[ihi]=ytry
	let psum=psum+ptry-p[ihi]
	let p[ihi]=ptry
end
.endc



