.

MultiLevel Support Resistance Pivot Chart - Amibroker AFL Code

Click Image To Enlarge. Please Rate And Comment.

MultiLevel Support Resistance Pivot Chart

 _SECTION_BEGIN("Live01");
////////////////////////////////////////////////////////////////////////////////////
// Global variables
GraphXSpace=10;
SetBarsRequired(10000,10000);

lperiod = Param("Long Period", 90,3,200,1);
P = ParamField("Price field",4);

a = Param("Angle",30,15,45,1);
a = (22/7)*(a/180);
Num = sin(1*a) * P + sin(2*a) * Ref(P,-1) + sin(3*a) * Ref(P,-2) + sin(4*a) * Ref(P,-3) + sin(5*a) * Ref(P,-4);
Den = sin(a) + sin(2*a) + sin (3*a) + sin(4*a) + sin(5*a);
kolkata = Num / Den;

movAvg = MA(P,lperiod);


////////////////////////////////////////////////////////////////////////////////////
// Desicion
Buy = kolkata > movAvg AND kolkata < L AND kolkata > movAvg;
Sell = kolkata < movAvg OR H < kolkata;
Short = movAvg > kolkata AND kolkata > H AND kolkata < movAvg;
Cover = kolkata > movAvg OR L > kolkata;

Buy = ExRem(Buy, Sell);
Sell = ExRem(Sell, Buy);
Short = ExRem(Short, Cover);
Cover = ExRem(Cover, Short);

////////////////////////////////////////////////////////////////////////////////////
// Graphics
Plot(kolkata, "Kolkata ", colorBrown, 5);
Plot(movAvg, "MA " + lperiod, colorIndigo, 5);

PlotShapes(IIf(Buy,shapeUpArrow,shapeNone),colorBrightGreen);
PlotShapes(IIf(Short,shapeDownArrow,shapeNone),colorRed);
PlotShapes(IIf(Sell,shapeSmallCircle,shapeNone),colorBrightGreen);
PlotShapes(IIf(Cover,shapeSmallCircle,shapeNone),colorRed);

_SECTION_END();
/*


// AFL - formula -- which I use
wvap = WMA(V*P,period)/WMA(V,period);

also,... for camarilla levels... you might have the actual formula... in case you dont have AND still use 1.1 as the factor .. you can change it with ...

factor = sqrt(22/7)... square root of PI.

it works better on nifty also...

regards,
pramod


Here's the camarilla AFL....which I use.. I have an extra level 3.5 on both sides.. this level acts as a resting place...sometimes.*/

_SECTION_BEGIN("Camarilla");

tom = -1 * Param("Day",1,0,100,1);

TimeFrameSet(inDaily);
yyo = Ref(O,tom + 1);
yyh = Ref(H,tom + 1);
yyl = Ref(L,tom + 1);
yyc = Ref(C,tom + 1);
TimeFrameRestore();

tyo = TimeFrameExpand( yyo, inDaily, expandLast);
tyh = TimeFrameExpand( yyh, inDaily, expandLast);
tyl = TimeFrameExpand( yyl, inDaily, expandLast);
tyc = TimeFrameExpand( yyc, inDaily, expandLast);

x = LastValue(Cum(1)) - 1;

yo = tyo[x];
yh = tyh[x];
yl = tyl[x];
yc = tyc[x];

fac = sqrt(22/7);

r4 = ( yh - yl ) * ( fac/2) + yc;
r35 = ( yh - yl ) * ( fac/3) + yc;
r3= ( yh - yl ) * ( fac/4) + yc;
r2 = ( yh - yl ) * ( fac/6) + yc;
r1 = ( yh - yl ) * ( fac/12) + yc;

s1 = yc - ( yh - yl ) * (fac/12);
s2 = yc - ( yh - yl ) * (fac/6);
s3 = yc - ( yh - yl ) * (fac/4);
s35 = yc - ( yh - yl ) * (fac/3);
s4 = yc - ( yh - yl ) * (fac/2);

pivot = (r4 + s4)/2;

Plot(r4,"\nR4",colorYellow,1);
Plot(r35,"R3.5",colorYellow,styleDashed|styleThick );
Plot(r3,"R3",colorYellow,1);
Plot(r2,"R2",colorYellow,1);
Plot(r1,"R1",colorYellow,1);

Plot(pivot," Pivot",colorOrange,5);

Plot(s1," S1",colorDarkBlue,1);
Plot(s2,"S2",colorDarkBlue,1);
Plot(s3,"S3",colorDarkBlue,1);
Plot(s35,"S3.5",colorDarkBlue,styleDashed|styleThick);
Plot(s4,"S4",colorDarkBlue,1);
_SECTION_END();
_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", colorWhite ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
if( ParamToggle("Tooltip shows", "Only Prices|All Values" ) )
{
ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));
}

su = Study("SU", GetChartID() );
re = Study("RE", GetChartID() );
PlotOHLC( re, re, su, su, "", ParamColor("Shade Color", colorPlum),styleCloud );
_SECTION_END();
Previous Post Next Post