home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TAS407.ZIP / RSIPT.TAS < prev    next >
Encoding:
Text File  |  1991-07-07  |  1.1 KB  |  24 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 20000          { long positions with $20000}
  9. #OUTPUT_FILE 'RSIPT.LST'
  10. RSI_VALUES : ARRAY;             { array containing plotted points }
  11. RSI_RANGE = 7;                  { Number of Days in RSI calculation}
  12. RSI_UPPER := 70;                { Upper range of RSI - point to SELL
  13.                                   Change this if
  14.                                   you want to test different value}
  15. RSI_LOWER := 30;                { Lower range of RSI - point to BUY
  16.                                   Change this if
  17.                                   you want to test different value}
  18. PLOT BEGIN      { This begins the "plot" of the RSI }
  19.         RSI_VALUES := RSI(RSI_RANGE);  { COMPUTE THE RSI(xx) PLOT }
  20. END;
  21. BUY WHEN RSI_VALUES[-1] < RSI_LOWER
  22. AND RSI_VALUES > RSI_LOWER;
  23. SELL WHEN RSI_VALUES[-1] > RSI_UPPER  AND RSI_VALUES < RSI_UPPER;
  24.