Changeset 3095a1 in git for Singular/gnumpc.cc

Timestamp:

Dec 13, 2000, 6:49:40 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

2c2db37cb61af0e417d395151cd3c532d9ff1482

Parents:

c17dd0f48fd2feb7f00ed95eb94b394157c1d7ba

Message:

*hannes: repart/impart


git-svn-id: file:///usr/local/Singular/svn/trunk@4886 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/gnumpc.cc (modified) (2 diffs)

Singular/gnumpc.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: gnumpc.cc,v 1.14 2000-12-06 11:03:09 Singular Exp $ */
+/* $Id: gnumpc.cc,v 1.15 2000-12-13 17:49:37 Singular Exp $ */
 /*
 * ABSTRACT: computations with GMP complex floating-point numbers
@@ -266 +266 @@
 }
 
+number ngcRePart(number a)
+{
+  if (((gmp_complex*)a)->real().isZero()) return NULL;
+  gmp_complex* n = new gmp_complex(((gmp_complex*)a)->real());
+  return (number)n;
+}  
+  
+number ngcImPart(number a)
+{
+  if (((gmp_complex*)a)->imag().isZero()) return NULL;
+  gmp_complex* n = new gmp_complex(((gmp_complex*)a)->imag());
+  return (number)n;
+}  
+  
 /*2
 * za >= 0 ?