Милые мои ©

Совместно с Gabriel-ем Taubin-ом мы искренне шлем вам в ленты 🫱 ContourPlot3D[(x^2+(9/4)y^2+z^2-1)^3 - x^2*z^3-(9/80)y^2*z^3==0, {x, -1.2, 1.2}, {y, -1.2, 1.2}, {z, -1.2, 1.3}]
А программистам в отдельной праздничной Мандельброт-упаковке👇

n = 300;
N = 200;
x = linspace(-1, 1, N);
y = linspace(-1.4, .6, N);
[X,Y] = meshgrid(x, y);
Z = X + i*Y;
Zn = Z;
figure
for j=1:n
  Zn = -i*(Zn).^2 +  (rand(N,N).^(1/5)).*Z;
  M = abs(Zn);
  ind1 = find(M<2);
  ind2 = find(M>=2);
  M(ind1) = 0;
  M(ind2) = -1;
  m = 1;
  imagesc(x, y, (M/m)) 
  colormap([1 1 1; 1 0 0])
  set(gca,'YDir','normal')
  title(n-j)
  pause(0.01)
end

p.s. а вы заметили насколько празднично в настольной версии Телеграм сам по себе выглядит фрагмент исходного кода? 💔
p.p.s. если решите ответить взаимностью, то, на всякий случай напоминаю, что для LABоратории, с некоторых пор, лучшие сатоши walentynki находятся здесь👇😎