home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
t
/
tas501.zip
/
RSIPT.TAS
< prev
next >
Wrap
Text File
|
1993-03-07
|
1KB
|
25 lines
#TITLE Relative Strength Profit Test example (using script language)
{
RSIPT.TAS
RSI PROFIT TEST SCRIPT EXAMPLE
This script will signal a SELL when the
RSI(14) crosses under 'rsi_upper' and a BUY when
RSI(14) crosses above 'rsi_lower'.
}
#PROFIT_TEST LONG 20000 { long positions with $20000}
#OUTPUT_FILE 'RSIPT.LST'
RSI_VALUES : ARRAY; { array containing plotted points }
RSI_RANGE = 7; { Number of Days in RSI calculation}
RSI_UPPER := 70; { Upper range of RSI - point to SELL
Change this if
you want to test different value}
RSI_LOWER := 30; { Lower range of RSI - point to BUY
Change this if
you want to test different value}
PLOT BEGIN { This begins the "plot" of the RSI }
RSI_VALUES := RSI(RSI_RANGE); { COMPUTE THE RSI(xx) PLOT }
END;
BUY WHEN RSI_VALUES[-1] < RSI_LOWER
AND RSI_VALUES > RSI_LOWER;
SELL WHEN RSI_VALUES[-1] > RSI_UPPER AND RSI_VALUES < RSI_UPPER;