| LIB "gaussman.lib";
ring R=0,(x,y),ds;
poly f=x5+x2y2+y5;
matrix M=monodromy(f);
print(M);
==> 13/10,0, 0, 0,0, 0, 0, 0, -75/16,0, 0,
==> 0, 11/10,0, 0,0, 0, 0, -1/4,0, 0, 0,
==> 0, 0, 9/10,0,0, 0, 0, 0, 0, 0, 0,
==> 0, 0, 0, 1,0, 0, 0, 0, 0, 0, -1,
==> 0, 0, 0, 0,7/10, 0, 0, 0, 0, 0, 0,
==> 0, 0, 0, 0,-75/16,13/10,0, 0, 0, 0, 0,
==> 0, 0, -1/4,0,0, 0, 11/10,0, 0, 0, 0,
==> 0, 0, 0, 0,0, 0, 0, 9/10,0, 0, 0,
==> 0, 0, 0, 0,0, 0, 0, 0, 7/10, 0, 0,
==> 0, 0, 0, 0,0, 0, 0, 0, 0, 1/2, 0,
==> 0, 0, 0, 0,0, 0, 0, 0, 0, -1/2,1/2
|