home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / misc / sci / multiplot / rexx / setscalex.mpt < prev    next >
Encoding:
Text File  |  1994-04-17  |  1.3 KB  |  73 lines
  1. /* This script scales the X values and X errors of a selected set
  2. by a given amount */
  3.  
  4. port= 'MULTIPLOT.01'
  5. RESULT=''
  6. RC=0
  7.  
  8. /* Check Multiplot is running */
  9. options results
  10. if(~show('p',port)) then do
  11.   say "Please start Multiplot first"
  12.   exit 1
  13. end
  14. address value port
  15. 'QUERY'
  16. if(rc ~=0) then do
  17.   say "QUERY command failed!"
  18.   exit 1
  19. end
  20.  
  21. /* Check a PLOT WINDOW is activated */
  22. if(compare('PLOWIN',RESULT)<6) then do
  23.   'SAY Please select a PLOT WINDOW first'
  24.   exit 1
  25. end
  26.  
  27. /* Check a Data Set is selected and find out which one */
  28. 'PEEK 1 NOVALS'
  29. if(rc ~=0) then do
  30.   'SAY Please select a Data Set first'
  31.   exit 1
  32. end
  33. 'LAUNCH'
  34. 'QUE'
  35. setno=word(RESULT,words(RESULT))
  36. 'STOP'
  37.  
  38. /* Get scale factor and change Y values */
  39. 'PULL AREXX: Please enter scaling factor'
  40. scal=RESULT
  41. do i=1 to NOVALS
  42.   'SELECT SET 'setno
  43.   'SELECT POINT ' i
  44.   'SELECT REPLACE'
  45.   'PEEK 1'
  46.  
  47.   xvar=WORD(POINT,1)
  48.   yvar=WORD(POINT,2)
  49.   xhier=WORD(POINT,3)
  50.   xloer=WORD(POINT,4)
  51.  
  52.   POINT=DELWORD(POINT,1,4)
  53.  
  54.   xlower= xloer * scal
  55.   POINT=INSERT(' ',POINT)
  56.   POINT=INSERT(xlower,POINT)
  57.  
  58.   xhier= xhier * scal
  59.   POINT=INSERT(' ',POINT)
  60.   POINT=INSERT(xhier,POINT)
  61.  
  62.   POINT=INSERT(' ',POINT)
  63.   POINT=INSERT(yvar,POINT)
  64.  
  65.   xvar= xvar * scal
  66.   POINT=INSERT(' ',POINT)
  67.   POINT=INSERT(xvar,POINT)
  68.   POKE 1
  69. end
  70.  
  71. /* Replot */
  72. 'FULLPLOT'
  73.