Changeset e71151 in git


Ignore:
Timestamp:
Jun 6, 2020, 5:21:12 PM (4 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
Children:
209d2cb3c5aadb53e72b37269b979e9c22e2fd48
Parents:
85c8c6032a9cadefc0cf3f91b461d01abc95b4e8
git-author:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2020-06-06 17:21:12+02:00
git-committer:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2020-06-06 17:23:58+02:00
Message:
reset atkins.lib, chern.lib, removed comments in dmod.lib
Location:
Singular/LIB
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/atkins.lib

    r85c8c60 re71151  
    567567          s3=string(t);
    568568
    569           a1=int(a);
    570           b1=int(b);
    571           t1=int(t);
     569          execute("a1="+s1+";");
     570          execute("b1="+s2+";");
     571          execute("t1="+s3+";");
    572572          g1=gcd(gcd(a1,b1),t1 div a1);
    573573          setring C;
  • Singular/LIB/chern.lib

    r85c8c60 re71151  
    201201  }
    202202  ring r@ = create_ring(ringlist(basering)[1], l2, "dp", "no_minpoly");
    203   ideal V = fetch(br@,V);// define the corresponding inclusion of rings
    204   poly f = fetch(br@,f);
     203  execute( "map F= br@,"+varstr(br@)+";" ); // define the corresponding inclusion of rings
     204  ideal V=F(V);
     205  poly f=F(f);
    205206  int i;
    206207  for(i=1; i<=nV; i++)
     
    704705    }
    705706    ring r@ = create_ring(ringlist(basering)[1], l3, "lp", "no_minpoly");
    706    // execute( "map F= br@,"+varstr(br@)+";" ); // define the corresponding inclusion of rings
    707    // list c=F(c); // embed c in the bigger ring
    708     list c= fetch(br@,c);
     707    execute( "map F= br@,"+varstr(br@)+";" ); // define the corresponding inclusion of rings
     708    list c=F(c); // embed c in the bigger ring
    709709    poly rez;
    710710    list A=a@(1..n);
     
    721721    rez = -subst(I[1], c@, 0);
    722722    setring br@; // come back to the initial base ring
    723     //execute( "map FF= r@,0,"+varstr(br@)+";" ); // define the specialization homomorphism
    724     poly rez=fetch(r@,rez); // bring the result to the base ring
     723    execute( "map FF= r@,0,"+varstr(br@)+";" ); // define the specialization homomorphism
     724    poly rez=FF(rez); // bring the result to the base ring
    725725    return( (1/factorial(n))*rez);
    726726  }
  • Singular/LIB/dmod.lib

    r85c8c60 re71151  
    31833183  dbprint(ppl-1, @R3);
    31843184  ideal MM = maxideal(1);
    3185   string  strr1 = "printing s";     // comment by sachin
    3186 strr1;    // comment by sachin
    3187   s;
    31883185  MM = 0,s,MM;
    31893186  map R01 = @R2, MM;
Note: See TracChangeset for help on using the changeset viewer.