# How can I do the same thing with mathematica? [duplicate]

I would like to do the same thing that we can see from the picture but with Mathematica. The problem is that I am only an high-school student which try to do this. It would be appreciated if it could be kept simple.

://i.sstatic.net/oBO7d.jpg

• We just had a slew of conformal mapping questions, which is a form of what you seek. My Ellie is fairly easy to transform, but it was a lot of work. I'm not about to repeat it for your figure. (All the examples there are in terms of complex-number transformations, but it would be easy to revise them from $z = x + i y$ to $(x,y)$ terms.) Apr 28, 2022 at 16:49
• This is possible in Maple (see transform and that example). It should be noticed that transform works with non-conformal mappings too. Apr 28, 2022 at 18:11
• { Cos[0.82 x] + Sin[0.33 y], 0.75 - Cos[0.33 x] + Sin[0.82 y] }, {x, 0, pi}, {y, -pi/2, pi/2} Apr 30, 2022 at 22:02
• I thank you all for the help. May 1, 2022 at 11:05

## 1 Answer

One way to approach this is to start with your image and then warp it with ImageTransformation... since you didn't provide an image, I'll use a random one grabbed from the web. The two Sin functions control the warping of the regular grid lines in the original picture.

img = Import["https://i.sstatic.net/W2kZh.png"];
ImageCrop[ImageTransformation[img,
# + {.02 Sin[ 20 #[[2]]], .02 Sin[ 20 #[[1]]]} &], {150, 160}]