Revisions to How do I draw a pair of buttocks?

Made it Mathematica-like

edited Nov 25, 2014 at 11:54

8.6k
4
33
53

Well, an unusual question to answer, what what about something like this

Plot3D[.7*(1+Tanh[11 + Tanh[1 - (2*Y^2+X^2+X^42*Y^2 + X^2 + X^4)]) - .3*Exp[-X^2/.0025]*Exp[0025]* Exp[-(Y - .1)^2/.15] - .2*(  Exp[-(X - .7)^2/.02]*Exp[-(Y - .0)^2/.08]+08] +   Exp[-(X+X + .7)^2/.02]*Exp[-(Y - .0)^2/.08]  ), {X, -1, 1}, {Y, -1, 1}]

X and Y in [-1,1], Z in [0,2], i.e. cube.

You may play with RegionFunction->... and some parameters. ![enter image description here][1]

Actually, I did it in Python, but it isn't a Mathematica specific question, now is it? [1]: https://i.sstatic.net/32p9h.jpg Mathematica graphics

Well, an unusual question to answer, what about something like this

.7*(1+Tanh[1-(2*Y^2+X^2+X^4)])- .3*Exp[-X^2/.0025]*Exp[-(Y-.1)^2/.15]-.2*(  Exp[-(X-.7)^2/.02]*Exp[-(Y-.0)^2/.08]+ Exp[-(X+.7)^2/.02]*Exp[-(Y-.0)^2/.08]  )

X and Y in [-1,1], Z in [0,2], i.e. cube.

You may play with RegionFunction->... and some parameters. ![enter image description here][1]

Actually, I did it in Python, but it isn't a Mathematica specific question, now is it? [1]: https://i.sstatic.net/32p9h.jpg

Well, an unusual question to answer, what about something like this

Plot3D[.7*(1 + Tanh[1 - (2*Y^2 + X^2 + X^4)]) - .3*Exp[-X^2/.0025]* Exp[-(Y - .1)^2/.15] - .2*(Exp[-(X - .7)^2/.02]*Exp[-(Y - .0)^2/.08] +   Exp[-(X + .7)^2/.02]*Exp[-(Y - .0)^2/.08]), {X, -1, 1}, {Y, -1, 1}]

Mathematica graphics

added 117 characters in body

Source Link

edited Nov 25, 2014 at 11:50

mikuszefski

4.9k
1
17
19

Well, an unusual question to answer, what about something like this

.7*(1+Tanh[1-(2*Y^2+X^2+X^4)])- .3*Exp[-X^2/.0025]*Exp[-(Y-.1)^2/.15]-.2*( Exp[-(X-.7)^2/.02)*Exp[02]*Exp[-(Y-.0)^2/.08]+ Exp[-(X+.7)^2/.02)*Exp[02]*Exp[-(Y-.0)^2/.08] )

X and Y in [-1,1], Z in [0,2], i.e. cube.

You may play with RegionFunction->... and some parameters. I spare the community putting an ![enter image of my result.description here][1]

Actually, I did it in Python, but it isn't a Mathematica specific question, now is it? [1]: https://i.sstatic.net/32p9h.jpg

Well, an unusual question to answer, what about something like this

.7*(1+Tanh[1-(2*Y^2+X^2+X^4)])- .3*Exp[-X^2/.0025]*Exp[-(Y-.1)^2/.15]-.2*( Exp[-(X-.7)^2/.02)*Exp[-(Y-.0)^2/.08]+ Exp[-(X+.7)^2/.02)*Exp[-(Y-.0)^2/.08] )

X and Y in [-1,1], Z in [0,2], i.e. cube.

You may play with RegionFunction->... and some parameters. I spare the community putting an image of my result.

Well, an unusual question to answer, what about something like this

.7*(1+Tanh[1-(2*Y^2+X^2+X^4)])- .3*Exp[-X^2/.0025]*Exp[-(Y-.1)^2/.15]-.2*( Exp[-(X-.7)^2/.02]*Exp[-(Y-.0)^2/.08]+ Exp[-(X+.7)^2/.02]*Exp[-(Y-.0)^2/.08] )

X and Y in [-1,1], Z in [0,2], i.e. cube.

You may play with RegionFunction->... and some parameters. ![enter image description here][1]

Actually, I did it in Python, but it isn't a Mathematica specific question, now is it? [1]: https://i.sstatic.net/32p9h.jpg

Source Link

answered Nov 25, 2014 at 11:42

mikuszefski

4.9k
1
17
19

Well, an unusual question to answer, what about something like this

.7*(1+Tanh[1-(2*Y^2+X^2+X^4)])- .3*Exp[-X^2/.0025]*Exp[-(Y-.1)^2/.15]-.2*( Exp[-(X-.7)^2/.02)*Exp[-(Y-.0)^2/.08]+ Exp[-(X+.7)^2/.02)*Exp[-(Y-.0)^2/.08] )

X and Y in [-1,1], Z in [0,2], i.e. cube.

You may play with RegionFunction->... and some parameters. I spare the community putting an image of my result.

Stack Exchange Network

Return to Answer