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
|
\documentclass[pstricks]{standalone}
\usepackage{pst-solides3d,pst-contourplot}
\begin{document}
\begin{pspicture}(-5,-5)(5,5)
% Julien Royer
% https://www.math.univ-toulouse.fr/~jroyer/TD/2015-16-L2PS/L2PS-poly.pdf
\psframe(-5,-5)(5,5)
\multido{\n=-2.0+.2,\nH=0.0+0.05}{20}{
\psContourPlot[unit=1,a=0.05,algebraic,function=sin(x)-sin(y)-\n,Fill,fillcolor={[hsb]{\nH,1,1}},ReverseColors](-5,-5)(5,5)}
\end{pspicture}
\begin{pspicture}(-5,-5)(5,5)
% Julien Royer
% https://www.math.univ-toulouse.fr/~jroyer/TD/2015-16-L2PS/L2PS-poly.pdf
\psframe(-5,-5)(5,5)
\multido{\n=-2.0+.2,\nH=0.0+0.05}{20}{
\psContourPlot[unit=1,a=0.05,algebraic,function=sin(x)-sin(y)-\n,linecolor={[hsb]{\nH,1,1}}](-5,-5)(5,5)}
\end{pspicture}
\begin{pspicture}(-5,-5)(5,5)
% https://www.math.univ-toulouse.fr/~jroyer/TD/2015-16-L2PS/L2PS-poly.pdf
\psframe(-5,-5)(5,5)
\multido{\n=-1.00+.05,\nH=0.0+0.04}{25}{
\psContourPlot[unit=2,a=0.05,algebraic,function=(x^2-2*y^2)*Euler^(-2*x^2-y^2)-\n,linecolor={[hsb]{\nH,1,1}}](-2.5,-2.5)(2.5,2.5)}
\end{pspicture}
\begin{pspicture}(-5,-5)(5,5)
\psframe(-5,-5)(5,5)
\psset{viewpoint=50 40 20 rtp2xyz,Decran=70,lightsrc=50 30 35 rtp2xyz}
\psSurface[
fillcolor=white,algebraic,
intersectionplan={[0 0 1 -0.1] [0 0 1 0.3] [0 0 1 0.2]},
intersectioncolor=(bleu) (red) (green),
intersectionlinewidth=1,
intersectiontype=0,
ngrid=.1 .1,incolor=yellow!50,linewidth=0.01](-2.5,-2.5)(2.5,2.5){2*(x^2-2*y^2)*Euler^(-2*x^2-y^2)}
\end{pspicture}
\end{document}
|