Klinger Goslin Volume indicator for radar screen?

free & uncensored discussion arena for TheRumpledOne

Moderator: moderators

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

Klinger Goslin Volume indicator for radar screen?

Postby chancee90046 » Sun Feb 11, 2007 7:13 pm

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
www.tradestationworld.com/discussions/T ... c_ID=26605
www.tradestationworld.com/discussions/T ... c_ID=25839

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
Alert = True;
Attachments
KIPLINGER GOSLIN.ELD
(6.88 KiB) Downloaded 269 times

Please add www.kreslik.com to your ad blocker white list.
Thank you for your support.

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

Re: Klinger Goslin Volume indicator for radar screen?

Postby Alex Z » Sun Jul 15, 2007 12:49 pm

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.

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

Postby ladyheart » Sun Dec 06, 2009 1:43 pm

can anyone please converted this indi to mt4 please?
thanks in advance!

vladv
rank: 50+ posts
rank: 50+ posts
Posts: 111
Joined: Sat Nov 11, 2006 3:38 pm
Reputation: 0
Location: Aiud
Real name: Vlad Vahnovanu
Gender: Male
Contact:

Postby vladv » Mon Dec 07, 2009 8:26 am

Yes,I want it converted for MT4 & 5,too!

User avatar
flinux
rank: 150+ posts
rank: 150+ posts
Posts: 219
Joined: Wed May 27, 2009 9:52 pm
Reputation: 0
Gender: Male
Contact:

Postby flinux » Mon Dec 07, 2009 1:46 pm

Post a screenshot.
So faith, hope, love remain, these three; but the greatest of these is love. - 1 Corinthians 13:13

Please add www.kreslik.com to your ad blocker white list.
Thank you for your support.

rrobin
rank: 50+ posts
rank: 50+ posts
Posts: 112
Joined: Fri May 19, 2006 11:09 am
Reputation: 0
Location: Cedar Creek Lake, Texas
Gender: Male

Postby rrobin » Tue Dec 08, 2009 12:41 pm

This was coded by TRO for SM

_______________________________________________

[LegacyColorValue = true];

{_SMAA_KlingerGoslin }


{KlingerVolOsc + Chick Goslin: Two codes below combined by Layne aka Trend39 @ts
www.tradestationworld.com/discussions/T ... c_ID=26605
www.tradestationworld.com/discussions/T ... c_ID=25839

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

{ Alert criteria }

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


_______________________________________________

Please add www.kreslik.com to your ad blocker white list.
Thank you for your support.


Return to “TheRumpledOne”