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 క్లయింట్ నుండి వాడండి