## Klinger Goslin Volume indicator for radar screen?

free & uncensored discussion arena for TheRumpledOne

Moderator: moderators

chancee90046
rank: <50 posts
Posts: 23
Joined: Sat Jun 17, 2006 3:52 am
Reputation: 0
Gender:

### Klinger Goslin Volume indicator for radar screen?

TRO... do you think you could take a stab at coding this indicator into a radar screen indicator? It's a little over my head. It seems to be giving good results, especially with the trigger added. Thanks for any help. -C nicehall@hotmail.com

[LegacyColorValue = true];

{KlingerVolOsc + Chick Goslin: Two codes below combined by Layne aka Trend39 @ts

The Klinger Oscillator is a construct which is
intended to illustrate when price changes are confirmed by volume.
See write-up here:
www.paritech.com/paritech-site/educatio ... linger.asp

Indicator plots a brigher color
at times where the Goslin Trigger is firing.

}

Inputs: Price(C),AV1(3),AV2(10),AV3(16),
FastX(34),
SlowX(55),
TrigLen(13),
Smooth(1),
UpColor(Darkgreen),
DwnColor(Darkmagenta);

{KlingerOsc}
value1 = KVO_rd(FastX, SlowX);
value2 = Summation(value1, Smooth);

if Smooth <= 1 then begin
value3 = value1; end
else value3 = value2; {Value 3 = KlingerOsc}

{KlingerTrigger}
Value4 = XAverage(Value3, TrigLen);
Value5 = Summation(Value4,Smooth);

If Smooth <=1 then begin
value6 = value4; end
else value6 = value5; {Value6 = KlingerTrigger}

{GOSLIN Osc}
Value7 = AVERAGE(price,AV1)-AVERAGE(price,AV2);
{Goslin Trigger}
Value8 = AVERAGE(AVERAGE(price,AV1) - AVERAGE(price,AV2),AV3);

Plot1(value3, "KVOsc");
plot2(value6, "Kling Trig");
Plot3(0, "Midline");

{COLOR CHANGES}

If value7 crosses above value8 then begin
plot1[1](Plot1[1],"KVOsc", Green);
plot1(plot1,"KVOsc",Green);
end else begin

If value7 crosses below value8 then begin
plot1[1](Plot1[1],"KVOsc", Magenta);
plot1(plot1,"KVOsc",Magenta);
end else begin

{
If Plot1>Plot1[1] then begin
plot1[1](Plot1[1],"KVOsc",upcolor);
plot1(Plot1,"KVOsc",upcolor);
end else begin
plot1[1](Plot1[1],"KVOsc",dwncolor);
plot1(Plot1,"KVOsc",dwncolor);}

If Plot1>Plot1[1] then begin
plot1[1](Plot1[1],"KVOsc",upcolor);
plot1(Plot1,"KVOsc",upcolor);
end else begin

If plot1<plot1[1]then begin
plot1[1](Plot1[1],"KVOsc",dwncolor);
plot1(Plot1,"KVOsc",dwncolor);
end; end; end; end;

IF Plot1 Crosses Above Plot2 OR Plot1 Crosses Below Plot2 OR
Plot2 Crosses Above Plot3 OR Plot2 Crosses Below Plot3 Then
Attachments
KIPLINGER GOSLIN.ELD

Alex Z
rank: <50 posts
Posts: 1
Joined: Mon Jun 25, 2007 2:14 am
Reputation: 0
Gender:

### Re: Klinger Goslin Volume indicator for radar screen?

chancee90046 wrote:TRO... do you think you could take a stab at coding this indicator into a radar screen indicator? It's a little over my head. It seems to be giving good results, especially with the trigger added. Thanks for any help. -C nicehall@hotmail.com

I was wandering whether anyone would have this indicator available for Amibroker. Would greatly appreciate it. Thanks.

rank: <50 posts
Posts: 3
Joined: Tue Jun 30, 2009 6:27 pm
Reputation: 0
Gender:
Contact:

rank: 50+ posts
Posts: 111
Joined: Sat Nov 11, 2006 3:38 pm
Reputation: 0
Location: Aiud
Gender:
Contact:
Yes,I want it converted for MT4 & 5,too!

flinux
rank: 150+ posts
Posts: 219
Joined: Wed May 27, 2009 9:52 pm
Reputation: 0
Gender:
Contact:
Post a screenshot.
So faith, hope, love remain, these three; but the greatest of these is love. - 1 Corinthians 13:13

rrobin
rank: 50+ posts
Posts: 112
Joined: Fri May 19, 2006 11:09 am
Reputation: 0
Location: Cedar Creek Lake, Texas
Gender:
This was coded by TRO for SM

_______________________________________________

[LegacyColorValue = true];

{_SMAA_KlingerGoslin }

{KlingerVolOsc + Chick Goslin: Two codes below combined by Layne aka Trend39 @ts

The Klinger Oscillator is a construct which is
intended to illustrate when price changes are confirmed by volume.
See write-up here:
www.paritech.com/paritech-site/educatio ... linger.asp

Indicator plots a brigher color
at times where the Goslin Trigger is firing.

}

Inputs: Price(C),AV1(3),AV2(10),AV3(16),
FastX(34),
SlowX(55),
TrigLen(13),
Smooth(1),
UpColor(Darkgreen),
DwnColor(Darkmagenta);

variables:

KGO( 0 ),
xKGO(0),
tKGO(""),

FG1(white),
BG1(black),

LowerBand( 0 ),
UpperBand( 0 ) ;

{ INITIALIZE }

tKGO = "";
FG1 = WHITE;
BG1 = BLACK;

{ calculations }

{KlingerOsc}
value1 = KVO_rd(FastX, SlowX);
value2 = Summation(value1, Smooth);

if Smooth <= 1 then begin
value3 = value1; end
else value3 = value2; {Value 3 = KlingerOsc}

{KlingerTrigger}
Value4 = XAverage(Value3, TrigLen);
Value5 = Summation(Value4,Smooth);

If Smooth <=1 then begin
value6 = value4; end
else value6 = value5; {Value6 = KlingerTrigger}

{GOSLIN Osc}
Value7 = AVERAGE(price,AV1)-AVERAGE(price,AV2);
{Goslin Trigger}
Value8 = AVERAGE(AVERAGE(price,AV1) - AVERAGE(price,AV2),AV3);

If value7 crosses above value8
then begin
tKGO = "GOSLIN X";
FG1 = BLACK;
BG1 = YELLOW;
end;

If value7 crosses below value8
then begin
tKGO = "GOSLIN X";
FG1 = RED;
BG1 = YELLOW;
end;

If value3 crosses above value6
then begin
tKGO = "Klinger X";
FG1 = BLACK;
BG1 = YELLOW;
end;

If value3 crosses below value6
then begin
tKGO = "Klinger X";
FG1 = RED;
BG1 = YELLOW;
end;

If value6 crosses above 0
then begin
tKGO = "Klinger X 0";
FG1 = BLACK;
BG1 = YELLOW;
end;

If value6 crosses below 0
then begin
tKGO = "Klinger X";
FG1 = RED;
BG1 = YELLOW;
end;

Plot1( tKGO, "KGO", fg1 ) ;
SetPlotBGColor( 1, bg1);

Plot2( KGO, "KGO=", fg1 ) ;
SetPlotBGColor( 2, bg1);

_______________________________________________