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