pst-contourplot : exemples 3

Encore des exemples avec la package pst-contourplot, les précédents concernaient les ovales de Descartes par Henri Bouasse :

Exemples avec pst-contourplot : les ovales de Descartes

Le package est dans le répertoire :

pst-contourplot

Les images, puis les listings :

\documentclass[pstricks]{standalone}
\usepackage{pst-contourplot,multido}
\begin{document}
\begin{pspicture}[showgrid](-4,-4)(8,4)
\pstVerb{/ai 2 def}%
\psset{algebraic,ncell=150 80,a=0.1}
\multido{\n=-3.50+0.25,\r=0+0.0476}{21}{
\definecolor{Descartes}{hsb}{\r\space 1 1}
\psContourPlot[linecolor=Descartes]{-0.75*sqrt(x^2+y^2)+1.25*sqrt((x-ai)^2+y^2)+\n}}
\psline{<->}(0,4)(0,0)(8,0)
\uput[d](0,0){$O_1$}
\uput[l](0,3.75){$y$}
\uput[u](7.9,0){$x$}
\psdots(!ai 0)(0,0)
\uput[d](!ai 0){$O_2$}
\end{pspicture}

\begin{pspicture}[showgrid=false](-4,-4)(8,4)
\pstVerb{/ai 2 def}%
\psset{algebraic,ncell=150 80,a=0.1}
\multido{\n=-3.50+0.25,\r=0+0.0476}{21}{
\definecolor{Descartes}{hsb}{\r\space 1 1}
\psContourPlot[linecolor=Descartes,fillcolor=Descartes,Fill]{-0.75*sqrt(x^2+y^2)+1.25*sqrt((x-ai)^2+y^2)+\n}}
\end{pspicture}

\begin{pspicture}(-5,-5)(5,5)
\psframe*[linecolor=cyan](-5,-5)(5,5)
\psset{unit=0.5}%
\psContourPlot[algebraic,ncell=200 200,a=0.1,linecolor=red,Fill,fillcolor=yellow,ReverseColors]{sin(x)*(sin(y)-1)*sin(y)*(sin(x)-1)}
\end{pspicture}

\begin{pspicture}(-6.28,-6.28)(6.28,6.28)
% http://www.ensiie.fr/~gacogne/courbes.pdf
\psframe*[linecolor=cyan](-6.28,-6.28)(6.28,6.28)
\psset{unit=0.5}%
\psContourPlot[algebraic,ncell=512 512,a=0.05,linecolor=red,Fill,fillcolor=yellow,ReverseColors]{(sin(y)*cos(x)-sin(x))*(sin(x)*cos(y)-sin(y))}
\end{pspicture}
\end{document}