home *** CD-ROM | disk | FTP | other *** search
/ ftp.uni-stuttgart.de/pub/systems/acorn/ / Acorn.tar / Acorn / acornet / dev / scheme / scmdist.spk / scm / demo < prev    next >
Text File  |  1993-11-04  |  5KB  |  70 lines
  1. ;;; if this looks yucky try an editing session 132 charactrs wide.
  2. ;;;
  3. ;Evaluation took 8000 mSec (0 in gc) 6 cells work, 38 bytes other
  4. #<unspecified>
  5. > (require 'transcript)
  6. ;Evaluation took 16000 mSec (0 in gc) 26 cells work, 31 bytes other
  7. #t
  8. > (require 'charplot)
  9. ;loading "ADFS::Trillian.$.Porting.scm4d0.!GNUscm.scm.^.slib.charplot"
  10. ;loading "ADFS::Trillian.$.Porting.scm4d0.!GNUscm.scm.^.slib.sort"
  11. ;done loading "ADFS::Trillian.$.Porting.scm4d0.!GNUscm.scm.^.slib.sort"
  12. ;done loading "ADFS::Trillian.$.Porting.scm4d0.!GNUscm.scm.^.slib.charplot"
  13. ;Evaluation took 7000 mSec (0 in gc) 1864 cells work, 1531 bytes other
  14. #<unspecified>
  15. > (load "<slib>plottest")
  16. ;loading "<slib>plottest"
  17. ;loading "ADFS::Trillian.$.Porting.scm4d0.!GNUscm.scm.^.slib.random"
  18. ;loading "ADFS::Trillian.$.Porting.scm4d0.!GNUscm.scm.^.slib.randinex"
  19. ;done loading "ADFS::Trillian.$.Porting.scm4d0.!GNUscm.scm.^.slib.randinex"
  20. ;done loading "ADFS::Trillian.$.Porting.scm4d0.!GNUscm.scm.^.slib.random"
  21.      y     __________________________________________________________________
  22.           | *                   :                                            |
  23.        1.6|- *                  :                                            |
  24.           |   **                :                                            |
  25.        1.2|-    **              :                                            |
  26.           |       **            :                                            |
  27.   800.0e-3|-        **          :                                            |
  28.           |           **        :              *******************           |
  29.   400.0e-3|-            ***     :       *******                   *****      |
  30.           |                **** :  *****                               *     |
  31.          0|--------------------****------------------------------------------|
  32.           |                **** :  *****                               *     |
  33.  -400.0e-3|-            ***     :       *******                   *****      |
  34.           |           **        :              *******************           |
  35.  -800.0e-3|-        **          :                                            |
  36.           |       **            :                                            |
  37.       -1.2|-    **              :                                            |
  38.           |   **                :                                            |
  39.       -1.6|- *                  :                                            |
  40.           | *                   :                                            |
  41.           |_:____.____:____.____:____.____:____.____:____.____:____.____:____|
  42.    x        -1    -500.0e-3     0      500.0e-3     1        1.5    
  43.  
  44.    occur   __________________________________________________________________
  45.          8|-:                                                                |
  46.           | :                                                                |
  47.           | :                                                                |
  48.          7|-:                   *                                            |
  49.           | :                                                                |
  50.           | :                                                                |
  51.          6|-:                                                                |
  52.           | :                                                                |
  53.           | :                                                                |
  54.          5|-:                                       *                        |
  55.           | :                                                                |
  56.           | :                                                                |
  57.          4|-:                             *                                  |
  58.           | :                                                                |
  59.           | :                                                                |
  60.          3|-*                                                 *              |
  61.           | :                                                                |
  62.           | :                                                                |
  63.          2|-:         *                                                      |
  64.           |_:____.____:____.____:____.____:____.____:____.____:____.____:____|
  65.    n        0         1         2         3         4         5     
  66. ;done loading "<slib>plottest"
  67. ;Evaluation took 11000 mSec (1000 in gc) 18873 cells work, 14494 bytes other
  68. #<unspecified>
  69. > (transcript-off)
  70.