Various Indicators (Squeeze,2FastMa's,etc)

[Blu-Ray 10]

Here is a bundle of indicators for you, the development of them were requested as per this thread.

 

http://www.traderslaboratory.com/forums/f18/paintbarfactory-com-not-spam-a-question-3168.html

 

I have been hesitant to post these as some of them are NOT the same as per the above thread. But due to several requests recently I'm posting them anyway.

 

The attached indicators are:

 

BR_CCi : Which is basically a smoothed CCi.

BR_RSI : Which again is a smoothed RSi.

BR_Momentum : Again a smoothed Momentum ( Can't believe people would actually charge for these )

BR_PaintBars : MA based trend bars.

BR_2FastMa's : Self explanatory.

BR_Squeeze : Partly based on the original squeeze ( as we all know it ), but the histogram is defined to show clearer divergences. Also includes CounterTrend and an alternative midline.

BR_HeatMeter : Can you take the heat ! ( well actually it's just a 50 period CCi :\)

 

For more information on the indicators, please go to the above thread for details.

 

See Attached Charts to show each indicator.

 

 

 

 

Can I just stress that some of these are NOT THE SAME, so take them with a pinch of salt

 

Cheers

 

Blu-Ray

BR_2FASTMA'S.ELD

BR_CCI.ELD

BR_HEATMETER.ELD

BR_MOMENTUM.ELD

BR_PAINTBARS.ELD

BR_RSI.ELD

BR_SQUEEZE.ELD

[swansjr 10]

Thanks for all your hard work. Where should I send my money?

[Blu-Ray 10]

Thanks, hehehe :o...........they're all free !!!

[btrader2 10]

Excellent work Blu-Ray!

[dovetree 10]

Hi Blu-Ray, Thanks for these. I noticed that your squeeze seems to be a little different to the original. Specifically it seems to filter out some "false squeezes". I use Ts 2000i could you please post the code for this if possible.

thanks

[Blu-Ray 10]

Hi Blu-Ray, Thanks for these. I noticed that your squeeze seems to be a little different to the original. Specifically it seems to filter out some "false squeezes". I use Ts 2000i could you please post the code for this if possible.

thanks

 

Yes no problems, but I'm away now for a week, so I'll sort it out when I get back, just send me a PM in a week's time to remind me on.

 

Cheers

 

Blu-Ray

[garp 10]

Yes no problems, but I'm away now for a week, so I'll sort it out when I get back, just send me a PM in a week's time to remind me on.

 

Cheers

 

Blu-Ray

 

I have a problem with importing all these indicators in Multicharts. Program returns Error code 1. Would it be possible to post the code?

 

Sorry, its a problem with PL Editor. Everithing works fine on another computer except BR Squeeze, which even doesn't arrive in PL Editor for importing and compiling.

Edited April 9, 2008 by garp

[Blu-Ray 10]

Here's the code :

 

Inputs: SqLength(20),

Length1(9),

Length2(13),

Length3(21),

CounterTrendMode(false),

ChangeMidLine(false),

nK(1.5),

nBB(2),

AlertLine( 1 );

 

 

vars:

CCiValue(0),DownCT(0),UpCT(0),SDev(0),ATR(0),LHMult(0),Denom(0),BBS_Ind(0);

 

if ChangeMidLine = false then begin

{MiddleLine - based on BB Squeeze}

 

if ( barnumber=1 ) then

Begin

If minmove <> 0 then

LHMult = pricescale/minmove;

end;

 

 

{-- Calculate BB Squeeze Indicator ----------------------}

ATR = AvgTrueRange(SqLength);

SDev = StandardDev(close, SqLength, 1);

 

Denom = (nK*ATR);

If Denom <> 0 then

BBS_Ind = (nBB * SDev) /Denom;

 

If BBS_Ind < Alertline then

SetPlotColor(1, Red)

else

SetPlotColor(1, Blue);

 

 

if BBS_Ind crosses below AlertLine then

SetPlotColor(1, green);

 

{-- Plot the Index & Alert Line -------------------------}

Plot1(0, "Squeeze");

end;

 

if ChangeMidLine = true then begin

{MiddleLine - based on a Hull Moving Average}

 

value1 = jthma(H/3+L/3+C/3,Length3);

 

 

if (Value1) > (Value1[1]) then

SetPlotColor(1, green);

if (Value1) < (Value1[1]) then

SetPlotColor(1, red);

 

Plot1(0, "Squeeze");

end;

 

 

{Histogram - based on two ema's of Hull MA's}

 

value3 = xaverage(jthma(close, length1),Length2) - xaverage( jthma(close, length2), length2+7 );

 

plot4(value3,"DiffHisto");

 

if value3 > 0 then

if value3 > value3[1] then

setplotcolor(4,green)

else

setplotcolor(4,darkgreen);

 

if value3 < 0 then

if value3 < value3[1] then setplotcolor(4,red)

else

setplotcolor(4,darkred);

 

 

 

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}

 

 

 

{ Counter Trend Mode - Based on when cci(13) gets below 50 and stays dark red until going back above 100}

if CounterTrendMode = true then begin

 

CCiValue = CCi(13);

 

Condition1 = ccivalue[1] > 50;

Condition2 = CCivalue < 50;

Condition3 = CCivalue[1] < 100;

Condition4 = CCiValue > 100;

Condition5 = value3 > 0;

Condition6 = value3[1] > 0;

Condition7 = value3[2] > 0;

Condition8 = ccivalue < 100;

 

 

if Condition1 and Condition2 and Condition5 and condition6 and condition7 then begin

setplotcolor(4,DarkRed);

DownCT = 1;

end;

 

if DownCT = 1 and value3 < 0 then DownCT =0;

 

 

if DownCT = 1 and Condition8 and Condition5 then setplotcolor(4,darkred);

 

if DownCT = 1 and Condition3 and Condition4 then begin

setplotcolor(4,green);

DownCT = 0;

end;

 

Condition11 = ccivalue[1] < -50;

Condition12 = CCivalue > -50;

Condition13 = CCivalue[1] >- 100;

Condition14 = CCiValue < -100;

Condition15 = value3 < 0;

Condition16 = value3[1] < 0;

Condition17 = value3[2] < 0;

Condition18 = ccivalue >-100;

 

 

if Condition11 and Condition12 and Condition15 and condition16 and condition17 then begin

setplotcolor(4,DarkGreen);

UpCT = 1;

end;

 

if UpCT = 1 and value3 > 0 then UpCT =0;

 

 

if UpCT = 1 and Condition18 and Condition15 then setplotcolor(4,darkgreen);

 

if UpCT = 1 and Condition13 and Condition14 then begin

setplotcolor(4,Red);

UpCT = 0;

end;

 

 

end;

 

Cheers

 

Blu-Ray

[moneymarkets 10]

Thanks Blu-Ray for your Excellent Programming. I am also having problems with this in Multicharts. I also copied the above code, and get no plot. If anyone can get this to plot in Multicharts, please share it.

[btrader2 10]

I compiled it as is using MC 3.0. Not familiar with the indicator tho.

[moneymarkets 10]

btrader2 ,Did you get the code of the br_squeeze to plot in MC 3.0, if so would you post the PLEditor.Document for it?

Thanks

[btrader2 10]

moneymarkets,

It appears that a .pla file is not accepted for uploading in this forum. Do you know that the squeeze indicator requires the jtHMA function to work? Could that be your problem?

 

Regards

[Blu-Ray 10]

My Apologies, it requires the jtHMA function which I forgot to post the code, so here it is:

 

{jtHMA - Hull Moving Average Function}

{Author: Atavachron}

{May 2005}

 

Inputs: price(NumericSeries), length(NumericSimple);

Vars: halvedLength(0), sqrRootLength(0);

 

{

Original equation is:

---------------------

waverage(2*waverage(close,period/2)-waverage(close,period), SquareRoot(Period)

Implementation below is more efficient with lengthy Weighted Moving Averages.

In addition, the length needs to be converted to an integer value after it is halved and

its square root is obtained in order for this to work with Weighted Moving Averaging

}

 

if ((ceiling(length / 2) - (length / 2)) <= 0.5) then

halvedLength = ceiling(length / 2)

else

halvedLength = floor(length / 2);

 

if ((ceiling(SquareRoot(length)) - SquareRoot(length)) <= 0.5) then

sqrRootLength = ceiling(SquareRoot(length))

else

sqrRootLength = floor(SquareRoot(length));

 

Value1 = 2 * WAverage(price, halvedLength);

Value2 = WAverage(price, length);

Value3 = WAverage((Value1 - Value2), sqrRootLength);

 

jtHMA = Value3;

 

Hope this helps

 

Blu-Ray

[Blu-Ray 10]

Here's a new one that's just been added:

 

BR_Trend_Bars

 

 

and the code : ( You'll need the jtHMA function as posted above )

 

Inputs:

Price(Close),

Length1(13),

Length2(34),

Length3(89),

UpLevel(35),

MidLevel(0),

LwrLevel(-35);

 

 

 

Value1 = jthma(Price,Length1);

Value2 = jthma(Price,Length2);

Value3 = jthma(Price,Length3);

 

if Value1 > Value1[1] then Plot1(UpLevel,"UpLevel", Green) else Plot1(UpLevel,"UpLevel", Red);

 

if Value2 > Value2[1] then Plot2(MidLevel,"MidLevel",Green) else Plot2(MidLevel,"MidLevel",Red);

 

if Value3 > Value3[1] then Plot3(LwrLevel,"LwrLevel",Green) else Plot3(LwrLevel,"LwrLevel",Red);

 

Hope this helps

 

Blu-Ray

BR_TREND_BARS.ELD

[max-td 10]

Great work Blu-Ray !

Is it possible to convert these things to NinjaTrader - Indicators ?

Your last one - it shows different HMA - length on the bottom-line with these dots ?

[Blu-Ray 10]

Great work Blu-Ray !

Is it possible to convert these things to NinjaTrader - Indicators ?

Your last one - it shows different HMA - length on the bottom-line with these dots ?

 

It should be possible to convert them to Ninjatrader, however I don't know how to use their coding language.

 

If I'm understanding your last question correctly, the three lines are all different lengths, top one being 13hma, middle 21hma and the bottom one a 89hma.

 

Hope this helps

 

Blu-Ray

[max-td 10]

fine - thats i was asking for ;-)

Maybee anyone here is able to translate TS to Ninja codes.

Would be great !

[garp 10]

Blue Ray, thank you very much, the code of BR Squeeze successfuly compiled in Multicharts 2.1. Sorry for the late thanx, I was out for some days, but it's better later then never.

[whisper01Barry 10]

Cool Beans!!!

Thanks

Barry

[TipsyTzar 10]

Blue Ray, those look great. Would you be able to code (for TS) the slower MA's (the two dotted ones)? It makes for a great study for a beginner like me (as well as learning how to code). Thanks!!

[Blu-Ray 10]

Blue Ray, those look great. Would you be able to code (for TS) the slower MA's (the two dotted ones)? It makes for a great study for a beginner like me (as well as learning how to code). Thanks!!

 

 

Yes, No probs, here you go..........I've coded it up as per pic on website, but I've missed out the darkred section as that is when you the 2 MA's are within are certain distance ( and for that reason you need to select stocks,futures or forex ) ....... probably unnecessary as you can eyeball when they are very close.

 

 

and the code :

 

Inputs:

Price(Close),

Length1(49),

Length2(89),

UpColor(Green),

DnColor(Red),

EarlyWarnColor(Yellow);

 

Vars:

FastEMA(0),SlowEMA(0);

 

 

FastEMA = xaverage(Price,Length1);

SlowEMA = xaverage(Price,Length2);

 

Plot1(FastEMA,"FastEMA");

Plot2(SlowEMA,"SlowEMA");

 

if FastEMA > SlowEMA then begin

setplotcolor(1,UpColor);

setplotcolor(2,UpColor);

end;

 

if FastEMA > SlowEMA and close < FastEMA then begin

setplotcolor(1, EarlyWarnColor);

setplotcolor(2, EarlyWarnColor);

end;

 

if FastEMA < SlowEMA then begin

setplotcolor(1,dnColor);

setplotcolor(2,dnColor);

end;

 

if FastEMA < SlowEMA and close > FastEMA then begin

setplotcolor(1, EarlyWarnColor);

setplotcolor(2, EarlyWarnColor);

end;

 

 

Hope this helps

 

Blu-Ray

BR_2EMA_COLOR.ELD

[TipsyTzar 10]

Awsome! Thank you!

[momentom 10]

Here it is for MC. Unzip before import.

BR_Squeeze.rar

[Blu Bull 10]

any chance of getting the BR squeeze indicator for Ninja Trader?

[whygood 10]

Here it is for MC. Unzip before import.

 

There is any difference between the version for TS and the version for MC??, the Multicharts should import the ELD for TS without any problem..right?