Changeset 948bcd in git


Ignore:
Timestamp:
May 24, 2000, 1:19:24 PM (24 years ago)
Author:
Gerhard Pfister <pfister@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b21a664aa22dc6e196223af8a74ad4885e83547c')
Children:
94487f99032ddb33d7a63ffa5aabebdb87a4c81d
Parents:
021cf5292ac298492540b3be9e8d123136b7abeb
Message:
in der Prozedur decomp Ringwechsel eingebaut


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/primdec.lib

    r021cf5 r948bcd  
    1 // $Id: primdec.lib,v 1.69 2000-05-19 11:44:11 pfister Exp $
     1// $Id: primdec.lib,v 1.70 2000-05-24 11:19:24 pfister Exp $
    22///////////////////////////////////////////////////////////////////////////////
    33// primdec.lib                                                               //
     
    1111///////////////////////////////////////////////////////////////////////////////
    1212
    13 version="$Id: primdec.lib,v 1.69 2000-05-19 11:44:11 pfister Exp $";
     13version="$Id: primdec.lib,v 1.70 2000-05-24 11:19:24 pfister Exp $";
    1414info="
    1515LIBRARY: primdec.lib   PROCEDURES FOR PRIMARY DECOMPOSITION
     
    742742  string @ri;
    743743  poly @f;
    744 
    745744  if (dim(j)>0)
    746745  {
     
    751750
    752751  j=interred(j);
    753 
    754752  attrib(j,"isSB",1);
    755753  if(vdim(j)==deg(j[1]))
     
    20272025
    20282026  homo=homog(i);
    2029    if((find(ordstr(basering),"w")!=0)||(find(ordstr(basering),"W")!=0))
    2030    {
    2031       homo=0;
    2032    }
     2027  if((find(ordstr(basering),"w")!=0)||(find(ordstr(basering),"W")!=0))
     2028  {
     2029     homo=0;
     2030  }
    20332031
    20342032  if(homo==1)
     
    21182116      }
    21192117    }
     2118   
    21202119    if(size(fried)>0)
    21212120    {
     2121       string newva;
     2122       string newma;
     2123       for(@k=1;@k<=nvars(basering);@k++)
     2124       {
     2125          @n1=0;
     2126          for(@n=1;@n<=size(fried);@n++)
     2127          {
     2128             if(lead(fried[@n])==var(@k))
     2129             {
     2130                @n1=1;
     2131                break;
     2132             }
     2133          }
     2134          if(@n1==0)
     2135          {
     2136            newva=newva+string(var(@k))+",";
     2137            newma=newma+string(var(@k))+",";
     2138          }
     2139          else
     2140          {
     2141            newma=newma+string(0)+",";   
     2142          }     
     2143       }
     2144       newva[size(newva)]=")";
     2145       newma[size(newma)]=";";
     2146       execute("ring @deirf=("+charstr(gnir)+"),("+newva+",lp;");
     2147       execute("map @kappa=gnir,"+newma);
     2148       ideal @j= @kappa(@j);
    21222149       @j=simplify(@j,2);
    21232150       attrib(@j,"isSB",1);
    21242151       list pr=decomp(@j);
     2152       setring gnir;
     2153       list pr=fetch(@deirf,pr);
    21252154       for(@k=1;@k<=size(pr);@k++)
    21262155       {
Note: See TracChangeset for help on using the changeset viewer.