plz correct this "funda chart" formula

rocky01

Active Member
#1
_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 );
 
#2
You see this code:
Code:
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);
remove space to change 1. 2 to 1.2 in the line
AddColumn((GetFnData("BookValuePerShare")),"BV",1. 2);
to
AddColumn((GetFnData("BookValuePerShare")),"BV",1.2);>>> Removed the space but it is not showing... Download the afl
and then check. or else download the attached file(corrected)
 
Last edited:
#5
Could you please quote the error it is giving??? and at what line numberr??
regards
Ashutosh
Dear all, My Ami is generating chart, but Avg tema period Parameter is not working. The slider goes right-left, no change is visible in chart. Fundamental data is also missing. How i upload Fundamental data of DSE-Dhaka Stock Exchange? Please, help. Here in Bangladesh help hands are rare.
Again : the csv files format we get is : Ticker,Name,Last AGM Held, EPS Last Year,EPS Q1,EPS Q2,EPS Q3,EPS Q4,Book Value,Divident,Market Lot,Face Value,Shares Out,Shares Float,Insider Hold Percentage,Institution Hold Percentage
 
Last edited:

Similar threads