[pure-lang-svn] SF.net SVN: pure-lang:[749] pure/trunk/lib/math.pure

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

Revision: 749
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=749&view=rev
Author:   agraef
Date:     2008-09-11 14:47:38 +0000 (Thu, 11 Sep 2008)

Log Message:
-----------
Mixed polar/real cases of + and - now return polar results as advertized.

Modified Paths:
--------------
    pure/trunk/lib/math.pure

Modified: pure/trunk/lib/math.pure
===================================================================
--- pure/trunk/lib/math.pure	2008-09-11 14:41:07 UTC (rev 748)
+++ pure/trunk/lib/math.pure	2008-09-11 14:47:38 UTC (rev 749)
@@ -275,13 +275,13 @@
 
 (x1+:y1)+x2	= x1+x2 +: y1 if realp x2;
 x1+(x2+:y2)	= x1+x2 +: y2 if realp x1;
-z1@(r1<:t1)+x2	= rect z1 + x2 if realp x2;
-x1+z2@(r2<:t2)	= x1 + rect z2 if realp x1;
+z1@(r1<:t1)+x2	= z1 + polar x2 if realp x2;
+x1+z2@(r2<:t2)	= polar x1 + z2 if realp x1;
 
 (x1+:y1)-x2	= x1-x2 +: y1 if realp x2;
 x1-(x2+:y2)	= x1-x2 +: -y2 if realp x1;
-z1@(r1<:t1)-x2	= rect z1 - x2 if realp x2;
-x1-z2@(r2<:t2)	= x1 - rect z2 if realp x1;
+z1@(r1<:t1)-x2	= z1 - polar x2 if realp x2;
+x1-z2@(r2<:t2)	= polar x1 - z2 if realp x1;
 
 z1@(x1+:y1)*x2	= z1 * rect x2 if realp x2;
 x1*z2@(x2+:y2)	= rect x1 * z2 if realp x1;


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