repo.or.cz
/
polylib.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
...
[polylib.git]
/
Test
/
Zpolytest
/
LatHNF1.in
blob
5560b198f139bac7c651bb167ea7a3091af15bf5
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
11
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]