72 votes

How to make this beautiful animation

Edit: Added the reversal and some refinements ...
Quantum_Oli's user avatar
  • 7,904
70 votes
Accepted

How to make this beautiful animation

I'd like to expand on Quantum_Oli's answer to give an intuitive explanation for what's happening, because there's a neat geometric interpretation. At one point in the animation it looks like there is ...
C. E.'s user avatar
  • 70.4k
62 votes

Is it possible to define a new PlotTheme?

Illuminated by @Mr.Wizard's answer, here I provide a complete example of a self-made plot theme, called "Academic". It can be used as a base theme. The axes ...
Everett You's user avatar
  • 2,267
61 votes
Accepted

How to Make a Sankey Diagram

Here's the start of a SankeyDiagram function: ...
Carl Woll's user avatar
  • 130k
44 votes

Drawing Clifford Attractors in Mathematica

Parameters: a = -1.24458; b = -1.25191; c = -1.815908; d = -1.90866; Compiled function used for iteration: ...
Szabolcs's user avatar
  • 234k
40 votes
Accepted

Make a beautiful Moiré effect

I feel that once you start with Moire patterns, there's no ending. The way I would replicate these is by making a grid into a function (like @JasonB) but also parametrise the angle of rotation into it:...
gpap's user avatar
  • 9,646
39 votes
Accepted

How can I reproduce this mandala with Mathematica?

Update: We can get a shape similar (except for colors) to the one in OP using ScalingTransform as follows: ...
kglr's user avatar
  • 391k
38 votes
Accepted

How to draw an interactive, mouse clickable, 3D Bloch sphere?

Here is an attempt to draw a 3D Bloch sphere, on which we can select a point simply clicking on it with the mouse and obtain the corresponding qubit representation. In the code I made use of Szabolcs' ...
glS's user avatar
  • 7,583
38 votes
Accepted

Plot 3D model of DNA in Mathematica

The easiest way to do this is if you have a PDB file, then it's as easy as using Import. Here are a few examples from the RCSB's Protein Data Bank. To get the URLs,...
Jason B.'s user avatar
  • 67.9k
37 votes

Placing a ContourPlot under a Plot3D

Here's one using SliceContourPlot3D (introduced in 10.2) and Vitaliy's stylings. ...
Greg Hurst's user avatar
  • 35.7k
33 votes
Accepted

How to generate image like QR code with Mathematica

This version of generation code is originally posted at wolfram community. I guess a story-telling type post would attract more upvotes and probably give some insight about how to 'solve problems' ...
Wjx's user avatar
  • 9,558
33 votes
Accepted

How can I plot this spirally surface?

A manual way of doing it is: ...
Thies Heidecke's user avatar
32 votes
Accepted

Visualize an irrational number

With a pie chart around it: ...
halmir's user avatar
  • 14.9k
31 votes
Accepted

Plotting Joukowski Airfoil Streamlines using conformal maps

There is no simple method to display streamlines using the Zhukovsky function. I will show an example with a Zhukovsky profile at an angle of attack. ...
Alex Trounev's user avatar
  • 43.3k
31 votes
Accepted

What's the default colormap (or color scheme) used in mathematica?

"DefaultColorFunction" /. (Method/. Charting`ResolvePlotTheme[Automatic, ContourPlot]) "M10DefaultDensityGradient" ...
kglr's user avatar
  • 391k
30 votes
Accepted

How to plot data by counties?

Updated text I made a tutorial out of this answer and posted it on Wolfram Community. It's slightly different, and may be worth to check out. Data from Wolfram Knowledgebase The most ...
C. E.'s user avatar
  • 70.4k
30 votes

Zoom in on a 2D graph

This is a prototype, it can not handle Text Inset and some more complicated directives efficiently but I don't have time / ...
Kuba's user avatar
  • 137k
30 votes
Accepted

Zoom in on a 2D graph

You can do this using Show and PlotRange which can be used in combination with graphs. To determine the full ...
Sjoerd C. de Vries's user avatar
29 votes

Poincare Section of a Hamiltonian

Try with the following code: ...
E. Chan-López's user avatar
29 votes
Accepted

How to plot a bicycle with square wheels

This question is too interesting to resist, so I'll talk about how to analyze the problem. Take a look at sketch above. It describes an arbitrary moment during the rolling. From the kinematics view, $...
Silvia's user avatar
  • 27.5k
29 votes

Visualize an irrational number

With help of: (1) how to generate repeatable Unique streams? (2) Color Blend in BezierCurve (3) Is it possible to draw really thin lines in Mathematica? here is something to start: ...
Kuba's user avatar
  • 137k
29 votes

Shading under a curve with dots

This is a simple little hack that will replace the polygons created by your Filling command with a set of random points. By default I'm scaling the number of ...
Jason B.'s user avatar
  • 67.9k
29 votes

Plot 3D model of DNA in Mathematica

This was supposed to be a comment to Jason's answer, but it got a bit long. But wouldn't it be cool if you could just input a DNA sequence and have a plot? ... take that little snippet and paste it ...
J. M.'s eventual burnout's user avatar
28 votes

How to make a circular heat map or diagram in Mathematica?

A more flexible approach: Pre-process input data to construct a data set for SectorChart. To inject an angular gap in the chart, we add a last column to input data ...
kglr's user avatar
  • 391k
28 votes
Accepted

Create GIF looping animation

As partly mentioned in this: Add delay to the final frame of a GIF? we can use "AnimationRepetitions" -> ∞ to loop a GIF indefinitely: ...
Ali Hashmi's user avatar
  • 8,940
27 votes
Accepted

Coneheads instead of Arrowheads

How about: ...
Lukas Lang's user avatar
  • 33.6k
27 votes

Why is Mathematica converting Sin(x + pi/2) to Cos(x)?

The reason why Sin[x+Pi/2] is converted to Cos[x] is, that it is the simplest form. This is the way Mathematica works. You input ...
halirutan's user avatar
  • 113k
26 votes

How to roll a graph on the y-axis

We calculate the tangent vector of parametric curve {t^2,t} and the ArcLength from 0 to <...
cvgmt's user avatar
  • 68.8k
26 votes
Accepted

How to obtain the ViewPoint

One way is to set a symbol equal to the initial default viewpoint. v = Options[Plot3D, ViewPoint][[1, 2]] (* {1.3, -2.4, 2.} *) Use that symbol dynamically in ...
Jack LaVigne's user avatar
  • 14.4k
26 votes
Accepted

Plot of $\sin(x^x)$ is missing from $x=143$

Normally Plot uses machine precision numbers; your $x^x$ expression is hitting the limit of the numbers that can be represented in machine precision right about $x&...
MarcoB's user avatar
  • 66.6k

Only top scored, non community-wiki answers of a minimum length are eligible