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();
//=========================================================================================

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();