Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TAS407.ZIP/RSI.PTS

Text File | 1991-07-04 | 283 b | 13 lines

#PROFIT_TEST  BOTH 20000
#OUTPUT_FILE 'RSIPT.LST'
#PROFIT_COMM  SCHWAB ROUNDLOTS 0 - TODAYS CLOSE
#PROFIT_OUTPUT  DETAIL
F1 : ARRAY;
PLOT BEGIN
F1 = RSI(14);
END; { of PLOT BEGIN}
C1 = F1[-1] < 30 AND F1 > 30;
C2 = F1[-1] > 70 AND F1 < 70;
BUY WHEN (C1);
SELL WHEN (C2);