Top
Back: vwfilt
Forward: endvfilt
FastBack: equising_lib
FastForward: hnoether_lib
Up: gaussman_lib
Top: Singular Manual
Contents: Table of Contents
Index: Index
About: About this document

D.5.4.11 tmatrix

Procedure from library gaussman.lib (see gaussman_lib).

Usage:
tmatrix(t); poly t

Assume:
characteristic 0; local degree ordering;
isolated critical point 0 of t

Return:
 
list A;  C[[s]]-matrix A[1]+s*A[2] of t on H''
  matrix A[1];
  matrix A[2];

Example:
 
LIB "gaussman.lib";
ring R=0,(x,y),ds;
poly t=x5+x2y2+y5;
list A=tmatrix(t);
print(A[1]);
==> 0,0,0,0,0,0,0,0,0,0,0,
==> 0,0,0,0,0,0,0,0,0,0,0,
==> 0,0,0,0,0,0,0,0,0,0,0,
==> 0,0,0,0,0,0,0,0,0,0,0,
==> 0,0,0,0,0,0,0,0,0,0,0,
==> 0,0,0,0,0,0,0,0,0,0,0,
==> 0,0,0,0,0,0,0,0,0,0,0,
==> 0,0,0,0,0,0,0,0,0,0,0,
==> 0,0,0,0,0,0,0,0,0,0,0,
==> 0,0,0,0,0,0,0,0,0,0,0,
==> 1,0,0,0,0,0,0,0,0,0,0 
print(A[2]);
==> 1/2,0,   0,   0,   0,   0,0,    0,    0,    0,    0, 
==> 0,  7/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,   9/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,   1,0,    0,    0,    0,    0, 
==> 0,  0,   0,   0,   0,   0,11/10,0,    0,    0,    0, 
==> 0,  0,   0,   0,   0,   0,0,    11/10,0,    0,    0, 
==> 0,  0,   0,   0,   0,   0,0,    0,    13/10,0,    0, 
==> 0,  0,   0,   0,   0,   0,0,    0,    0,    13/10,0, 
==> 0,  0,   0,   0,   0,   0,0,    0,    0,    0,    3/2


Top Back: vwfilt Forward: endvfilt FastBack: equising_lib FastForward: hnoether_lib Up: gaussman_lib Top: Singular Manual Contents: Table of Contents Index: Index About: About this document
            User manual for Singular version 2-0-3, February 2002, generated by texi2html.