Changeset 34e17a in git for Tst/Long/monodromy_l.tst


Ignore:
Timestamp:
Dec 17, 1998, 3:26:18 PM (26 years ago)
Author:
Mathias Schulze <mschulze@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
fff984e4adfd44d294bd060a19f5c8988bed9d3a
Parents:
7cbc5c5db366c15e65c612dcef5250b3f260c927
Message:
*** empty log message ***


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

Legend:

Unmodified
Added
Removed
  • Tst/Long/monodromy_l.tst

    r7cbc5c r34e17a  
    11LIB "tst.lib";
    22tst_init();
    3 tst_ignore("CVS ID $Id: monodromy_l.tst,v 1.1 1998-12-17 14:01:39 mschulze Exp $");
     3tst_ignore("CVS ID $Id: monodromy_l.tst,v 1.2 1998-12-17 14:26:18 mschulze Exp $");
    44
    55LIB "monodromy.lib";
     
    7373"U[16]",x3+xz2+y5+x2y2;
    7474
    75 proc monodromytest(string t,poly f)
     75proc tst_monodromy(string s,poly p)
    7676{
    7777  map m=basering,x,y,0;
    78   if(f==m(f))
     78  if(p==m(p))
    7979  {
    8080    def R=basering;
    8181    ring r=0,(x,y),ds;
    8282    export r;
    83     poly f=imap(R,f);
     83    poly p=imap(R,p);
    8484  }
    85   "**************** "+t+" ****************";
    86   print(monodromy(f));
     85
     86  "**************** "+s+" ****************";
     87  print(monodromy(p));
    8788  tst_status();
     89
    8890  if(nvars(basering)==2)
    8991  {
     
    9294}
    9395
     96int i;
    9497list l=unimodal;
    95 int i;
    9698for(i=1;i<=size(l);i=i+2)
    9799{
    98   monodromytest(l[i],l[i+1]);
     100  tst_monodromy(l[i],l[i+1]);
    99101}
    100102
Note: See TracChangeset for help on using the changeset viewer.