مطلوب لو تكرمت معادلة نموذج الهارمونك abcd للايمي بروكر

المشاركة الأصلية كتبت بواسطة sosn

تفضل



// gartley 222 pattern indi***or plot
//
// ported by daniel ervi from code originally posted for wealth-lab by mark conway.
// based on the august 2003 article in active trader magazine.
//
// usage: Gartley222(vpfactor, tolerance, lookback)
// vpfactor adjusts swing size percentage (zig zag)
// tolerance adjusts percentage tolerance from ideal pattern specifi***ion
// lookback adjusts volatility calculation
_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() );
plot( c, "close", paramcolor("color", colorblack), paramstyle("styel",stylecandle,stylecandle|stylebar|stylethick));
_section_end();
_section_begin("gartley color");
bullishco1 = paramcolor("bullish-1", colorblue);
bullishco2 = paramcolor("bullish-2", colordarkblue);
bearishco1 = paramcolor("bearish-1", colorred);
bearishco2 = paramcolor("bearish-2", colordarkred);
_section_end();
procedure gartley222(vpfactor, tolerance, lookback)
{
f1 = 0.618;
f2 = 0.786;
f3 = 1.27;
f4 = 1.618;
// setup volatility adjusted reversal array
vp = 100 * atr(lookback) / close;
reversal = int(vpfactor * vp);
bar = barcount-param("no of bars",100,20,1000,10); //no of bars selected by user
if (barcount < 100)
{
bar = 0;
}
// for(bar = 50; bar < barcount; bar++)
for(bar; bar < barcount; bar++)
{
// build peak and trough arrays
p1 = peak(high, reversal[bar]);
p1bar = bar - peakbars(high, reversal[bar]);
p2 = peak(high, reversal[bar], 2);
p2bar = bar - peakbars(high, reversal[bar], 2);
t1 = trough(low, reversal[bar]);
t1bar = bar - troughbars(low, reversal[bar]);
t2 = trough(low, reversal[bar], 2);
t2bar = bar - troughbars(low, reversal[bar], 2);
// test for a bullish 222
// trough x is t2
// peak a is p2
// trough b is t1
// peak c is p1
// d is the buy point
d = low[bar];
ptvalid = (p1bar[bar] > t1bar[bar]) and (t1bar[bar] > p2bar[bar]) and (p2bar[bar] > t2bar[bar]);
hlvalid = (p1[bar] < p2[bar]) and (t1[bar] > t2[bar]) and (p1[bar] > t1[bar]);
inzone = (d < t1[bar]) and (d > t2[bar]);
if(ptvalid and hlvalid and inzone)
{
xa = p2[bar] - t2[bar];
ab = p2[bar] - t1[bar];
bc = p1[bar] - t1[bar];
cd = p1[bar] - d;
ad = p2[bar] - d;
abdxa = ab / xa; // ab should be 61.8% of xa
c1 = (abdxa > f1 - tolerance) and (abdxa < f1 + tolerance);
bcdab = bc / ab; // bc should be 61.8-78.6% of ab
c2 = (bcdab > f1 - tolerance) and (bcdab < f2 + tolerance);
cddbc = cd / bc; // cd should be 127-161.8% of bc}
c3 = (cddbc > f3 - tolerance) and (cddbc < f4 + tolerance);
addxa = ad / xa; // ad should be 78.6% of xa}
c4 = (addxa > f2 - tolerance) and (addxa < f2 + tolerance);
if(c1 and c2 and c3 and c4)
{
// bullish gartley found. Draw pattern.
Plotxa = linearray(t2bar[bar], t2[bar], p2bar[bar], p2[bar]);
plot(plotxa, "", bullishco1, styleline + stylethick);
plotab = linearray(p2bar[bar], p2[bar], t1bar[bar], t1[bar]);
plot(plotab, "", bullishco1, styleline + stylethick);
plotbc = linearray(t1bar[bar], t1[bar], p1bar[bar], p1[bar]);
plot(plotbc, "", bullishco1, styleline + stylethick);
plotcd = linearray(p1bar[bar], p1[bar], bar, d);
plot(plotcd, "", bullishco1, styleline + stylethick);
plotbd = linearray(t1bar[bar], t1[bar], bar, d);
plot(plotbd, "", bullishco2, styleswingdots );
plotxd = linearray(t2bar[bar], t2[bar], bar, d);
plot(plotxd, "", bullishco2, styleswingdots );
plotxb = linearray(t2bar[bar], t2[bar], t1bar[bar], t1[bar]);
plot(plotxb, "", bullishco2, styleswingdots );
}
}
// test for a bearish 222
// peak x is p2
// trough a is t2
// peak b is p1
// trough c is t1
// d is the buy point
d = high[bar];
ptvalid = (t1bar[bar] > p1bar[bar]) and (p1bar[bar] > t2bar[bar]) and (t2bar[bar] > p2bar[bar]);
hlvalid = (t1[bar] > t2[bar]) and (p1[bar] < p2[bar]) and (t1[bar] < p1[bar]);
inzone = (d > p1[bar]) and (d < p2[bar]);
if(ptvalid and hlvalid and inzone)
{
xa = p2[bar] - t2[bar];
ab = p1[bar] - t2[bar];
bc = p1[bar] - t1[bar];
cd = d - t1[bar];
ad = d - t2[bar];
abdxa = ab / xa; // ab should be 61.8% of xa
c1 = (abdxa > f1 - tolerance) and (abdxa < f1 + tolerance);
bcdab = bc / ab; // bc should be 61.8-78.6% of ab
c2 = (bcdab > f1 - tolerance) and (bcdab < f2 + tolerance);
cddbc = cd / bc; // cd should be 127-161.8% of bc}
c3 = (cddbc > f3 - tolerance) and (cddbc < f4 + tolerance);
addxa = ad / xa; // ad should be 78.6% of xa}
c4 = (addxa > f2 - tolerance) and (addxa < f2 + tolerance);
if(c1 and c2 and c3 and c4)
{
// bearish gartley found. Draw pattern.
Plotxa = linearray(p2bar[bar], p2[bar], t2bar[bar], t2[bar]);
plot(plotxa, "", bearishco1, styleline + stylethick);
plotab = linearray(t2bar[bar], t2[bar], p1bar[bar], p1[bar]);
plot(plotab, "", bearishco1, styleline + stylethick);
plotbc = linearray(p1bar[bar], p1[bar], t1bar[bar], t1[bar]);
plot(plotbc, "", bearishco1, styleline + stylethick);
plotcd = linearray(t1bar[bar], t1[bar], bar, d);
plot(plotcd, "", bearishco1, styleline + stylethick);
plotbd = linearray(p1bar[bar], p1[bar], bar, d);
plot(plotbd, "", bearishco2, styleswingdots );
plotxd = linearray(p2bar[bar], p2[bar], bar, d);
plot(plotxd, "", bearishco2, styleswingdots );
plotxb = linearray(p2bar[bar], p2[bar], p1bar[bar], p1[bar]);
plot(plotxb, "", bearishco2, styleswingdots );
}
}
}
}
gartley222(1.0, 0.3, 2);