sum gud afl components code

bunti_k23 · Oct 17, 2014

this will show the high and low in intraday:lol: obviously after making it....but when you see it on recent bar dont assume it as a high or low coz every time it will make a new high and low so to know recents swings h and l this is gud.....

Code:

 _SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

_SECTION_BEGIN("Hi-Lo");

HiDay = TimeFrameGetPrice("H", inDaily);
LoDay = TimeFrameGetPrice("L", inDaily);
HiHrly = TimeFrameGetPrice("H", inHourly);
LoHrly = TimeFrameGetPrice("L", inHourly);
PlotShapes(shapeSmallCircle*(H==HiDay),colorRed,0,H,20);
PlotShapes(shapeSmallCircle*(L==Loday),colorBrightGreen,0,L,-20);

TimeFrameSet(inDaily);
DR=H-L;
DR5=MA(DR,5);
DR20=MA(DR,20);
TimeFrameRestore();

DRE=TimeFrameExpand(DR,inDaily);
DR5E=TimeFrameExpand(DR5,inDaily);
DR20E=TimeFrameExpand(DR20,inDaily);

Title = EncodeColor(colorRed) + "Hi-Lo" + " | " + Name() + " | " + EncodeColor(colorRed)+ Interval(2) +
EncodeColor(colorRed) + " | " + Date() +" | "+"\n" +
EncodeColor(colorRed) + "Today's Range = " + EncodeColor(colorRed) + StrToNum(NumToStr((HiDay - LoDay), 1.2))+ "\n"+
EncodeColor(colorRed) + "Today's Hi = " + EncodeColor(colorRed) + Hiday + "\n" +
EncodeColor(colorRed) + "Today's Lo = " + EncodeColor(colorRed) + Loday + "\n" +
EncodeColor(colorRed) + "Yesterday's Range = " + EncodeColor(colorRed) + StrToNum(NumToStr(DRE, 1.2)) + "\n" +
EncodeColor(colorRed) + "5 Day MA of Daily Range = " + EncodeColor(colorRed) + StrToNum(NumToStr(DR5E,1.2)) + "\n" +
EncodeColor(colorRed) + "20 Day MA of Daily Range = " + EncodeColor(colorRed) + StrToNum(NumToStr(DR20E,1.2)) ;

_SECTION_END();

bunti_k23 · Oct 17, 2014

simple macd with buy sell signal and with variable tf.....

Code:

_SECTION_BEGIN("Kill The Operator MACD");


tf = Param( "TF", 1, 1, 1000, 1 );

TimeFrameSet(in1Minute*tf );


SetChartBkColor(ParamColor("Panel color ",colorBlack));
r1 = Param( "Fast avg", 12, 2, 200, 1 );
r2 = Param( "Slow avg", 26, 2, 200, 1 );
r3 = Param( "Signal avg", 9, 2, 200, 1 );
Plot( ml = MACD(r1, r2), StrFormat(_SECTION_NAME()+"(%g,%g)", r1, r2), ParamColor("MACD color", colorRed ), ParamStyle("MACD style") );
Plot( sl = Signal(r1,r2,r3), "Signal" + _PARAM_VALUES(), ParamColor("Signal color", colorBlue ), ParamStyle("Signal style") );
Histogram_color = IIf( ml-sl > 0, colorBlue, colorRed);
Plot( ml-sl, "MACD Histogram", Histogram_color, styleNoTitle | ParamStyle("Histogram style", styleHistogram | styleThick | styleNoLabel, maskHistogram ) );
Title = EncodeColor(colorWhite)+ "Kill The Operator MACD";

TimeFrameRestore();




_SECTION_END();
 
x = ml;
y = sl;
 
Buy=Cross(x,y);
PlotShapes(shapeUpArrow*Buy,colorWhite);
Sell=Cross(y,x);
PlotShapes(shapeDownArrow*Sell,colorWhite);
/* Trend Filters */
TimeFrameSet(in15Minute);
SwingTrd151 = 100 * (Close - ((MA(C,2)+
MA(MA(C,2),2)+
MA(MA(MA(C,2),2),2) +
MA(MA(MA(MA(C,2),2),2),2) +
MA(MA(MA(MA(MA(C,2),2),2),2),2) +
MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2) +
MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2), 2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2), 2),2),2),2))
/10))/(HHV(C,10)-LLV(C,10));
SwingTrd152=EMA(SwingTrd151,13);
SwingTrd153=EMA(SwingTrd152,13);
RMO15= EMA(SwingTrd151,34);
Bull_Trend15=EMA(SwingTrd151,34)>0;
Bear_Trend15=EMA(SwingTrd151,34)<0;
TimeFrameRestore();
Ribbon_kol15=IIf(TimeFrameExpand(Bull_Trend15,in15Minute),colorBlue, IIf(TimeFrameExpand(Bear_Trend15,in15Minute),colorRed, colorBlack));
Plot(2, "ribbon", Ribbon_kol15, styleOwnScale|styleArea|styleNoLabel, -0.5,100);
 
TimeFrameSet(10*in1Minute);
SwingTrd101 = 100 * (Close - ((MA(C,2)+
MA(MA(C,2),2)+
MA(MA(MA(C,2),2),2) +
MA(MA(MA(MA(C,2),2),2),2) +
MA(MA(MA(MA(MA(C,2),2),2),2),2) +
MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2) +
MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2), 2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2), 2),2),2),2))
/10))/(HHV(C,10)-LLV(C,10));
SwingTrd102=
EMA(SwingTrd101,13);
SwingTrd103=EMA(SwingTrd102,13);
RMO10= EMA(SwingTrd101,34);
Bull_Trend10=EMA(SwingTrd101,34)>0;
Bear_Trend10=EMA(SwingTrd101,34)<0;
TimeFrameRestore();
Ribbon_kol10=IIf(TimeFrameExpand(Bull_Trend10,10*in1Minute),colorBlue, IIf(TimeFrameExpand(Bear_Trend10,10*in1Minute),colorRed, colorBlack));
Plot(4, "ribbon", Ribbon_kol10, styleOwnScale|styleArea|styleNoLabel, -0.5,100);
 
 
SwingTrd1 = 100 * (Close - ((MA(C,2)+
MA(MA(C,2),2)+
MA(MA(MA(C,2),2),2) +
MA(MA(MA(MA(C,2),2),2),2) +
MA(MA(MA(MA(MA(C,2),2),2),2),2) +
MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2) +
MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2), 2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2), 2),2),2),2))
/10))/(HHV(C,10)-LLV(C,10));
SwingTrd2=
EMA(SwingTrd1,13);
SwingTrd3=
EMA(SwingTrd2,13);
RMO= EMA(SwingTrd1,34);
Bull_Trend=EMA(SwingTrd1,34)>0;
Bear_Trend=EMA(SwingTrd1,34)<0;
Ribbon_kol=IIf(Bull_Trend,colorBlue, IIf(Bear_Trend,colorRed, colorBlack));
Plot(6, "ribbon", Ribbon_kol, styleOwnScale|styleArea|styleNoLabel, -0.5,100);
// End of Trend Filters

bunti_k23 · Oct 17, 2014

it is sumthing cocktail which i call 'stochax' stochastics + adx both with variable tf....the stochastics indicator took from extremists and simple adx ..

Code:

_SECTION_BEGIN("Stochastic %K %D");
periods = Param( "Periods", 8, 1, 2000, 1 );
Ksmooth = Param( "%K avg", 3, 1, 2000, 1 );
Dsmooth = Param( "%D avg", 4, 1, 2000, 1 );
tf = Param( "TF", 1, 1, 375, 1 );

TimeFrameSet(in1Minute*tf );
k0=StochK( periods , Ksmooth);
d0=StochD( periods , Ksmooth ,Dsmooth);
TimeFrameRestore();

k=TimeFrameExpand( k0, in1Minute*tf,expandFirst );
d=TimeFrameExpand( d0, in1Minute*tf,expandFirst );

Plot( k,"%K :", ParamColor( "%K Color", colorBrightGreen ), ParamStyle("Style") );
//Plot( d,"%D :", ParamColor( "%D Color", colorRed), ParamStyle("Style") );

_SECTION_BEGIN("Clip");

Ctr=Param("Cnter",50,0,200,1);
Clp=Param("Clip",20,0,200,1);
col=ParamColor( "Clip Color", colorGold );
Plot( Ctr+Clp, "", col,styleDashed );
Plot( Ctr,"", col,styleDashed );
Plot( Ctr-Clp, "", col,styleDashed );
_SECTION_END(); 

/////////////////////////


tf = Param( "TF", 1, 1, 375, 1 );
TimeFrameSet(in1Minute*tf );
range = Param("Periods", 14, 2, 200, 1 );
Plot( ADX(range), _DEFAULT_NAME(), ParamColor( "ADX color", colorBlue ), ParamStyle("ADX style", styleThick ) );
Plot( PDI(range), "+DI", ParamColor( "+DI color", colorBrightGreen ), ParamStyle("+DI style", styleThick) );
Plot( MDI(range), "-DI", ParamColor( "-DI color", colorRed ), ParamStyle("-DI style", styleThick) );

TimeFrameRestore();

bunti_k23 · Nov 8, 2014

this is a clip for indicators ,dotted lines at the levels .

in this code the center line is 50,from parameters u can adjust the distance from center line.

Code:

_SECTION_BEGIN("Clip");

Ctr=Param("Cnter",30,0,200,1);
Clp=Param("Clip",20,0,200,1);
col=ParamColor( "Clip Color", colorGold );
Plot( Ctr+Clp, "", col,styleDashed );
Plot( Ctr,"", col,styleDashed );
Plot( Ctr-Clp, "", col,styleDashed );
_SECTION_END();

in this code the center line is 0,from parameters u can adjust the distance from center line.

Code:

_SECTION_BEGIN("Clip");

Ctr=Param("Cnter",0,0,200,1);
Clp=Param("Clip",10,0,200,1);
col=ParamColor( "Clip Color", colorGold );
Plot( Ctr+Clp, "", col,styleDashed );
Plot( Ctr,"", col,styleDashed );
Plot( Ctr-Clp, "", col,styleDashed );
_SECTION_END();

bunti_k23 · Nov 8, 2014

fibonacci retracement levels these are dynamic in nature ,whenever a new set of data points occur the levels will change.

Code:

_SECTION_BEGIN("Background");
    SetChartOptions(0,chartShowArrows|chartShowDates);
    SetChartBkColor(ParamColor("Outer panel",colorGrey40)); // color of outer border
    SetChartBkGradientFill( ParamColor("Inner panel upper",colorGrey40),ParamColor("Inner panel lower",colorBlack));
    tchoice=Param("Title Selection ",2,1,2,1);
 
Plot(C, "", IIf(O>=C, colorOrange, colorGreen), ParamStyle("Price Style",styleCandle, maskPrice));
 
//////////////////////////////////////////////////////////////////
_SECTION_BEGIN("Fib Retracements");
    fibs = ParamToggle("Plot Fibs","Off|On",1);
    pctH = Param ("Pivot Hi %", 0.325,0.001,2.0,0.002);
    HiLB = Param ("Hi LookBack",1,1,BarCount-1,1);
    pctL = Param ("Pivot Lo %", 0.325,0.001,2.0,0.002);
    LoLB = Param ("Lo LookBack",1,1,BarCount-1,1);
    Back = Param ("Extend Left = 2",1,1,500,1);
    Fwd  = Param("Plot Forward", 0, 0, 500, 1);
    text = ParamToggle("Plot Text","Off|On",1);
    hts  = Param ("Text Shift", -33.5,-50,50,0.10);
    style =ParamStyle("Line Style",styleLine,styleNoLabel);
x = BarIndex();
pRp  = PeakBars( H, pctH, 1) == 0;
yRp0 = SelectedValue(ValueWhen( pRp, H, HiLB));
xRp0 = SelectedValue(ValueWhen( pRp, x, HiLB));
pSp  = TroughBars( L, pctL, 1) == 0;
ySp0 = SelectedValue(ValueWhen( pSp, L, LoLB));
xSp0 = SelectedValue(ValueWhen( pSp, x, LoLB));
Delta = yRp0 - ySp0;
 
function fib(ret)
{
retval = (Delta * ret);
Fibval = IIf(ret < 1.0
AND xSp0 < xRp0, yRp0 - retval, IIf(ret < 1.0
AND xSp0 > xRp0, ySp0 + retval,IIf(ret > 1.0
AND xSp0 < xRp0, yRp0 - retval, IIf(ret > 1.0
AND xSp0 > xRp0, ySp0 + retval, Null))));
return FibVal;
}
 
x0 = Min(xSp0,xRp0)-Back;
x1 = (BarCount -1);
//////////////////////////////////////////////////////////////////
r236 = fib(0.236);  r236I = LastValue (r236,1);
r382 = fib(0.382);  r382I = LastValue (r382,1);
r050 = fib(0.50);       r050I = LastValue (r050,1);
r618 = fib(0.618);  r618I = LastValue (r618,1);
r786 = fib(0.786);  r786I = LastValue (r786,1);
e127 = fib(1.27);       e127I = LastValue (e127,1);
e162 = fib(1.62);       e162I = LastValue (e162,1);
e200 = fib(2.00);       e200I = LastValue (e200,1);
e262 = fib(2.62);       e262I = LastValue (e262,1);
e424 = fib(4.24);       e424I = LastValue (e424,1);
//////////////////////////////////////////////////////////////////
p00 = IIf(xSp0 > xRp0,ySp0,yRp0);    p00I = LastValue (p00,1);
p100 = IIf(xSp0 < xRp0,ySp0,yRp0);   p100I = LastValue (p100,1);
color00 =IIf(xSp0 > xRp0,colorLime,colorRed);
color100 =IIf(xSp0 < xRp0,colorLime,colorRed);
//////////////////////////////////////////////////////////////////
numbars = LastValue(Cum(Status("barvisible")));
fraction= IIf(StrRight(Name(),3) == "", 3.2, 3.2);
//////////////////////////////////////////////////////////////////
if(fibs==1)
{
Plot(LineArray(xRp0-Fwd,yRp0,x1,yRp0,Back),"PR",32,8|styleNoRescale,Null, Null,Fwd);
Plot(LineArray(xSp0-Fwd,ySp0,x1,ySp0,Back),"PS",27,8|styleNoRescale,Null, Null,Fwd);
Plot(LineArray(x0-Fwd,r236,x1,r236,Back),"",45,style|styleNoRescale,Null, Null,Fwd);
Plot(LineArray(x0-Fwd,r382,x1,r382,Back),"",44,style|styleNoRescale,Null, Null,Fwd);
Plot(LineArray(x0-Fwd,r050,x1,r050,Back),"",41,style|styleNoRescale,Null, Null,Fwd);
Plot(LineArray(x0-Fwd,r618,x1,r618,Back),"",43,style|styleNoRescale,Null, Null,Fwd);
Plot(LineArray(x0-Fwd,r786,x1,r786,Back),"",42,style|styleNoRescale,Null, Null,Fwd);
Plot(LineArray(x0-Fwd,e127,x1,e127,Back),"e127",47,style|styleNoRescale,Null, Null,Fwd);
Plot(LineArray(x0-Fwd,e162,x1,e162,Back),"e162",47,style|styleNoRescale,Null, Null,Fwd);
Plot(LineArray(x0-Fwd,e200,x1,e200,Back),"p200",47,style|styleNoRescale,Null, Null,Fwd);
Plot(LineArray(x0-Fwd,e262,x1,e262,Back),"p262",47,style|styleNoRescale,Null, Null,Fwd);
Plot(LineArray(x0-Fwd,e424,x1,e424,Back),"p424",25,style|styleNoRescale,Null, Null,Fwd);
}
//////////////////////////////////////////////////////////////////
if(text==1)
{
PlotText(" 0% = " + WriteVal(p00,fraction),     LastValue(BarIndex())-(numbars/hts), p00I  + 0.05, color00);
PlotText("23% = " + WriteVal(r236,fraction), LastValue(BarIndex())-(numbars/hts), r236I + 0.05, 45);
PlotText("38% = " + WriteVal(r382,fraction), LastValue(BarIndex())-(numbars/hts), r382I + 0.05, 44);
PlotText("50% = " + WriteVal(r050,fraction), LastValue(BarIndex())-(numbars/hts), r050I + 0.05, 41);
PlotText("62% = " + WriteVal(r618,fraction), LastValue(BarIndex())-(numbars/hts), r618I + 0.05, 43);
PlotText("78% = " + WriteVal(r786,fraction), LastValue(BarIndex())-(numbars/hts), r786I + 0.05, 42);
PlotText("100% = " + WriteVal(p100,fraction), LastValue(BarIndex())-(numbars/hts),p100I + 0.05, color100);
PlotText("127% = " + WriteVal(e127,fraction), LastValue(BarIndex())-(numbars/hts),e127I + 0.05, 47);
PlotText("162% = " + WriteVal(e162,fraction), LastValue(BarIndex())-(numbars/hts),e162I + 0.05, 47);
PlotText("200% = " + WriteVal(e200,fraction), LastValue(BarIndex())-(numbars/hts),e200I + 0.05, 47);
PlotText("262% = " + WriteVal(e262,fraction), LastValue(BarIndex())-(numbars/hts),e262I + 0.05, 47);
PlotText("424% = " + WriteVal(e424,fraction), LastValue(BarIndex())-(numbars/hts),e424I + 0.05, 25);
}
_SECTION_END();

pious243 · Nov 9, 2014

:clap:good one

bunti_k23 · Jan 8, 2015

this code is of a simple macd line with variable timeframe.a square will appear in GREEN COLOR if macd is greater than historical value ,vice versa COLOR RED for down slope .

see below nifty daily chart with MACD line in BLUE color .the idea here is to take the trades in the direction of daily MACD LINE ,obviously you can go for whatever tf u want from parameter.combine it with your trading systems and see on historical charts.yes we may miss some big counter moves but we will be with the DIRECTION of higher timeframe.use it on intraday charts 3m/5m.

Code:

tf = Param( "TF", 375, 1, 1000, 1 );

TimeFrameSet(in1Minute*tf );

mcd = MACD()>Ref(MACD(),-1);

ncd = MACD()<Ref(MACD(),-1);

GfxSelectPen( ColorRGB(180,180,180), width = 1, 0) ;
if (SelectedValue(mcd) > 0) GfxSelectSolidBrush(colorGreen);
else GfxSelectSolidBrush(colorRed);
GfxRoundRect(109, 272, 179, 222, 3, 3  ) ;

TimeFrameRestore();

nifty daily chart

Thread starter	Similar threads	Forum	Replies	Date
R	query about sum insured vs top-up	Insurance	1	Feb 11, 2023
S	When the NIFTY is at 16000, i assume market will go down, shall i do PE Buy / Sell or CE Buy / Sell?	Welcome	1	Jul 13, 2022
1	Motherson sumi query	General Trading & Investing Chat	0	May 8, 2020
C	Let's discuss about motherson sumi	Equities	0	May 2, 2020
P	Reliance Sum of Parts	Equities	1	Jan 28, 2020

sum gud afl components code

bunti_k23

Well-Known Member

bunti_k23

Well-Known Member

bunti_k23

Well-Known Member

bunti_k23

Well-Known Member

bunti_k23

Well-Known Member

pious243

New Member

bunti_k23

Well-Known Member

Similar threads