Changeset 4b3ef4b in git for Singular/iparith.cc

Timestamp:

Feb 4, 2010, 4:20:34 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a355e47496ff8e6d78a5da6dacb5b38967d28f1a

Parents:

42099834c4d0154ac63fda8120c1c194d59c35f6

Message:

new command: monom

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

File:

• Singular/iparith.cc (modified) (3 diffs)

Singular/iparith.cc

@@ -324 +324 @@
   { "modulo",      0, MODULO_CMD ,        CMD_2},
   { "monitor",     0, MONITOR_CMD ,       CMD_12},
+  { "monom",       0, MONOM_CMD ,         CMD_1},
   { "mpresmat",    0, MPRES_CMD,          CMD_2},
   { "mult",        0, MULTIPLICITY_CMD ,  CMD_1},
@@ -2669 +2670 @@
   return FALSE;
 #endif
+}
+static BOOLEAN jjMONOM(leftv res, leftv v)
+{
+  intvec *iv=(intvec *)v->Data();
+  poly p=pOne();
+  int i;
+  for(i=si_min(pVariables,iv->length()); i>0; i--)
+  {
+    pSetExp(p,i,(*iv)[i-1]);
+  }
+  if (iv->length()==(pVariables+1))
+  {
+    res->rtyp=VECTOR_CMD;
+    pSetComp(p,(*iv)[pVariables]);
+  }
+  pSetm(p);
+  res->data=(char*)p;
+  return FALSE;
 }
 static BOOLEAN jjPARSTR2(leftv res, leftv u, leftv v)
@@ -5389 +5408 @@
 ,{jjDUMMY,      MODUL_CMD,       MODUL_CMD,      MODUL_CMD     , ALLOW_PLURAL |ALLOW_RING}
 ,{jjMONITOR1,   MONITOR_CMD,     NONE,           LINK_CMD      , ALLOW_PLURAL |ALLOW_RING}
+,{jjMONOM,      MONOM_CMD,       POLY_CMD,       INTVEC_CMD    , ALLOW_PLURAL |ALLOW_RING}
 ,{jjMULT,       MULTIPLICITY_CMD,  INT_CMD,      IDEAL_CMD     , NO_PLURAL |ALLOW_RING}
 ,{jjMULT,       MULTIPLICITY_CMD,  INT_CMD,      MODUL_CMD     , NO_PLURAL |ALLOW_RING}