Jump to content

Welcome to the new Traders Laboratory! Please bear with us as we finish the migration over the next few days. If you find any issues, want to leave feedback, get in touch with us, or offer suggestions please post to the Support forum here.

  • Welcome Guests

    Welcome. You are currently viewing the forum as a guest which does not give you access to all the great features at Traders Laboratory such as interacting with members, access to all forums, downloading attachments, and eligibility to win free giveaways. Registration is fast, simple and absolutely free. Create a FREE Traders Laboratory account here.

simterann22

Klinger-Goslin ATR Indicator

Recommended Posts

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;

5aa70ef482718_Klinger-GoslinATR.thumb.jpg.bb894d594bceab4cc85c134aeaadd0d2.jpg

@SK_KLINGER GOSLIN ATR.ELD

TradeStation Forum - Klinger Oscillator.pdf

TradeStation Forum -KLINGER VOLUME.pdf

Edited by simterann22

Share this post


Link to post
Share on other sites
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 by Tams

Share this post


Link to post
Share on other sites

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!! :)

Share this post


Link to post
Share on other sites

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 :)

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.