## File: singulr.dem

package info (click to toggle)
gnuplot 3.7.2-4
 `123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176` ``````# \$Id: singulr.dem,v 1.1.1.1.2.2 1999/08/19 14:35:07 lhecking Exp \$ # # Demo that plots some surfaces with singularities. # Author: Carsten Steger # # (x,y,x^2-y^2,2xy) is the graph of w=z^2 in 4-space. # Therefore (x^2-y^2,2xy,x,y) is the graph of w=sqrt(z) in 4-space. # Coordinates 1, 2, and 3 give the real part of either function, # whereas coordinates 1, 2, and 4 give the imaginary part. # The same holds for the cube function w=z^3. The graphs are given by # (x,y,x^3-3xy^2,3x^2y-y^3) and (x^3-3xy^2,3x^2y-y^3,x,y). # And so on... set parametric set hidden3d set isosamples 21 set autoscale set view 60,30 set urange [-3:3] set vrange [-3:3] set title "Real part of complex square root function" splot u**2-v**2,2*u*v,u pause -1 "Hit return to continue (1)" set view 60,210 set title "Real part of complex square root function (different view)" replot pause -1 "Hit return to continue (2)" set view 60,120 set urange [-3:3] set vrange [-3:3] set title "Imaginary part of complex square root function" splot u**2-v**2,2*u*v,v pause -1 "Hit return to continue (3)" set view 60,300 set title "Imaginary part of complex square root function (different view)" replot pause -1 "Hit return to continue (4)" set view 60,30 set urange [-3:3] set vrange [-3:3] set title "Real part of complex cube root function" splot u**3-3*u*v**2,3*u**2*v-v**3,u pause -1 "Hit return to continue (5)" set view 60,210 set title "Real part of complex cube root function (different view)" replot pause -1 "Hit return to continue (6)" set view 60,30 set urange [-3:3] set vrange [-3:3] set title "Imaginary part of complex cube root function" splot u**3-3*u*v**2,3*u**2*v-v**3,v pause -1 "Hit return to continue (7)" set view 60,210 set title "Imaginary part of complex cube root function (different view)" replot pause -1 "Hit return to continue (8)" set view 60,30 set isosamples 31 set urange [-1:1] set vrange [-1:1] set title "Real part of complex 4th root function" splot u**4-6*u**2*v**2+v**4,4*u**3*v-4*u*v**3,u pause -1 "Hit return to continue (9)" set view 60,210 set title "Real part of complex 4th root function (different view)" replot pause -1 "Hit return to continue (10)" set view 60,120 set urange [-1:1] set vrange [-1:1] set title "Imaginary part of complex 4th root function" splot u**4-6*u**2*v**2+v**4,4*u**3*v-4*u*v**3,v pause -1 "Hit return to continue (11)" set view 60,300 set title "Imaginary part of complex 4th root function (different view)" replot pause -1 "Hit return to continue (12)" set isosamples 21 set view 60,20 set urange [-3:3] set vrange [-3:3] set title "Enneper's surface" splot u-u**3/3+u*v**2,v-v**3/3+v*u**2,u**2-v**2 pause -1 "Hit return to continue (13)" set view 60,110 set title "Enneper's surface (different view)" replot pause -1 "Hit return to continue (14)" set isosamples 31,11 set view 60,30 set title "Moebius strip" set urange [0:2*pi] set vrange [-0.25:0.25] splot (2-v*sin(u/2))*sin(u),(2-v*sin(u/2))*cos(u),v*cos(u/2) pause -1 "Hit return to continue (15)" set view 60,210 set title "Moebius strip (view from opposite side)" replot pause -1 "Hit return to continue (16)" set nokey set xrange [-10:10] set yrange [-10:10] set zrange [-3:3] set urange [0:2*pi] set vrange [0:2*pi] set isosamples 39,60 set view 60,120 set title "Klein bottle" splot (2*sin(u)*cos(v/2)-sin(2*u)*sin(v/2)+8)*cos(v), \ (2*sin(u)*cos(v/2)-sin(2*u)*sin(v/2)+8)*sin(v), \ 2*sin(u)*sin(v/2)+sin(2*u)*cos(v/2) pause -1 "Hit return to continue (17)" set urange [0:2*pi] set vrange [0:4*pi/3] set isosamples 39,40 set view 60,20 set title "Klein bottle with look at the 'inside'" replot pause -1 "Hit return to continue (18)" set data style lines set xrange [-12:12] set yrange [-12:12] set zrange [*:*] set nohidden3d set ticslevel 0. set view 50,15 #HBB: ,1,1.7 set title "Klein bottle, glassblowers' version (look-through)" splot "klein.dat" pause -1 "Hit return to continue (19)" set hidden3d set view 70,305 set title "Klein bottle, glassblowers' version (solid)" splot "klein.dat" pause -1 "Hit return to continue (20)" reset ``````