File: units.gp

package info (click to toggle)
gap-alnuth 3.0.0-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 908 kB
  • ctags: 40
  • sloc: makefile: 103; sh: 11
file content (10 lines) | stat: -rw-r--r-- 183 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
bnf = bnfinit(f,1);
n = poldegree(f);
un = lift(bnf.tufu);

p2v(n,b) = vector(n,j,polcoeff(b,j-1));

\\ print units
print("[ ");
for(i=1,#un, print(p2v(n,un[i]),","));
print("];\n");