* init initial simplex points by user
.control
let ftol=0.000005
let tiny=1e-10
let p = vector(ndim*mpts)
reshape p [3,2]
let p[0][0]=10
let p[0][1]=10
let p[1][0]=10
let p[1][1]=8
let p[2][0]=8
let p[2][1]=10
cpt_psum
let ptry=p[0]
func
let y[0]=funcval
let ptry=p[1]
func
let y[1]=funcval
let ptry=p[2]
func
let y[2]=funcval
.endc

