TransWikia.com

How could this image be reproduced with MMA?

Mathematica Asked by rpujadas on July 17, 2021

It is assumed that this image was obtained by computer-graphics, any idea to reproduce it, as I show it, thank you very much in advance.

enter image description here

2 Answers

Too long for a comment: I interpret these sorts of questions as a request for brainstorming. Here's how one might tackle the problem of reverse-engineering the colors: let's get every distinct color of the image, and try to identify a simple function to reproduce the non-black colors

img=ImageTake[#, Last@ImageDimensions@# - 200] &@
 Import["http://www.fegovi.com/math/math084g.jpg"]

The ImageTake removed the gray logos.

cols=Union@Flatten[ImageData@RemoveAlphaChannel@img, 1]

Now we have every distinct color of the image in a list, about 130k of them. Let's ListPointPlot3D them in RGB space, a RandomSample of 10k of them

cols

It looks like these fall on a few planes. Perhaps someone more adept then I can compute the multiple planes of best fit.

Answered by Adam on July 17, 2021

A possible way.

ParametricPlot3D[{x - y, x + y, Sin[x*y]}, {x, -8, 8}, {y, -8, 8}, 
  Axes -> False, Boxed -> False, 
  ColorFunction -> Function[{x, y, z}, ColorData["Rainbow"][x]], 
  RegionFunction -> Function[{x, y, z}, x^2 + y^2 <= 36], 
  MaxRecursion -> 0, Mesh -> None, Background -> Black, 
  PlotPoints -> 80] /. 
 Polygon[a_] :> {Thickness[Large], 
   Line[a, VertexNormals -> Automatic, VertexColors -> Automatic]}

enter image description here

Answered by cvgmt on July 17, 2021

Add your own answers!

Ask a Question

Get help from others!

© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP