i1 : F = normalFan crossPolytope 3 o1 = F o1 : Fan |
i2 : L = maxCones F
o2 = {{1, 3, 5, 7}, {0, 2, 4, 6}, {2, 3, 6, 7}, {0, 1, 4, 5}, {4, 5, 6, 7}, {0, 1, 2, 3}}
o2 : List
|
i3 : raysF = rays F
o3 = | -1 1 -1 1 -1 1 -1 1 |
| -1 -1 1 1 -1 -1 1 1 |
| -1 -1 -1 -1 1 1 1 1 |
3 8
o3 : Matrix ZZ <--- ZZ
|
i4 : apply(L, mc -> raysF_mc)
o4 = {| 1 1 1 1 |, | -1 -1 -1 -1 |, | -1 1 -1 1 |, | -1 1 -1 1 |, | -1 1 -1 1 |, | -1 1 -1 1 |}
| -1 1 -1 1 | | -1 1 -1 1 | | 1 1 1 1 | | -1 -1 -1 -1 | | -1 -1 1 1 | | -1 -1 1 1 |
| -1 -1 1 1 | | -1 -1 1 1 | | -1 -1 1 1 | | -1 -1 1 1 | | 1 1 1 1 | | -1 -1 -1 -1 |
o4 : List
|
The object maxCones is a method function.