Changeset 6fe3a0 in git for Tst/Short/equising_s.tst


Ignore:
Timestamp:
Apr 25, 2005, 12:13:07 PM (19 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')
Children:
3329dd9bcf2662f9666579abea56c33dfcb530ac
Parents:
8604751c5a5f572004bf8d35d4307e485b728435
Message:
*hannes/lossen: new libs, new tests


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

Legend:

Unmodified
Added
Removed

  • Tst/Short/equising_s.tst

    r860475 r6fe3a0  
    4444     poly f = y8+4x3y6+6x6y4+2x5y5+4x9y2+4x8y3+x12+2x11y+2x10y2+x13;
    4545                   
    46      versal(f);
     46     list L=versal(f);
     47     def Px=L[1];
    4748     setring Px;
    4849     poly F = Fs[1,1];
    … …  
    6768     isEquising(F);
    6869
    69      kill(Px);
    70      kill(Qx);
    71      kill(Ox);
    72      kill(So);
     70     kill L,Px;
    7371     kill(q);
    7472     if (defined(R)){ kill(R); }
    … …  
    127125poly f=w2-v199;   // simple singularity
    128126list L=hnexpansion(f);
    129 versal(f);
     127list LL=versal(f);
     128def Px=LL[1];
    130129setring Px;
    131130list L=imap(r,L);
    … …  
    135134M=esStratum(F,L);
    136135reduce(F,std(M[1][1]));
    137 kill Px,r;
     136kill LL,Px,r;
    138137/////////////////////////////////////////////////
    139138
Note: See TracChangeset for help on using the changeset viewer.