home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 1999 February / CT_SW9902.ISO / pc / software / wissen / daten / gnuplot.hqx / gnuplot.2.0b4 / Scripts / demo / surface2.dem < prev    next >
Text File  |  1997-05-03  |  2KB  |  92 lines
  1. #
  2. # $Id: surface2.dem,v 1.4 1997/04/05 19:44:49 drd Exp $
  3. #
  4. set parametric
  5. set isosamples 50,10
  6. set hidden
  7.  
  8. set title "Parametric Sphere"
  9. set urange [-pi/2:pi/2]
  10. set vrange [0:2*pi]
  11. set zrange [-1:1]
  12. set ztics nomirror -1.0,0.25,1.0
  13. set view 45,50,,2.5
  14. splot cos(u)*cos(v),cos(u)*sin(v),sin(u)
  15. pause -1 "Hit return to continue (1)"
  16.  
  17. set view ,,,0.8
  18. replot
  19. pause -1 "Hit return to continue (2)"
  20.  
  21. set view ,,,1.6
  22. replot
  23. pause -1 "Hit return to continue (3)"
  24.  
  25. set view ,,,1.0
  26.  
  27. set title "Parametric Torus"
  28. set urange [0:2*pi]
  29. set vrange [0:2*pi]
  30. splot (1-0.2*cos(v))*cos(u),(1-0.2*cos(v))*sin(u),0.2*sin(v)
  31. pause -1 "Hit return to continue (4)"
  32.  
  33.  
  34. set view ,,,2.0
  35.  
  36. set title "Parametric Hexagon"
  37. set urange [-1.3:1.3]
  38. set vrange [0:2*pi]
  39. set zrange [-0.6:0.6]
  40. set zrange [-1:1]
  41. set ztics
  42. splot cos(v)**3*cos(u)**3,sin(v)**3*cos(u)**3,sin(u)**3
  43. pause -1 "Hit return to continue (5)"
  44.  
  45. set view ,,,1.5
  46.  
  47. set title "Parametric Helix"
  48. set isosamples 100,20
  49. set urange [0:10*pi]
  50. set vrange [0:2*pi]
  51. set autoscale z
  52. splot (1-0.1*cos(v))*cos(u),(1-0.1*cos(v))*sin(u),0.1*(sin(v)+u/1.7-10)
  53. pause -1 "Hit return to continue (6)"
  54.  
  55. set view ,,,1.0
  56.  
  57. set title "Parametric Shell (cut by hidden3d)"
  58. set isosamples 40,20
  59. set view 50,30,1.0
  60. set urange [0:2*pi]
  61. set vrange [0:2*pi]
  62. set zrange [-3:1.5]
  63. splot cos(u)*u*(1+cos(v)/2),sin(v)*u/2,sin(u)*u*(1+cos(v)/2)
  64. pause -1 "Hit return to continue (7)"
  65.  
  66. set autoscale z
  67. set title "Parametric Shell"
  68. replot
  69. pause -1 "Hit return to continue (8)"
  70.  
  71. set title "Interlocking Tori"
  72.  
  73. set urange [-pi:pi]
  74. set vrange [-pi:pi]
  75. set isosamples 50,20
  76. splot cos(u)+.5*cos(u)*cos(v),sin(u)+.5*sin(u)*cos(v),.5*sin(v) with lines, 1+cos(u)+.5*cos(u)*cos(v),.5*sin(v),sin(u)+.5*sin(u)*cos(v) with lines
  77. pause -1 "Hit return to continue (9)"
  78.  
  79. #
  80. # Clean up:
  81. #
  82. set noparametric
  83. set dummy x,y
  84. set isosamples 10,10
  85. set view 60,30,1,1
  86. set urange [-5:5]
  87. set vrange [-5:5]
  88. set zrange [-10:10]
  89. set auto
  90. set title "" 0,0
  91. set nohidden
  92.