1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
#############################################################################
##
#A util.gd GUAVA library Reinald Baart
#A &Jasper Cramwinckel
#A &Erik Roijackers
##
## This file contains miscellaneous functions
##
#H @(#)$Id: util.gd,v 1.4 2003/02/12 03:49:21 gap Exp $
##
Revision.("guava/lib/util_gd") :=
"@(#)$Id: util.gd,v 1.4 2003/02/12 03:49:21 gap Exp $";
#############################################################################
##
#F SphereContent( <n>, <e> [, <F>] ) . . . . . . . . . . . contents of ball
##
## SphereContent(n, e [, F]) calculates the contents of a ball of radius e in
## the space (GF(q))^n
##
DeclareOperation("SphereContent", [IsInt, IsInt, IsInt]);
#############################################################################
##
#F Krawtchouk( <k>, <i>, <n> [, <F>] ) . . . . . . Krwatchouk number K_k(i)
##
## Krawtchouk(k, i, n [, F]) calculates the Krawtchouk number K_k(i)
## over field of size q (or 2), wordlength n.
## Pre: 0 <= k <= n
##
DeclareOperation("Krawtchouk", [IsInt, IsInt, IsInt, IsInt]);
#############################################################################
##
#F PermutedCols( <M>, <P> ) . . . . . . . . . . permutes columns of matrix
##
DeclareOperation("PermutedCols", [IsMatrix, IsPerm]);
#############################################################################
##
#F ReciprocalPolynomial( <p> [, <n>] ) . . . . . . reciprocal of polynomial
##
DeclareOperation("ReciprocalPolynomial",[IsUnivariatePolynomial, IsInt]);
#############################################################################
##
#F CyclotomicCosets( [<q>, ] <n> ) . . . . cyclotomic cosets of <q> mod <n>
##
DeclareOperation("CyclotomicCosets", [IsInt, IsInt]);
#############################################################################
##
#F PrimitiveUnityRoot( [<q>, ] <n> ) . . primitive n'th power root of unity
##
DeclareOperation("PrimitiveUnityRoot", [IsInt, IsInt]);
#############################################################################
##
#F RemoveFiles( <arglist> ) . . . . . . . . removes all files in <arglist>
##
## used for functions which use external programs (like Leons stuff)
##
DeclareGlobalFunction("RemoveFiles");
#############################################################################
##
#F NullVector( <n> [, <F> ] ) . . vector consisting of <n> coordinates <o>
##
DeclareOperation("NullVector", [IsInt]);
#############################################################################
##
#F TransposedPolynomial( <p>, <m> ) . . . . . . . . . tranpose of polynomial
##
## Returns the transpose of polynomial px mod (x^m-1)
##
DeclareOperation("TransposedPolynomial", [IsUnivariatePolynomial, IsInt]);
|
