Changeset ce4610 in git


Ignore:
Timestamp:
Feb 1, 2017, 10:28:47 AM (6 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'b0600ca938adb77a8cb08f73867bd8009f2ca8b1')
Children:
4230277da20a55a572267a2d3ae8e860ffb8deee
Parents:
ab9451896d9e00fb71ed53755c19641f7eb4b68e
Message:
fix tr #259 (genus)
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/normal.lib

    rab9451 rce4610  
    11//////////////////////////////////////////////////////////////////////////////
    2 version="version normal.lib 4.0.1.1 Dec_2014 "; // $Id$
     2version="version normal.lib 4.1.0.0 Jan_2017 "; // $Id$
    33category="Commutative Algebra";
    44info="
     
    27252725
    27262726      execute("ring C=("+charstr(S)+",a),(x,y),ds;");
    2727 
    27282727      minpoly=number(imap(B,p));
     2728
    27292729      map iota=S,a,a;
    27302730      number c=number(iota(c));
     
    27502750   int o=ord(f);
    27512751   int delt,nb;
    2752 
    27532752   if(tau==0)                 //smooth case
    27542753   {
     
    27842783      if(w>=1){"Newton-Polygon:";NP;"";}
    27852784      int s=size(NP);
    2786 
    27872785      if(is_NND(f,mu,NP))
    27882786      { // the Newton-polygon is non-degenerate
     
    28362834      if(w>=1){"now we have to use Hamburger-Noether (Puiseux) expansion";}
    28372835      ideal fac=factorize(f,1);
     2836      for(i=1;i<=ncols(fac);i++)
     2837      {
     2838         if(deg(lead(fac[i]))==0){fac[i]=0;}
     2839      }
     2840      fac=simplify(fac,2);
    28382841      if(size(fac)>1)
    28392842      {
Note: See TracChangeset for help on using the changeset viewer.