! Copyright (C) 2009 Your name. ! See http://factorcode.org/license.txt for BSD license. USING: kernel tools.test automatic-differentiation math math.functions math.constants math.dual ; IN: automatic-differentiation.tests [ t ] [ 0 [ sin ] 1diff 1.0 epsilon 10 * ~ ] unit-test [ t ] [ 0 [ cos ] 1diff 0 epsilon 10 * ~ ] unit-test [ 1 ] [ 8 [ 3 + ] 1diff ] unit-test [ 3 5 ] [ 1 5 2 d+ unpack-dual ] unit-test [ 0 -1 ] [ 1 5 1 6 d- unpack-dual ] unit-test [ 2 1 ] [ 2 3 1 -1 d* unpack-dual ] unit-test [ -1/4 ] [ 2 [ 1 swap / ] 1diff ] unit-test [ 2 ] [ 1 [ 2 ^ ] 1diff ] unit-test [ 1/8 ] [ 4 [ sqrt ] 1diff ] unit-test