## clocc-devel

You can subscribe to this list here.

2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2011 2012 Jan (38) Feb (206) Mar (150) Apr (124) May (183) Jun (212) Jul (124) Aug (91) Sep (49) Oct (15) Nov (38) Dec (10) Jan (39) Feb (36) Mar (47) Apr (51) May (53) Jun (97) Jul (66) Aug (47) Sep (56) Oct (31) Nov (24) Dec (64) Jan (69) Feb (125) Mar (133) Apr (50) May (47) Jun (26) Jul (101) Aug (87) Sep (76) Oct (19) Nov (16) Dec (15) Jan (9) Feb (11) Mar (12) Apr (17) May (3) Jun (13) Jul (17) Aug (7) Sep (8) Oct (4) Nov (10) Dec (11) Jan (13) Feb (5) Mar (12) Apr (14) May (13) Jun (16) Jul (16) Aug (8) Sep Oct Nov Dec Jan Feb Mar Apr (4) May (2) Jun (5) Jul (7) Aug (15) Sep Oct Nov (1) Dec (1) Jan (1) Feb (4) Mar Apr May Jun Jul (12) Aug Sep (2) Oct (2) Nov Dec Jan Feb Mar Apr (2) May Jun (7) Jul Aug (16) Sep (8) Oct (6) Nov (7) Dec (3) Jan (4) Feb (4) Mar (37) Apr (21) May Jun Jul (3) Aug Sep Oct Nov Dec Jan Feb Mar Apr (1) May (1) Jun (1) Jul Aug Sep Oct Nov Dec Jan (1) Feb (20) Mar (26) Apr May Jun Jul (1) Aug Sep Oct Nov (1) Dec Jan (1) Feb (1) Mar Apr May Jun Jul Aug Sep Oct Nov (7) Dec (1) Jan Feb Mar Apr (2) May Jun Jul Aug Sep Oct Nov Dec
S M T W T F S

1

2
(15)
3

4
(1)
5
(2)
6

7

8
(2)
9
(6)
10
(1)
11

12
(10)
13

14

15
(6)
16
(2)
17
(3)
18
(16)
19
(4)
20

21
(3)
22
(11)
23
(1)
24
(2)
25
(2)
26
(2)
27

28

29

30
(10)
31
(2)

Showing 1 results of 1

 Re: Some comments on the ansi test suite From: Raymond Toy - 2002-07-10 23:25:10 ```>>>>> "Peter" == Peter Van Eynde writes: Peter> Replace them with a better test would be nice. As most of them are fp Peter> problems we should (IMHO) replace them with "zero knowledge" tests or Peter> remove them. How about the following tests: ;; sin(8*pi/2) = sin(4*pi) = 0. Assume that our pi is a bit off. Say ;; pi*(1+eps). Then sin(8*pi*(1+eps)/2) = sin(4*pi + 4*pi*eps) = ;; sin(4*pi*eps) ~= 4*pi*eps. Test for this, but allow a fudge factor ;; of 2. (check-for-bug :alltest-legacy-1045 (let ((y (sin (* 8 (/ pi 2)))) (fudge 2)) (< (abs y) (* fudge (* 4 pi long-float-epsilon)))) t) ;; As in 1045, cos(pi*(1+eps)/2) = cos(pi/2+pi*eps/2) = -sin(pi*eps/2) ;; ~= -pi*eps/2. Check that we are close enough. (check-for-bug :alltest-legacy-1061 (let ((y (cos (/ pi 2))) (fudge 2)) (< (abs y) (* fudge (* pi long-float-epsilon 1/2)))) t) ;; As in 1045, tan(x) = sin(x)/cos(x). When x = pi/2+pi*eps/2, sin(x) ;; is essentially 1, but cos(x) is about pi/2*eps. So tan(x) = ;; 1/cos(x). (check-for-bug :alltest-legacy-1073 (zerop (- (tan (/ pi 2)) (/ (cos (/ pi 2))))) t) Perhaps that last test should not test for zerop but some relative error between tan(pi/2) and 1/cos(pi/2)? Ray ```

Showing 1 results of 1