StockFetcher Forums · Filter Exchange · DOUBLE YOUR MONEY<< >>Post Follow-up
TheRumpledOne
6,362 posts
msg #50237
Ignore TheRumpledOne
modified
2/25/2007 4:17:54 PM

Fetcher[
/* DOUBLE YOUR MONEY - TEN CENTS TO TWENTY CENTS*/

/* enter your Upper Limit criteria */
set{UpperLim, High 10 week High}

/* enter your Lower Limit criteria */
set{LowerLim, Low 10 week Low}

set{Double, UpperLim * .50 }

set{LimDiff, UpperLim minus LowerLim}
set{PPDiff, CLOSE minus LowerLim}
set{PPDiv, PPDiff / LimDiff}
set{BallOnx, PPDiv * 100}
set{BallOn, round(BallOnx,0)}

set{PCT, LimDiff / LowerLim}

set{InPlayVol, volume / 10000 }
set{InPlayPct, InPlayVol / shares outstanding}

/* inside bars filter display */

set{xTop, count(high < high 1 day ago , 1) }
set{xBot, count(low > low 1 day ago , 1) }
set{ibar, xTop + xBot}


/* ENHANCED TREND DISPLAY */

set{T10, count(10 day slope of the close above 0,1)}
set{T60, count(60 day slope of the close above 0,1)}
set{T200, count(200 day slope of the close above 0,1)}

Set{a1, T200 * 1}
Set{a2, T60 * 10}
Set{a3, T10 * 100}

Set{aa, a1 + a2}
Set{TREND, aa + a3}
set{T10a,days(10 day slope of the close below 0, 100)}
set{T60a,days(60 day slope of the close below 0, 100)}
set{T200a,days(200 day slope of the close below 0, 100)}

ADD COLUMN TREND
ADD COLUMN T10a
ADD COLUMN T60a
ADD COLUMN T200a

and add column InPlayPct
and add column shares outstanding

and add column ibar

draw T10a
draw T60a on plot t10a
draw T200a on plot t10a

set{HiOp,high - open}
set{OpLo, open - low}

set{CCb,days(close is above close 1 day ago,100)}
set{CCa,days(close is below close 1 day ago,100)}
set{ClxCl, CCa - CCb}
/*
set{HHb,days(High is above High 1 day ago,100)}
set{HHa,days(High is below High 1 day ago,100)}
set{HixHi, HHa - HHb}

set{LLb,days(Low is above Low 1 day ago,100)}
set{LLa,days(Low is below Low 1 day ago,100)}
set{LoxLo, LLa - LLb}
*/
set{VolUp, days(volume is below volume 1 day ago,100)}
set{VolDn, days(volume is above volume 1 day ago,100)}
set{VlXvl, VolUp - VolDn}

set{vck1, volume 1 day ago }
set{vck, volume / vck1 }
set{vdbl, days(vck < 2, 100)}

Set{Bullpower, high minus ema(13)}
Set{Bearpower, low minus ema(13)}

set{BLb,days(BullPower is above BullPower 1 day ago,100)}
set{BLa,days(BullPower is below BullPower 1 day ago,100)}
set{BLxBL, BLa - BLb}

set{BRb,days(BearPower is above BearPower 1 day ago,100)}
set{BRa,days(BearPower is below BearPower 1 day ago,100)}
set{BRxBR, BRa - BRb}

set{RChg, count( UpperLim equal UpperLim 1 day ago, 1 ) }
set{SChg, count( LowerLim equal LowerLim 1 day ago, 1 ) }

/* Volatility Direction Filter Display */

set{BBDiff, Upper Bollinger Band(20) - Lower Bollinger Band(20) }

set{BBDb,days(BBDiff is above BBDiff 1 day ago,100)}
set{BBDa,days(BBDiff is below BBDiff 1 day ago,100)}
set{BBTrend, BBDa - BBDb}

set{ATRb,days(ATR(14) is above ATR(14) 1 day ago,100)}
set{ATRa,days(ATR(14) is below ATR(14) 1 day ago,100)}
set{ATRTrend, ATRa - ATRb}

/* profit had you bought the open 5 days ago and sold at the high */

set{High5, High 5 day High}
set{Profit, High5 - open 5 days ago}

/* Narrow Channel Breakout Display */

set{ High20, high 20 day high}
set{ Low20, low 20 day low}

set{ New20High, count( high above High20 1 day ago , 1 ) }
set{ New20Low, count( low below Low20 1 day ago , 1 ) }

set{f14, fast stochastic fast %k(14)}
set{f141, fast stochastic fast %k(14) 1 day ago }

set{f14b,days(f14 is above f141, 100)}
set{f14a,days(f14 is below f141, 100)}
set{f14xf14, f14a - f14b}

/* column display */

add column HiOp
add column OpLo
add column Profit

add column BallOn
add column UpperLim {Resist}
add column LowerLim {Support}

add column f14xf14
add column fast stochastic fast %k(14)

add column RChg
add column SChg

add column New20High
add column New20Low

AND ADD COLUMN BBTrend
AND ADD COLUMN ATRTrend

/* PLOTS */

draw UpperLim on plot price
draw LowerLim on plot price

/* NORMALIZE accumulation distribution */

set{adval, INDPOSITION(accumulation distribution, 60) * 100 }

/* NORMALIZE momentum(12) */

set{moval, INDPOSITION(momentum(12), 60) * 100}

/* NORMALIZE rsi(2) */

set{rsval, RSI(2) }

/* NORMALIZE williams %r(10) */

set{wrval, INDPOSITION(williams %r(10), 60) * 100 }

/* DRAW THE MP RSIWLR CHART */

and draw wrval
and draw adval on plot wrval
and draw moval on plot wrval
and draw rsval on plot wrval

add column wrval
add column adval
add column rsval
add column moval

and add column clxcl
and add column VlXvl
and add column Vdbl
/*
add column HixHi
add column LoxLo
*/
add column Bullpower
add column Bearpower
add column BLxBL
add column BRxBR

/* Selection Criteria */


LowerLim below Double

close is between .10 and .20

avg vol(5) above 500000
avg vol(30) above 500000

add column industry

Sort column 5 descending

]




Fetcher[
/* DOUBLE YOUR MONEY - TWENTY CENTS TO FORTY CENTS */

/* enter your Upper Limit criteria */
set{UpperLim, High 10 week High}

/* enter your Lower Limit criteria */
set{LowerLim, Low 10 week Low}

set{Double, UpperLim * .50 }

set{LimDiff, UpperLim minus LowerLim}
set{PPDiff, CLOSE minus LowerLim}
set{PPDiv, PPDiff / LimDiff}
set{BallOnx, PPDiv * 100}
set{BallOn, round(BallOnx,0)}

set{PCT, LimDiff / LowerLim}

set{InPlayVol, volume / 10000 }
set{InPlayPct, InPlayVol / shares outstanding}

/* inside bars filter display */

set{xTop, count(high < high 1 day ago , 1) }
set{xBot, count(low > low 1 day ago , 1) }
set{ibar, xTop + xBot}


/* ENHANCED TREND DISPLAY */

set{T10, count(10 day slope of the close above 0,1)}
set{T60, count(60 day slope of the close above 0,1)}
set{T200, count(200 day slope of the close above 0,1)}

Set{a1, T200 * 1}
Set{a2, T60 * 10}
Set{a3, T10 * 100}

Set{aa, a1 + a2}
Set{TREND, aa + a3}
set{T10a,days(10 day slope of the close below 0, 100)}
set{T60a,days(60 day slope of the close below 0, 100)}
set{T200a,days(200 day slope of the close below 0, 100)}

ADD COLUMN TREND
ADD COLUMN T10a
ADD COLUMN T60a
ADD COLUMN T200a

and add column InPlayPct
and add column shares outstanding

and add column ibar

draw T10a
draw T60a on plot t10a
draw T200a on plot t10a

set{HiOp,high - open}
set{OpLo, open - low}

set{CCb,days(close is above close 1 day ago,100)}
set{CCa,days(close is below close 1 day ago,100)}
set{ClxCl, CCa - CCb}
/*
set{HHb,days(High is above High 1 day ago,100)}
set{HHa,days(High is below High 1 day ago,100)}
set{HixHi, HHa - HHb}

set{LLb,days(Low is above Low 1 day ago,100)}
set{LLa,days(Low is below Low 1 day ago,100)}
set{LoxLo, LLa - LLb}
*/
set{VolUp, days(volume is below volume 1 day ago,100)}
set{VolDn, days(volume is above volume 1 day ago,100)}
set{VlXvl, VolUp - VolDn}

set{vck1, volume 1 day ago }
set{vck, volume / vck1 }
set{vdbl, days(vck < 2, 100)}

Set{Bullpower, high minus ema(13)}
Set{Bearpower, low minus ema(13)}

set{BLb,days(BullPower is above BullPower 1 day ago,100)}
set{BLa,days(BullPower is below BullPower 1 day ago,100)}
set{BLxBL, BLa - BLb}

set{BRb,days(BearPower is above BearPower 1 day ago,100)}
set{BRa,days(BearPower is below BearPower 1 day ago,100)}
set{BRxBR, BRa - BRb}

set{RChg, count( UpperLim equal UpperLim 1 day ago, 1 ) }
set{SChg, count( LowerLim equal LowerLim 1 day ago, 1 ) }

/* Volatility Direction Filter Display */

set{BBDiff, Upper Bollinger Band(20) - Lower Bollinger Band(20) }

set{BBDb,days(BBDiff is above BBDiff 1 day ago,100)}
set{BBDa,days(BBDiff is below BBDiff 1 day ago,100)}
set{BBTrend, BBDa - BBDb}

set{ATRb,days(ATR(14) is above ATR(14) 1 day ago,100)}
set{ATRa,days(ATR(14) is below ATR(14) 1 day ago,100)}
set{ATRTrend, ATRa - ATRb}

/* profit had you bought the open 5 days ago and sold at the high */

set{High5, High 5 day High}
set{Profit, High5 - open 5 days ago}

/* Narrow Channel Breakout Display */

set{ High20, high 20 day high}
set{ Low20, low 20 day low}

set{ New20High, count( high above High20 1 day ago , 1 ) }
set{ New20Low, count( low below Low20 1 day ago , 1 ) }

set{f14, fast stochastic fast %k(14)}
set{f141, fast stochastic fast %k(14) 1 day ago }

set{f14b,days(f14 is above f141, 100)}
set{f14a,days(f14 is below f141, 100)}
set{f14xf14, f14a - f14b}

/* column display */

add column HiOp
add column OpLo
add column Profit

add column BallOn
add column UpperLim {Resist}
add column LowerLim {Support}

add column f14xf14
add column fast stochastic fast %k(14)

add column RChg
add column SChg

add column New20High
add column New20Low

AND ADD COLUMN BBTrend
AND ADD COLUMN ATRTrend

/* PLOTS */

draw UpperLim on plot price
draw LowerLim on plot price

/* NORMALIZE accumulation distribution */

set{adval, INDPOSITION(accumulation distribution, 60) * 100 }

/* NORMALIZE momentum(12) */

set{moval, INDPOSITION(momentum(12), 60) * 100}

/* NORMALIZE rsi(2) */

set{rsval, RSI(2) }

/* NORMALIZE williams %r(10) */

set{wrval, INDPOSITION(williams %r(10), 60) * 100 }

/* DRAW THE MP RSIWLR CHART */

and draw wrval
and draw adval on plot wrval
and draw moval on plot wrval
and draw rsval on plot wrval

add column wrval
add column adval
add column rsval
add column moval

and add column clxcl
and add column VlXvl
and add column Vdbl
/*
add column HixHi
add column LoxLo
*/
add column Bullpower
add column Bearpower
add column BLxBL
add column BRxBR

/* Selection Criteria */


LowerLim below Double

close is between .20 and .40

avg vol(5) above 500000
avg vol(30) above 500000

add column industry

Sort column 5 descending

]





Fetcher[
/* DOUBLE YOUR MONEY - FORTY CENTS TO A DOLLAR */

/* enter your Upper Limit criteria */
set{UpperLim, High 10 week High}

/* enter your Lower Limit criteria */
set{LowerLim, Low 10 week Low}

set{Double, UpperLim * .50 }

set{LimDiff, UpperLim minus LowerLim}
set{PPDiff, CLOSE minus LowerLim}
set{PPDiv, PPDiff / LimDiff}
set{BallOnx, PPDiv * 100}
set{BallOn, round(BallOnx,0)}

set{PCT, LimDiff / LowerLim}

set{InPlayVol, volume / 10000 }
set{InPlayPct, InPlayVol / shares outstanding}

/* inside bars filter display */

set{xTop, count(high < high 1 day ago , 1) }
set{xBot, count(low > low 1 day ago , 1) }
set{ibar, xTop + xBot}


/* ENHANCED TREND DISPLAY */

set{T10, count(10 day slope of the close above 0,1)}
set{T60, count(60 day slope of the close above 0,1)}
set{T200, count(200 day slope of the close above 0,1)}

Set{a1, T200 * 1}
Set{a2, T60 * 10}
Set{a3, T10 * 100}

Set{aa, a1 + a2}
Set{TREND, aa + a3}
set{T10a,days(10 day slope of the close below 0, 100)}
set{T60a,days(60 day slope of the close below 0, 100)}
set{T200a,days(200 day slope of the close below 0, 100)}

ADD COLUMN TREND
ADD COLUMN T10a
ADD COLUMN T60a
ADD COLUMN T200a

and add column InPlayPct
and add column shares outstanding

and add column ibar

draw T10a
draw T60a on plot t10a
draw T200a on plot t10a

set{HiOp,high - open}
set{OpLo, open - low}

set{CCb,days(close is above close 1 day ago,100)}
set{CCa,days(close is below close 1 day ago,100)}
set{ClxCl, CCa - CCb}
/*
set{HHb,days(High is above High 1 day ago,100)}
set{HHa,days(High is below High 1 day ago,100)}
set{HixHi, HHa - HHb}

set{LLb,days(Low is above Low 1 day ago,100)}
set{LLa,days(Low is below Low 1 day ago,100)}
set{LoxLo, LLa - LLb}
*/
set{VolUp, days(volume is below volume 1 day ago,100)}
set{VolDn, days(volume is above volume 1 day ago,100)}
set{VlXvl, VolUp - VolDn}

set{vck1, volume 1 day ago }
set{vck, volume / vck1 }
set{vdbl, days(vck < 2, 100)}

Set{Bullpower, high minus ema(13)}
Set{Bearpower, low minus ema(13)}

set{BLb,days(BullPower is above BullPower 1 day ago,100)}
set{BLa,days(BullPower is below BullPower 1 day ago,100)}
set{BLxBL, BLa - BLb}

set{BRb,days(BearPower is above BearPower 1 day ago,100)}
set{BRa,days(BearPower is below BearPower 1 day ago,100)}
set{BRxBR, BRa - BRb}

set{RChg, count( UpperLim equal UpperLim 1 day ago, 1 ) }
set{SChg, count( LowerLim equal LowerLim 1 day ago, 1 ) }

/* Volatility Direction Filter Display */

set{BBDiff, Upper Bollinger Band(20) - Lower Bollinger Band(20) }

set{BBDb,days(BBDiff is above BBDiff 1 day ago,100)}
set{BBDa,days(BBDiff is below BBDiff 1 day ago,100)}
set{BBTrend, BBDa - BBDb}

set{ATRb,days(ATR(14) is above ATR(14) 1 day ago,100)}
set{ATRa,days(ATR(14) is below ATR(14) 1 day ago,100)}
set{ATRTrend, ATRa - ATRb}

/* profit had you bought the open 5 days ago and sold at the high */

set{High5, High 5 day High}
set{Profit, High5 - open 5 days ago}

/* Narrow Channel Breakout Display */

set{ High20, high 20 day high}
set{ Low20, low 20 day low}

set{ New20High, count( high above High20 1 day ago , 1 ) }
set{ New20Low, count( low below Low20 1 day ago , 1 ) }

set{f14, fast stochastic fast %k(14)}
set{f141, fast stochastic fast %k(14) 1 day ago }

set{f14b,days(f14 is above f141, 100)}
set{f14a,days(f14 is below f141, 100)}
set{f14xf14, f14a - f14b}

/* column display */

add column HiOp
add column OpLo
add column Profit

add column BallOn
add column UpperLim {Resist}
add column LowerLim {Support}

add column f14xf14
add column fast stochastic fast %k(14)

add column RChg
add column SChg

add column New20High
add column New20Low

AND ADD COLUMN BBTrend
AND ADD COLUMN ATRTrend

/* PLOTS */

draw UpperLim on plot price
draw LowerLim on plot price

/* NORMALIZE accumulation distribution */

set{adval, INDPOSITION(accumulation distribution, 60) * 100 }

/* NORMALIZE momentum(12) */

set{moval, INDPOSITION(momentum(12), 60) * 100}

/* NORMALIZE rsi(2) */

set{rsval, RSI(2) }

/* NORMALIZE williams %r(10) */

set{wrval, INDPOSITION(williams %r(10), 60) * 100 }

/* DRAW THE MP RSIWLR CHART */

and draw wrval
and draw adval on plot wrval
and draw moval on plot wrval
and draw rsval on plot wrval

add column wrval
add column adval
add column rsval
add column moval

and add column clxcl
and add column VlXvl
and add column Vdbl
/*
add column HixHi
add column LoxLo
*/
add column Bullpower
add column Bearpower
add column BLxBL
add column BRxBR

/* Selection Criteria */


LowerLim below Double

close is between .40 and 1.00

avg vol(5) above 500000
avg vol(30) above 500000

add column industry

Sort column 5 descending

]



I would focus on stocks where TREND = 111.



StockFetcher Forums · Filter Exchange · DOUBLE YOUR MONEY<< >>Post Follow-up

*** Disclaimer *** StockFetcher.com does not endorse or suggest any of the securities which are returned in any of the searches or filters. They are provided purely for informational and research purposes. StockFetcher.com does not recommend particular securities. StockFetcher.com, Vestyl Software, L.L.C. and involved content providers shall not be liable for any errors or delays in the content, or for any actions taken based on the content.


Copyright 2016 - Vestyl Software L.L.C.Terms of Service | License | Questions or comments? Contact Us
EOD Data sources: DDFPlus & CSI Data Quotes delayed during active market hours. Delay times are at least 15 mins for NASDAQ, 20 mins for NYSE and Amex. Delayed intraday data provided by DDFPlus