_SECTION_BEGIN("3");
SetChartOptions(0,chartShowArrows|chartShowDates);
TimeFrameSet(inDaily);
//Plot(C,"close", colorBlack,styleCandle);
Plot(MA(C,50),"50ema",colorRed,styleLine);
Plot(MA(C,200),"200ema",colorBlue,styleLine);
function ZeroLagTEMA( array, period )
{
TMA1 = TEMA( array, period );
TMA2 = TEMA( TMA1, period );
Diff = TMA1 - TMA2;
return TMA1 + Diff ;
}
/////////////////////
// Heikin-Ashi code
HaClose = (O+H+L+C)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
// Velvoort is using not original, but modified Heikin-Ashi close
HaClose = ( HaClose + HaOpen + HaHigh + HaLow )/4;
// you can switch between Heikin-Ashi chart and regular candlestick chart
if( ParamToggle("Plot Heikin-Ashi", "No,Yes", 1 ) )
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "Heikin Ashi " + Name(), colorBlack, styleCandle );
else
Plot( C, "Regular candles " + Name(), colorBlack, styleCandle );
period = Param("Avg. TEMA period", 55, 1, 100 );
ZLHa = ZeroLagTEMA( HaClose, period );
ZLTyp = ZeroLagTEMA( Avg, period );
//Plot( ZLHa, "ZLTema(Ha,"+period+")", colorRed );
//Plot( ZLTyp, "ZLTema(Typ,"+period+")", colorGreen );
Buy = Cross( ZLTyp, ZLHa );
Sell = Cross( ZLHa, ZLTyp );
//PlotShapes( shapeUpArrow * Buy, colorGreen, 0, HaLow );
//PlotShapes( shapeDownArrow * Sell, colorRed, 0, HaHigh );
_SECTION_BEGIN("Volume");
Plot( Volume, "Volume", ParamColor("Color", colorLavender ), styleNoTitle | ParamStyle( "Style", styleHistogram | styleOwnScale | styleThick | styleNoLabel, maskHistogram ), 2 );
_SECTION_END();
//Plot(MA(V,10),"10mav",colorRed,styleDots,styleOwnScale);
green = EncodeColor(colorBrightGreen);
red = EncodeColor(colorRed);
blue = EncodeColor(colorBlue);
black = EncodeColor(colorBlack);
violet = EncodeColor(colorViolet);
skyblue=EncodeColor(colorSkyblue);
white=EncodeColor(colorWhite);
a=(GetFnData("SharesOut")); //share Capital in Crs.
b=(GetFnData("ReturnOnAssets")); //FACE VALUE
d=(GetFnData("InsiderHoldPercent")); //PROMOTERS STAKE %
e=(a/b)*100000; //to get no of total shares by dividing share capital in crs by face value.
//AddColumn(e,"Totalshares",1);
f=(d*e)/100; //promotesr nos of shares from total num shares
g=(e-f); //float
i=(GetFnData("BookValuePerShare"));
j=(GetFnData("DividendPerShare"));
k=(GetFnData("LeveredFreeCashFlow"));
m=(GetFnData("EPS"));
n=(GetFnData("OperatingMargin"));
p=(GetFnData("ProfitMargin"));
q=(GetFnData("QtrlyEarningsGrowth"));
r=(GetFnData("EPSEstCurrentYear"));
r1=(j*b/100)*100/C;
r2=(GetFnData("EPSEstCurrentYear"));
r3=(GetFnData("ReturnonEquity"));
r4=(GetFnData("ProfitMargin"));
Filter=1;
//Filter=q>25 AND (C/r)<10;
AddColumn(C,"close",1.2);
AddColumn(C-Ref(C,-1),"ch in Pr ",1.2);
AddColumn((GetFnData("EPSEstCurrentYear")),"eps-TTM",1.2);
AddColumn((C/GetFnData("EPSEstCurrentYear")),"PE-TTM",1.2);
AddColumn(HHV(H,260),"52wHIGH" );
AddColumn(LLV(L,260),"52wLOW" );
AddTextColumn(FullName(),"name");
AddColumn((GetFnData("PROFITMARGIN")),"TTM np",1.2);
AddColumn(p/a*i,"IV",1.2);
//AddColumn((GetFnData("ReturnOnAssets")),"fv",1.0);
//AddColumn((GetFnData("SharesOut")),"capital",1.2);
AddColumn((GetFnData("BookValuePerShare")),"BV",1.2);
//AddColumn((GetFnData("DividendPerShare")),"DIV%",1.2);
//AddColumn((GetFnData("LeveredFreeCashFlow")),"cps",1.2);
//AddColumn((GetFnData("EPS")),"eps",1.2);
//AddColumn((GetFnData("QtrlyRevenueGrowth")),"NP gowth LQ",1.2);
//AddColumn((GetFnData("SalesPerShare")),"sales/sh");
AddColumn((GetFnData("OperatingMargin")),"OPM",1.2);
//AddColumn((GetFnData("ProfitMargin")),"NP",1.2);
AddColumn((GetFnData("QtrlyEarningsGrowth")),"eps growth-ttm",1.2);
Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} cmp %g, (%.1f%%) ", C, SelectedValue( ROC( C, 1 ) ) )+black+"**52wk high**"+blue+WriteVal(HHV(H,260),1.2)+black+"**52wk Lo**"+blue+WriteVal(LLV(L,260),1.2)
+"\n"+"EqCap.Rs Crs.= "+blue+WriteVal(a,format=1.2)+Black+"[&&&]"+" Face Value="+blue+WriteVal(b,format=1.0)+black+"[*****]"+" Mktcap(Crs)= "+blue+WriteVal(a*C/b,format=1.0)+Black+"\n"
+"Book Value Rs= "+blue+WriteVal(i,format=1.2)+Black+"[&&&]"+" Div%="+blue+WriteVal(j,format=1.2)+" Div Yield % "+WriteVal(r1,format=1.2)+black+"[***]"+" OPM%= "+Red+WriteVal(n,format=1.2)+Black+"[&&]"+" P/BV="+blue+WriteVal(C/i,1.2)+black+" RONW= "+WriteVal(r3,format=1.2)+"%"+" ROCE= "+WriteVal(r4,format=1.2)+"%"+"\n"
+"CPS= "+blue+ WriteVal(k,format=1.2)+Black+"[&&&]"+ " EPS="+blue+WriteVal(m,format=1.2)+black+"[*****]"+ " EPS-TTM="+Red+WriteVal(r,format=1.2)+blue+ "****P/E-TTM***"+blue+WriteVal(C/r,1.2)+ Black+"**Latest qtrly NP growth%**"+blue+WriteVal(q,1.0)+
"\n"+"Updated upto Qtr " +GetFnData("SHARESSHORT")
+"\n"+red+"fundas last updated 14 Aug 2008";
/*The following builds Fractal Up*/
var1=ValueWhen(
(Ref(H,-2) > Ref(H, -4)) AND
(Ref(H,-2) > Ref(H, -3)) AND
(Ref(H,-2) > Ref(H, -1)) AND
(Ref(H,-2) > H), Ref(H,-2),1);
FractalUp=HighestSince(var1>0,var1,1);
Plot(FractalUp,"Res",colorBrown,8);
/*The following builds Fractal Down*/
var2=
(Ref(L,-2) <= Ref(L, -1)) AND
(Ref(L,-2) <= Ref(L, 0)) AND
(Ref(L,-2) <= Ref(L, -3)) AND
(Ref(L,-2) <= Ref(L, -4));
FractalDown=ValueWhen( var2,Ref(L,-2),1);
Plot(FractalDown,"Supp",colorGreen,8);
SL = ( HHV( H, 26 ) + LLV( L, 26) )/2;
TL = ( HHV( H, 9 ) + LLV( L, 9 ) )/2;
DL = Ref( C, 25 );
Span1 = Ref( ( SL + TL )/2, -25 );
Span2 = Ref( (HHV( H, 52) + LLV(L, 52))/2, -25);
PlotOHLC( 0, span1, span2, span2, "Cloud", IIf(span1>span2,colorGreen,colorRed), styleCloud );
GfxSetOverlayMode(1);
GfxSelectFont("Tahoma", Status("pxheight")/15 );
GfxSetTextAlign( 8 );// center alignment
GfxSetTextColor( ColorRGB( 200, 200, 200 ) );
GfxSetBkMode(1); // transparent
GfxTextOut( FullName(), Status("pxwidth")/2, Status("pxheight")/8 );
SetChartOptions(0,chartShowArrows|chartShowDates);
TimeFrameSet(inDaily);
//Plot(C,"close", colorBlack,styleCandle);
Plot(MA(C,50),"50ema",colorRed,styleLine);
Plot(MA(C,200),"200ema",colorBlue,styleLine);
function ZeroLagTEMA( array, period )
{
TMA1 = TEMA( array, period );
TMA2 = TEMA( TMA1, period );
Diff = TMA1 - TMA2;
return TMA1 + Diff ;
}
/////////////////////
// Heikin-Ashi code
HaClose = (O+H+L+C)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
// Velvoort is using not original, but modified Heikin-Ashi close
HaClose = ( HaClose + HaOpen + HaHigh + HaLow )/4;
// you can switch between Heikin-Ashi chart and regular candlestick chart
if( ParamToggle("Plot Heikin-Ashi", "No,Yes", 1 ) )
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "Heikin Ashi " + Name(), colorBlack, styleCandle );
else
Plot( C, "Regular candles " + Name(), colorBlack, styleCandle );
period = Param("Avg. TEMA period", 55, 1, 100 );
ZLHa = ZeroLagTEMA( HaClose, period );
ZLTyp = ZeroLagTEMA( Avg, period );
//Plot( ZLHa, "ZLTema(Ha,"+period+")", colorRed );
//Plot( ZLTyp, "ZLTema(Typ,"+period+")", colorGreen );
Buy = Cross( ZLTyp, ZLHa );
Sell = Cross( ZLHa, ZLTyp );
//PlotShapes( shapeUpArrow * Buy, colorGreen, 0, HaLow );
//PlotShapes( shapeDownArrow * Sell, colorRed, 0, HaHigh );
_SECTION_BEGIN("Volume");
Plot( Volume, "Volume", ParamColor("Color", colorLavender ), styleNoTitle | ParamStyle( "Style", styleHistogram | styleOwnScale | styleThick | styleNoLabel, maskHistogram ), 2 );
_SECTION_END();
//Plot(MA(V,10),"10mav",colorRed,styleDots,styleOwnScale);
green = EncodeColor(colorBrightGreen);
red = EncodeColor(colorRed);
blue = EncodeColor(colorBlue);
black = EncodeColor(colorBlack);
violet = EncodeColor(colorViolet);
skyblue=EncodeColor(colorSkyblue);
white=EncodeColor(colorWhite);
a=(GetFnData("SharesOut")); //share Capital in Crs.
b=(GetFnData("ReturnOnAssets")); //FACE VALUE
d=(GetFnData("InsiderHoldPercent")); //PROMOTERS STAKE %
e=(a/b)*100000; //to get no of total shares by dividing share capital in crs by face value.
//AddColumn(e,"Totalshares",1);
f=(d*e)/100; //promotesr nos of shares from total num shares
g=(e-f); //float
i=(GetFnData("BookValuePerShare"));
j=(GetFnData("DividendPerShare"));
k=(GetFnData("LeveredFreeCashFlow"));
m=(GetFnData("EPS"));
n=(GetFnData("OperatingMargin"));
p=(GetFnData("ProfitMargin"));
q=(GetFnData("QtrlyEarningsGrowth"));
r=(GetFnData("EPSEstCurrentYear"));
r1=(j*b/100)*100/C;
r2=(GetFnData("EPSEstCurrentYear"));
r3=(GetFnData("ReturnonEquity"));
r4=(GetFnData("ProfitMargin"));
Filter=1;
//Filter=q>25 AND (C/r)<10;
AddColumn(C,"close",1.2);
AddColumn(C-Ref(C,-1),"ch in Pr ",1.2);
AddColumn((GetFnData("EPSEstCurrentYear")),"eps-TTM",1.2);
AddColumn((C/GetFnData("EPSEstCurrentYear")),"PE-TTM",1.2);
AddColumn(HHV(H,260),"52wHIGH" );
AddColumn(LLV(L,260),"52wLOW" );
AddTextColumn(FullName(),"name");
AddColumn((GetFnData("PROFITMARGIN")),"TTM np",1.2);
AddColumn(p/a*i,"IV",1.2);
//AddColumn((GetFnData("ReturnOnAssets")),"fv",1.0);
//AddColumn((GetFnData("SharesOut")),"capital",1.2);
AddColumn((GetFnData("BookValuePerShare")),"BV",1.2);
//AddColumn((GetFnData("DividendPerShare")),"DIV%",1.2);
//AddColumn((GetFnData("LeveredFreeCashFlow")),"cps",1.2);
//AddColumn((GetFnData("EPS")),"eps",1.2);
//AddColumn((GetFnData("QtrlyRevenueGrowth")),"NP gowth LQ",1.2);
//AddColumn((GetFnData("SalesPerShare")),"sales/sh");
AddColumn((GetFnData("OperatingMargin")),"OPM",1.2);
//AddColumn((GetFnData("ProfitMargin")),"NP",1.2);
AddColumn((GetFnData("QtrlyEarningsGrowth")),"eps growth-ttm",1.2);
Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} cmp %g, (%.1f%%) ", C, SelectedValue( ROC( C, 1 ) ) )+black+"**52wk high**"+blue+WriteVal(HHV(H,260),1.2)+black+"**52wk Lo**"+blue+WriteVal(LLV(L,260),1.2)
+"\n"+"EqCap.Rs Crs.= "+blue+WriteVal(a,format=1.2)+Black+"[&&&]"+" Face Value="+blue+WriteVal(b,format=1.0)+black+"[*****]"+" Mktcap(Crs)= "+blue+WriteVal(a*C/b,format=1.0)+Black+"\n"
+"Book Value Rs= "+blue+WriteVal(i,format=1.2)+Black+"[&&&]"+" Div%="+blue+WriteVal(j,format=1.2)+" Div Yield % "+WriteVal(r1,format=1.2)+black+"[***]"+" OPM%= "+Red+WriteVal(n,format=1.2)+Black+"[&&]"+" P/BV="+blue+WriteVal(C/i,1.2)+black+" RONW= "+WriteVal(r3,format=1.2)+"%"+" ROCE= "+WriteVal(r4,format=1.2)+"%"+"\n"
+"CPS= "+blue+ WriteVal(k,format=1.2)+Black+"[&&&]"+ " EPS="+blue+WriteVal(m,format=1.2)+black+"[*****]"+ " EPS-TTM="+Red+WriteVal(r,format=1.2)+blue+ "****P/E-TTM***"+blue+WriteVal(C/r,1.2)+ Black+"**Latest qtrly NP growth%**"+blue+WriteVal(q,1.0)+
"\n"+"Updated upto Qtr " +GetFnData("SHARESSHORT")
+"\n"+red+"fundas last updated 14 Aug 2008";
/*The following builds Fractal Up*/
var1=ValueWhen(
(Ref(H,-2) > Ref(H, -4)) AND
(Ref(H,-2) > Ref(H, -3)) AND
(Ref(H,-2) > Ref(H, -1)) AND
(Ref(H,-2) > H), Ref(H,-2),1);
FractalUp=HighestSince(var1>0,var1,1);
Plot(FractalUp,"Res",colorBrown,8);
/*The following builds Fractal Down*/
var2=
(Ref(L,-2) <= Ref(L, -1)) AND
(Ref(L,-2) <= Ref(L, 0)) AND
(Ref(L,-2) <= Ref(L, -3)) AND
(Ref(L,-2) <= Ref(L, -4));
FractalDown=ValueWhen( var2,Ref(L,-2),1);
Plot(FractalDown,"Supp",colorGreen,8);
SL = ( HHV( H, 26 ) + LLV( L, 26) )/2;
TL = ( HHV( H, 9 ) + LLV( L, 9 ) )/2;
DL = Ref( C, 25 );
Span1 = Ref( ( SL + TL )/2, -25 );
Span2 = Ref( (HHV( H, 52) + LLV(L, 52))/2, -25);
PlotOHLC( 0, span1, span2, span2, "Cloud", IIf(span1>span2,colorGreen,colorRed), styleCloud );
GfxSetOverlayMode(1);
GfxSelectFont("Tahoma", Status("pxheight")/15 );
GfxSetTextAlign( 8 );// center alignment
GfxSetTextColor( ColorRGB( 200, 200, 200 ) );
GfxSetBkMode(1); // transparent
GfxTextOut( FullName(), Status("pxwidth")/2, Status("pxheight")/8 );