Momentum Guppy
The Momentum Guppy AFL in Amibroker integrates the Guppy Multiple Moving Average indicator to assess market momentum. By utilizing Amibroker data feed capabilities, this AFL identifies potential trend reversals and momentum changes. Traders rely on this AFL to gauge the strength of prevailing trends and make informed decisions based on historical data analysis.
/
_SECTION_BEGIN("momentum");
A=EMA(C,10);
B=EMA(C,50);
Plot(A/B,"",colorWhite,styleLine+styleNoLabel);
Plot(EMA((a/b),3),"",IIf(a/b > EMA((a/b),3),colorBlue,colorDarkBlue),styleLine+styleNoLabel);
Plot(EMA((a/b),5),"",IIf(a/b > EMA((a/b),5),colorBlue,colorDarkBlue),styleLine+styleNoLabel);
Plot(EMA((a/b),8),"",IIf(a/b > EMA((a/b),8),colorBlue,colorDarkBlue),styleLine+styleNoLabel);
Plot(EMA((a/b),10),"",IIf(a/b > EMA((a/b),10),colorBlue,colorDarkBlue),styleLine+styleNoLabel);
Plot(EMA((a/b),12),"",IIf(a/b > EMA((a/b),12),colorBlue,colorDarkBlue),styleLine+styleNoLabel);
Plot(EMA((a/b),15),"",IIf(a/b > EMA((a/b),15),colorBlue,colorDarkBlue),styleLine+styleNoLabel);
Plot(EMA((a/b),30),"",colorYellow,styleLine+styleNoLabel);
Plot(EMA((a/b),34),"",colorRed,styleLine+styleNoLabel);
Plot(EMA((a/b),40),"",colorRed,styleLine+styleNoLabel);
Plot(EMA((a/b),45),"",colorRed,styleLine+styleNoLabel);
Plot(EMA((a/b),50),"",colorRed,styleLine+styleNoLabel);
Plot(EMA((a/b),55),"",colorRed,styleLine+styleNoLabel);
//Plot(Ref(A/B,-2),"",colorBlue,styleLine);
_SECTION_END();
_SECTION_BEGIN("Fibo for all bars");
TimeFrameSet( in15Minute*2 );
DH=Ref(H,-1);
DL=Ref(L,-1);
DC=Ref(C,-1);
pd = (O+ DH+ DL + DC )/4;
sd1 = (2*pd)-DH;
sd2 = pd -(DH - DL);
sd3 = Sd1 - (DH-DL);
rd1 = (2*pd)-DL;
rd2 = pd +(DH -DL);
rd3 = rd1 +(DH-DL);
//Plot (pd,"Pivot",colorBlue,styleDots);
//Plot (rd1," R1 ",35,styleDots);
//Plot (rd2," R2 ",35,styleDots);
//Plot (rd3," R3 ",35,styleDots);
//Plot (sd1," S1 ",4,styleDots);
//Plot (Sd2," S2 ",4,styleDots);
//Plot (Sd3," S3 ",4,8+16);
/*
style = IIf(ParamList("Chart style", "styleCandle|styleBar")=="styleCandle",64,128+4);
Plot (C,Date ()+" close",1,style); //ENABLE THIS TO HAVE CANDLES AS WELL
*/
TimeFrameRestore();
Title = EncodeColor(colorWhite)+ "LINKON'S PIVOT TRADING SYSTEM" + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
" - " + Date() +" - "
//+ WriteIf(Col_action==colorGreen, EncodeColor(colorGreen)+"stay LONG","")+ WriteIf(Col_action==colorRed, EncodeColor(colorRed)+"stay SHORT","")+ WriteIf(Col_action==colorBlack, EncodeColor(colorYellow)+"No Trend","")+"\n"
+ "Vol= "+ WriteVal(V) +WriteIf ( V > MA(V,26) ,EncodeColor(colorGreen)+" UP "+ (V/MA(V,26))*100 + " %", EncodeColor(colorRed)+" DOWN "+ (V/MA(V,26))*100 + " %")
+ EncodeColor(colorGreen)+ "\n R3 : "+ EncodeColor(colorWhite)+RD3
+ EncodeColor(colorGreen)+ "\n R2 : "+ EncodeColor(colorWhite)+RD2
+ EncodeColor(colorGreen)+ "\n R1 : "+ EncodeColor(colorWhite)+RD1+ EncodeColor(colorGreen)+ "` Hi: "+ EncodeColor(colorWhite)+H
+ EncodeColor(colorBlue)+ "\n Pivot : "+ EncodeColor(colorWhite)+pd + EncodeColor(colorYellow)+ "` Op: "+ EncodeColor(colorWhite)+O+ EncodeColor(colorAqua)+ "Cl: "+ EncodeColor(colorBrightGreen)+C
+ EncodeColor(colorRed)+ "\n S1 : "+ EncodeColor(colorWhite)+SD1+ EncodeColor(colorRed)+ "` Lo: "+ EncodeColor(colorWhite)+L
+ EncodeColor(colorRed)+ "\n S2 : "+ EncodeColor(colorWhite)+SD2
+ EncodeColor(colorRed)+ "\n S3 : "+ EncodeColor(colorWhite)+SD3
;
_SECTION_END();
Plot(6, "", IIf(a/b > EMA(a/b,15),colorGreen,colorRed), styleOwnScale| styleArea|styleNoLabel,-0.5,100);