Silicon Investor (SI) -- The First Internet Community

STOCKTALK

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 : Waiting for the big Kahuna -- Ignore unavailable to you. Want to Upgrade?

To: William H Huebl who wrote (48835)	10/13/2000 12:06:27 PM
From: Haim R. Branisteanu	Read Replies (2) \| Respond to of 94695

Bill the program running this scan is posted below any corrections or additions are welcommed. ______________________________________________________ #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;