FUNCTION f, m, x 
  y = [2, 4, 3] 
  t = [1, 2, 3] 
  RETURN, EXP(x(0) * t) - y 
END 

Pro Nlinlsq_test1
  @math_startup
  solution = NLINLSQ("f", 3, 1,/Double) 
  PM, solution, Title = 'The solution is:' 
  PM, f(m, solution), Title = 'The function values are:' 
End