1Function: algb
2Section: algebras
3C-Name: algb
4Prototype: mG
5Help: algb(al): the element b of the center of the cyclic algebra al used
6 to define it.
7Doc: Given a cyclic algebra $\var{al} = (L/K,\sigma,b)$ output by
8 \tet{alginit}, returns the element $b\in K$.
9 \bprog
10 nf = nfinit(y);
11 ? p = idealprimedec(nf,7)[1];
12 ? p2 = idealprimedec(nf,11)[1];
13 ? A = alginit(nf,[3,[[p,p2],[1/3,2/3]],[0]]);
14 ? algb(A)
15 %5 = Mod(-77, y)
16 @eprog
17