Changeset e40493 in git


Ignore:
Timestamp:
Oct 25, 2010, 2:42:44 PM (14 years ago)
Author:
Frank Seelisch <seelisch@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
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
Location:
Singular
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    recf9dc re40493  
    72507250  // rest was w->next, but is already cleaned
    72517251  return b;
     7252}
     7253static BOOLEAN jjQRDS(leftv res, leftv INPUT)
     7254{
     7255  if ((INPUT->Typ() != MATRIX_CMD) ||
     7256      (INPUT->next->Typ() != NUMBER_CMD) ||
     7257      (INPUT->next->next->Typ() != NUMBER_CMD) ||
     7258      (INPUT->next->next->next->Typ() != NUMBER_CMD))
     7259  {
     7260    WerrorS("expected (matrix, number, number, number) as arguments");
     7261    return TRUE;
     7262  }
     7263  leftv u = INPUT; leftv v = u->next; leftv w = v->next; leftv x = w->next;
     7264  res->data = (char *)qrDoubleShift((matrix)(u->Data()),
     7265                                    (number)(v->Data()),
     7266                                    (number)(w->Data()),
     7267                                    (number)(x->Data()));
     7268  return FALSE;
    72527269}
    72537270static BOOLEAN jjSTD_HILB_WP(leftv res, leftv INPUT)
  • Singular/table.h

    recf9dc re40493  
    819819,{D(jjCALL3ARG),  STD_CMD,         IDEAL_CMD,           3      , NO_PLURAL |ALLOW_RING}
    820820,{D(jjSTD_HILB_WP), STD_CMD,       IDEAL_CMD,           4      , NO_PLURAL |ALLOW_RING}
     821,{D(jjQRDS),      QRDS_CMD,        LIST_CMD,            4      , ALLOW_PLURAL |ALLOW_RING}
    821822#ifdef HAVE_FANS
    822823,{D(jjADDADJ),    ADDADJ_CMD,      NONE,               -2      , NO_PLURAL |NO_RING}
     
    10181019  { "proc",        0, PROC_CMD ,          PROC_CMD},
    10191020  { "qhweight",    0, QHWEIGHT_CMD ,      CMD_1},
     1021  { "qrds",        0, QRDS_CMD ,          CMD_M},
    10201022  { "qring",       0, QRING_CMD ,         ROOT_DECL},
    10211023  { "quote",       0, QUOTE ,             QUOTE},
Note: See TracChangeset for help on using the changeset viewer.