/usr/share/axiom-20170501/src/algebra/BLHN.spad is in axiom-source 20170501-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | )abbrev domain BLHN BlowUpWithHamburgerNoether
++ Authors: Gaetan Hache
++ Date Created: june 1996
++ Date Last Updated: May 2010 by Tim Daly
++ Description:
++ This domain is part of the PAFF package
BlowUpWithHamburgerNoether() : SIG == CODE where
MetRec ==> Record(_
ex:Integer, tr:Integer, ch:Integer , quotVal:Integer, _
ramif:Integer, infClsPt:Boolean, _
type:Union("left","center","right","vertical","horizontal") )
SIG ==> BlowUpMethodCategory with HamburgerNoether
CODE ==> add
Rep := MetRec
infClsPt_? a == a.infClsPt
createHN( a,b,c,d,e,f,g)==[a,b,c,d,e,f,g]$Rep
excepCoord a == a.ex
chartCoord a == a.ch
transCoord a == a.tr
ramifMult a == a.ramif
quotValuation a == a.quotVal
type a == a.type
coerce(c:%):OutputForm== ( (c :: Rep ) :: MetRec) :: OutputForm
|