Annotation of OpenXM_contrib/PHC/Ada/Schubert/curves_into_grassmannian_io.ads, Revision 1.1
1.1 ! maekawa 1: with Standard_Natural_Matrices; use Standard_Natural_Matrices;
! 2: with Brackets; use Brackets;
! 3:
! 4: package Curves_into_Grassmannian_io is
! 5:
! 6: -- DESCRIPTION :
! 7: -- This package facilitates output of curves of degree q that produce
! 8: -- p-planes in n-dimensional space, where n = m+p.
! 9:
! 10: procedure One_Set_up_Symbol_Table
! 11: ( m,p,q : in natural; top,bottom : in Bracket );
! 12: procedure Two_Set_up_Symbol_Table
! 13: ( m,p,q : in natural; top,bottom : in Bracket );
! 14:
! 15: -- DESCRIPTION :
! 16: -- Set up of the symbol table with enough symbols to represent the
! 17: -- matrix of polynomials as prescribed in the localization pattern.
! 18: -- The polynomials in the matrix are polynomials in "s" and "t" which are
! 19: -- the first two variables in the symbol table. The other variables are
! 20: -- added columnwise in the pattern defined by top and bottom brackets.
! 21: -- The x_ij's are represented by "xijsk": k-th block at (i,j)-th place.
! 22: -- If the symbol table is not empty on calling this procedure,
! 23: -- then its contents will be destroyed and replaced by the x_ij's.
! 24: -- One_* : top or bottom type; Two_* : mixed type of node.
! 25:
! 26: procedure Reduce_Symbols ( top,bottom : in Bracket; locmap : in Matrix );
! 27:
! 28: -- DESCRIPTION :
! 29: -- Removes the symbols that correspond to the ones in the localization
! 30: -- map prescribed by top and bottom pivots.
! 31:
! 32: end Curves_into_Grassmannian_io;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>