home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / XYTRACE < prev    next >
Encoding:
Text File  |  2001-03-02  |  1.4 KB  |  38 lines
  1. 10    ! *******************************************************
  2. 20    ! Example: XY GRAPH Shared Traces
  3. 30    !
  4. 40    ! This program shows one way to generate several
  5. 50    ! traces using a single set of data.
  6. 60    !
  7. 70    !                     NOTE
  8. 80    !
  9. 90    ! To exit this program, type stop or press CONTINUE.
  10. 100   !
  11. 110    ! *******************************************************
  12. 120   !
  13. 130       ASSIGN @Graph TO WIDGET "XY GRAPH"
  14. 140       CONTROL @Graph;SET ("TITLE":" Example: XY GRAPH Shared Traces")
  15. 150       CONTROL @Graph;SET ("SHARED X":1,"TRACE COUNT":20)
  16. 160       CONTROL @Graph;SET ("CURRENT TRACE":0,"POINT CAPACITY":101,"TRACE VISIBLE":0)
  17. 170       CONTROL @Graph;SET ("CURRENT AXIS":"X","AUTOSCALE":1)
  18. 180       CONTROL @Graph;SET ("CURRENT AXIS":"Y","AUTOSCALE":1)
  19. 190   !
  20. 200       INTEGER I,J,X(0:100)
  21. 210       FOR I=0 TO 100
  22. 220           X(I)=I*2
  23. 230       NEXT I
  24. 240       CONTROL @Graph;SET ("CURRENT TRACE":1,"X DATA":X(*))
  25. 250       DIM Y(0:100)
  26. 260       FOR I=1 TO 20
  27. 270           FOR J=0 TO 100
  28. 280               Y(J)=I+SIN((I+I/4)*J*PI/50)
  29. 290           NEXT J
  30. 300           CONTROL @Graph;SET ("CURRENT TRACE":I,"Y DATA":Y(*))
  31. 310       NEXT I
  32. 320       CONTROL @Graph;SET ("CURRENT TRACE":0,"TRACE VISIBLE":1)
  33. 330       PAUSE
  34. 340   !
  35. 350  Finis:!
  36. 360       ASSIGN @Graph TO *  ! Delete XY GRAPH widget
  37. 370       END
  38.