home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / SIGMAT25.DMS / in.adf / ARexxDemos / Magisches_Auge.REXX < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-01-17  |  3.0 KB  |  121 lines
  1. /*
  2.  * Name:           3Demo.REXX
  3.  * Autor:          Stefan Kebekus
  4.  * Datum:          16.1.95
  5.  *
  6.  * Sinn:           Demonstriert 3D-Graphik mit SIGMAth
  7.  * Beschreibung:
  8.  *
  9.  * Dieses Programm erzeugt einige 3D-Objekte und gibt sie aus.
  10.  *
  11.  */
  12.  
  13. ADDRESS "rexx_SIGMAth"            /* Verbindung zu SIGMAth herstellen */
  14. OPTIONS results                /* ja, wir wollen Ergebnisse */
  15.  
  16. clr_Graph                /* Graphik löschen */
  17.  
  18.  
  19. say MathError
  20. VekMode        "0 3"            /* Magisches Auge mit Koordinatenachsen */
  21. SurfSteps    "15"
  22. do_Rotate    "0 10 10 3100"        /* Vorderansicht, leicht geneigt */
  23.  
  24.  
  25.  
  26. /* Eine Menge Schattierter Funktionsgraphen */
  27.  
  28. clr_Graph                /* Graphik löschen */
  29. Magic_Modus 1
  30. SurfSteps    "25"
  31. Requester "[Im Folgenden sehen Sie|einige Funktionsgraphen|2-Dimensionaler Funktionen.][Weiter|Aufhören !]"
  32. if result = 1 then
  33.  exit
  34. new_surface    "u v 25/(9+u*u+v*v)"
  35. SurfPlot    "-5 5 -5 5 1 1 0"
  36. Requester "[Ein Berg.][Weiter|Aufhören !]"
  37. if result = 1 then
  38.  exit
  39.  
  40. new_surface    "u v -25*v/(9+u*u+v*v)"
  41. SurfPlot    "-5 5 -5 5 1 1 0"
  42. Requester "[Ein Berg und ein Tal.][Weiter|Aufhören !]"
  43. if result = 1 then
  44.  exit
  45.  
  46. clr_Graph                /* Graphik löschen */
  47. Magic_Modus 0
  48. new_surface    "u v 25/(9+u*u+(v-3)^2)+25/(9+u*u+(v+3)^2)"
  49. SurfPlot    "-5 5 -5 5 1 1 0"
  50. Requester "[Zwei Berge.][Weiter|Aufhören !]"
  51. if result = 1 then
  52.  exit
  53.  
  54. new_surface    "u v v*v-u*u"
  55. SurfPlot    "-5 5 -5 5 1 1 0"
  56. Requester "[Eine Sattelfläche.][Weiter|Aufhören !]"
  57. if result = 1 then
  58.  exit
  59.  
  60. clr_Graph                /* Graphik löschen */
  61. Magic_Modus 1
  62. do_Rotate    "0 50 10 3100"        /* Ein wenig Rotieren */
  63. new_surface    "u v (v*v+0.1)*(u*u+v*v+0.1)"
  64. SurfPlot    "-5 5 -5 5 1 1 0"
  65. Requester "[Ein ´Graben´.][Weiter|Aufhören !]"
  66. if result = 1 then
  67.  exit
  68.  
  69. new_surface    "u v v*(3*u*u-v*v)"
  70. SurfPlot    "-5 5 -5 5 1 1 0"
  71. Requester "[Noch eine Sattelfläche.][Weiter|Aufhören !]"
  72. if result = 1 then
  73.  exit
  74.  
  75. clr_Graph                /* Graphik löschen */
  76. do_Rotate    "0 30 10 3100"        /* Ein wenig Rotieren */
  77. new_surface    "u v -v*sqr abs (u*u)"
  78. SurfPlot    "-5 5 -5 5 1 1 0"
  79. Requester "[Ohne Worte][Weiter|Aufhören !]"
  80. if result = 1 then
  81.  exit
  82.  
  83. clr_Graph                /* Graphik löschen */
  84. Magic_Modus 0
  85. new_surface    "u v 2500/(50+(sqr(u*u+v*v)-3.5)^2)-1"
  86. SurfPlot    "-5 5 -5 5 1 1 0"
  87. Requester "[Ein Vulkan (in Durchsicht).][Weiter|Aufhören !]"
  88. if result = 1 then
  89.  exit
  90.  
  91. new_surface    "u v 50*cos(.5*(u*u+v*v)/(3+u*u+v*v))"
  92. SurfPlot    "-5 5 -5 5 1 1 0"
  93. Requester "[Ein Sombrero.][Weiter|Aufhören !]"
  94. if result = 1 then
  95.  exit
  96.  
  97. clr_Graph                /* Graphik löschen */
  98. Magic_Modus 1
  99. new_surface    "u v -cos(0.3*pi*u)*cos(pi*0.1*v)"
  100. SurfPlot    "-5 5 -5 5 1 1 0"
  101. Requester "[2 Berge, 1 Tal.][Weiter|Aufhören !]"
  102. if result = 1 then
  103.  exit
  104.  
  105.  
  106. clr_Graph                /* Graphik löschen */
  107. SurfSteps    "15"
  108. new_surface    "(2+cos(u))*cos(v) (2+cos(u))*sin(v) sin(u)"
  109. SurfPlot    "0 6.283 0 6.283 1 4 4"
  110. new_surface    "sin(u)*cos(v) sin(u)*sin(v) cos(u)+2"
  111. SurfPlot    "0 3.1415 0 6.283 0 6 5"
  112. new_surface    "u v cosh(u*u+v*v)"
  113. SurfPlot    "-1 1 -1 1 0 5 6"
  114. Requester "[Ein Ei, kurz vor dem|Aufschlag.][Weiter|Aufhören !]"
  115. if result = 1 then
  116.  exit
  117.  
  118. clr_Graph                /* Graphik löschen */
  119. Requester "[Damit ist diese Demo|beendet. Ich hoffe,|Sie hat Ihnen gut|gefallen !][Aufhören !]"
  120.  
  121.