Klinger-Goslin ATR Indicator

[simterann22 10]

Here is a 'squeeze-like' indicator I converted from some very good code. Trend39 from the TS forums converted the Klinger and Goslin together adding an ATR factor to it.

 

Here are the links to the originals:

 

http://www.tradestation.com/Discussions/Topic.aspx?Topic_ID=26841

http://www.tradestation.com/Discussions/Topic.aspx?Topic_ID=26605

http://www.tradestation.com/Discussions/Topic.aspx?Topic_ID=37624

 

 

[LegacyColorValue = true]; 

{_KlingerVolume Function}


{KlingerOsc}
value1 = KVO_rd(34, 55);
value2 = Summation(value1, 1);

if 1 <= 1 then begin
_KlingerVol = value1; end
else _KlingerVol = value2;  

 

{KVO Function}

Inputs: 
  FastX(Numeric), 
  SlowX(Numeric); 
Vars: 
  FXAvg(0), 
  SXAvg(0);

FXAvg = XAverage(VForce_rd, FastX);
SXAvg = XAverage(VForce_rd, SlowX);  {Samll change made to Vforce_rd to make volume smaller)}
KVO_rd = (FXAvg - SXAvg);  

 

{V-Force Function}

Vars: TSum(0), Trend(0), DM(0), CM(0); 
TSum = High + Low + Close; 
DM = High - low;

IF TSum > TSum[1] Then
Trend = 1
Else
Trend = -1;

IF Trend = Trend[1] Then
CM = CM + Range
Else
CM = Range + Range[1];
IF CM <> 0 Then
VForce_rd = Volume * AbsValue(2 * (DM/CM) -1) * Trend * 0.01;   {0.01 works great too; original version had * 100.   
Made smaller to decrease the plotted size of volume}

 

 

[LegacyColorValue = true]; 
{Volume Flow Indicator + Klinger Volume Indicator + ATR Summation

Trend39 compiled into one indicator

Simterann22 made changes below:Zeroline turns red when Klinger is below trigger line and green when above trigger line.
Klinger Histogram shows volume increasing or decreasing}

Inputs:
ATRLength(21),
Trigger(13),
SmoothATR(1),
Smooth(5),
UpVolColor(green),
UpVolColor2(darkGreen),
DnVolColor(red),
DnVolColor2(darkRed);

value1= summationif(close > open,truerange,ATRlength);
value2=summationif(close < open,truerange,ATRlength);
value3= value1-value2; {Sum}
value4 = average(value3,SmoothATR)*.5;


value5= Average((_KlingerVol+ Value4)*1/2,Smooth);
plot1(0,"Zero line");
plot98(0,"Zero Line BG");//Aesthetic
plot2(value5,"Klinger+ATR");
plot3 (average(value5,Trigger),"Trigger");

//Histogram

If Plot2>0 and Plot2>Plot2[1] then
setplotcolor(2,UpVolColor);
If Plot2<0 and Plot2>Plot2[1] then
setplotcolor(2,DnVolColor2);
If Plot2<0 and Plot2<PLot2[1] then
setplotcolor(2,DnVolColor);
If Plot2>0 and Plot2<PLot2[1] then
setplotcolor(2,UpVolColor2);


//ZeroLine

If plot2>plot3 then
begin
setplotcolor(1,UpVolColor);
setplotcolor(98,UpVolColor2);//aesthetic only: must plot thicker and darker color than plot1
end;
If plot2<plot3 then
begin
setplotcolor(1,DnVolColor);
setplotcolor(98,DnVolColor2);//aesthetic only: must plot thicker and darker color than plot1
end;

@SK_KLINGER GOSLIN ATR.ELD

TradeStation Forum - Klinger Oscillator.pdf

TradeStation Forum -KLINGER VOLUME.pdf

Edited July 1, 2009 by simterann22

[nilu_2005 10]

Do you have this code for Esignal or Amibroker?

[Tams 20]

Do you have this code for Esignal or Amibroker?

 

 

This is a mutual relationship.

You can start by sharing your Amibroker indicators...

and this would encourage others to do the same.

note: when I say "sharing", I don't mean copying indicators from the Amibroker site.

Edited July 5, 2009 by Tams

[ajax358 10]

Great indicator!!....just loaded it & found that a input setting of (8,13, 1, 5) was a little fatser in the turns of 116tk(=1min) charts for daytrading the NQ/ES, in backtesting, fyi, imo. Great look on the ta!!

[simterann22 10]

Awesome. I'm happy you're testing these guys out and even happier you're sharing your results. I'm still essentially a newbie trader so although I can see the potential in indicators I often do not know how to really tweak them. Thanks

[ajax358 10]

Awesome. I'm happy you're testing these guys out and even happier you're sharing your results. I'm still essentially a newbie trader so although I can see the potential in indicators I often do not know how to really tweak them. Thanks

 

yes..... is relative easy to test them out. What I do is take the original, like this one, then make a copy chart of my trading chart (116tk), one can use any chart you use as an entry chart of any time or tick frame....then backest it over a day or three, of trading by advancing one bar at a time & see how my trades & entries stack up with the new indicator. If is mirrors or is betta than what I do, I leave it alone. If it lags a bit, the I tweek with the input values & make 2-5 charts of the same chart, with each one a different input setting, then advance thru a time in the day I made trades & see which one see's it faster in the turns!!!!....the slow ones I delete, then keep the fast ones. Then will then make more charts of the fast inputs & make slight variations to them either side of the good input values....the one that is the quickest in the turns is the winner!!

 

I usually keep all my input values in Fibonacci vlues (3,5,8,13,21,34, 55,etc) & work with these first. Then if it is close to the fastest one, will then go a half a Fib distance between Fib #'s on either side of it to find THE fastest one in the turns....this to keep the Fib Universal ratio in tact.....generally find that either a whole or half Fib number value/combination works the best every time for any indicator!! My whole system is Fib # based & one of the reasons is so effective for me.....all inputs are Fib #'s & all charts are fib #'s too in time/tick frames.

 

So, try that in backtesting....takes times, like hours of backtesting for just one indicator, but as in all things, nothing good is easy & takes time to get it right. Hope that helps....

 

ajax

[hunter1 10]

I could not get this indicator to verify in tradestation or multicharts. I have been unable to figure out what the problem is. Could smeone give me a hand?

 

thanks

[sevensa 10]

I could not get this indicator to verify in tradestation or multicharts. I have been unable to figure out what the problem is. Could smeone give me a hand?

 

thanks

 

This would be difficult for anyone to help you if you don't give a description of what the issue is. At least the error message you get and the steps you have followed would be needed.

[estate1997 10]

Use this. Go to File/new/window/easy lang/indicator and then past this.

 

{ Klinger+ATR Bollinger Band

Source: tradestation.com/Discussions/Topic.aspx?Topic_ID=5 9409&PAGE=3?? }

Inputs:

ATRLength(10),

Trigger(13),

UpColor(green),

DwnColor(magenta),

BandColor(Blue),

SmoothATR(1),

Smooth(1),

 

LengthBB( 20 ),

NumDevsUp( 2 ),

NumDevsDn( -2 ),

Displace( 0 ) ;

 

variables:

PriceBB(0),

Avg( 0 ),

SDev( 0 ),

LowerBand( 0 ),

UpperBand( 0 ) ;

 

PriceBB = (Average((_KlingerVol+ Value4)*1/2,Smooth));

 

Avg = AverageFC( PriceBB, LengthBB ) ;

SDev = StandardDev( PriceBB, LengthBB, 1 ) ;

UpperBand = Avg + NumDevsUp * SDev ;

LowerBand = Avg + NumDevsDn * SDev ;

 

value1= summationif(close > open,truerange,ATRlength);

value2= summationif(close < open,truerange,ATRlength);

value3= value1-value2; {Sum}

value4= average(value3,SmoothATR)*.5;

value5= Average((_KlingerVol+ Value4)*1/2,Smooth);

 

If Displace >= 0 or CurrentBar > AbsValue( Displace ) then

begin

 

 

plot1(value5,"Klinger+ATR");

plot2 (0, "Zero Line");

Plot3[Displace]( LowerBand, "LowerBand", BandColor ) ;

Plot4[Displace]( UpperBand, "UpperBand", BandColor ) ;

Plot5[Displace]( Avg, "MidLine" ) ; end;

 

If Plot1>Plot1[1] then begin

plot1[1](Plot1[1],"Klinger+ATR",upcolor);

plot1(Plot1,"Klinger+ATR",upcolor);

end else begin

 

If plot1<plot1[1]then begin

plot1[1](Plot1[1],"Klinger+ATR",dwncolor);

plot1(Plot1,"Klinger+ATR",dwncolor);

end; end;

 

If plot1>Plot2 then begin

plot2[1](plot2[1],"Zero Line",GREEN);

plot2(plot2,"Zero Line",Green);

end else begin

if plot1<plot2 then begin

plot2[1](plot2[1],"Zero Line",red);

plot2(plot2,"Zero Line",red); end; end;

This was poster by a really nice doctor.

I could use some help converting a long strategy from this into a short strategy. It is awesome.

 

Trade with the trend