Sophie

Sophie

distrib > Fedora > 15 > i386 > by-pkgid > 7ebd25ac536d248d499a3ce2acda963a > files > 2036

Macaulay2-1.3.1-8.fc15.i686.rpm

-- -*- M2-comint -*- {* hash: 118506985 *}

i1 : R = QQ[x,y,z]/ideal(x^8-z^6-y^2*z^4-z^3);

i2 : time R' = integralClosure(R, Verbosity => 2)
 [jacobian time -1.73472e-17 sec #minors 3]
integral closure nvars 3 numgens 1 is S2 codim 1 codimJ 2

 [step 0: 
      radical (use decompose) .004 seconds
      idlizer1:  .006998 seconds
      idlizer2:  .06699 seconds
      minpres:   .008999 seconds
  time .098985 sec  #fractions 4]
 [step 1: 
      radical (use decompose) .004 seconds
      idlizer1:  .007999 seconds
      idlizer2:  .025996 seconds
      minpres:   .046993 seconds
  time .099985 sec  #fractions 4]
 [step 2: 
      radical (use decompose) .003999 seconds
      idlizer1:  .011998 seconds
      idlizer2:  .029996 seconds
      minpres:   .010999 seconds
  time .071989 sec  #fractions 5]
 [step 3: 
      radical (use decompose) .004 seconds
      idlizer1:  .008999 seconds
      idlizer2:  .078988 seconds
      minpres:   .033994 seconds
  time .181972 sec  #fractions 5]
 [step 4: 
      radical (use decompose) .004999 seconds
      idlizer1:  .018997 seconds
      idlizer2:  .121981 seconds
      minpres:   .014998 seconds
  time .181972 sec  #fractions 5]
 [step 5: 
      radical (use decompose) .004 seconds
      idlizer1:  .011998 seconds
  time .023997 sec  #fractions 5]
     -- used 0.6619 seconds

o2 = R'

o2 : QuotientRing

i3 : trim ideal R'

                     3   2                     2 2    4           4         
o3 = ideal (w   z - x , w   x - w   , w   x - y z  - z  - z, w   x  - w   z,
             4,0         4,0     1,1   1,1                    4,0      1,1  
     ------------------------------------------------------------------------
                 2 2     2 3    2   3      2   3 2      4 2      2 4       2 
     w   w    - x y z - x z  - x , w    + w   x y  - x*y z  - x*y z  - 2x*y z
      4,0 1,1                       4,0    4,0                               
     ------------------------------------------------------------------------
          3           3    2      6 2    6 2
     - x*z  - x, w   x  - w    + x y  + x z )
                  4,0      1,1

o3 : Ideal of QQ[w   , w   , x, y, z]
                  4,0   1,1

i4 : icFractions R

       3   2 2    4
      x   y z  + z  + z
o4 = {--, -------------, x, y, z}
       z        x

o4 : List

i5 :