0
$\begingroup$

enter image description here

This figure is the real part of the discriminant as a function of the nome $q$ on the unit disk. It is taken from the wiki link:

https://en.wikipedia.org/wiki/Weierstrass%27s_elliptic_functions

I know how to compute the real part of the discriminant. How can I draw this figure? In particular, what means "the nome $q$ on the unit disk"?

$\endgroup$
0
$\begingroup$

The Mathematica code

colarg[z_] := {Mod[3 Pi/2+Arg[z], 2 Pi]/(2 Pi), If[z == 0, 0, 1], (1 + Log[Abs[z]]^2)^(-1/6)};
Image[
 Table[
  colarg[If[Abs[x + I y] > .999999, 0, DedekindEta[Log[x + I y]/(2 Pi I)]^24]],
  {x, -1 + 10^-6 RandomReal[], 1, .0035}, {y, -1 + 10^-6 RandomReal[], 1, .0035}
 ],
 ColorSpace -> Hue, Magnification -> 1
]

produces

enter image description here

$\endgroup$
  • $\begingroup$ Thanks a lot! Very wonderful! $\endgroup$ – Licheng Wang May 7 '18 at 16:41
1
$\begingroup$

The nome is the quantity $q=\exp(i \pi \tau)$, which lies in the unit disk $|q|<1$ when $\tau$ lies in the upper half plane.

So you can view the function as a function of $\tau$, and draw the picture by coloring the points of the upper half plane, or (as in this case) you can view it as a function of $q$, and draw the picture by coloring the points of unit disk.

$\endgroup$
  • $\begingroup$ What means "nome"? I have not found the definition of this term. $\endgroup$ – Licheng Wang May 8 '18 at 0:06
  • $\begingroup$ @LichengWang: Oh, that's a different question! Which has already been asked, although the answer there doesn't say how that term made its way into mathematics. $\endgroup$ – Hans Lundmark May 8 '18 at 6:45

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.