home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / SIGMAT25.DMS / in.adf / ARexxDemos / Spirale.REXX < prev   
Encoding:
OS/2 REXX Batch file  |  1994-01-26  |  1.7 KB  |  72 lines
  1. /*
  2.  * Name:           Spirale.REXX
  3.  * Autor:          Stefan Kebekus
  4.  * Datum:          4. Oktober 1990
  5.  *
  6.  * Sinn:           * zweifelhaft *
  7.  * Beschreibung:
  8.  *
  9.  * Dieses Programm zeichnet auf dem SIGMAth-Graphikfenster eine, wenn auch
  10.  * sehr eckige, Spirale.
  11.  * Dazu wird zunächst eine Tabelle der Sinus- und Cosinuswerte angelegt.
  12.  * Aus diesen Werten werden dann Stück für Stück die Statistikdaten erzeugt
  13.  * und sofort, mit Linien verbunden, auf dem SIGMAth-Bildschirm ausgegeben. 
  14.  *
  15.  */
  16.  
  17. ADDRESS "rexx_SIGMAth"            /* Verbindung zu SIGMAth herstellen */
  18. OPTIONS results                /* ja, wir wollen Ergebnisse */
  19.  
  20.  
  21. Clr_Daten                /* Vorhandene Daten löschen */
  22. Clr_Graph                /* Vorhandenen Graphen löschen */
  23. Y_Grenzen    "1 -1"            /* feste Y_Grenzen löschen */
  24.  
  25. /*
  26.  * Jetzt soll eine Tabelle mit Sinuswerten erzeugt werden.
  27.  *
  28.  */
  29.  
  30. Funktion    "0 30 sin(x)"        /* Hier steht die Passende Funktion */
  31. Tabelle        "0.5"            /* Eine Tabelle mit 30 Einträgen */
  32. do i=0 to 59
  33.     STAB.i    = Erg2.i        /* Nun die Tabelle kopieren */
  34. end
  35.  
  36.  
  37. /*
  38.  * Jetzt soll eine Tabelle mit Cosinuswerten erzeugt werden.
  39.  *
  40.  */
  41.  
  42. Funktion    "0 30 cos(x)"        /* Hier steht die Passende Funktion */
  43. Tabelle        "0.5"            /* Eine Tabelle mit 30 Einträgen */
  44. do i=0 to 59
  45.     CTAB.i    = Erg2.i        /* Nun die Tabelle kopieren */
  46. end
  47.  
  48.  
  49. /*
  50.  * Jetzt geht´s ans zeichnen...
  51.  *
  52.  */
  53.  
  54. do i=0 to 59
  55.     X    = CTAB.i*3*i/59        /* X- und */
  56.     Y    = STAB.i*3*i/59        /* Y-Werte berechnen, */
  57.     Set_Datum X Y            /* neues Statistikdatum anhängen... */
  58.     DatenGraph    "1 1 1"        /* und zeichnen */
  59. end
  60. do i=0 to 2000                /* kleine Warteschleife */
  61. end
  62.  
  63.  
  64. /*
  65.  * Jetzt schnell den ganzen Mist löschen,
  66.  * dann ist Schluss
  67.  *
  68.  */
  69.  
  70. Clr_Daten                /* Daten löschen */
  71. Clr_Graph                /* Graphikfenster löschen */
  72.