source: git/Tst/Short/gmssin_s.tst @ 010b3f

spielwiese
Last change on this file since 010b3f was 3459f0, checked in by Mathias Schulze <mschulze@…>, 21 years ago
*mschulze: gmssing.lib replaces gaussman.lib git-svn-id: file:///usr/local/Singular/svn/trunk@6766 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 344 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4LIB "gmssing.lib";
5
6
7proc tst_gaussm(poly f)
8{
9  basering;
10  f;
11  print(monodromy(f));
12  list l=vwfilt(f);
13  l;
14  l=spnf(list(l[1],l[2],l[3],l[4]))+list(l[5],l[6]);
15  endvfilt(l);
16  spgamma(l);
17  l=tmatrix(f);
18  print(l[1]);
19  print(l[2]);
20}
21
22
23ring R=0,(x,y),ds;
24poly f=x5+x2y2+y5;
25
26tst_gaussm(f);
27
28tst_status(1);
29$
Note: See TracBrowser for help on using the repository browser.