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;