Changeset f8943a for rttests.lisp
 Timestamp:
 04/09/12 15:55:27 (3 years ago)
 Branches:
 master
 Children:
 f20338, b1d9be
 Parents:
 cb1a5d
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

rttests.lisp
r6cfb0a rf8943a 910 910 nil) 911 911 912 (rt:deftest oct.jacobi sn.1q912 (rt:deftest oct.jacobicn.1q 913 913 (let* ((ek (elliptick #q.5)) 914 914 (val (jacobicn ek #q.5))) … … 1182 1182 for t3 = (elliptictheta3 0 (ellipticnome m)) 1183 1183 for true = (sqrt (/ (* 2 (elliptick m)) (floatpi m))) 1184 for result = (checkaccuracy 20 6t3 true)1184 for result = (checkaccuracy 205.7 t3 true) 1185 1185 when result 1186 1186 append (list (list (list k m) result))) … … 1417 1417 nil) 1418 1418 1419 (rt:deftest psi.2 d1419 (rt:deftest psi.2q 1420 1420 (let* ((z (float 4/3 #q1)) 1421 1421 (p (psi z))
Note: See TracChangeset
for help on using the changeset viewer.