\documentclass[pstricks]{standalone} \usepackage{pst-contourplot} \begin{document} \begin{pspicture}(-6,-6)(6,6) % Courbe du diable % page 52 : Revue du Palais de la Découverte % Courbes mathématiques % Numéro spécial 8 . Juillet 1976 % et Serge Mehl % http://serge.mehl.free.fr/anx/Diable.html \psframe*[linecolor=cyan](-6,-6)(6,6) \psContourPlot[a=0.1,linecolor=red,Fill,fillcolor=yellow,ReverseColors, function=x 4 exp y 4 exp sub 24 y 2 exp mul add 25 x 2 exp mul sub](-6,-6)(6,6) \end{pspicture} \end{document}