Hi Berney, this is the program running the first bunch.
Hope you can understand it.
#index '&SPX'
#MAX_QUOTES 150
#OUTPUT_FILE 'RSISTO.LST N'
if first_ticker then begin
writeln(' Analysis of end of Day Closing prices and recommendations');
writeln ('in Rubins Tulips Market -it is the stock market ');
writeln (' ');
writeln ('This is the most effective list, but validate signals. Results');
writeln ('are relative to the SPX and move relative to the SPX' - Haim);
writeln (' ');
writeln('Today is ' ,date,);
writeln (' ');
writeln('S&P Closed ',index,);
writeln('S&P Change ' ,(index-index[-1]),);
writeln(' ');
writeln('Recomandation Price Stoch. RSI RSI Change');
writeln(' ');
end;
RS : ARRAY; { Relative Strength Array}
OFS : ARRAY; { Initial Offset array}
rsroc: array;
rsi_array : array;
rsi13: array;
stoch_array : array;
stoch_array = stoch(14,3); Stochastic 14, 3
rsich: array;
RS=mulby(div(C,index),100);
set(OFS,RS[1]);
RS=SUB(RS,OFS);
rsroc=ROC(RS,5,'%'); Rate of Change over 5 days
rsi_array=RSI(14); 14 days RSI
rsi13=MOV(rsi_array,13,'E'); Exp. 13 days moving average of RSI
rsidif: array;
rsidif=SUB(rsi_array,rsi13);
d3_array : array;
d3_array = mov(stoch_array,3,'E');
ma_array = mov(c,21,'E'); 21 days Exp. moving average
rsich = rsi_array[0]-rsi_array[-1]
if d3_array[-1] <= 27 AND
stoch_array[-1] < d3_array[-1] AND
stoch_array > d3_array AND
C < ma_array AND rsroc>(-2) AND rsidif> (-10) THEN
WRITELN(' BUY SIGNAL ON ',TICKER , C,' ',stoch_array,' ',rsi_array,
' ',rsich,);
if d3_array[-1] >= 77 AND
stoch_array[-1] > d3_array[-1] AND
stoch_array < d3_array AND
C > ma_array AND rsroc< 2 AND rsidif< 10 THEN
WRITELN('SELL SIGNAL ON ',TICKER , C,' ',stoch_array,' ',rsi_array,
' ',rsich,);
end;
|
