Re: MT4 Indicator requests and ideas

18422
Chickenspicy wrote: Fri Apr 28, 2023 3:47 pm please add vhf adaptive to these two, i dont think theres any ma these fast and accurate,
again thank you for your time

hull
fema
rsquared
laguerre
ama
t3
lwma
tema dema
they seem to have noise or overshoot
derp
0 + 0 = 0
Infinite / Infinite = 1
1 way to Heaven & it matters

Re: MT4 Indicator requests and ideas

18423
Here is superadx code for amibroker if can be converted

Code: Select all

//Sample Code
//===========================================================================================//=================TITLE================================================================================================
_SECTION_BEGIN("Price Ploting");

pricestyle=ParamToggle("Price style","Bar|Candle",1);
if (pricestyle == 1)
{
Candlefill = IIf(C>=Ref(C,-1),ParamColor("Green candle",colorGreen),ParamColor("red candle",colorRed) );
SetBarFillColor (Candlefill);
PlotOHLC( Open, High, Low, Close, "", Candlefill, styleCandle,maskPrice);
}
if (pricestyle == 0)
{
Candlefill = IIf(C>=Ref(C,-1),ParamColor("Green candle",colorLime),ParamColor("red candle",colorRed) );
PlotOHLC( Open, High, Low, Close, "", Candlefill, styleBar,maskPrice);
}

pbfak= Param("Pin Bar Factor",3,0,100,0.25);
CR = abs(H-L);
CB = abs(O-C);
Candlecheck = IIf((CR >=(pbfak*CB)),1,0);
SetBarFillColor (IIf(Candlecheck ==1,candlefill,colorBlack));
PlotOHLC( Open, High, Low, Close, "", IIf(Candlecheck ==1,Candlefill,colorBlack), styleCandle,maskPrice);

_SECTION_END();
//=================TITLE================================================================================================
//=========================================================================================
_SECTION_BEGIN("Swing Signal System");
DayH = TimeFrameGetPrice("H", inDaily, -1); DayHI = LastValue (DayH,1);// yesterdays high
DayL = TimeFrameGetPrice("L", inDaily, -1); DayLI = LastValue (DayL,1); // yesterdays low
DayC = TimeFrameGetPrice("C", inDaily, -1); // yesterdays close
DayO = TimeFrameGetPrice("O", inDaily); // current day open
numbars = LastValue(Cum(Status("barvisible")));
hts = -33.5;
YHL = ParamToggle("Yesterday HI LO","Show|Hide",1);
if(YHL==1) {
// Plot(DayL,"YL",colorTurquoise,styleDots|styleNoLine|styleNoRescale|styleNoTitle);
// Plot(DayH,"YH",colorTurquoise,styleDots|styleNoLine|styleNoRescale|styleNoTitle);
//PlotText(" YH " , LastValue(BarIndex())-(numbars/Hts), DayHI, colorTurquoise);
//PlotText(" YL " , LastValue(BarIndex())-(numbars/Hts), DayLI, colorTurquoise);
DayLcolor= IIf(C>= DayO,colorDarkOliveGreen,colorViolet);
Plot(DayC ,"YC",colorIndigo,styleDots|styleNoLine|styleNoRescale|styleNoTitle);
Offset = 20;
//Plot(LineArray(BarCount, DayC , BarCount+20, DayC ,0), "", colorRed, styleLine|styleDots, Null, Null, 20);
Plot(DayO ,"YO",DayLcolor,styleDots|styleNoLine|styleNoRescale|styleNoTitle);



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

messageboard = ParamToggle("Message Board","Show|Hide",0);
showsl = ParamToggle("Stop Loss Line", "Show|Hide", 0);
no=10;
res=HHV(H,no);
sup=LLV(L,no);
avd=IIf(C>Ref(res,-1),1,IIf(C1;i--)

{
if(Buy == 1)
{
entry = C;
sig = "BUY";
sl = s5d;
tar1 = DayC1 ;
tar2 = entry + (entry * .0092);
tar3 = entry + (entry * .0179);

bars = i;
i = 0;
}
if(Sell == 1)
{
sig = "SELL";
entry = C;
sl = s5d;
tar1 = DayC1;
tar2 = entry - (entry * .0112);
tar3 = entry - (entry * .0212);


bars = i;
i = 0;
}
}
*/

for(i=BarCount-1;i>1;i--)

{

//tar1 = DayC1;
bars = i;
i = 0;

}




for(i = 1; i < BarCount; i++)
{
tar2 = DayO1;
tar1 = DayC;
Clro = IIf(C>=tar1,colorLime,colorRed);
}

Offset = 20;
Clr = colorBlueGrey;
//Clro = IIf(C>=tar2,colorLime,colorRed);
Plot(LineArray(bars-Offset, tar1, BarCount-20, tar1,1), "", colorIndigo, styleLine|styleDots, Null, Null, Offset);
Plot(LineArray(bars-Offset, tar2 , BarCount+20, tar2 ,1), "", Clr, styleLine|styleDots, Null, Null, Offset);
}
_SECTION_END();
//=========================================================================================
These users thanked the author Chickenspicy for the post:
Jimmy
0 + 0 = 0
Infinite / Infinite = 1
1 way to Heaven & it matters


Re: MT4 Indicator requests and ideas

18427
My bad there was two codes posted for it
This looks more like it

Code: Select all

//Super ADX Coded by Karthikmarar. Blog. www.karthikmarar.blogspot.com email. karthikmarar@yahoo.com
//System based on the free clone availablein Metatrader
// Public release for personal use only.
//Please do not commercialize this indicator in its original or modified form.
_SECTION_BEGIN("Super ADX Clone");

WavePeriod = Param("WAVE PERIOD",10,5,30,1);
AvgPeriod = Param("Smoothing Period",21,9,45,1);
VAR1 = EMA(C, WavePeriod);
VAR2 = (abs(H+C+L)/ 3.0 - VAR1);
VAR3 = EMA(VAR2,WavePeriod);
VAR4 = IIf(VAR3 > 0,((H+L+C) / 3.0 - VAR1) / (0.015 * VAR3),0);
VAR5 = EMA(VAR4, AvgPeriod);
VAR6 = MA(VAR5, 4);
JA = IIf (VAR5 >= VAR6 AND Ref(VAR5,-1) <= Ref(VAR6,-1) AND VAR5 <= -50, 1,0);
JB = IIf (VAR5 <= VAR6 AND Ref(VAR5,-1) >= Ref(VAR6,-1) AND VAR5 >= 53,1,0);
AX1 = ADX(14);
AX2 = Ref(AX1,-1);
AX3 = Ref(AX1,-2);
JX = MACD(12,26);
JXS = Signal(12,26,9);
JX1 = Ref(JX,-1);
JX1S = Ref(JXS,-1);
ADXFL1 = AX2 > 35 AND AX1 < AX2 AND AX2 > AX3;
ADXFL2 = AX1 < 10 AND AX1 > AX2 AND AX2 < AX3;
MACDFL1 = IIf (JX > JX1 AND JXS <= JX1S,1,0);
MACDFL2 = IIf (JX < JX1 AND JXS >= JX1S,1,0);
MACDFL  = MACDFL1 OR MACDFL2;
YB = IIf(ADXFL1 AND (JA == 1 OR JB == 1),1,0); //YELLOW BAR
WBMACD = IIf(ADXFL1 AND MACDFL ,1,0);
WB = IIf(ADXFL1,1,0);
RB = IIf(ADXFL2,1,0);
MBC = WB OR WBMACD;
TB = Sum(MBC, 16);
TBARS = TB == 3 AND Ref(TB,-1)==2;
WriteVal(TBars);
PL = IIf(TBARS,40,IIf(YB,35,IIf(WBMACD,30,IIf(WB,25,IIf(RB,20,Null)))));
BCOLOR = IIf(tbars,colorCustom12,IIf(YB,colorYellow,IIf(WBMACD,colorViolet,IIf(WB,colorWhite,IIf(RB,colorRed,colorBlack)))));
SetBarFillColor( BCOLOR);
yb1=IIf(yb,30,0);
wb1=IIf(wb,25,0);
wbmacd1 =IIf(wbmacd,20,0);
rb1 = IIf(rb,15,0);
PlotOHLC(0,pl,0,pl,"",BCOLOR,styleCandle|styleThick);
PlotShapes( IIf(tbars ,shapeSmallSquare,Null), colorCustom12,0,40,0);
PlotShapes( IIf(yb ,shapeSmallSquare,Null), colorYellow,0,35,0);
PlotShapes( IIf(wbmacd,shapeSmallSquare,Null), colorViolet,0,30,0);
PlotShapes( IIf(wb,shapeSmallSquare,Null), colorWhite,0,25,0);
PlotShapes( IIf(rb,shapeSmallSquare,Null), colorRed,0,20,-0);

//========================= Header with Comments ====================================
if( Status("action") == actionIndicator ) 
(
Title = EncodeColor(colorWhite)+ "SUPER ADX Clone" + " - " +  Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
 "  - " + Date() +" - " +EncodeColor(colorLime)+ "Volume= "+WriteVal(V)+"--"+EncodeColor(colorYellow)+
("\n Super ADX Alert :  ")+WriteIf(yb,EncodeColor(colorYellow)+" White Bar + Trend Wave",
WriteIf(tbars,EncodeColor(colorCustom12)+" White Bar + Trend Wave",
WriteIf(WBmacd,EncodeColor(colorViolet)+"White Bar + MACD, EXPECT REVERSAL",WriteIf(WB,EncodeColor(colorWhite)+"White Bar - EXIT",
WriteIf(rb,EncodeColor(colorRed)+"Red Bar - Big Move","" ))))));


Filter = tbars==1 OR yb ==1 OR wbmacd==1 OR wb ==1 OR rb==1;
AddColumn( tbars, "TBARS",bkgndColor  = colorCustom12 );
AddColumn( yb, "YB",bkgndColor  = colorYellow );
AddColumn( wbmacd, "WBMACD",bkgndColor  = colorViolet );
AddColumn( wb, "WB",bkgndColor  = colorWhite );
AddColumn( rb, "RB",bkgndColor  = colorRed );



_SECTION_END(); 
Attachments
0 + 0 = 0
Infinite / Infinite = 1
1 way to Heaven & it matters


Who is online

Users browsing this forum: ChatGPT [Bot], DotNetDotCom [Bot], LUCAS123, Majestic-12 [Bot], Narutopips, phnthnhnm, ssscary, Telegram [Bot] and 110 guests