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