Changeset 6bd53ba in git


Ignore:
Timestamp:
Jan 28, 2015, 5:07:50 PM (9 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
6fcbe89e09cb8c0ccfddde65e57da4c5a60c8854
Parents:
52a01d339a6b3235b8c72306c4bbd4079100a4a9
Message:
new command: align
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • Singular/iparith.cc

    r52a01d r6bd53ba  
    17431743}
    17441744#endif
     1745static BOOLEAN jjALIGN_V(leftv res, leftv u, leftv v)
     1746{
     1747  poly p=(poly)u->CopyD();
     1748  int s=(int)(long)v->Data();
     1749  if (s+p_MinComp(p,currRing)<=0)
     1750  { p_Delete(&p,currRing);return TRUE;}
     1751  p_Shift(&p,s,currRing);
     1752  res->data=p;
     1753  return FALSE;
     1754}
     1755static BOOLEAN jjALIGN_M(leftv res, leftv u, leftv v)
     1756{
     1757  ideal M=(ideal)u->CopyD();
     1758  int s=(int)(long)v->Data();
     1759  for(int i=IDELEMS(M)-1; i>=0;i--)
     1760  {
     1761    if (s+p_MinComp(M->m[i],currRing)<=0)
     1762    { id_Delete(&M,currRing);return TRUE;}
     1763    p_Shift(&(M->m[i]),s,currRing);
     1764  }
     1765  res->data=M;
     1766  return FALSE;
     1767}
    17451768static BOOLEAN jjCHINREM_ID(leftv res, leftv u, leftv v)
    17461769{

  • Singular/table.h

    r52a01d r6bd53ba  
    505505,{D(jjCOLON),     ':',            INTVEC_CMD,     INT_CMD,    INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    506506// and the procedures with 2 arguments:
     507,{D(jjALIGN_V),   ALIGN_CMD,      VECTOR_CMD,     VECTOR_CMD, INT_CMD, ALLOW_PLURAL | ALLOW_RING}
     508,{D(jjALIGN_M),   ALIGN_CMD,      MODUL_CMD,      MODUL_CMD,  INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    507509,{D(atATTRIB2),   ATTRIB_CMD,     NONE/*set by p*/,DEF_CMD,   STRING_CMD, ALLOW_PLURAL | ALLOW_RING}
    508510,{D(jjBETTI2),    BETTI_CMD,      INTMAT_CMD,     LIST_CMD,   INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    … …  
    859861  { "LIB",         0, LIB_CMD ,           SYSVAR},
    860862  { "alias",       0, ALIAS_CMD ,         PARAMETER},
     863  { "align",       0, ALIGN_CMD ,         CMD_2},
    861864  { "and",         0, '&' ,               LOGIC_OP},
    862865  { "apply",       0, APPLY,              APPLY},

  • Singular/tok.h

    r52a01d r6bd53ba  
    3737enum {
    3838  ALIAS_CMD     = UMINUS + 15,
     39  ALIGN_CMD,
    3940  ATTRIB_CMD,
    4041  BAREISS_CMD,

  • doc/NEWS.texi

    r52a01d r6bd53ba  
    2121
    2222@heading News for version @value{VERSION}
     23New commands:
     24@itemize
     25@item align (@nref{align})
     26@end itemize
     27
    2328New libraries:
    2429@itemize
Note: See TracChangeset for help on using the changeset viewer.