用Maple画的情人节特献：有心之函数必然就有分手函数》

maplev12

从http://forum.simwe.com/thread-969648-1-1.html以及http://www.matrix67.com/blog/archives/4139看到帖子，《情人节特献：有心之函数必然就有分手函数》，用Mathematica画出的心~这里也用Maple画了一下~~逗大家一乐~~
还有一个动画……~~就是最后那个函数画出来的~

with(plots, implicitplot):



implicitplot(17*x^2-16*abs(x)*y+17*y^2 <= 225, x = -9.999 .. 9.999, y = -9.999 .. 9.999, coloring = [pink], filledregions = true, scaling = constrained, gridrefine = 3, crossingrefine = 5, axes = none);




implicitplot(17*x^2-16*abs(x)*y+17*y^2+150/abs(5*x+sin(5*y)) <= 225, x = -9.999 .. 9.999, y = -9.999 .. 9.999, coloring = [pink], filledregions = true, scaling = constrained, gridrefine = 3, crossingrefine = 5, axes = none);




plots[animate](implicitplot, [17*x^2-16*abs(x)*y+17*y^2+t/abs(5*x+sin(5*y)) <= 225, x = -9.999 .. 9.999, y = -9.999 .. 9.999, coloring = [pink], filledregions = true, scaling = constrained, gridrefine = 4, crossingrefine = 5, axes = none], t = 1 .. 150, paraminfo = false);

MMMS

Good，顶一下！