DirichletCharacter
متاحة
j-th Dirichlet character modulo k at n (Wolfram indexing)
DirichletCharacter[k, j, n]
Table[DirichletCharacter[2, 1, n], {n, 10}]
→ {1, 0, 1, 0, 1, 0, 1, 0, 1, 0}Table[DirichletCharacter[7, j, n], {j, 1, EulerPhi[7]}, {n, 0, 6}]//Grid
→ Grid[{{0, 1, 1, 1, 1, 1, 1}, {0, 1, E^((2*I)/3*Pi), E^(I/3*Pi), E^((-2*I)/3*Pi), E^((-1/3*I)*Pi), -1}, {0, 1, E^((-2*I)/3*Pi), E^((2*I)/3*Pi), E^((2*I)/3*Pi), E^((-2*I)/3*Pi), 1}, {0, 1, 1, -1, 1, -1, -1}, {0, 1, E^((2*I)/3*Pi), E^((-2*I)/3*Pi), E^((-2*I)/3*Pi), E^((2*I)/3*Pi), 1}, {0, 1, E^((-2*I)/3*Pi), E^((-1/3*I)*Pi), E^((2*I)/3*Pi), E^(I/3*Pi), -1}}]Table[DiscretePlot[{Re[DirichletCharacter[7, j, n]], Im[DirichletCharacter[7, j, n]]}, {n, 0, 20}, PlotLabel -> j], {j, 1, 6}]
→ {-Graphics-, -Graphics-, -Graphics-, -Graphics-, -Graphics-, -Graphics-} كل الدوال الـ6300 ·
استخدم هذا من عميل MCP