home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / finance / tas206.zip / RSIPT.TAS < prev    next >
Text File  |  1991-02-17  |  1KB  |  30 lines
  1. {
  2.         RSIPT.TAS
  3.                 RSI PROFIT TEST SCRIPT EXAMPLE
  4.                 This script will signal a SELL when the
  5.                 RSI(14) crosses under 'rsi_upper' and a BUY when
  6.                 RSI(14) crosses above 'rsi_lower'.
  7. }
  8. #PROFIT_TEST LONG 1000          { long positions with $1000}
  9. #MAX_QUOTES 300                 { only read in 300 quotes }
  10. #OUTPUT_FILE 'RSIPT.LST'        { assign output listing to rsipt.lst}
  11.  
  12. RSI_VALUES : ARRAY;             { array containing plotted points }
  13. RSI_UPPER := 75;                { Upper range of RSI - point to SELL
  14.                                   Change this if
  15.                                   you want to test different value}
  16. RSI_LOWER := 50;                { Lower range of RSI - point to BUY
  17.                                   Change this if
  18.                                   you want to test different value}
  19.  
  20. PLOT BEGIN      { This begins the "plot" of the RSI }
  21.         RSI_VALUES := RSI(14);  { COMPUTE THE RSI(14) PLOT }
  22. END;
  23.  
  24.  
  25. BUY WHEN RSI_VALUES[-1] < RSI_LOWER  
  26. AND RSI_VALUES > RSI_LOWER;
  27.  
  28. SELL WHEN RSI_VALUES[-1] > RSI_UPPER  AND RSI_VALUES < RSI_UPPER
  29.  
  30.