hi
i hav written simple program for amibroker based on the formula given in this thread
--------------------------------------------------------------------------
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )
{
ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));
}
_SECTION_END();
Plot(EMA(C,200),"",colorBrown);
Plot(EMA(C,13),"",colorRed);
High1 = TimeFrameGetPrice("H", inDaily, -1); // yesterdays high
Low1 = TimeFrameGetPrice("L", inDaily, -1); // low
Close1 = TimeFrameGetPrice("C",inDaily,-1); // close
s4 = ((High1-Low1)*(1.1/2))+Close1;
s3 = ((High1-Low1)*(1.1/4))+Close1;
s2 = ((High1-Low1)*(1.1/6))+Close1;
s1 = ((High1-Low1)*(1.1/12))+Close1;
ss1 = Close1-((High1-Low1)*(1.1/12));
ss2 = Close1-((High1-Low1)*(1.1/6));
ss3 = Close1-((High1-Low1)*(1.1/4));
ss4 = Close1-((High1-Low1)*(1.1/2));
Plot(s4, "",colorGreen,styleLine);
Plot(s3, "",colorRed,styleLine);
Plot(s2, "",colorBlack,styleLine);
Plot(s1, "",colorBlack,styleLine);
Plot(ss1, "",colorBlack,styleLine);
Plot(ss2, "",colorBlack,styleLine);
Plot(ss3, "",colorGreen,styleLine);
Plot(ss4, "",colorRed,styleLine);
----------------------------------------------------------------------
my small contribution