! TITLE: ztest.mac (VERIFICATION) ! !--------------------------------------------------------------------------- ! Rev - 03/28/2001 D. Edwards !--------------------------------------------------------------------------- ! ! Test zero.mac ! ! Find where x = x^2. Arrange the equation to give: ! ! yzero = f(x) = x - x^2 = 0 ! !--------------------------------------------------------------------------- ! ! Usage: zero_test,x ! ! Arguments: ! ! x = The independent variable ! !--------------------------------------------------------------------------- ! ! Example: ztest,3 ! ! will return yzero = f(3) ! !--------------------------------------------------------------------------- clear_start_new x=arg1 yzero=x*(1-x)