[pure-lang-svn] SF.net SVN: pure-lang:[595] pure/trunk

[<ag...@us...>]

Revision: 595
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=595&view=rev
Author:   agraef
Date:     2008-08-23 23:56:43 +0000 (Sat, 23 Aug 2008)

Log Message:
-----------
Correct wrong branch cut of complex acos.

Modified Paths:
--------------
    pure/trunk/lib/math.pure
    pure/trunk/test/test020.log

Modified: pure/trunk/lib/math.pure
===================================================================
--- pure/trunk/lib/math.pure	2008-08-23 23:42:23 UTC (rev 594)
+++ pure/trunk/lib/math.pure	2008-08-23 23:56:43 UTC (rev 595)
@@ -213,7 +213,7 @@
 asin z@(x+:y)	|
 asin z@(r<:t)	= -i*ln (i*z+sqrt (1-z*z));
 acos z@(x+:y)	|
-acos z@(r<:t)	= -i*ln (z+sqrt (z*z-1));
+acos z@(r<:t)	= -i*ln (z+i*sqrt (1-z*z));
 atan z@(x+:y)	|
 atan z@(r<:t)	= (ln (1+i*z)-ln (1-i*z))/(2*i);
 

Modified: pure/trunk/test/test020.log
===================================================================
--- pure/trunk/test/test020.log	2008-08-23 23:42:23 UTC (rev 594)
+++ pure/trunk/test/test020.log	2008-08-23 23:56:43 UTC (rev 595)
@@ -461,17 +461,17 @@
 acos,1L%3L,1.23
 acos,(-1L)%4L,1.82
 acos,1+:2,1.14+:-1.53
-acos,-1+:2,-2.00+:1.53
-acos,1+:-2,-1.14+:-1.53
-acos,-1.20+:4.30,-1.84+:2.20
-acos,1.20+:-4.30,-1.30+:-2.20
+acos,-1+:2,2.00+:-1.53
+acos,1+:-2,1.14+:1.53
+acos,-1.20+:4.30,1.84+:-2.20
+acos,1.20+:-4.30,1.30+:2.20
 acos,1L%2L+:1,1.22+:-0.926
 acos,1L%2L+:3L%4L,1.17+:-0.743
 acos,3<:1,1.02+:-1.80
 acos,3<:-2.14,2.12+:1.80
 acos,3.00<:-3,2.99+:1.76
-acos,3.10<:2.50,-2.47+:1.82
-acos,2L%3L<:2,-1.81+:0.589
+acos,3.10<:2.50,2.47+:-1.82
+acos,2L%3L<:2,1.81+:-0.589
 acos,1L%2L<:3L%4L,1.22+:-0.355
 acos,-inf,nan
 acos,nan,nan


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.