rumus untuk metastock_SECTION_BEGIN("KVO");
// Klinger oscillator indicator
signal_period = Param("Signal Period",13,0,300,1);
hlc = High + Low + Close;
dm = High - Low;
cm = 0;
trend = 0;
for( i = 1; i < BarCount; i++ )
{
newtrend = trend;
if (hlc[i] > hlc[i-1])
newtrend = 1;
if (hlc[i] < hlc[i-1])
newtrend = -1;
if (trend == newtrend)
{
cm = cm + dm[i];
}
else
{
cm = dm[i-1] + dm[i];
trend = newtrend;
}
if (cm == 0)
{
vf[i] = 0;
}
else
{
vf[i] = Volume[i] * abs(2*dm[i]/cm-1) * trend * 100;
}
}
kvo = EMA(vf, 34) - EMA(vf, 55);
kvosig = EMA(kvo, signal_period);
Plot(kvo,"Klinger Osc.",colorRed, styleLine);
Plot(kvosig,"Klinger Osc. Signal",colorBlue, styleLine);
_SECTION_END();
Amibroker Formula (Thks to Imam)
a=H+L+C;
Trend=IIf(a > Ref(a,-1), 1,-1);
//dm = daily measurement
dm = H - L;
//cm = cumulative measurement
Cm = Cum(dm);
Cm = IIf(trend=-1,Ref(Cm,-1)+dm, Ref(dm,-1) + dm);
//Vf=Volume Force
Vf= V * (2 *( dm/Cm -1)) * trend * 100;
//KO = Klinger Oscilator
KO = EMA(Vf,34) - EMA(Vf,55);
//menggambarkan KO
Plot(ko,"KO",colorBlue,styleLine);
//menggambarkan Trendline
TL = EMA(KO,13);
Plot(TL,"TL",colorRed,styleLine);
Semoga Bermanfaatdiskusi lebih lanjut tentang penggunaan KO ini bisa dilihat
dihttp://forum.detik.com/showthread.php?t=51226&page=12&http://forum.detik.com/showthread.php?t=51226&page=13
Kind Regards,
Aditthis post originally posted at: www.trendtrader.co.cc
