Changeset e40493 in git for Singular/iparith.cc

Timestamp:

Oct 25, 2010, 2:42:44 PM (14 years ago)

Author:

Frank Seelisch <seelisch@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

def863c5f805648a6621b7829a098d93a4674d70

Parents:

ecf9dcf593da6add0caefe22cd9848d6852fc0e5

Message:

new command qrds in interpreter

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

File:

• Singular/iparith.cc (modified) (1 diff)

Singular/iparith.cc

@@ -7250 +7250 @@
   // rest was w->next, but is already cleaned
   return b;
+}
+static BOOLEAN jjQRDS(leftv res, leftv INPUT)
+{
+  if ((INPUT->Typ() != MATRIX_CMD) ||
+      (INPUT->next->Typ() != NUMBER_CMD) ||
+      (INPUT->next->next->Typ() != NUMBER_CMD) ||
+      (INPUT->next->next->next->Typ() != NUMBER_CMD))
+  {
+    WerrorS("expected (matrix, number, number, number) as arguments");
+    return TRUE;
+  }
+  leftv u = INPUT; leftv v = u->next; leftv w = v->next; leftv x = w->next;
+  res->data = (char *)qrDoubleShift((matrix)(u->Data()),
+                                    (number)(v->Data()),
+                                    (number)(w->Data()),
+                                    (number)(x->Data()));
+  return FALSE;
 }
 static BOOLEAN jjSTD_HILB_WP(leftv res, leftv INPUT)