CoCalc Public Fileswww / papers / 389 / graph.mOpen with one click!
Author: William A. Stein
Compute Environment: Ubuntu 18.04 (Deprecated)
1
intrinsic Digraph(A::AlgMatElt)
2
{Make a dot-readable digraph from A.}
3
print "digraph G {";
4
for i in [1..Nrows(A)] do
5
for j in [1..Ncols(A)] do
6
if A[i,j] ne 0 then
7
for k in [1..A[i,j]] do
8
printf "%o -> %o;\n", i, j;
9
end for;
10
/*
11
printf "%o -> %o", i, j;
12
if A[i,j] ne 1 then
13
printf " [label=\"%o\"]", A[i,j];
14
end if;
15
printf ";\n";
16
*/
17
end if;
18
end for;
19
end for;
20
print "}";
21
end intrinsic;
22
23
intrinsic PsfragLabels(X::ModSS)
24
{psfrag labels to go from 1,..,#ss points to the actual j invariants.}
25
S := SupersingularPoints(X);
26
for i in [1..#S] do
27
j := S[i][1];
28
printf "\\\\psfrag{%o}{\\\\small$%o$}\n", i, j;
29
end for;
30
end intrinsic;
31