Changeset e8f898 in git


Ignore:
Timestamp:
Feb 25, 2014, 1:56:06 PM (10 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38077648e7239f98078663eb941c3c979511150a')
Children:
137883ef0bd378a1afb5d49f2c94c48dc06e8c9c
Parents:
be7a5d1166e45033b6b760b23ded5cc68cb2fe00
git-author:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2014-02-25 13:56:06+01:00
git-committer:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2014-02-25 13:57:00+01:00
Message:
fix: types in assign (normal.lib)
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/normal.lib

    rbe7a5d1 re8f898  
    28072807      }
    28082808      list HNEXP=hnexpansion(f);
    2809       if (typeof(HNEXP[1])=="ring") {
     2809      if (typeof(HNEXP[1])=="ring")
     2810      {
    28102811        def altring = basering;
    28112812        def HNEring = HNEXP[1]; setring HNEring;
     
    66176618    a = is_injective(Qnormap,QAS);          //a. Test for injectivity of Qnormap
    66186619    dbprint ( prl, "injective: "+string(a) );
    6619     if ( n==1 ) {
    6620      def result = intvec(a);
     6620    if ( n==1 )
     6621    {
     6622     intvec result = intvec(a);
    66216623     setring BAS;
    6622      return (result); 
     6624     return (result);
    66236625   }
    66246626   a;
     
    66286630    b = mapIsFinite(normap,BAS,lnorid[2]);  //b. Test for finiteness of normap
    66296631    dbprint ( prl, "finite: "+string(b) );
    6630     if ( n==2 ) {
    6631        def result = intvec(a,b);
     6632    if ( n==2 )
     6633    {
     6634       intvec result = intvec(a,b);
    66326635       setring BAS;
    6633        return (result); 
     6636       return (result);
    66346637    }
    66356638   b;
     
    66496652    int d1 = (d==0);                           //d1=1 if delta=0
    66506653    dbprint ( prl, "delta: "+string(d) );
    6651     def result = intvec(a,b,d1);
     6654    intvec result = intvec(a,b,d1);
    66526655    setring BAS;
    66536656    return(result);
Note: See TracChangeset for help on using the changeset viewer.