22
|
14400 Views
|
11 Replies
|
38 Total Likes
View groups...
Share
GROUPS:

# [GIF] Riemann Hypothesis video from Quanta Magazine

Posted 3 years ago
 I just wanted to share Quanta Magazine's new explainer video on the Riemann Hypothesis, to which I contributed a number of animations: https://youtu.be/zlm1aajH6gY The full Quanta Magazine article can be found here: How I Learned to Love and Fear the Riemann Hypothesis. Here's a GIF of part of the spiral animation : And here's a Manipulate version of the spiral animation: zetazeros = Table[N[Im[ZetaZero[i]]], {i, 1, 20}]; DynamicModule[{diffs, pos, xaxesLength = 5, yaxesLength = 9/16*5, range = 3, tmax = 55, axesColor, cols = RGBColor /@ {"#07617d", "#f9a828", "#2e383f", "#ececeb"}, n = Length[zetazeros]}, axesColor = cols[[3]]; Manipulate[ diffs = Table[a - zetazeros[[i]], {i, 1, n}]; pos = Position[diffs, x_ /; 0 < x < 1]; Show[Graphics[{axesColor, Thickness[.002], Line[{{-xaxesLength, 0}, {xaxesLength, 0}}], Line[{{0, -yaxesLength}, {0, yaxesLength}}], Reverse@Table[{Opacity[(8 - E^r)/48], Blend[cols[[;; 2]], E^r/2], Disk[{0, 0}, E^r]}, {r, -5, 5, 1/4}]}], ParametricPlot[ReIm[Zeta[1/2 + I t]], {t, 0, a}, PlotStyle -> Directive[Thickness[.005], CapForm["Round"]], ColorFunctionScaling -> False, ColorFunction -> Function[{x, y, t}, Blend[cols[[;; 2]], Norm[{x, y}]/2]]], Graphics[{Blend[cols[[;; 2]], Abs[Zeta[1/2 + I a]]/2], PointSize[.015], Point[ReIm[Zeta[1/2 + I a]]], cols[[1]], If[Length[pos] >= 1, {Opacity[1 - diffs[[pos[[1, 1]]]]], Disk[{0, 0}, 2 diffs[[pos[[1, 1]]]]]}]}], ImageSize -> 50 {16, 9}, Background -> cols[[-1]], PlotRange -> range {{-16/9, 16/9}, {-1, 1}}], {a, .0001, tmax, (tmax - .0001)/840}] ] 
11 Replies
Sort By:
Posted 3 years ago
 Congratulations! Your post was highlighted on the Wolfram's official social media channels. Thank you for your contribution. We are looking forward to your future posts.
Posted 3 years ago
 Also found a related article on medium recently https://medium.com/cantors-paradise/solve-this-equation-to-win-a-million-dollars-ca5b3754e2da
Posted 3 years ago
 Fantastic! Are you gonna share the others? They are really nice!
Posted 3 years ago
 Unfortunately, the others were all produced in multiple parts, which were stitched together at the end with FFmpeg (for example, the sequence from 12:59–14:36 in the video consists of 11 separate parts). In the end I think it's something like 40 different parts spread over 7 different notebooks, so the effort of putting it all together into something comprehensible will be substantial. Not to say I won't do it at some point, but, given that our semester is starting soon and I have a lot else going on, it's not at the top of my priority list at the moment.
Posted 3 years ago
 No worries, even just knowing which ones you created would be interesting, and would open my mind of the possibilities of what Mathematica can do… (I, for example, have made this in Mathematica and also ffmpeg).
Posted 3 years ago
 Hi Sander,Looks like the video is no longer available on YouTube Video unavailable This video contains content from WMG, who has blocked it on copyright grounds.
Posted 3 years ago
 Fixed that, I could see it myself, but not others. Now removed the music and reuploaded. link updated.
Posted 3 years ago
 The segments I animated are probably not hard to guess. They are:0:00–0:272:47–3:263:52–3:599:05–9:309:53–12:3112:58–14:36The other animations were done by an actual professional motion graphics designer, Guan-Huei Wu.
Posted 3 years ago
 A very interesting thing to look at with the "zeta spiral" is Lehmer's phenomenon, which manifests itself as a near-cusp at the origin. Stripping down Clayton's code from above, here's how to visualize the first Lehmer pair: ParametricPlot[ReIm[Zeta[1/2 + I t]], {t, 7005, 7005 + 1/8}, Background -> RGBColor["#ececeb"], ColorFunctionScaling -> False, ColorFunction -> Function[{x, y, t}, Blend[{RGBColor["#07617d"], RGBColor["#f9a828"]}, Norm[{x, y}]/2]], Frame -> True, PlotRange -> {-0.01, 0.01}, PlotStyle -> Directive[Thickness[0.005], CapForm["Round"]]] If the spiral did not in fact hit the origin, then the hypothesis would be false there. The MathWorld page I linked to has examples of other Lehmer pairs.Another nice thing to look at using the spiral would be the Gram points.
Posted 3 years ago
 Wow, such an exquisite work, thanks for sharing! Just finished watching the video and reading the article, -- the animations are greatly educational. Besides the elegance of maths in your animations I also always enjoy your color schemes :-) Congrats on Quanta Magazine collaboration!
Posted 3 years ago
 -- you have earned Featured Contributor Badge Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.