スラッシュドットで紹介されていた

おっぱいの方程式を発見したよ！

Mathematica でおっぱい方程式を可視化

を見て普段使っているMaximaで真似をしてみた。

plot3d((1/8)*(6*exp(-(((2/3)*abs(x) - 1)^2 + ((2/3)*y)^2) - (1/3)*((2/3)*y + (1/2))^3)
+ (2/3)*exp(-%e^11*( (abs((2/3)*x) - 1)^2 + ((2/3)*y)^2)^2) + (2/3)*y - ((2/3)*x)^4),
[x,-3,3], [y,-3,3], [grid, 100,100],[plot_format,openmath])$



すごいね乳首までくっきり描かれている。