The World of Computer Software/World_Of_Computer_Software-02-387-Vol-3of3.iso/t/tas501.zip/EQUITY.TAS

Text File | 1993-03-10 | 472b | 22 lines

#TITLE Wilder's Relative Strength Indicator (RSI) 30/70 Test
#PROFIT_TEST  BOTH 20000
#OUTPUT_FILE 'RSIPT.LST'
#PROFIT_COMM  SCHWAB ROUNDLOTS 0 - TODAYS CLOSE
#PROFIT_OUTPUT  DETAIL
F1 : ARRAY;
Total_Equity : 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);
if End_Phase then
Begin
    OpenGraph(2);
    Graph(F1);
    Graph(Equity);
    CloseGraph();
End;