G = idealstar(,100) G.cyc chi = [1, 0] psi = [1, 1] charorder(G, chi) charorder(G, psi) charmul(G, chi, chi) charmul(G, chi, psi) chardiv(G, chi, psi) charconj(G, chi) \\\\\\\\\\\\ charker(G, chi) G = idealstar(,100); chi = [1, 0]; o = 20; chareval(G, chi, 0) chareval(G, chi, 3, ['z,o]) z = Mod(2, 11); vz = [ z^i | i <- [0..o-1] ]; chareval(G, chi, 3, [vz,o]) z^7 \\\\\\\\\\\\ G = idealstar(,100); chi = znconreylog(G, 3) znconreyexp(G, chi) znconreychar(G, chi) N = 100; G = idealstar(, N); chi = [2, 0]; N2 = 900; G2 = idealstar(,N2); chi2 = zncharinduce(G, chi, N2) [ chareval(G,chi,x) | x <- [1..25], gcd(x,N2) == 1 ] [ chareval(G2,chi2,x) | x <- [1..25], gcd(x,N2) == 1 ] znconreyconductor(G2, chi2) znconreyconductor(G2, chi2, &chi0) chi0 znconreyconductor(G, chi, &chi0) chi0 \\\\\\\\\\\\ N = 100; bnr = bnrinit(bnfinit(x), [N,[1]]); g = [3, 7] znorder(Mod(g[1], N)) znorder(Mod(g[2], N)) bnrchar(bnr, g) v = [1/10, 1/2] bnrchar(bnr, g, v)