...
[polylib.git] / Test / Zpolytest / LatHNF1.in
blob5560b198f139bac7c651bb167ea7a3091af15bf5
1 # HNF of this lattice
2 M 1
3 5 5
4 0 0 0 1 0
5 4 0 4 0 -4
6 12 15 0 0 -3
7 1 0 -1 0 10
8 0 0 0  0 1
9 D 0
10 F 2
12 m1=Alpha`matrix[5,5,{},
13 {{0, 0, 0, 1,0}, {4, 0, 4, 0,-4},{12, 15, 0, 0,-3},{1, 0, -1, 0,10 },{0, 0, 0,  0, 1}}]
14 hermiteL[m1]