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 >
Wrap
Text File
|
1993-03-10
|
378b
|
15 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);