For this list that is the program
RS : ARRAY; { Relative Strength Array}
OFS : ARRAY; { Initial Offset array}
rsroc: array;
rsi_array : array;
rsi13: array;
rsich: array;
stoch_array : array;
stoch_array = stoch(14,3);
RS=mulby(div(C,index),100);
set(OFS,RS[1]);
RS=SUB(RS,OFS);
rsroc=ROC(RS,5,'%');
rsi_array=RSI(14);
rsi13=MOV(rsi_array,13,'E');
rsidif: array;
rsidif=SUB(rsi_array,rsi13);
d3_array : array;
d3_array = mov(stoch_array,3,'E');
ma_array = mov(c,21,'E');
rsich = rsi_array[0]-rsi_array[-1]
if d3_array[-1] <= 25 AND
stoch_array[-1] < d3_array[-1] AND
stoch_array > d3_array AND
C < ma_array AND rsroc>(-1) AND rsidif> (-10) THEN
WRITELN(' BUY SIGNAL ON ',TICKER , C,' ',stoch_array,' ',int(rsi_array),
' ',int(rsich),' ',int(rsroc));
if d3_array[-1] >= 77 AND
stoch_array[-1] > d3_array[-1] AND
stoch_array < d3_array AND
C > ma_array AND rsroc< 1 AND rsidif< 10 THEN
WRITELN('SELL SIGNAL ON ',TICKER , C,' ',stoch_array,' ',int(rsi_array),
' ',int(rsich),' ',int(rsroc));
end;
|
