Changeset 3231f3 in git


Ignore:
Timestamp:
Jun 9, 2009, 8:10:44 PM (14 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
Children:
b82abb0dc3349df20acd8231f648b8ff51bc61b6
Parents:
f26ea00810f0c5a97f95995febb9ffcb0d72138e
Message:
*hannes: nrzIntMod


git-svn-id: file:///usr/local/Singular/svn/trunk@11889 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
kernel
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • kernel/numbers.cc

    rf26ea0 r3231f3  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: numbers.cc,v 1.21 2009-05-06 12:53:48 Singular Exp $ */
     4/* $Id: numbers.cc,v 1.22 2009-06-09 18:10:44 Singular Exp $ */
    55
    66/*
    … …  
    448448     n->nMult  = nrzMult;
    449449     n->nDiv   = nrzDiv;
    450      n->nIntDiv       = nrzIntDiv;
     450     n->nIntDiv = nrzIntDiv;
     451     n->nIntMod = nrzIntMod;
    451452     n->nExactDiv= nrzDiv;
    452453     n->nNeg   = nrzNeg;

  • kernel/rintegers.cc

    rf26ea0 r3231f3  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: rintegers.cc,v 1.22 2009-05-22 13:18:12 Singular Exp $ */
     4/* $Id: rintegers.cc,v 1.23 2009-06-09 18:10:44 Singular Exp $ */
    55/*
    66* ABSTRACT: numbers modulo n
    … …  
    222222}
    223223
     224number nrzIntMod (number a,number b)
     225{
     226  int_number erg = (int_number) omAllocBin(gmp_nrz_bin);
     227  mpz_init(erg);
     228  int_number r = (int_number) omAllocBin(gmp_nrz_bin);
     229  mpz_init(r);
     230  mpz_tdiv_qr(erg, r, (int_number) a, (int_number) b);
     231  mpz_clear(erg);
     232  return (number) r;
     233}
     234
    224235number  nrzInvers (number c)
    225236{

  • kernel/rintegers.h

    rf26ea0 r3231f3  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: rintegers.h,v 1.8 2009-05-06 12:53:49 Singular Exp $ */
     6/* $Id: rintegers.h,v 1.9 2009-06-09 18:10:44 Singular Exp $ */
    77/*
    88* ABSTRACT: numbers modulo n
    … …  
    3131number  nrzGetUnit     (number a);
    3232number  nrzDiv         (number a, number b);
    33 number  nrzIntDiv      (number a,number b);
     33number  nrzIntDiv      (number a, number b);
     34number  nrzIntMod      (number a, number b);
    3435number  nrzNeg         (number c);
    3536number  nrzInvers      (number c);
Note: See TracChangeset for help on using the changeset viewer.