home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / TAS514.EXE / lha / EQUITY.TAS < prev    next >
Text File  |  1993-04-05  |  562b  |  24 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. if End_Phase then
  16. Begin
  17.     OpenGraph(3);
  18.     SizeGraph(2,1,1);
  19.     Graph(1,'Price Graph');
  20.     Graph(F1,'Relative Strength Index');
  21.     Graph(Equity,'Equity Curve');
  22.     CloseGraph();
  23. End;
  24.