home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / SIGMAT25.DMS / in.adf / ARexxDemos / 2Demo.REXX < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-01-26  |  2.9 KB  |  122 lines
  1. /*
  2.  * Name:           2Demo.REXX
  3.  * Autor:          Stefan Kebekus
  4.  * Datum:          29.7.92
  5.  *
  6.  * Sinn:           Demonstriert 2D-Graphik mit SIGMAth
  7.  * Beschreibung:
  8.  *
  9.  * Dieses Programm erzeugt einige 2D-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. gitter        0
  18. logskal        0
  19.  
  20. SIGMAth2Front
  21. Funktion    "-4 4 0.1*x*x*sqr(15-x*x)+0.2*abs(x^2-4)"
  22. Graph         "0 1"
  23. Funktion    "-4 4 -0.1*x*x*sqr(15-x*x)-0.2*abs(x^2-4)"
  24. Graph         "0 1"
  25. Requester "[Diese Abbildung zeigt|einen Hundeknochen][ _Weiter | _Aufhören ! ]"
  26. if result = 1 then
  27.  exit
  28.  
  29. Funktion    "-4 4 tancosx"
  30. Graph         "1 1"
  31. Requester "[Diese Abbildung zeigt|(fast) eine Dreiecksschwingung][ _Weiter | _Aufhören ! ]"
  32. if result = 1 then
  33.  exit
  34.  
  35. Funktion    "-4 4 x*sin(2/x)"
  36. Graph         "1 1"
  37. Requester "[Diese Abbildung zeigt|eine Funktion mit einer Oszillationsstelle][ _Weiter | _Aufhören ! ]"
  38. if result = 1 then
  39.  exit
  40. Zoom        "-0.5 0.5"
  41. Requester "[auch vergrößern ändert nichts][ _Weiter | _Aufhören ! ]"
  42. if result = 1 then
  43.  exit
  44.  
  45. Funktion    "-10 10 2*sqr abs sin x"
  46. Graph         "1 1"
  47. Requester "[Diese Abbildung zeigt|Bögen][ _Weiter | _Aufhören ! ]"
  48. if result = 1 then
  49.  exit
  50.  
  51. Funktion    "-10 10 -sqr abs cot(0.8*x)"
  52. Graph         "1 1"
  53. Requester "[Diese Abbildung zeigt|maurische Bögen][ _Weiter | _Aufhören ! ]"
  54. if result = 1 then
  55.  exit
  56.  
  57. Funktion    "-5 5 2+2*sin(x)+x*x+0.5*sin(5*x)"
  58. Graph         "1 1"
  59. Requester "[Diese Abbildung zeigt|einen ganz gewöhnlichen Funktionsgraphen][ _Weiter | _Aufhören ! ]"
  60. if result = 1 then
  61.  exit
  62. logSkal    1
  63. Requester "[Die Abbildung kann logarithmisch skaliert werden..][ _Weiter | _Aufhören ! ]"
  64. if result = 1 then
  65.  exit
  66. logSkal    0
  67. gitter    1
  68. Requester "[... oder mit einem Gitter hinterlegt][ _Weiter | _Aufhören ! ]"
  69. if result = 1 then
  70.  exit
  71. gitter    0
  72.  
  73. Funktion    "-1 1 2+2*sin(x)+x*x+0.5*sin(5*x)"
  74. Graph         "1 1"
  75. Taylor        "3 0"
  76. Funktion    "-1 1 "Erg1.0"+"Erg1.1"*x+"Erg1.2"*x*x+"Erg1.3"*x*x*x"
  77. Graph         "0 2"
  78. Requester "[Das Taylorpolynom kann bestimmt werden][ _Weiter | _Aufhören ! ]"
  79. if result = 1 then
  80.  exit
  81.  
  82.  
  83. Funktion    "-5 5 2+2*sin(x)+x*x+0.5*sin(5*x)"
  84. Graph         "1 1"
  85. Tangente    "1"
  86. Funktion    "-5 5 "Erg1.0
  87. Graph         "0 2"
  88. Requester "[Tangenten können bestimmt werden][ _Weiter | _Aufhören ! ]"
  89. if result = 1 then
  90.  exit
  91.  
  92. clr_Graph
  93. clr_Daten
  94. Set_Datum    "1 1.1"
  95. Set_Datum    "2 4"
  96. Set_Datum    "3 9.1"
  97. Set_Datum    "4 15.8"
  98. Set_Datum    "5 24.89"
  99. Set_Datum    "6 37"
  100. Set_Datum    "7 49"
  101. DatenGraph    "1 0 1"
  102. Requester "[Mit SIGMAth können Sie Datenpaare zeichnen][ _Weiter | _Aufhören ! ]"
  103. if result = 1 then
  104.  exit
  105.  
  106. Lin_Reg
  107. Funktion    "1 7 "Erg1.3
  108. Graph         "0 2"
  109. Requester "[... und Ausgleichsgraden ermitteln][ _Weiter | _Aufhören ! ]"
  110. if result = 1 then
  111.  exit
  112. Pot_Reg
  113. Funktion    "1 7 "Erg1.3
  114. Graph         "0 4"
  115. Requester "[in diesem Falle besser: Ausgleichsparabeln][ _Weiter | _Aufhören ! ]"
  116. if result = 1 then
  117.  exit
  118.  
  119. Requester "[Damit ist diese Demo|beendet. Ich hoffe,|Sie hat Ihnen gut|gefallen ! ][ _Aufhören ! ]"
  120. clr_Graph
  121. clr_Daten
  122.