summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-contourplot/examples/courbes-diverses.tex
blob: 0aadc1a29e2f5af013096f879af04bf074ef26cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
\documentclass[pstricks]{standalone}
\usepackage{pst-contourplot,pst-plot}%,multido
\begin{document}
\begin{pspicture}[showgrid](-6,-4)(6,4)
\psContourPlot[unit=0.5,algebraic,a=0.4,linecolor=blue,Fill=false,fillcolor=red,function=x*(x^2+y^2)-10*(x^2-y^2)](-6,-8)(12,8)
\psContourPlot[unit=0.5,algebraic,a=0.4,linecolor=blue,Fill=false,fillcolor=red,function=x*(x^2+y^2)-10*(x^2-y^2)-20](-6,-8)(12,8)
\psline{<->}(0,3.5)(0,0)(5.5,0)
\uput[d](0,0){$O$}
\uput[u](0,3.5){$y$}
\uput[r](5.5,0){$x$}
\end{pspicture}

\begin{pspicture}(-6,-4)(6,4)
\psframe*(-6,-4)(6,4)
\psContourPlot[unit=0.5,algebraic,a=0.4,linecolor=-red,Fill,fillcolor={[rgb]{0.5 0.5 1}},function=x*(x^2+y^2)-10*(x^2-y^2)-50](-6,-8)(12,8)
\psContourPlot[unit=0.5,algebraic,a=0.4,linecolor=-red,Fill,fillcolor=-blue,function=x*(x^2+y^2)-10*(x^2-y^2)-20](-6,-8)(12,8)
\psContourPlot[unit=0.5,algebraic,a=0.4,linecolor=-red,Fill,fillcolor=-green,function=x*(x^2+y^2)-10*(x^2-y^2)+10](-6,-8)(12,8)
\psgrid[subgriddiv=0,gridcolor=white,griddots=10,gridlabels=5pt]
\psline[linecolor=white]{<->}(0,3.5)(0,0)(5.5,0)
\uput[d](0,0){\white$O$}
\uput[u](0,3.5){\white$y$}
\uput[r](5.5,0){\white$x$}
\end{pspicture}

\begin{pspicture}(-3,-3)(3,4)
\psContourPlot[unit=2,a=0.02,linecolor=yellow,Fill,fillcolor=red,function=x dup mul y dup mul add 1 sub 3 exp
		       x dup mul y 3 exp mul sub](-2,-2)(2,2)
\psgrid[subgriddiv=0,gridcolor=black,griddots=10,gridlabels=5pt]
\psline{<->}(0,3.5)(0,0)(2.5,0)
\uput[d](0,0){$O$}
\uput[l](0,3.5){$y$}
\uput[d](2.5,0){$x$}
\end{pspicture}

\begin{pspicture}(-5,-5)(5,5)
\psset{unit=0.8333}%
% https://www.maplesoft.com/applications/view.aspx?sid=1582&view=html
\psContourPlot[algebraic,a=0.1,linecolor=red,Fill,fillcolor=yellow,ReverseColors,function=x*y*cos(x^2 + y^2)-1](-6,-6)(6,6)
\psaxes[labelFontSize=\scriptstyle]{->}(0,0)(-6,-6)(6,6)
\end{pspicture}

\begin{pspicture}(-5,-5)(5,5)
% https://www.maplesoft.com/applications/view.aspx?sid=1582&view=html
\psset{unit=0.5}%
\psContourPlot[algebraic,a=0.1,linecolor=red,function=sin(x + 2*sin(y))-cos(y + 3*cos(x))](-10,-10)(10,10)
\psgrid[subgriddiv=0,gridcolor=black,griddots=10,gridlabels=0pt](-10,-10)(10,10)
\psaxes[labelFontSize=\scriptstyle]{->}(0,0)(-10,-10)(10,10)%}
\end{pspicture}

\begin{pspicture}(-5,-5)(5,5)
% https://www.maplesoft.com/applications/view.aspx?sid=1582&view=html
\psframe*[linecolor=cyan](-5,-5)(5,5)
\psset{unit=0.5}%
\psContourPlot[algebraic,a=0.1,linecolor=red,Fill,fillcolor=yellow,ReverseColors,function=sin(x + 2*sin(y))-cos(y + 3*cos(x))](-10,-10)(10,10)
%\psgrid[subgriddiv=0,gridcolor=black,griddots=10,gridlabels=0pt](-10,-10)(10,10)
\psaxes[labelFontSize=\scriptstyle]{->}(0,0)(-10,-10)(10,10)%}
\end{pspicture}

\begin{pspicture}(-5,-5)(5,5)
\psframe*[linecolor=cyan](-5,-5)(5,5)
% https://www.maplesoft.com/applications/view.aspx?sid=1582&view=html
\psset{unit=0.5}%
\psContourPlot[algebraic,a=0.1,linecolor=blue,Fill,fillcolor=orange,ReverseColors,function=ln((x + 7*sin(y))^2)- EXP(y + 2*cos(x))](-10,-10)(10,10)
\psaxes[labelFontSize=\scriptstyle]{->}(0,0)(-10,-10)(10,10)%}
\end{pspicture}

\begin{pspicture}(-4,-4)(4.1,4.1)
\psframe*[linecolor=cyan](-4,-4)(4.1,4.1)
% Courbe déduite de 8 droites
% page 124 : Revue du Palais de la Découverte
% Courbes mathématiques
% Numéro spécial 8 . Juillet 1976
\psContourPlot[algebraic,a=0.1,linecolor=blue,Fill,fillcolor=orange,ReverseColors,function=(x^4-5*x^2+4)*(y^4-5*y^2+4)+1](-4,-4)(4,4)
\psaxes[labelFontSize=\scriptstyle]{->}(0,0)(-4,-4)(4,4)
\end{pspicture}

\multido{\r=4+-0.05}{25}{%
\begin{pspicture}(-4,-4)(4,4)
\psframe*[linecolor=orange](-4,-4)(4,4)
\pstVerb{/rayon 1 def}%
\psContourPlot[unit=2,a=0.02,linecolor={[rgb]{0 0 0.5}},Fill,fillcolor=cyan,ReverseColors,
               function=
               1 x rayon 30 cos mul sub dup mul y rayon 30 sin mul add dup mul add div
               1 x rayon 30 cos mul add dup mul y rayon 30 sin mul add dup mul add div add
               1 x dup mul y rayon sub dup mul add div add
               \r\space sub](-4,-4)(4,4)
\psgrid[subgriddiv=0,gridcolor=black,griddots=10,gridlabels=0pt]
\end{pspicture}}
\end{document}