Changeset f8943af6bff60e23d679089db5207b4834aa83ff for rttests.lisp
 Timestamp:
 04/09/12 08:55:27 (2 years ago)
 Children:
 f203389e5e78d1f001f68447ac2a9dd86dcfbbf6, 22db89aa72af64360ed2d0f97709fc26ca01368b
 Parents:
 cb1a5d41baf9d4db12a2563a230d0a1e55c8adea
 gitcommitter:
 Raymond Toy <rtoy@…> (04/09/12 08:55:27)
 Files:

 1 modified
Legend:
 Unmodified
 Added
 Removed

rttests.lisp
r6cfb0a rf8943a 909 909 nil) 910 910 911 (rt:deftest oct.jacobi sn.1q911 (rt:deftest oct.jacobicn.1q 912 912 (let* ((ek (elliptick #q.5)) 913 913 (val (jacobicn ek #q.5))) … … 1180 1180 for t3 = (elliptictheta3 0 (ellipticnome m)) 1181 1181 for true = (sqrt (/ (* 2 (elliptick m)) (floatpi m))) 1182 for result = (checkaccuracy 20 6t3 true)1182 for result = (checkaccuracy 205.7 t3 true) 1183 1183 when result 1184 1184 append (list (list (list k m) result))) … … 1412 1412 nil) 1413 1413 1414 (rt:deftest psi.2 d1414 (rt:deftest psi.2q 1415 1415 (let* ((z (float 4/3 #q1)) 1416 1416 (p (psi z))