diff options
Diffstat (limited to 'src/algebra')
| -rw-r--r-- | src/algebra/Makefile.in | 2 | ||||
| -rw-r--r-- | src/algebra/Makefile.pamphlet | 2 | ||||
| -rw-r--r-- | src/algebra/exposed.lsp.pamphlet | 4 | ||||
| -rw-r--r-- | src/algebra/young.spad.pamphlet | 85 |
4 files changed, 89 insertions, 4 deletions
diff --git a/src/algebra/Makefile.in b/src/algebra/Makefile.in index 375128d5..346f6ec8 100644 --- a/src/algebra/Makefile.in +++ b/src/algebra/Makefile.in @@ -944,7 +944,7 @@ axiom_algebra_layer_user = \ ASP78 ASP9 ASP12 ASP55 ASP8 ASP19 \ ASP20 ASP30 ASP31 ASP35 ASP41 ASP42 \ ASP74 ASP77 ASP80 ASP29 IRFORM COMPILER \ - ITFORM ELABOR TALGOP + ITFORM ELABOR TALGOP YDIAGRAM axiom_algebra_layer_user_nrlibs = \ $(addsuffix .NRLIB/code.$(FASLEXT),$(axiom_algebra_layer_user)) diff --git a/src/algebra/Makefile.pamphlet b/src/algebra/Makefile.pamphlet index 126fc757..e5f1d98f 100644 --- a/src/algebra/Makefile.pamphlet +++ b/src/algebra/Makefile.pamphlet @@ -1023,7 +1023,7 @@ axiom_algebra_layer_user = \ ASP78 ASP9 ASP12 ASP55 ASP8 ASP19 \ ASP20 ASP30 ASP31 ASP35 ASP41 ASP42 \ ASP74 ASP77 ASP80 ASP29 IRFORM COMPILER \ - ITFORM ELABOR TALGOP + ITFORM ELABOR TALGOP YDIAGRAM axiom_algebra_layer_user_nrlibs = \ $(addsuffix .NRLIB/code.$(FASLEXT),$(axiom_algebra_layer_user)) diff --git a/src/algebra/exposed.lsp.pamphlet b/src/algebra/exposed.lsp.pamphlet index dcc9d64c..f2b3646a 100644 --- a/src/algebra/exposed.lsp.pamphlet +++ b/src/algebra/exposed.lsp.pamphlet @@ -277,7 +277,6 @@ (|NumericComplexEigenPackage| . NCEP) (|NumericRealEigenPackage| . NREP) (|NumericContinuedFraction| . NCNTFRAC) - (|Property| . PROPERTY) (|Octonion| . OCT) (|OctonionCategoryFunctions2| . OCTCT2) (|OneDimensionalArray| . ARRAY1) @@ -303,6 +302,7 @@ (|Pair| . PAIR) (|Palette| . PALETTE) (|PartialFraction| . PFR) + (|Partition| . PRTITION) (|PatternFunctions2| . PATTERN2) (|ParameterAst| . PARAMAST) (|ParametricPlaneCurve| . PARPCURV) @@ -339,6 +339,7 @@ (|PrimeField| . PF) (|PrimitiveArrayFunctions2| . PRIMARR2) (|PrintPackage| . PRINT) + (|Property| . PROPERTY) (|PropositionalFormula| . PROPFRML) (|QuadraticForm| . QFORM) (|QuasiComponentPackage| . QCMPACK) @@ -1046,7 +1047,6 @@ (|ParadoxicalCombinatorsForStreams| . YSTREAM) (|ParametricLinearEquations| . PLEQN) (|PartialFractionPackage| . PFRPAC) - (|Partition| . PRTITION) (|Pattern| . PATTERN) (|PatternFunctions1| . PATTERN1) (|PatternMatchFunctionSpace| . PMFS) diff --git a/src/algebra/young.spad.pamphlet b/src/algebra/young.spad.pamphlet new file mode 100644 index 00000000..df84cf01 --- /dev/null +++ b/src/algebra/young.spad.pamphlet @@ -0,0 +1,85 @@ +\documentclass{article} +\usepackage{open-axiom} + +\author{Gabriel Dos~Reis} + +\begin{document} + +\begin{abstract} +\end{abstract} + +\tableofcontents +\eject + + +\section{Young Diagram} + +<<domain YDIAGRAM YoungDiagram>>= +++ Author: Gabriel Dos Reis +++ Date Last Created: April 17, 2010 +++ Date Last Modified: April 17, 2010 +++ Description: +++ This domain provides representations of Young diagrams. +)abbrev domain YDIAGRAM YoungDiagram +YoungDiagram(): Public == Private where + Public == Join(SetCategory,HomotopicTo Partition) with + youngDiagram: List PositiveInteger -> % + ++ \spad{youngDiagram l} returns an object representing a Young + ++ diagram with shape given by the list of integers \spad{l} + shape: % -> Partition + ++ \spad{shape x} returns the partition shaping \spad{x}. + Private == add + macro LP == List PositiveInteger + Rep == Partition + youngDiagram l == per partition l + shape x == rep x + coerce(x: %): Partition == rep x + coerce(p: Partition): % == per p + x = y == rep x = rep y + coerce(x: %): OutputForm == + b := box empty()$OutputForm + pile [blankSeparate [b for i in 1..n] for n in shape(x)::LP] +@ + + + +\section{License} +<<license>>= +--Copyright (C) 2010, Gabriel Dos Reis. +--All rights reserved. +-- +--Redistribution and use in source and binary forms, with or without +--modification, are permitted provided that the following conditions are +--met: +-- +-- - Redistributions of source code must retain the above copyright +-- notice, this list of conditions and the following disclaimer. +-- +-- - Redistributions in binary form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in +-- the documentation and/or other materials provided with the +-- distribution. +-- +-- - Neither the name of The Numerical Algorithms Group Ltd. nor the +-- names of its contributors may be used to endorse or promote products +-- derived from this software without specific prior written permission. +-- +--THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS +--IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +--TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A +--PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER +--OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, +--EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, +--PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR +--PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF +--LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING +--NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS +--SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +@ + + +<<*>>= +<<license>> + +<<domain YDIAGRAM YoungDiagram>> +@ |