Changeset a8cc0a in git for Singular/LIB


Ignore:
Timestamp:
Dec 13, 2001, 1:02:47 PM (22 years ago)
Author:
Mathias Schulze <mschulze@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')
Children:
92cefcb890bcfd8c207c7f88792d99c40f7cc9c4
Parents:
0ba413b75f241aff37772720ae2a18b9f979f032
Message:
*** empty log message ***


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

Legend:

Unmodified
Added
Removed

  • Singular/LIB/gaussman.lib

    r0ba413 ra8cc0a  
    11///////////////////////////////////////////////////////////////////////////////
    2 version="$Id: gaussman.lib,v 1.58 2001-11-20 13:00:34 mschulze Exp $";
     2version="$Id: gaussman.lib,v 1.59 2001-12-13 12:02:47 mschulze Exp $";
    33category="Singularities";
    44
    … …  
    1313PROCEDURES:
    1414 gmsring(t,s);              Gauss-Manin system of t with variable s
    15  gmsnf(p,K[,Kmax]);         Gauss-Manin system normal form of p
    16  gmscoeffs(p,K[,Kmax]);     Gauss-Manin system basis representation of p
     15 gmsnf(p,K[,Kmax]);         normal form of p in Gauss-Manin system
     16 gmscoeffs(p,K[,Kmax]);     basis representation of p in Gauss-Manin system
    1717 monodromy(t);              Jordan data of monodromy of t
    1818 spectrum(t);               singularity spectrum of t
    … …  
    109109"USAGE:    gmsring(t,s); poly t, string s
    110110ASSUME:   characteristic 0; local degree ordering;
    111           isolated citical point 0 of t
     111          isolated critical point 0 of t
    112112RETURN:
    113113@format
    … …  
    148148    else
    149149    {
    150       ERROR("isolated citical point 0 expected");
     150      ERROR("isolated critical point 0 expected");
    151151    }
    152152  } 
    … …  
    434434///////////////////////////////////////////////////////////////////////////////
    435435
    436 static proc tmat(matrix A0,ideal r,module H,int k0,int K,int K0)
     436static proc basisrep(matrix A0,ideal r,module H,int k0,int K,int K0)
    437437{
    438438  dbprint(printlevel-voice+2,"// compute matrix A of t");
    … …  
    457457    "// compute eigenvalues e with multiplicities m of A");
    458458  matrix A;
    459   A,A0,r=tmat(A0,r,H,k0,0,K0);
     459  A,A0,r=basisrep(A0,r,H,k0,0,K0);
    460460  list l=eigenvals(A);
    461461  def e,m=l[1..2];
    … …  
    475475  dbprint(printlevel-voice+2,"// e0="+string(e0));
    476476  dbprint(printlevel-voice+2,"// e1="+string(e1));
    477   A,A0,r=tmat(A0,r,H,k0,K+k1,K0+k1);
     477  A,A0,r=basisrep(A0,r,H,k0,K+k1,K0+k1);
    478478  module U0=s^k0*freemodule(mu);
    479479
    … …  
    556556"USAGE:    monodromy(t); poly t
    557557ASSUME:   characteristic 0; local degree ordering;
    558           isolated citical point 0 of t
     558          isolated critical point 0 of t
    559559RETURN:   list l;  Jordan data jordan(M) of monodromy matrix exp(-2*pi*i*M)
    560560SEE ALSO: mondromy_lib, linalg.lib
    … …  
    592592"USAGE:    spectrum(t); poly t
    593593ASSUME:   characteristic 0; local degree ordering;
    594           isolated citical point 0 of t
     594          isolated critical point 0 of t
    595595RETURN:
    596596@format
    … …  
    621621"USAGE:    sppairs(t); poly t
    622622ASSUME:   characteristic 0; local degree ordering;
    623           isolated citical point 0 of t
     623          isolated critical point 0 of t
    624624RETURN:
    625625@format
    … …  
    793793"USAGE:    vfilt(t); poly t
    794794ASSUME:   characteristic 0; local degree ordering;
    795           isolated citical point 0 of t
     795          isolated critical point 0 of t
    796796RETURN:
    797797@format
    … …  
    826826"USAGE:    vwfilt(t); poly t
    827827ASSUME:   characteristic 0; local degree ordering;
    828           isolated citical point 0 of t
     828          isolated critical point 0 of t
    829829RETURN:
    830830@format
    … …  
    943943"USAGE:    tmatrix(t); poly t
    944944ASSUME:   characteristic 0; local degree ordering;
    945           isolated citical point 0 of t
     945          isolated critical point 0 of t
    946946RETURN:   list A;  t-matrix A[1]+s*A[2] on H''
    947947KEYWORDS: singularities; Gauss-Manin connection; Brieskorn lattice;
    … …  
    15211521@format
    15221522list l;
    1523   intvec l[i];  if k<=l[i] then spissemicont(sub(sp0,spmul(sp,k))[,1])==1
     1523  intvec l[i];  if the spectra sp0 occur with multiplicities k
     1524                in a deformation of a [quasihomogeneous] singularity
     1525                with spectrum sp then k<=l[i]
    15241526@end format
    1525 NOTE:    if the spectra sp occur with multiplicities k in a deformation
    1526          of the [quasihomogeneous] singularity with spectrum sp0 then
    1527          spissemicont(sub(sp0,spmul(sp,k))[,1])==1
    15281527EXAMPLE: example spsemicont; shows examples
    15291528"
Note: See TracChangeset for help on using the changeset viewer.