home *** CD-ROM | disk | FTP | other *** search
/ The Learning Curve / The Learning Curve (Weird Science, 1996).iso / mathematics / plotters / multiplot / rexx / scripts / flipset.mpt next >
Encoding:
Text File  |  1993-07-17  |  879 b   |  59 lines
  1. /* This script swaps the X and Y values */
  2.  
  3. port= 'MULTIPLOT.01'
  4. RESULT=''
  5. RC=0
  6.  
  7. options results
  8. if(~show('p',port)) then do
  9.   say "Please start Multiplot first."
  10.   exit 1
  11. end
  12. address value port
  13. 'QUERY'
  14. if(rc ~=0) then do
  15.   say "QUERY command failed!"
  16.   exit 1
  17. end
  18. if(compare('PLOWIN',RESULT)<6) then do
  19.   'SAY Please select a PLOT WINDOW first'
  20.   exit 1
  21. end
  22. 'PEEK 1 NOVALS'
  23. if(rc ~=0) then do
  24.   'SAY Please select a Data Set first'
  25.   exit 1
  26. end
  27.  
  28. /* Collect values from set */
  29. 'PEEK 1 YVALS'
  30. tempy=YVALS
  31. 'PEEK 1 XVALS'
  32. tempx=XVALS
  33. 'PEEK 1 EVALS'
  34. tempe=EVALS
  35. 'PEEK 1 EDWN'
  36. tempedwn=EDWN
  37. 'PEEK 1 XEVALS'
  38. tempxe=XEVALS
  39. 'PEEK 1 XEDWN'
  40. tempxedwn=XEDWN
  41.  
  42. /* Rotate values */
  43. XVALS=tempy
  44. YVALS=tempx
  45. EVALS=tempxe
  46. XEVALS=tempe
  47. EDWN=tempxedwn
  48. XEDWN=tempedwn
  49.  
  50. /* Replace values in set */
  51. 'POKE 1 XVALS'
  52. 'POKE 1 YVALS'
  53. 'POKE 1 EVALS'
  54. 'POKE 1 EDWN'
  55. 'POKE 1 XEVALS'
  56. 'POKE 1 XEDWN'
  57.  
  58. 'FULLPLOT'
  59.