| Copyright | Clara Waldmann, 2014 |
|---|---|
| License | GPL-2 |
| Safe Haskell | Safe-Inferred |
| Language | Haskell2010 |
Children
Description
Modul zur Berechnungen der Kinder (Facetten) eines Knotens
Documentation
children :: VR -> IO [VR] Source
berechnet Liste der Facetten einer V-Repräsentation mittles lrs
children VR { vr_dim = 3, vr_nvert = 4, dim = 4
, vr_vert = [[1, 0, 0, 0], [0, 1, 0, 0], [0, 0, 0, 1], [0, 1, -1, 1]]
}
= [VR { vr_dim = 2, vr_nvert = 3, dim = 4, vr_vert = [[1, 0, 0, 0], [0, 1, 0, 0], [0, 0, 0, 1]]}
,VR { vr_dim = 2, vr_nvert = 3, dim = 4, vr_vert = [[1, 0, 0, 0], [0, 0, 0, 1], [0, 1, -1, 1]]}
,VR { vr_dim = 2, vr_nvert = 3, dim = 4, vr_vert = [[1, 0, 0, 0], [0, 1, 0, 0], [0, 1, -1, 1]]}
]getfcs :: String -> VR -> [VR] Source
liest aus Ausgabe von lrs angewendet auf eine V-Repräsentation mit Option incidence
die Facetten aus
getfcs "*lrs:lrslib v.4.2c, 2010.7.7(32bit,lrsmp.h)
*Copyright (C) 1995,2010, David Avis avis@cs.mcgill.ca
*incidence
H-representation
begin
***** 4 rational
F#1 B#1 h=0 vertices/rays 1* 2 3 4 I#3 det= 1 in_det= 1
1 0 0 0
F#2 B#1 h=0 vertices/rays 1 2 3 4* I#3 det= 1 in_det= 1
0 0 -1 0
F#3 B#1 h=0 vertices/rays 1 2* 3 4 I#3 det= 1 in_det= 1
0 1 1 0
F#4 B#1 h=0 vertices/rays 1 2 3* 4 I#3 det= 1 in_det= 1
0 0 1 1
end
*Totals: facets=4 bases=1
*lrs:lrslib v.4.2c, 2010.7.7(32bit,lrsmp.h) max digits=8/100
*0.001u 0.001s 2004Kb 0 flts 0 swaps 0 blks-in 0 blks-out"
VR {dim = 3, vr_nvert = 4, vr_dim = 4, vr_vert = [[1, 0, 0, 0], [0, 1, 0, 0], [0, 0, 0, 1], [0, 1, -1, 1]]}
= [VR { vr_dim = 2, vr_nvert = 3, dim = 4, vr_vert = [[1, 0, 0, 0], [0, 1, 0, 0], [0, 0, 0, 1]]}
,VR { vr_dim = 2, vr_nvert = 3, dim = 4, vr_vert = [[1, 0, 0, 0], [0, 0, 0, 1], [0, 1, -1, 1]]}
,VR { vr_dim = 2, vr_nvert = 3, dim = 4, vr_vert = [[1, 0, 0, 0], [0, 1, 0, 0], [0, 1, -1, 1]]}
]facets :: Parser [[Int]] Source
Parser für Liste der Indexlisten der Facetten wird aufgerufen in getfcs
eckind :: String -> [Int] Source
Hilfsparser für facet für eine Liste von Indices
eckind " 1* 2 3 : 4 5 " = [2,3,4,5]
facetsfromind :: [[Int]] -> VR -> [VR] Source
Bestimmt aus der Liste der Indices die Facetten als V-Repräsentationen
facetfromind :: [Int] -> VR -> VR Source
Hilfsfunktion für facetsfromind zur Bestimmung einer Facette aus der Indexliste