Changeset d6a97c3 in git for libpolys/polys/nc/nc.h

Timestamp:

Apr 11, 2011, 3:17:12 PM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

2ad10e9bccb45c1c7d3c33a6cd3de52209778816

Parents:

40d064981b228dd3692e8e17e5a065cfba2599a2

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-04-11 15:17:12+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 12:04:22+01:00

Message:

FIX: the rest of NC-related stuff can be compiled in now

File:

• libpolys/polys/nc/nc.h (modified) (1 diff)

libpolys/polys/nc/nc.h

@@ -369 +369 @@
 
 
-
+#ifdef PLURAL_INTERNAL_DECLARATIONS
+
+#include <polys/matpol.h>
+
+// read only access to NC matrices C/D:
+// get C_{i,j}, 1 <= row = i < j = col <= N
+static inline poly GetC( const ring r, int i, int j ) 
+{
+  assume(r!= NULL && rIsPluralRing(r));
+  const matrix C = GetNC(r)->C;
+  assume(C != NULL);
+  const int ncols = C->ncols;
+  assume( (i > 0) && (i < j) && (j <= ncols) );
+  return ( C->m[ncols * ((i)-1) + (j)-1] );
+}
+
+// get D_{i,j}, 1 <= row = i < j = col <= N
+static inline poly GetD( const ring r, int i, int j ) 
+{
+  assume(r!= NULL && rIsPluralRing(r));
+  const matrix D = GetNC(r)->D;
+  assume(D != NULL);
+  const int ncols = D->ncols;
+  assume( (i > 0) && (i < j) && (j <= ncols) );
+  return ( D->m[ncols * ((i)-1) + (j)-1] );
+}
+
+#endif /* PLURAL_INTERNAL_DECLARATIONS */
 
 #endif /* HAVE_PLURAL */