rowan.a.tl/propeller
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed deriv test

Browse Source
This commit is contained in:
Julia Schor 2022-01-08 20:22:06 -05:00
parent 020fb01bd5
commit 65aafdd66d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/propeller/tools/calculus_test.cljc
View File

@ -3,6 +3,7 @@
[propeller.tools.calculus :as c])) [propeller.tools.calculus :as c]))
(t/deftest deriv_test (t/deftest deriv_test
(t/is (letfn [(cubic [x] (let [a (double x)] (* a a a)))] (t/is (letfn [(cubic [x] (let [a (double x)] (* a a a)))]
(= (c/deriv (cubic 2)) 2.0)) (< (max (- (c/deriv cubic 2) 12) (- (- (c/deriv cubic 2) 12))) 0.001)
)
) )
) )