SI
SI
discoversearch

We've detected that you're using an ad content blocking browser plug-in or feature. Ads provide a critical source of revenue to the continued operation of Silicon Investor.  We ask that you disable ad blocking while on Silicon Investor in the best interests of our community.  If you are not using an ad blocker but are still receiving this message, make sure your browser's tracking protection is set to the 'standard' level.
Strategies & Market Trends : Stock Attack -- A Complete Analysis -- Ignore unavailable to you. Want to Upgrade?


To: Galirayo who wrote (33822)10/21/2000 4:12:51 PM
From: Haim R. Branisteanu  Read Replies (1) | Respond to of 42787
 
Ray a remember it is a computer list on around 230 stocks I scan.

The programs were a joint effort of many "Prodigy Classic"member about 10.

More details see on the link provided.

The list I post is the result of this little program which I wrote,

______________________________________________________

#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 ('Summers & Uncle Al Tulips 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(' ');
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;