Changeset 54d0ac in git


Ignore:
Timestamp:
Nov 27, 2009, 2:40:11 PM (15 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '3720ae8bfcff4a4649ee98a15552089151d2d59b')
Children:
97326cf203e655c27f3b82bbc68200c08c95f2a0
Parents:
2abbb600a8cb10a3ab7a4aac22dca46940f2a9bf
Message:
bigint*matrix

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

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    r2abbb60 r54d0ac  
    10941094  return FALSE;
    10951095}
     1096static BOOLEAN jjTIMES_MA_BI1(leftv res, leftv u, leftv v)
     1097{
     1098  number n=nInit_bigint((number)v->Data());
     1099  poly p=pNSet(n);
     1100  ideal I= (ideal)mpMultP((matrix)u->CopyD(MATRIX_CMD),p);
     1101  res->data = (char *)I;
     1102  return FALSE;
     1103}
     1104static BOOLEAN jjTIMES_MA_BI2(leftv res, leftv u, leftv v)
     1105{
     1106  return jjTIMES_MA_BI1(res,v,u);
     1107}
    10961108static BOOLEAN jjTIMES_MA_P1(leftv res, leftv u, leftv v)
    10971109{
     
    11111123{
    11121124  number n=(number)v->CopyD(NUMBER_CMD);
    1113   poly p=pOne();
    1114   pSetCoeff(p,n);
     1125  poly p=pNSet(n);
    11151126  res->data = (char *)mpMultP((matrix)u->CopyD(MATRIX_CMD),p);
    11161127  idNormalize((ideal)res->data);
     
    33433354,{jjTIMES_MA_I2,'*',           MATRIX_CMD,     INT_CMD,    MATRIX_CMD, ALLOW_PLURAL | ALLOW_RING}
    33443355,{jjTIMES_MA,  '*',            MATRIX_CMD,     MATRIX_CMD, MATRIX_CMD, ALLOW_PLURAL | ALLOW_RING}
     3356,{jjTIMES_MA_BI1,'*',          MATRIX_CMD,     MATRIX_CMD, BIGINT_CMD, ALLOW_PLURAL | ALLOW_RING}
     3357,{jjTIMES_MA_BI2,'*',          MATRIX_CMD,     BIGINT_CMD, MATRIX_CMD, ALLOW_PLURAL | ALLOW_RING}
    33453358,{jjOP_IV_I,   '*',            INTVEC_CMD,     INTVEC_CMD, INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    33463359,{jjOP_I_IV,   '*',            INTVEC_CMD,     INT_CMD,    INTVEC_CMD, ALLOW_PLURAL | ALLOW_RING}
     
    37943807    else
    37953808    {
    3796       poly p=pOne();
    3797       pSetCoeff(p,n);
    3798       res->data=(void *)p;
     3809      res->data=(void *)pNSet(n);
    37993810    }
    38003811  }
     
    66146625        if (!nIsZero(n))
    66156626        {
    6616           p=pOne();
    6617           pSetCoeff(p,n);
     6627          p=pNSet(n);
    66186628        }
    66196629        else
     
    66306640        if (!nIsZero(n))
    66316641        {
    6632           p=pOne();
    6633           pSetCoeff(p,n);
     6642          p=pNSet(n);
    66346643        }
    66356644        else
     
    66456654        if (!nIsZero(n))
    66466655        {
    6647           p=pOne();
    6648           pSetCoeff(p,n);
     6656          p=pNSet(n);
    66496657        }
    66506658        else
Note: See TracChangeset for help on using the changeset viewer.