M, first this is only one list click on the link and see several lists including equivolume for example. Further the program is set to certain parameters which relate to 21EMA, RSI, Stoch, and Rate of Change.
I never pretended that one should make an investment decision based on this scan but may on SI find it helpful.
Haim
BTW, That is the program you are invited to improve it.
#index 'SPX'
#MAX_QUOTES 150
#OUTPUT_FILE 'RSISTO.LST N'
if quote_count < 65 then return;
if first_ticker then begin
writeln ('Analysis of end of Day Closing prices and recommendations in');
writeln ('the US Stock Market, or the Den of Thieves & Swindlers');
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 ('see more data & info including stock charts from this scan at:');
writeln ('http://home.nyc.rr.com/ramkorolland/Commentary/scan.htm ');
writeln ('and also see Today Charts who are updated every several days ');
writeln (' ');
writeln ('Today is ' ,date,' Remember this is a computer scan only');
writeln (' ');
writeln ('S&P Closed ',index,);
writeln('S&P Change ',(index-index[-1]));
writeln('P/C Ratio VXN');
writeln('Recomandation Price Stoch. RSI RSI RS');
writeln(' Change ROC%');
writeln(' ');
end;
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; |
