Price Projection by Gann ( Murray Math lines) for Amibroker (AFL)
Hellow, I have come across this AFL while searching to find out AFL for deciding on targets.
Normally o used to look at fibanacci for targets, but its high laborios.
This is one based Gann philosophy, looks good as not required to draw kines manually as in the case of fibanacci.
http://www.tradewithme.me/trading-systems-iv—murray-maths.html
Tags: amibroker, exploration, pattern
Submitted by kv_maligi about 1 year ago
Submitted by kv_maligi about 1 year ago
Similar Formulas
Formula
//http://www.tradewithme.me/uploads/7/9/9/5/7995199/murray_maths_with_patterns_modified_intraday.afl
//Credit for the Octave logic goes to Jacek below
//All other features developed by Abnash Singh 6-11-2011
// abnash1978@yahoo.co.uk
// 13/11/2011 Added S/R levels in the title line along with High and low
//------------------------------------------------------------------------------
//
// Formula Name: MURREY MATH LINES Formula
// Author/Uploader: Jacek
// E-mail:
// Date/Time Added: 2006-02-18 14:21:45
// Origin:
// Keywords: MURREY MATH
// Level: medium
// Flags: indicator
// Formula URL: http://www.amibroker.com/library/formula.php?id=588
// Details URL: http://www.amibroker.com/library/detail.php?id=588
//
//------------------------------------------------------------------------------
//
// Murrey Math Horizontal Lines.
//
// Use Parameter function to adjust Time Frame.
//
// Enjoy !
//
//------------------------------------------------------------------------------
/* MURREY MATH HORIZONTAL LINES Formula for Amibroker
based on Excel spreadsheet by Jacek */
//Plot(C,"CLose",colorWhite,styleCandle);
//GraphXSpace=1; MaxGraph=12;
function splround(x)
{
y=int(x)+round(x%int(x)*100)/100;
return y;
}
up=Study("UP",GetChartID());
dm=Study("DN",GetChartID());
Color=IIf(C>O,colorGreen,colorRed);
//Graph0=Close; Graph0Color=1; Graph0Style=64;
//Plot(C,"close",color,styleBar);
// Colored bars starts
_SECTION_BEGIN("Carl_ASC");
function PercentR( periods )
{
return -100 * ( HHV( H, periods ) - C )/( HHV( H, periods ) - LLV( L, periods ) );
}
periods= Param("periodes",14,1,100,1);
PR=PercentR( periods );
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", IIf(pr>-50,colorBlue,colorRed), styleBar| styleThick|styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
//if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )
//{
//ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));
//}
_SECTION_END();
// Colored bars ends
Period=Param("MM_Period", 32, 4, 256, 1) ;
TYpe=ParamList("Rolling/Intraday","Rolling|Intraday") ;
PER = Period;
dn=DateNum();
tn=TimeNum();
Lox=Hix=0;
Lox = LLV(Min(H,L),PER ) ;
Hix = HHV(Max(H,L),PER ) ;
avp=(O+C)/2;
Line0=Line1=Line2=Line3=Line4=Line5=Line6=Line7=Line8=Lineplus2=Lineminus2=0;
Lo=L[0];Hi=H[0];
for (i=0;i<BarCount;i++)
{
//if (i>0 AND i<BarCount)PlotText(WriteVal(dm[i],1.0),i,L[i]-15,colorWhite);
if (Type=="Intraday")
{
if(I>1)
{
if(dn[i]!=dn[i-1])
{
Lo=L[i];
Hi=H[i];
}
}
if (L[i]<Lo)Lo=L[i];
if (H[i]>Hi)Hi=H[i];
}
else if (type=="Rolling")
{
Hi=Hix[i];
Lo=Lox[i];
}
if (up[i]>hi)Hi=up[i];
if (dm[i]<lo)Lo=dm[i];
//PlotText(WriteVal(Lo,1.0),colorWhite,i,H[i]+15);
Fractal = IIf(Hi<=250,100, IIf(Hi<=2500,1000, IIf(Hi<=25000,10000, IIf(Hi<=250000,100000, 0 )))) ;
int_Log = int( log(Fractal/(Hi-Lo))/log(2) ) ;
Oct = Fractal * ( exp(ln(1/2)* int_Log ) ) ;
Min_1 = int( Lo / Oct ) * Oct ;
Max_1 = IIf( (Min_1 + Oct) > Hi, Min_1 + Oct, Min_1 + 2*Oct ) ;
Min_2 = IIf( (Min_1 + 1/8*(Max_1-Min_1)) <= Lo AND Hi <= (Max_1 - 1/8*(Max_1-Min_1)) ,
(Min_1 + 1/4*(Max_1-Min_1)) , Min_1 ) ;
Max_2 = IIf( (Min_1 + 1/8*(Max_1-Min_1)) <= Lo AND Hi <= (Max_1 - 1/8*(Max_1-Min_1)) ,
(Max_1 - 1/4*(Max_1-Min_1)) , Max_1 ) ;
/******************************/
Diff = Max_2 - Min_2 ;
H1 = IIf( (Min_2 + 3/16*Diff) <= Lo AND Hi <= (9/16*Diff + Min_2) ,
Min_2 + 1/2*Diff, 0) ;
H2 = IIf( (Min_2 - 1/8*Diff) <= Lo AND Hi <= (5/8*Diff + Min_2) AND H1==0,
Min_2 + 1/2*Diff, 0) ;
H3 = IIf( (Min_2 + 7/16*Diff) <= Lo AND Hi <= (Min_2 + 13/16*Diff), Min_2 + 3/4*Diff, 0 ) ;
H4 = IIf( (Min_2 + 3/8*Diff) <= Lo AND Hi <= (Min_2 + 9/8*Diff) AND H3==0,
Max_2, 0 ) ;
H5 = IIf( (Min_2 + 1/8*Diff)<=Lo AND Hi <= (Min_2 + 7/8*Diff) AND H1==0 AND H2==0 AND H3==0 AND H4==0,
Min_2 + 3/4*Diff , 0 ) ;
H6 = IIf( ( H1 + H2 + H3 + H4 + H5 ) == 0, Max_2, 0 ) ;
/**************************/
L1 = IIf(H1>0, Min_2 + 1/4*Diff, 0) ;
L2 = IIf(H2>0, Min_2, 0) ;
L3 = IIf(H3>0, Min_2 + 1/2*Diff, 0) ;
L4 = IIf(H4>0, Min_2 + 1/2*Diff, 0) ;
L5 = IIf(H5>0, Min_2 + 1/4*Diff, 0) ;
L6 = IIf(H6>0, Min_2, 0 ) ;
M_8 = ( H1 + H2 + H3 + H4 + H5 + H6 ) ;
M_0 = ( L1 + L2 + L3 + L4 + L5 + L6 ) ;
/**************************************/
Line0[i] = M_0 ;
Line1[i] = M_0 + (1*(0.125*(M_8-M_0)));
Line2[i] = M_0 + (2*(0.125*(M_8-M_0)));
Line3[i] = M_0 + (3*(0.125*(M_8-M_0)));
Line4[i] = M_0 + (4*(0.125*(M_8-M_0)));
Line5[i] = M_0 + (5*(0.125*(M_8-M_0)));
Line6[i] = M_0 + (6*(0.125*(M_8-M_0)));
Line7[i] = M_0 + (7*(0.125*(M_8-M_0)));
Line8[i] = M_8 ;
Lineplus2[i] = M_8 + (2*(0.125*(M_8-M_0)));
Lineminus2[i] = M_0 - (2*(0.125*(M_8-M_0)));
}
Plot(Line0,"Line0",6,styleLine);//0/8
Plot(Line1,"Line1",7,styleLine);//1/8
Plot(Line2,"Line2",4,styleLine);//2/8
Plot(Line3,"Line3",5,styleLine|styleDashed);//3/8
Plot(Line4,"Line4",6,styleLine);//4/8
Plot(Line5,"Line5",5,styleLine|styleDashed);//5/8
Plot(Line6,"Line6",4,styleLine);//6/8
Plot(Line7,"Line7",7,styleLine);//7/8
Plot(Line8,"Line8",6,styleLine);//8/8
Plot(Lineplus2,"Lineplus2",4,styleLine);//+2/8
Plot(Lineminus2,"Lineminus2",4,styleLine);//-2/8
/**************************************************************/
Title = Date()+" Murray Maths "+ Interval(format=2)+" "+Name()+" O "+WriteVal(O,1.2)+" H "+WriteVal(H,1.2)+" L "+WriteVal(L,1.2)+" C "+
WriteVal(C,1.2)+" "+EncodeColor(colorYellow)+" Dayhigh " +WriteVal(Hi,1.2)+" Daylow "+WriteVal(Lo,1.2)
+"\n"+EncodeColor(colorGreen)+"Upper Breakout "+EncodeColor(colorRed)+WriteVal(Lineplus2,1.2)+EncodeColor(colorGreen)
+" Resistance 8/8 "+EncodeColor(colorBlue)+WriteVal(Line8,1.2)+EncodeColor(colorGreen)+" Reversal 7/8 "+EncodeColor(colorYellow)
+WriteVal(Line7,1.2)
+"\n"+EncodeColor(colorYellow)+"Middle S/R 4/8 "+EncodeColor(colorBlue)+WriteVal(Line4,1.2)
+"\n"+EncodeColor(colorRed)+"Lower Breakout "+EncodeColor(colorRed)+WriteVal(Lineminus2,1.2)+EncodeColor(colorRed)+" Support 0/8 "
+EncodeColor(colorBlue)+WriteVal(Line0,1.2)+EncodeColor(colorRed)+" Reversal 1/8 "+EncodeColor(colorYellow)+WriteVal(Line1,1.2);
/*
Title = Name()
+ "=" + WriteIf( round(C)== C, NumToStr(C,1) , WriteVal(C) ) + " " + "\\c17"
+ WriteIf( Interval()==86400, "Daily ", WriteIf(Interval()==3600,"Hourly ",
WriteIf(Interval()==900,"15 Min ", WriteIf(Interval()==300,"5 Min ",
WriteIf(Interval()==60,"1 Min ", "" ) ) ) ) )
+ Date() + "\\c12" + WriteIf(Volume>0," Turnover=","")
+ WriteIf(Volume>0, WriteVal(Volume*Close/1000), "" ) ;
*/
Filter = 1 ;
AddColumn(Lineminus2,"Limit1",1.2);
AddColumn(IIf(C>Lineminus2 AND C<Line0,C,Null),"Close",1.2, Null);
AddColumn(Line0,"Supp1",1.2);
AddColumn(IIf(C>Line0 AND C<Line1,C,Null),"Close",1.2, Null);
AddColumn(Line1,"Reversal1",1.2);
AddColumn(IIf(C>Line1 AND C<Line2,C,Null),"Close",1.2, Null);
AddColumn(Line2,"Trend",1.2);
AddColumn(IIf(C>Line2 AND C<Line3,C,Null),"Close",1.2, Null);
AddColumn(Line3,"Short",1.2);
AddColumn(IIf(C>Line3 AND C<Line4,C,Null),"Close",1.2, Null);
AddColumn(Line4,"Supp/Res",1.2);
AddColumn(IIf(C>Line4 AND C<Line5,C,Null),"Close",1.2, Null);
AddColumn(Line5,"Long",1.2);
AddColumn(IIf(C>Line5 AND C<Line6,C,Null),"Close",1.2, Null);
AddColumn(Line6,"Trend",1.2);
AddColumn(IIf(C>Line6 AND C<Line7,C,Null),"Close",1.2, Null);
AddColumn(Line7,"Reversal2",1.2);
AddColumn(IIf(C>Line7 AND C<Line8,C,Null),"Close",1.2, Null);
AddColumn(Line8,"Res2",1.2);
AddColumn(IIf(C>Line8 AND C<Lineplus2,C,Null),"Close",1.2, Null);
AddColumn(Lineplus2,"Limit2",1.2);
_SECTION_BEGIN("Pattern Recognition");
SetChartOptions(0,chartShowArrows|chartShowDates);
// Plot( C, "Close", ParamColor("Color", colorWhite ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
showpatterns=ParamList("Show Patterns","No|Yes");
ind=0;
O1 = Ref(O,-1);O2 = Ref(O,-2);O3 = Ref(O,-3);O4 = Ref(O,-4);
H1 = Ref(H,-1);H2 = Ref(H,-2);H3 = Ref(H,-3);H4 = Ref(H,-4);
L1 = Ref(L,-1);L2 = Ref(L,-2);L3 = Ref(L,-3);L4 = Ref(L,-4);
C1 = Ref(C,-1);C2 = Ref(C,-2);C3 = Ref(C,-3);C4 = Ref(C,-4);
MA13=MA(C,10);MA134=Ref(MA(C,15),-4);
Plot(MA13,"MA13",colorBlue,styleNoTitle|styleNoLabel);
m=0;n=0;Dayx=0;z=0;
if (showpatterns=="Yes")
{
for (i=1;i<BarCount-1;i++)
{
if (i>2)
{
//bearish doji evening star
if (C2[i]>O2[i]
AND((C2[i]-O2[i])/(.001+H2[i]-L2[i])>.6)
AND (C2[i]<O1[i])
// AND (C1[i]>=O1[i])
AND ((H1[i]-L1[i])>(3*(abs(C1[i]-O1[i]))))
AND (O[i]>C[i]) AND (O[i]<O1[i])
AND MA13[i]-MA134[i]>0)
{
m=i;ind[i]=1;
PlotText("BEARDJEV*",i,H[i]+10,colorRed);
}
//abandoned baby
if (((C1[i] == O1[i])
AND (C2[i]>O2[i]) AND ((C2[i]-O2[i])/(.001+H2[i]-L2[i])>.6)
AND (O[i]>C[i])
AND (L1[i]>H2[i])
AND (L1[i]>H[i]))
AND MA13[i]-MA134[i]>0)
{
m=i;ind[i]=1;
PlotText("ABBABY",i,H[i]+10,colorRed);
}
//Bearish Kicking
if(C[i]<O[i] AND ((O[i]-C[i])/(.001+H[i]-L[i])>.6)
AND (C[i]-L[i]<0.2*(H[i]-L[i])) AND (H[i]-O[i]<0.2*(H[i]-L[i]))
AND C1[i]>O1[i] AND ((C1[i]-O1[i])/(.001+H1[i]-L1[i])>.6)
AND (H1[i]-C1[i]<0.2*(H[i]-L[i])) AND (O1[i]-L1[i]<0.2*(H[i]-L[i]))
AND O[i]<O1[i] )
{
m=i;ind[i]=1;
PlotText("BearKik",i,H[i]+10,colorRed);
}
//Dark Cloud Cover
if(C1[i]>O1[i] AND (C1[i]-O1[i])/(.001+H1[i]-L1[i])>.6
AND (O[i]>C[i])
AND (O[i]>=H1[i]) AND (C[i]>O1[i])
AND (((C1[i]+O1[i])/2)>C[i])
AND (C[i]>O1[i])
AND MA13[i]-MA134[i]>0)
{
m=i;ind[i]=1;
PlotText("DRKCLD",i,H[i]+10,colorRed);
}
//Three black crows
if (C[i]<O[i] AND ((O[i]-C[i])/(.001+H[i]-L[i])>.6)
AND C1[i]<O1[i] AND ((O1[i]-C1[i])/(.001+H1[i]-L1[i])>.6)
AND C2[i]<O2[i] AND ((O2[i]-C2[i])/(.001+H2[i]-L2[i])>.6)
AND (C[i]<C1[i]) AND (C1[i]<C2[i]) AND (O[i]>C1[i])
AND (O[i]<O1[i]) AND (O1[i]>C2[i]) AND (O1[i]<O2[i])
AND (((C[i]-L[i])/(H[i]-L[i]))<.2)
AND (((C1[i]-L1[i])/(H1[i]-L1[i]))<.2)
AND (((C2[i]-L2[i])/(H2[i]-L2[i]))<.2)
AND MA13[i]-MA134[i]>0 )
{
m=i;ind[i]=1;
PlotText("3BLKCROWS",i,H[i]+10,colorRed);
}
//3 Inside down
if ((C2[i]>O2[i]) AND ((C2[i]-O2[i])/(.001+H2[i]-L2[i])>.6)
AND (O1[i]>C1[i])
AND (O1[i]<= C2[i]) AND (O2[i]<= C1[i])
AND ((O1[i]-C1[i])<(C2[i]-O2[i]))
AND (O[i]>C[i])
AND (C[i]<C1[i]) AND (O[i]<O1[i])
AND MA13[i]-MA134[i]>0 )
{
m=i;ind[i]=1;
PlotText("3INSIDEDN",i,H[i]+10,colorRed);
}
//3 Outside down
if (((C2[i]>O2[i])
AND (O1[i]>C1[i]) AND ((O1[i]-C1[i])/(.001+H1[i]-L1[i])>.6)
AND (O1[i]>= C2[i]) AND (O2[i]>= C1[i])
AND ((O1[i]-C1[i])>(C2[i]-O2[i]))
AND (O[i]>C[i]) AND (C[i]<C1[i]))
AND MA13[i]-MA134[i]>0 )
{
m=i;ind[i]=1;
PlotText("3OUTSIDEDN",i,H[i]+10,colorRed);
}
//Bearish upside gap two crows
if (O[i]>C[i] AND O1[i]>C1[i]
AND C1[i]>C[i] AND O1[i]<O[i] AND (O1[i]-C1[i]<O[i]-C[i])
AND (C[i]>C2[i])
AND O1[i]>C2[i] AND C2[i]>O2[i]
AND ((c2[i]-o2[i])/(.001+H2[i]-L2[i])>.6)
AND MA13[i]-MA134[i]>0 )
{
m=i;ind[i]=1;
PlotText("UPSDGAP2CRW",i,H[i]+10,colorRed);
}
//bullish Patterns
//Piercing line
if (((C1[i]<O1[i]) AND ((C2[i]-o2[i])/(.001+H2[i]-L2[i])>.6)
AND (((O1[i]+C1[i])/2)<C[i]) AND (O[i]<C[i]) AND (O[i]<C1[i]) AND (C[i]<O1[i]) AND
((C[i]-O[i])/(.001+(H[i]-L[i]))>0.6))
AND MA13[i]-MA134[i]<0 )
{
n=i;ind[i]=1;
PlotText("PrcingLin",i,L[i]-10,colorGreen);
}
//Bullish Kicking
if(C[i]>O[i] AND ((C[i]-O[i])/(.001+H[i]-L[i])>.6)
AND (H[i]-C[i]<0.2*(H[i]-L[i])) AND (O[i]-L[i]<0.2*(H[i]-L[i]))
AND C1[i]<O1[i] AND ((o1[i]-c1[i])/(.001+H1[i]-L1[i])>.6)
AND (H1[i]-O1[i]<0.2*(H1[i]-L1[i])) AND (C1[i]-L1[i]<0.2*(H1[i]-L1[i]))
AND O[i]>o1[i] )
{
n=i;ind[i]=1;
PlotText("BullKik",i,L[i]-10,colorGreen);
}
//Bullish Abandoned Baby
if ((C1[i] == O1[i])
AND (O2[i]>C2[i]) AND ((O2[i]-C2[i])/(.001+H2[i]-L2[i])>.6)
AND (C[i]>O[i])
AND (L2[i]>H1[i])
AND (L[i]>H1[i])
AND MA13[i]-MA134[i]<0)
{
n=i;ind[i]=1;
PlotText("BullABBABY",i,L[i]-10,colorGreen);
}
if (m==i-1 AND (O[i]>=(C[i]-0.1*(H[i]-L[i])) OR (O[i]<c1[i] OR C[i]>C1[i])))PlotText("PC",i,H[i]+2,colorWhite);
else if (m==i-1 )PlotText("Ignore",i,H[i]+2,colorRed);
if (n==i-1 AND (O[i]<=(C[i]+0.1*(H[i]-L[i])) OR (O[i]>c1[i] OR C[i]>C1[i])))PlotText("PC",i,L[i]-2,colorWhite);
else if (n==i-1 )PlotText("Ignore",i,L[i]-2,colorRed);
//Bullish Morning doji Star
if ((O2[i]>C2[i])
AND ((O2[i]-C2[i])/(.001+H2[i]-L2[i])>.6)
AND (C2[i]>O1[i])
// AND (O1[i]>C1[i])
AND ((H1[i]-L1[i])>(3*(abs(C1[i]-O1[i]))))
AND (C[i]>O[i])
AND (O[i]>O1[i])
AND MA13[i]-MA134[i]<0)
{
n=i;ind[i]=1;
PlotText("BullMornD*",i,L[i]-10,colorGreen);
}
//3 Inside up
if ((O2[i]>C2[i]) AND ((O2[i]-c2[i])/(.001+H2[i]-L2[i])>.6)
AND (C1[i]>O1[i])
AND (C1[i]<= O2[i])
AND (C2[i]<= O1[i])
AND ((C1[i]-O1[i])<(O2[i]-C2[i]))
AND (C[i]>O[i])
AND (C[i]>C1[i]) AND (O[i]>O1[i])
AND MA13[i]-MA134[i]<0)
{
n=i;ind[i]=1;
PlotText("3InsideUp",i,L[i]-10,colorGreen);
}
//3 Outside up
if ((O2[i]>C2[i]) AND ((O2[i]-c2[i])/(.001+H2[i]-L2[i])>.6)
AND (C1[i]>O1[i])
AND (C1[i]>= O2[i])
AND (C2[i]>= O1[i])
AND ((C1[i]-O1[i])>(O2[i]-C2[i]))
AND (C[i]>O[i])
AND (C[i]>C1[i])
AND MA13[i]-MA134[i]<0)
{
n=i;ind[i]=1;
PlotText("3OutsideUp",i,L[i]-10,colorGreen);
}
//3 White soldiers
if ((C[i]>O[i]) AND ((C[i]-O[i])/(.001+H[i]-L[i])>.6)
AND (C1[i]>O1[i]) AND ((C[i]-O[i])/(.001+H[i]-L[i])>.6)
AND (C2[i]>O2[i]) AND ((C[i]-O[i])/(.001+H[i]-L[i])>.6)
AND (C[i]>C1[i]) AND (C1[i]>C2[i]) AND (O[i]<C1[i])
AND (O[i]>O1[i]) AND (O1[i]<C2[i]) AND (O1[i]>O2[i])
AND (((H[i]-C[i])/(H[i]-L[i]))<.2)
AND (((H1[i]-C1[i])/(H1[i]-L1[i]))<.2)
AND (((H2[i]-C2[i])/(H2[i]-L2[i]))<.2)
AND MA13[i]-MA134[i]<0 )
{
n=i;ind[i]=1;
PlotText("3WhtSoldiers",i,L[i]-10,colorGreen);
}
//Bullish Concealing Baby Swallow
if (O[i]>C[i] AND O1[i]>C1[i] AND O2[i]>C2[i] AND O3[i]>C3[i]
AND (H[i]==O[i] AND L[i]==C[i]) AND
(H2[i]==O2[i] AND L2[i]==C2[i]) AND
(H3[i]==O3[i] AND L3[i]==C3[i])
AND ((O3[i]-C3[i])/(.001+H3[i]-L3[i])>.6)
AND ((O2[i]-C2[i])/(.001+H2[i]-L2[i])>.6)
AND (((H1[i]-L1[i])>3*(O1[i]-C1[i])) AND
((H1[i]-C1[i])/(.001+H1[i]-L1[i])>0.6) AND
((H1[i]-O1[i])/(.001+H1[i]-L1[i])>0.6))
AND (O2[i]<O3[i] AND C2[i]<C3[i] AND O1[i]<C2[i])
AND (H1[i]< O[i] AND L1[i]>C[i]))
{
n=i;ind[i]=1;
PlotText("ConcBABYSWL",i,L[i]-10,colorGreen);
}
//moderate reversal indicators
//Bullish Dragonfly Doji
if (O[i]==C[i] AND H[i]==C[i]
AND ((H[i]-L[i])/(.001+H[i]-L[i])>.6)
AND MA13[i]-MA134[i]<0 )
{
n=i;ind[i]=1;
PlotText("BullDoji",i,L[i]-10,colorGreen);
}
// bullish long legged Doji
if (abs(O[i]-C[i])<0.15*(H[i]-L[i])
AND abs(O[i]-(H[i]+L[i])/2)<0.2*(H[i]-L[i])
AND C[i]<C1[i] AND C1[i]<C2[i] AND C2[i]<C3[i] )
{
n=i;ind[i]=1;
PlotText("BullLLDoji",i,L[i]-10,colorGreen);
}
//Gravestone Doji
if (L[i]==O[i] AND L[i]==C[i]
AND ((H[i]-L[i])/(.001+H[i]-L[i])>.6)
AND O1[i]<C1[i] AND ((H1[i]-L1[i])/(.001+H1[i]-L1[i])>.6)
AND (C1[i]-C[i])<0.2*(H[i]-L[i]))
{
n=i;ind[i]=1;
PlotText("GRaveStnDoji!!!",i,L[i]-10,colorGreen);
}
//Doji Star
if (O[i]==C[i] AND O1[i]==C1[i] AND O2[1]==C2[i]
AND O1[i]<C2[i] AND O1[i]<C[i]
AND MA13[i]-MA134[i]<0 )
{
n=i;ind[i]=1;
PlotText("Doji*",i,L[i]-10,colorGreen);
}
//Bullish Mat Hold
if (C4[i]>O4[i] AND ((C4[i]-O4[i])/(.001+H4[i]-L4[i])>.6)
AND (C3[i]>C4[i]) AND O3[i]>C3[i] AND H3[i]-L3[i]>3*(O3[i]-C3[i])
AND (C2[i]<C3[i] OR O2[i]<C3[i]) AND H2[i]-L2[i]>3*abs((O2[i]-C2[i]))
AND (C1[i]<C2[i] OR C1[i]<O2[i]) AND O1[i]>C1[i] AND H1[i]-L1[i]>3*(O1[i]-C1[i])
AND (H[i]>H3[i]) AND C[i]>O[i] AND ((C[i]-O[i])/(.001+H[i]-L[i])>.6))
{
n=i;ind[i]=1;
PlotText("BullMathold",i,L[i]-10,colorGreen);
}
}
}
}
3 Comments
Please login here to leave a comment.
thanks for sharing good afl