/usr/share/gap/pkg/Alnuth/gp/norm.gp is in gap-alnuth 3.0.0-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | bnf = bnfinit(f,1);
n = poldegree(f);
un = lift(bnf.tufu);
nr = bnfisintnorm( bnf, nrm);
p2v(n,b) = vector(n,j,polcoeff(b,j-1));
\\ print units
print("[[ ");
for(i=1,#un, print(p2v(n,un[i]),","));
print("],\n");
\\ print norm elements
print(" [ ");
for (i=1, #nr, print(p2v(n,nr[i]),",\n"));
print("]];");
|