Modify Heiken Ashi Candle With Auto Support Resistance - Amibroker AFL

Modify Heiken Ashi Candle With Auto Support Resistance AFL

Modify Heiken Ashi Candle With Auto Support Resistance base on the concept of Heiken Ashi Candle and Support Resistance theory. You will get all indicator together for your trading platform.

The intelligent investor use this afl for forex scalping strategy consistently. Investor psychology about scalping forex fully catch out by this system. Convert usd to euro, usd zar exchange rate, Canadian dollar to euro, Australian dollar vs euro and euro yen exchange rate – why not learn forex trading with this Afl.

Stock or Forex market or any any exchange has its own trading chart. Candlestick chart is one of the most popular and effective chart for trading. Actually Candlestick chart determine the market demand and supply. On this seances market analyst also fine out the another chart which is called Heikin Ashi Chart. Its just modify candle formulas but very effective from normal candle chart.

Modify Heiken Ashi Candle With Auto Support Resistance has use Heiken Ashi chart, Support & Resistance line. In Heiken Ashi chart we modify its candle color with three color. white color means neutral candle where red candle means bearish candle. Also green candle means bullish candle.

After white candle if there will come bearish than its tell you to sell out. opposite direction its buy signal. In other hand Support & Resistance line focus you the position level. By using the Amibroker AFL you may increase your portfolio money.

You may use this system also for Forex Trading : Heiken Ashi Scalping Strategy

Here is the Image of AFL [amibroker formula language].

HERE IS AMIBROKER AFL CODE

//------------------------------------------------------------------------------
//  Formula Name	:      Modify Heiken Ashi Candle With Auto Support Resistance by pipschart
//  Author		:      KrT group
//  Uploader	        :      www.pipschart.com
//  E-mail		:      info@pipschart.com
//  Amibroker Blog	:      www.pipschart.com/amibroker
//  Origin		:      Modified & Collected from different sources.
//------------------------------------------------------------------------------

_SECTION_BEGIN(" KrT group Logo");
GfxSetBkMode(1);
X=750;
Y=1;
Font=10;
GfxSelectFont("Impact",Font*2.2, 550);GfxSetTextColor(colorRed);GfxTextOut("KrT group",x,y);
GfxSelectFont("Impact",Font*2.2, 550);GfxSetTextColor(colorGreen);GfxTextOut("RESEARCH",x+120,Y);

_SECTION_END();



SetChartOptions(0,chartShowArrows|chartShowDates);

_SECTION_BEGIN("Background_Setting");
SetChartBkGradientFill( ParamColor("BgTop", colorBlack),

ParamColor("BgBottom", colorBlack),ParamColor("titleblock",colorDarkTeal ));
_SECTION_END();


_SECTION_BEGIN("Flower");
Prd1=Param("ATR Period",4,1,20,1);
Prd2=Param("Look Back",7,1,20,1);
green = HHV(LLV(L,Prd1)+ATR(Prd1),Prd2);
red = LLV(HHV(H,Prd1)-ATR(Prd1),Prd2);
flowerClose = EMA((Open+High+Low+Close)/4,3) ;
flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);
Temp = Max(High, flowerOpen);
flowerHigh = EMA(Max(Temp, flowerClose),3);
Temp = Min(Low,flowerOpen);
flowerLow = EMA(Min(Temp, flowerClose),3);
barColor=IIf(C>Green ,colorBrightGreen,IIf(C < RED,colorRed,colorWhite));
PlotOHLC( IIf(flowerOpen<flowerClose, flowerOpen, flowerClose),flowerHigh,flowerLow,IIf(flowerOpen<flowerClose, 

flowerClose, flowerOpen), "Close", barColor, styleNoTitle | styleCandle);


_SECTION_END();

_SECTION_BEGIN("OsSetting");

OBSetting=Param("Setting",45,1,500,1);
Bline = StochD(OBSetting);
Oversold=Bline<=30;
Overbought=Bline>=85;


PlotShapes (IIf(Oversold, shapeSmallCircle, shapeNone) ,colorDarkGrey, layer = 0, yposition = flowerLow, offset = -8 );
PlotShapes (IIf(Overbought, shapeSmallCircle, shapeNone) ,colorPlum, layer = 0, yposition = flowerHigh, offset = 7 );
_SECTION_END();

_SECTION_BEGIN("Parameters");
LB1= Param("Long LookBack Periods",42,1,60,1);
LB3= Param("Mid LookBack Periods",18,1,30,1);
LB2= Param("Short LookBack Periods",6,1,30,1);

_SECTION_END();


_SECTION_BEGIN("ResistanceLong");

RsColor=ParamColor("LongResColor",colorOrange);
BrCount=Param("LongBarLength",65,1,500,1);
for (i=0;i<BarCount-BrCount;i++) //hide the line except most recent 10 bars
{
	RsColor[i] = colorBlack;
}

flowerClose = EMA((Open+High+Low+Close)/4,3) ;
flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);
Temp = Max(High, flowerOpen);
flowerHigh = EMA(Max(Temp, flowerClose),3);
Temp = Min(Low,flowerOpen);
flowerLow = EMA(Min(Temp, flowerClose),3);

R=ValueWhen(Cross(MA(flowerClose,LB1),C),HHV(flowerHigh,LB1),-1);
Plot(R,"Resistance",RsColor,ParamStyle("LongResStyle",styleNoTitle|styleLine|styleDots|styleStaircase|styleThick,maskAll));
_SECTION_END();

_SECTION_BEGIN("ResistanceMid");
Rs3Color=ParamColor("MidResColor",colorCustom4);
BrCount3=Param("MidBarLength",40,1,500,1);
for (i=0;i<BarCount-BrCount3;i++) //hide the line except most recent 10 bars
{
	Rs3Color[i] =colorBlack;
}

flowerClose = EMA((Open+High+Low+Close)/4,3) ;
flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);
Temp = Max(High, flowerOpen);
flowerHigh = EMA(Max(Temp, flowerClose),3);
Temp = Min(Low,flowerOpen);
flowerLow = EMA(Min(Temp, flowerClose),3);

RM2=ValueWhen(Cross(EMA(flowerClose,LB3),C),HHV(flowerHigh,LB3),-1);
Plot(RM2,"MidRes",Rs3Color,ParamStyle("MidResStyle",styleLine|styleStaircase|styleNoTitle,maskAll));
_SECTION_END();

_SECTION_BEGIN("ResistanceShort");
Rs2Color=ParamColor("ShortResColor",colorCustom12);
BrCount2=Param("ShortResLength",12,1,500,1);
for (i=0;i<BarCount-BrCount2;i++) //hide the line except most recent 10 bars
{
	Rs2Color[i] = colorBlack;
}

flowerClose = EMA((Open+High+Low+Close)/4,3) ;
flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);
Temp = Max(High, flowerOpen);
flowerHigh = EMA(Max(Temp, flowerClose),3);
Temp = Min(Low,flowerOpen);
flowerLow = EMA(Min(Temp, flowerClose),3);

RM=ValueWhen(Cross(TEMA(flowerClose,LB2),C),HHV(flowerHigh,LB2),-1);
Plot(RM,"ShortRes",Rs2Color,ParamStyle("ShortResStyle",styleDashed|styleThick|styleNoTitle|styleStaircase,maskAll));
_SECTION_END();

_SECTION_BEGIN("SupportLong");
Sup1Color=ParamColor("LongSupColor",colorBlue);
BrCount4=Param("LongSupBarLength",65,1,500,1);
for (i=0;i<BarCount-BrCount4;i++) //hide the line except most recent 10 bars
{
	Sup1Color[i] =colorBlack;
}

flowerClose = EMA((Open+High+Low+Close)/4,3) ;
flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);
Temp = Max(High, flowerOpen);
flowerHigh = EMA(Max(Temp, flowerClose),3);
Temp = Min(Low,flowerOpen);
flowerLow = EMA(Min(Temp, flowerClose),3);

S=ValueWhen(Cross(MA(flowerClose,LB1),C),LLV(flowerLow,LB1),-1);
Plot(s,"Support",Sup1Color,ParamStyle("SupStyle",styleLine|styleDots|styleStaircase|styleThick|styleNoTitle,maskAll));
_SECTION_END();

_SECTION_BEGIN("SupportMid");
Sup3Color=ParamColor("MidSupColor",colorDarkYellow);
BrCount6=Param("MidBarLength",40,1,500,1);
for (i=0;i<BarCount-BrCount6;i++) //hide the line except most recent 10 bars
{
	Sup3Color[i] =colorBlack;
}

flowerClose = EMA((Open+High+Low+Close)/4,3) ;
flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);
Temp = Max(High, flowerOpen);
flowerHigh = EMA(Max(Temp, flowerClose),3);
Temp = Min(Low,flowerOpen);
flowerLow = EMA(Min(Temp, flowerClose),3);

SM2=ValueWhen(Cross(EMA(flowerClose,LB3),C),LLV(flowerLow,LB3),-1);
Plot(SM2,"MidSup",Sup3Color,ParamStyle("MidSupStyle",styleLine|styleStaircase|styleNoTitle,maskAll));
_SECTION_END();

_SECTION_BEGIN("SupportShort");
Sup2Color=ParamColor("ShortSupColor",colorPink);
BrCount5=Param("ShortSupBarLength",12,1,500,1);
for (i=0;i<BarCount-BrCount5;i++) //hide the line except most recent 10 bars
{
	Sup2Color[i] =colorBlack;
}


flowerClose = EMA((Open+High+Low+Close)/4,3) ;
flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);
Temp = Max(High, flowerOpen);
flowerHigh = EMA(Max(Temp, flowerClose),3);
Temp = Min(Low,flowerOpen);
flowerLow = EMA(Min(Temp, flowerClose),3);

SM=ValueWhen(Cross(TEMA(flowerClose,LB2),C),LLV(flowerLow,LB2),-1);
Plot(SM,"ShortSup",Sup2Color,ParamStyle("ShortSupStyle",styleDashed|styleThick|styleNoTitle|styleStaircase,maskAll));
_SECTION_END();

_SECTION_BEGIN("Cloud Setting");
//Cloud
ParmCloud = ParamToggle("Cloud", "No|Yes", 0);

CloudResColor=ParamColor("CloudResColor",colorDarkTeal);
BrCount7=Param("CloudResLength",15,1,500,1);
for (i=0;i<BarCount-BrCount7;i++) //hide the line except most recent 10 bars
{
	CloudResColor[i] = colorBlack;
}

flowerClose = EMA((Open+High+Low+Close)/4,3) ;
flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);
Temp = Max(High, flowerOpen);
flowerHigh = EMA(Max(Temp, flowerClose),3);
Temp = Min(Low,flowerOpen);
flowerLow = EMA(Min(Temp, flowerClose),3);

CS=ValueWhen(Cross(WMA(flowerClose,LB2),C),LLV(flowerLow,LB2),-1);
CR=ValueWhen(Cross(WMA(flowerClose,LB2),C),HHV(flowerHigh,LB2),-1);


if(parmCloud == 1)
{
	PlotOHLC( CS, CS, CR,CR, "Band", CloudResColor, styleCloud | styleNoLabel|styleNoTitle); 
}

_SECTION_END();

Title = StrFormat("\c02 {{NAME}} | {{DATE}} | Open : %g | High : %g | Low : %g | Close : %g | Change = %.1f%% | Volume = 

" +WriteVal( V, 1.0 ) +", {{VALUES}}",
O, H, L, C, SelectedValue( ROC( C, 1 )) );

_SECTION_BEGIN("Graphics");
GrpPrm=Param("Graphic Space",1,-5,10);
GraphXSpace=GrpPrm;
_SECTION_END();

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

//------------------------------------------------------------------------------

// Formula Name : Modify Heiken Ashi Candle With Auto Support Resistance by pipschart

// Author : KrT group

// Uploader : www.pipschart.com

// E-mail : info@pipschart.com

// Amibroker Blog : www.pipschart.com/amibroker

// Origin : Modified & Collected from different sources.

//------------------------------------------------------------------------------

_SECTION_BEGIN(" KrT group Logo");

GfxSetBkMode(1);

X=750;

Y=1;

Font=10;

GfxSelectFont("Impact",Font*2.2, 550);GfxSetTextColor(colorRed);GfxTextOut("KrT group",x,y);

GfxSelectFont("Impact",Font*2.2, 550);GfxSetTextColor(colorGreen);GfxTextOut("RESEARCH",x+120,Y);

_SECTION_END();

SetChartOptions(0,chartShowArrows|chartShowDates);

_SECTION_BEGIN("Background_Setting");

SetChartBkGradientFill( ParamColor("BgTop", colorBlack),

ParamColor("BgBottom", colorBlack),ParamColor("titleblock",colorDarkTeal ));

_SECTION_END();

_SECTION_BEGIN("Flower");

Prd1=Param("ATR Period",4,1,20,1);

Prd2=Param("Look Back",7,1,20,1);

green = HHV(LLV(L,Prd1)+ATR(Prd1),Prd2);

red = LLV(HHV(H,Prd1)-ATR(Prd1),Prd2);

flowerClose = EMA((Open+High+Low+Close)/4,3) ;

flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);

Temp = Max(High, flowerOpen);

flowerHigh = EMA(Max(Temp, flowerClose),3);

Temp = Min(Low,flowerOpen);

flowerLow = EMA(Min(Temp, flowerClose),3);

barColor=IIf(C>Green ,colorBrightGreen,IIf(C < RED,colorRed,colorWhite));

PlotOHLC( IIf(flowerOpen<flowerClose, flowerOpen, flowerClose),flowerHigh,flowerLow,IIf(flowerOpen<flowerClose,

flowerClose, flowerOpen), "Close", barColor, styleNoTitle | styleCandle);

_SECTION_END();

_SECTION_BEGIN("OsSetting");

OBSetting=Param("Setting",45,1,500,1);

Bline = StochD(OBSetting);

Oversold=Bline<=30;

Overbought=Bline>=85;

PlotShapes (IIf(Oversold, shapeSmallCircle, shapeNone) ,colorDarkGrey, layer = 0, yposition = flowerLow, offset = -8 );

PlotShapes (IIf(Overbought, shapeSmallCircle, shapeNone) ,colorPlum, layer = 0, yposition = flowerHigh, offset = 7 );

_SECTION_END();

_SECTION_BEGIN("Parameters");

LB1= Param("Long LookBack Periods",42,1,60,1);

LB3= Param("Mid LookBack Periods",18,1,30,1);

LB2= Param("Short LookBack Periods",6,1,30,1);

_SECTION_END();

_SECTION_BEGIN("ResistanceLong");

RsColor=ParamColor("LongResColor",colorOrange);

BrCount=Param("LongBarLength",65,1,500,1);

for (i=0;i<BarCount-BrCount;i++) //hide the line except most recent 10 bars

{

RsColor[i] = colorBlack;

}

flowerClose = EMA((Open+High+Low+Close)/4,3) ;

flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);

Temp = Max(High, flowerOpen);

flowerHigh = EMA(Max(Temp, flowerClose),3);

Temp = Min(Low,flowerOpen);

flowerLow = EMA(Min(Temp, flowerClose),3);

R=ValueWhen(Cross(MA(flowerClose,LB1),C),HHV(flowerHigh,LB1),-1);

Plot(R,"Resistance",RsColor,ParamStyle("LongResStyle",styleNoTitle|styleLine|styleDots|styleStaircase|styleThick,maskAll));

_SECTION_END();

_SECTION_BEGIN("ResistanceMid");

Rs3Color=ParamColor("MidResColor",colorCustom4);

BrCount3=Param("MidBarLength",40,1,500,1);

for (i=0;i<BarCount-BrCount3;i++) //hide the line except most recent 10 bars

{

Rs3Color[i] =colorBlack;

}

flowerClose = EMA((Open+High+Low+Close)/4,3) ;

flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);

Temp = Max(High, flowerOpen);

flowerHigh = EMA(Max(Temp, flowerClose),3);

Temp = Min(Low,flowerOpen);

flowerLow = EMA(Min(Temp, flowerClose),3);

RM2=ValueWhen(Cross(EMA(flowerClose,LB3),C),HHV(flowerHigh,LB3),-1);

Plot(RM2,"MidRes",Rs3Color,ParamStyle("MidResStyle",styleLine|styleStaircase|styleNoTitle,maskAll));

_SECTION_END();

_SECTION_BEGIN("ResistanceShort");

Rs2Color=ParamColor("ShortResColor",colorCustom12);

BrCount2=Param("ShortResLength",12,1,500,1);

for (i=0;i<BarCount-BrCount2;i++) //hide the line except most recent 10 bars

{

Rs2Color[i] = colorBlack;

}

flowerClose = EMA((Open+High+Low+Close)/4,3) ;

flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);

Temp = Max(High, flowerOpen);

flowerHigh = EMA(Max(Temp, flowerClose),3);

Temp = Min(Low,flowerOpen);

flowerLow = EMA(Min(Temp, flowerClose),3);

RM=ValueWhen(Cross(TEMA(flowerClose,LB2),C),HHV(flowerHigh,LB2),-1);

Plot(RM,"ShortRes",Rs2Color,ParamStyle("ShortResStyle",styleDashed|styleThick|styleNoTitle|styleStaircase,maskAll));

_SECTION_END();

_SECTION_BEGIN("SupportLong");

Sup1Color=ParamColor("LongSupColor",colorBlue);

BrCount4=Param("LongSupBarLength",65,1,500,1);

for (i=0;i<BarCount-BrCount4;i++) //hide the line except most recent 10 bars

{

Sup1Color[i] =colorBlack;

}

flowerClose = EMA((Open+High+Low+Close)/4,3) ;

flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);

Temp = Max(High, flowerOpen);

flowerHigh = EMA(Max(Temp, flowerClose),3);

Temp = Min(Low,flowerOpen);

flowerLow = EMA(Min(Temp, flowerClose),3);

S=ValueWhen(Cross(MA(flowerClose,LB1),C),LLV(flowerLow,LB1),-1);

Plot(s,"Support",Sup1Color,ParamStyle("SupStyle",styleLine|styleDots|styleStaircase|styleThick|styleNoTitle,maskAll));

_SECTION_END();

_SECTION_BEGIN("SupportMid");

Sup3Color=ParamColor("MidSupColor",colorDarkYellow);

BrCount6=Param("MidBarLength",40,1,500,1);

for (i=0;i<BarCount-BrCount6;i++) //hide the line except most recent 10 bars

{

Sup3Color[i] =colorBlack;

}

flowerClose = EMA((Open+High+Low+Close)/4,3) ;

flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);

Temp = Max(High, flowerOpen);

flowerHigh = EMA(Max(Temp, flowerClose),3);

Temp = Min(Low,flowerOpen);

flowerLow = EMA(Min(Temp, flowerClose),3);

SM2=ValueWhen(Cross(EMA(flowerClose,LB3),C),LLV(flowerLow,LB3),-1);

Plot(SM2,"MidSup",Sup3Color,ParamStyle("MidSupStyle",styleLine|styleStaircase|styleNoTitle,maskAll));

_SECTION_END();

_SECTION_BEGIN("SupportShort");

Sup2Color=ParamColor("ShortSupColor",colorPink);

BrCount5=Param("ShortSupBarLength",12,1,500,1);

for (i=0;i<BarCount-BrCount5;i++) //hide the line except most recent 10 bars

{

Sup2Color[i] =colorBlack;

}

flowerClose = EMA((Open+High+Low+Close)/4,3) ;

flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);

Temp = Max(High, flowerOpen);

flowerHigh = EMA(Max(Temp, flowerClose),3);

Temp = Min(Low,flowerOpen);

flowerLow = EMA(Min(Temp, flowerClose),3);

SM=ValueWhen(Cross(TEMA(flowerClose,LB2),C),LLV(flowerLow,LB2),-1);

Plot(SM,"ShortSup",Sup2Color,ParamStyle("ShortSupStyle",styleDashed|styleThick|styleNoTitle|styleStaircase,maskAll));

_SECTION_END();

_SECTION_BEGIN("Cloud Setting");

//Cloud

ParmCloud = ParamToggle("Cloud", "No|Yes", 0);

CloudResColor=ParamColor("CloudResColor",colorDarkTeal);

BrCount7=Param("CloudResLength",15,1,500,1);

for (i=0;i<BarCount-BrCount7;i++) //hide the line except most recent 10 bars

{

CloudResColor[i] = colorBlack;

}

flowerClose = EMA((Open+High+Low+Close)/4,3) ;

flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);

Temp = Max(High, flowerOpen);

flowerHigh = EMA(Max(Temp, flowerClose),3);

Temp = Min(Low,flowerOpen);

flowerLow = EMA(Min(Temp, flowerClose),3);

CS=ValueWhen(Cross(WMA(flowerClose,LB2),C),LLV(flowerLow,LB2),-1);

CR=ValueWhen(Cross(WMA(flowerClose,LB2),C),HHV(flowerHigh,LB2),-1);

if(parmCloud == 1)

{

PlotOHLC( CS, CS, CR,CR, "Band", CloudResColor, styleCloud | styleNoLabel|styleNoTitle);

}

_SECTION_END();

Title = StrFormat("\c02 {{NAME}} | {{DATE}} | Open : %g | High : %g | Low : %g | Close : %g | Change = %.1f%% | Volume =

" +WriteVal( V, 1.0 ) +", {{VALUES}}",

O, H, L, C, SelectedValue( ROC( C, 1 )) );

_SECTION_BEGIN("Graphics");

GrpPrm=Param("Graphic Space",1,-5,10);

GraphXSpace=GrpPrm;

_SECTION_END();

Download AFL

How to use Amibroker AFL

Download the Modify Heiken Ashi Candle With Auto Support Resistance for Amibroker AFL.
Now copy the afl file and paste it to \Program Files\AmiBroker\Formulas\Custom. [For 32 bit]
If You have 64 bit operating system than paste it to \Program Files(x86)\AmiBroker\Formulas\Custom.
Go to formula section of Amibroker and you will get the afl in Custom folder.

pipschart

Making Profit Fast With Forex Market

Modify Heiken Ashi Candle With Auto Support Resistance – Amibroker AFL

Modify Heiken Ashi Candle With Auto Support Resistance AFL

Here is the Image of AFL [amibroker formula language].

HERE IS AMIBROKER AFL CODE

Download AFL

How to use Amibroker AFL

Don’t Know How To Set Amibroker? If not than Just Watch.

One thought on “Modify Heiken Ashi Candle With Auto Support Resistance – Amibroker AFL”

Leave a Reply Cancel reply