# Tag Info

### Code that generates a mandala

Here is one way to come up with "mandalas" -- we generate a segment and then by appropriate number of rotations we produce a "mandala". Here is an example function of a random seed segment ...
• 37.9k

### How can I draw a Homer with epicycloids?

The main challenge to make something general is to create a list of points that, when joined, is as close as possible to the original image. The first example (elephant) focuses on the mathematical ...
• 14.3k

### How to make this beautiful animation

Edit: Added the reversal and some refinements ...
• 7,974
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 ...
• 70.8k

### Code that generates a mandala

For this one I've defined three types of layer, a flower, a simple circle and a ring of small circles. You could add more for greater variety. ...
• 85.1k
Accepted

### How to Make a Sankey Diagram

Here's the start of a SankeyDiagram function: ...
• 131k
Accepted

### Generating Doyle spiral painting

TL;DR Yes, this can be done! If you read the article "Hexagonal circle packings and Doyle spirals" by Leys, you will see that for a choice p and ...
• 113k
Accepted

### Draw impossible figure with MMA, how can it be done?

Edit Since TernaryListPlot is new in 13.1 version,for old version,we use ternary[{p1_, p2_, p3_}] = {p1 + 1/2 p2, Sqrt[3]/2 p2}; ...
• 76.5k

### Face Morphing with Mathematica

MMA version: 12.0 I'll use the following images, found on the internet under open licence (if you know how to share the images themselves, please let me know). I originally had chosen two more but ...
• 14.3k
Accepted

### All that doesn't glitter isn't gold

Here is a possible approach using MaterialShading new in version 12.3. It is easier to get nice results on curved surfaces like a sphere without too much input. To ...
• 16.4k

### Drawing Clifford Attractors in Mathematica

Parameters: a = -1.24458; b = -1.25191; c = -1.815908; d = -1.90866; Compiled function used for iteration: ...
• 236k
Accepted

### Smoothing 3D contours as post processing

As announced before, here my take on the mean curvature flow for surfaces. The code is rather lengthy and I tried to recycle as much as possible from this post about finding minimal surfaces (solving ...
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:...
• 9,787
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: ...
• 398k

### How can I adaptively simplify a curved shape?

We can use the Ramer-Douglas-Peucker algorithm to reduce the number of points. This algorithm was originally devised for processing map data. ...
• 236k
Accepted

### How to create this spikey in Mathematica?

This is probably too slow to get a decent image, but here's a simple attempt. As JM suggests, you can use Geodesate to get a good set of points on the sphere. I ...
• 85.1k
Accepted

### How to make this Dragon Curve?

I think OP may want animation with transition effects. Compare these two effects: Then translation ...
• 15.6k
Accepted

### Generate landscape by cutting a plane in 3d

My solution does not follow the algorithm you described to the word (I don't choose two random points and find the line equation that runs through them but instead choose a random line equation) but ...
• 8,469
Accepted

### How to project 3d image in the planes xy, xz, yz?

Update 2: The function projectToWalls does not work in version 12.0 because the function PlotRange no longer works. To fix the ...
• 398k

### Creating the Yin Yang symbol with minimal code

Unicode: \:262F (* ☯ *) For post-processing at higher resolution, we can rasterize this character to arbitrary pixel counts: ...
• 48.3k
Accepted

### Creating the Yin Yang symbol with minimal code

d = {#, 0} ~ Disk ~ ##2 &; Graphics@{d[4, 8, {0, π}], 8~d~4, {White, 0~d~4, d@8}, d@0, Circle @@ 4~d~8} ...
• 398k
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' ...
• 9,630
Accepted

### Visualize an irrational number

With a pie chart around it: ...
• 15.2k
Accepted

### How to insert dimensions in graphics?

You could turn the dimensioning into a handy function: ...
• 14.2k
Accepted

### How can I better mimic the graphics at earth.nullschool.net?

I think you might be better off creating Graphics directly instead of using the StreamPlot style options. In this example I use ...
• 85.1k

### Code that generates a mandala

The point of using machine learning algorithms for generation of mandala images mentioned in the comments of my previous answer is clarified in this blog post: "Comparison of dimension reduction ...
• 37.9k
Accepted

### Rounding the Corners of a Shape

UPDATE: The previous version of my answer worked, but did not give control on the rounding radius, nor did it fully work with as a starting point for a geometric region for further calculations. Here ...
• 67.4k
Accepted

### Inflection point and curvature

Let's rename things slightly to make it more consistent g = Fit[newdata, {1, x, x^2, x^3, x^4}, x]; To find inflection points, you can just put (blue) points ...
• 14.2k