home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / t / tas501.zip / RSI.PTS < prev    next >
Text File  |  1993-03-10  |  378b  |  15 lines
  1. #TITLE Wilder's Relative Strength Indicator (RSI) 30/70 Test          
  2. #PROFIT_TEST  BOTH 20000
  3. #OUTPUT_FILE 'RSIPT.LST'
  4. #PROFIT_COMM  SCHWAB ROUNDLOTS 0 - TODAYS CLOSE
  5. #PROFIT_OUTPUT  DETAIL
  6. F1 : ARRAY;
  7. Total_Equity : Array;
  8. PLOT BEGIN
  9. F1 = RSI(14);
  10. END; { of PLOT BEGIN}
  11. C1 = F1[-1] < 30 AND F1 > 30;
  12. C2 = F1[-1] > 70 AND F1 < 70;
  13. BUY WHEN (C1);
  14. SELL WHEN (C2);
  15.