本人贡献EA源代码只为助国人发奋图强,望大家积极贡献自己的EA源码,一起交流,共同进步.
EA1:P1
EA2:P4
EA3:MACD经典P28
EA4:MA经典P31
//+-------------------------------------------------------------------------------------------------------+
//|huaxiazhongyi.mq4针对货币对EURUSD,H42009年调试通过|
//+-------------------------------------------------------------------------------------------------------+
externdoubleTakeProfit=20;
externdoubleLots=20;
externdoubleTrailingStop=30;
externdoubleStopLoss=40;
externdoubleMM=0;
externdoubleRisk=30;
externdoubleLotLimit=50;
externdoublePer=3;
//+------------------------------------------------------------------+
//||
//+------------------------------------------------------------------+
intstart()
{
doubles=GlobalVariableGet("SELLLIMIT");
doubleb=GlobalVariableGet("BUYLIMIT");
doubleds=GlobalVariableGet("DateS");
doubledb=GlobalVariableGet("DateB");
//----
if(ds!=DayOfWeek())
{
GlobalVariableDel("SELLLIMIT");
GlobalVariableDel("BUYLIMIT");
GlobalVariableDel("DatesS");
GlobalVariableDel("DatesB");
}
doubleH3,H4,L3,L4,SH4,SH3,BL3,BL4;
//----
if(OrdersTotal()<1&&Hour()==23&&Minute()==59)
return(0);
//----
if(OrdersTotal()>0&&Hour()==23&&Minute()==59)
{
inttotal=OrdersTotal();
//----
for(inti=total-1;i>=0;i--)
{
OrderSelect(i,SELECT_BY_POS);
inttype=OrderType();
boolresult=false;
//----
switch(type)
{
//Closeopenedlongpositions
caseOP_BUY:result=OrderClose(OrderTicket(),OrderLots(),
MarketInfo(OrderSymbol(),MODE_BID),
5,Red);
break;
//Closeopenedshortpositions
caseOP_SELL:result=OrderClose(OrderTicket(),OrderLots(),
MarketInfo(OrderSymbol(),MODE_ASK),
5,Red);
break;
//Closependingorders
caseOP_BUYLIMIT:
caseOP_BUYSTOP:
caseOP_SELLLIMIT:
caseOP_SELLSTOP:result=OrderDelete(OrderTicket());
}
//----
if(result==false)
{
Alert("Order",OrderTicket(),"failedtoclose.Error:",GetLastError());
Sleep(3000);
}
}
}
H4=((((High[1]-Low[1])1.1)/2)+Close[1]);
H3=((((High[1]-Low[1])1.1)/4)+Close[1]);
L3=(Close[1]-((High[1]-Low[1])1.1)/4);
L4=(Close[1]-((High[1]-Low[1])1.1)/2);
//----
if(db!=DayOfWeek()&&s==0)
{
SH3=OrderSend(Symbol(),OP_SELLLIMIT,Lots,H4,3,H4+StopLossPoint,
H4-TakeProfitPoint,"H3",0,0,Red);
//----
if(SH3<0)
{
GlobalVariableSet("SELLLIMIT",0);
}
else
{
GlobalVariableSet("SELLLIMIT",1);
GlobalVariableSet("DateS",DayOfWeek());
}
}
//----
if(db!=DayOfWeek()&&b==0)
{
BL3=OrderSend(Symbol(),OP_BUYLIMIT,Lots,L4,3,L4-StopLossPoint,
L4+TakeProfitPoint,"L3",0,0,Green);
//----
if(BL3<0)
{
GlobalVariableSet("BUYLIMIT",0);
}
else
{
GlobalVariableSet("BUYLIMIT",1);
GlobalVariableSet("DateB",DayOfWeek());
}
}
}
//+------------------------------------------------------------------+
EA2:
//+------------------------------------------------------------------+
//|四周期均线交易法4_Period_MA_Psars_V1.mq4|
//+------------------------------------------------------------------+
#propertyindicator_chart_window
externintp1.ma=1;//Period()inminutes
externintp2.ma=5;//Period()inminutes
externintp3.ma=15;//Period()inminutes
externintp4.ma=60;//Period()inminutes
externintma.applied.price=1;/
Appliedpriceconstants.Itcanbeanyofthefollowingvalues:
ConstantValueDescription
PRICE_CLOSE0Closeprice.
PRICE_OPEN1Openprice.
PRICE_HIGH2Highprice.
PRICE_LOW3Lowprice.
PRICE_MEDIAN4Medianprice,(high+low)/2.
PRICE_TYPICAL5Typicalprice,(high+low+close)/3.
PRICE_WEIGHTED6Weightedcloseprice,(high+low+close+close)/4./
externintma.Method=0;/
MovingAverageMethod
ConstantValueDescription
MODE_SMA0Simplemovingaverage,
MODE_EMA1Exponentialmovingaverage,
MODE_SMMA2Smoothedmovingaverage,
MODE_LWMA3Linearweightedmovingaverage./
externintma1.Length=13;
externintma2.Length=21;
externintma3.Length=34;
externintma4.Length=55;
externintma5.Length=89;
externintma6.Length=144;
externintma7.Length=233;
externintfib.SR.shadow.1=8;
externintfib.SR.shadow.2=13;
externintfib.SR.shadow.3=21;
externintfib.SR.shadow.4=34;
externintfib.SR.shadow.5=55;
externintfib.SR.shadow.6=89;
externintfib.SR.shadow.7=144;
externcolorfib.SR.shadow.1.c=AliceBlue;
externcolorfib.SR.shadow.2.c=LightBlue;
externcolorfib.SR.shadow.3.c=DodgerBlue;
externcolorfib.SR.shadow.4.c=RoyalBlue;
externcolorfib.SR.shadow.5.c=Blue;
externcolorfib.SR.shadow.6.c=MediumBlue;
externcolorfib.SR.shadow.7.c=DarkBlue;
doublema1.p1,ma2.p1,ma3.p1,ma4.p1,ma5.p1,ma6.p1,ma7.p1;
doublema1.p2,ma2.p2,ma3.p2,ma4.p2,ma5.p2,ma6.p2,ma7.p2;
doublema1.p3,ma2.p3,ma3.p3,ma4.p3,ma5.p3,ma6.p3,ma7.p3;
doublema1.p4,ma2.p4,ma3.p4,ma4.p4,ma5.p4,ma6.p4,ma7.p4;
datetimet1.p1,t2.p1,t1.p2,t2.p2,t1.p3,t2.p3,t1.p4,t2.p4;
intinit(){return(0);}
intdeinit(){
ObjectsDeleteAll(0,OBJ_TEXT);ObjectsDeleteAll(0,OBJ_RECTANGLE);
ObjectsDeleteAll(0,OBJ_ARROW);ObjectsDeleteAll(0,OBJ_TREND);
return(0);}
intstart(){
ObjectsDeleteAll();
//p1masettings
ma1.p1=iMA(Symbol(),p1.ma,ma1.Length,0,ma.Method,ma.applied.price,0);
ma2.p1=iMA(Symbol(),p1.ma,ma2.Length,0,ma.Method,ma.applied.price,0);
ma3.p1=iMA(Symbol(),p1.ma,ma3.Length,0,ma.Method,ma.applied.price,0);
ma4.p1=iMA(Symbol(),p1.ma,ma4.Length,0,ma.Method,ma.applied.price,0);
ma5.p1=iMA(Symbol(),p1.ma,ma5.Length,0,ma.Method,ma.applied.price,0);
ma6.p1=iMA(Symbol(),p1.ma,ma6.Length,0,ma.Method,ma.applied.price,0);
ma7.p1=iMA(Symbol(),p1.ma,ma7.Length,0,ma.Method,ma.applied.price,0);
//--------------
//p2masettings
ma1.p2=iMA(Symbol(),p2.ma,ma1.Length,0,ma.Method,ma.applied.price,0);
ma2.p2=iMA(Symbol(),p2.ma,ma2.Length,0,ma.Method,ma.applied.price,0);
ma3.p2=iMA(Symbol(),p2.ma,ma3.Length,0,ma.Method,ma.applied.price,0);
ma4.p2=iMA(Symbol(),p2.ma,ma4.Length,0,ma.Method,ma.applied.price,0);
ma5.p2=iMA(Symbol(),p2.ma,ma5.Length,0,ma.Method,ma.applied.price,0);
ma6.p2=iMA(Symbol(),p2.ma,ma6.Length,0,ma.Method,ma.applied.price,0);
ma7.p2=iMA(Symbol(),p2.ma,ma7.Length,0,ma.Method,ma.applied.price,0);
//--------------
//p3masettings
ma1.p3=iMA(Symbol(),p3.ma,ma1.Length,0,ma.Method,ma.applied.price,0);
ma2.p3=iMA(Symbol(),p3.ma,ma2.Length,0,ma.Method,ma.applied.price,0);
ma3.p3=iMA(Symbol(),p3.ma,ma3.Length,0,ma.Method,ma.applied.price,0);
ma4.p3=iMA(Symbol(),p3.ma,ma4.Length,0,ma.Method,ma.applied.price,0);
ma5.p3=iMA(Symbol(),p3.ma,ma5.Length,0,ma.Method,ma.applied.price,0);
ma6.p3=iMA(Symbol(),p3.ma,ma6.Length,0,ma.Method,ma.applied.price,0);
ma7.p3=iMA(Symbol(),p3.ma,ma7.Length,0,ma.Method,ma.applied.price,0);
//--------------
//p4masettings
ma1.p4=iMA(Symbol(),p4.ma,ma1.Length,0,ma.Method,ma.applied.price,0);
ma2.p4=iMA(Symbol(),p4.ma,ma2.Length,0,ma.Method,ma.applied.price,0);
ma3.p4=iMA(Symbol(),p4.ma,ma3.Length,0,ma.Method,ma.applied.price,0);
ma4.p4=iMA(Symbol(),p4.ma,ma4.Length,0,ma.Method,ma.applied.price,0);
ma5.p4=iMA(Symbol(),p4.ma,ma5.Length,0,ma.Method,ma.applied.price,0);
ma6.p4=iMA(Symbol(),p4.ma,ma6.Length,0,ma.Method,ma.applied.price,0);
ma7.p4=iMA(Symbol(),p4.ma,ma7.Length,0,ma.Method,ma.applied.price,0);
//--------------
Time.Coordinate.Set();
p1.Fib.Plot();
p2.Fib.Plot();
p3.Fib.Plot();
p4.Fib.Plot();
column();
//--------------
return(0);}
//+------------------------------------------------------------------+
voidTime.Coordinate.Set(){
//....VariableSettingsforObjectSpatialPlacement.....
doublezoom.multiplier;intbpw=BarsPerWindow();
if(bpw<25){zoom.multiplier=0.05;}
if(bpw>25&&bpw<50){zoom.multiplier=0.07;}
if(bpw>50&&bpw<175){zoom.multiplier=0.12;}
if(bpw>175&&bpw<375){zoom.multiplier=0.25;}
if(bpw>375&&bpw<750){zoom.multiplier=0.5;}
if(bpw>750){zoom.multiplier=1;}
doubletime.frame.multiplier;
if(Period()==1){time.frame.multiplier=0.65;}
if(Period()==5){time.frame.multiplier=3.25;}
if(Period()==15){time.frame.multiplier=9.75;}
if(Period()==30){time.frame.multiplier=19.5;}
if(Period()==60){time.frame.multiplier=39;}
if(Period()==240){time.frame.multiplier=156;}
if(Period()==1440){time.frame.multiplier=936;}
if(Period()==10080){time.frame.multiplier=6552;}
if(Period()==43200){time.frame.multiplier=28043;}
t1.p1=Time[0]+(1000time.frame.multiplierzoom.multiplier);
t2.p1=Time[0]+(3000time.frame.multiplierzoom.multiplier);
t1.p2=Time[0]+(5000time.frame.multiplierzoom.multiplier);
t2.p2=Time[0]+(7000time.frame.multiplierzoom.multiplier);
t1.p3=Time[0]+(9000time.frame.multiplierzoom.multiplier);
t2.p3=Time[0]+(11000time.frame.multiplierzoom.multiplier);
t1.p4=Time[0]+(13000time.frame.multiplierzoom.multiplier);
t2.p4=Time[0]+(16000time.frame.multiplierzoom.multiplier);}//endTime.Coordinate.Set()
voidp1.Fib.Plot(){
//p1dynamicfibolevels
doublelo.ma.p1,hi.ma.p1;
lo.ma.p1=ma1.p1;
if(ma2.p1
if(ma3.p1
if(ma4.p1
if(ma5.p1
if(ma6.p1
if(ma7.p1
lo.ma.p1=NormalizeDouble(lo.ma.p1+(fib.SR.shadow.1Point),Digits);
hi.ma.p1=ma7.p1;
if(ma6.p1>hi.ma.p1){hi.ma.p1=ma6.p1;}
if(ma5.p1>hi.ma.p1){hi.ma.p1=ma5.p1;}
if(ma4.p1>hi.ma.p1){hi.ma.p1=ma4.p1;}
if(ma3.p1>hi.ma.p1){hi.ma.p1=ma3.p1;}
if(ma2.p1>hi.ma.p1){hi.ma.p1=ma2.p1;}
if(ma1.p1>hi.ma.p1){hi.ma.p1=ma1.p1;}
hi.ma.p1=NormalizeDouble(hi.ma.p1-(fib.SR.shadow.1Point),Digits);
//p1centerdynamicfibplacement
if(lo.ma.p1-hi.ma.p1>Ask-Bid){
ObjectCreate("lcf.p1",OBJ_TREND,0,t1.p1,lo.ma.p1,t2.p1,lo.ma.p1);
ObjectSet("lcf.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lcf.p1",OBJPROP_WIDTH,2);
ObjectSet("lcf.p1",OBJPROP_RAY,false);
ObjectSet("lcf.p1",OBJPROP_COLOR,fib.SR.shadow.1.c);
ObjectSetText("lcf.p1",DoubleToStr(lo.ma.p1,Digits),7,"Arial",fib.SR.shadow.1.c);
ObjectCreate("hcf.p1",OBJ_TREND,0,t1.p1,hi.ma.p1,t2.p1,hi.ma.p1);
ObjectSet("hcf.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hcf.p1",OBJPROP_WIDTH,2);
ObjectSet("hcf.p1",OBJPROP_RAY,false);
ObjectSet("hcf.p1",OBJPROP_COLOR,fib.SR.shadow.1.c);
ObjectSetText("hcf.p1",DoubleToStr(hi.ma.p1,Digits),7,"Arial",fib.SR.shadow.1.c);}
doublelo.ma.p1.1,lo.ma.p1.2,lo.ma.p1.3,lo.ma.p1.4,lo.ma.p1.5,lo.ma.p1.6;
lo.ma.p1.1=lo.ma.p1+(fib.SR.shadow.2Point);
lo.ma.p1.2=lo.ma.p1.1+(fib.SR.shadow.3Point);
lo.ma.p1.3=lo.ma.p1.2+(fib.SR.shadow.4Point);
lo.ma.p1.4=lo.ma.p1.3+(fib.SR.shadow.5Point);
lo.ma.p1.5=lo.ma.p1.4+(fib.SR.shadow.6Point);
lo.ma.p1.6=lo.ma.p1.5+(fib.SR.shadow.7Point);
doublehi.ma.p1.1,hi.ma.p1.2,hi.ma.p1.3,hi.ma.p1.4,hi.ma.p1.5,hi.ma.p1.6;
hi.ma.p1.1=hi.ma.p1-(fib.SR.shadow.2Point);
hi.ma.p1.2=hi.ma.p1.1-(fib.SR.shadow.3Point);
hi.ma.p1.3=hi.ma.p1.2-(fib.SR.shadow.4Point);
hi.ma.p1.4=hi.ma.p1.3-(fib.SR.shadow.5Point);
hi.ma.p1.5=hi.ma.p1.4-(fib.SR.shadow.6Point);
hi.ma.p1.6=hi.ma.p1.5-(fib.SR.shadow.7Point);
//p11stlevel(hi.1.p1,lo.1.p1)
if(lo.ma.p1.1-hi.ma.p1.1>Ask-Bid){
ObjectCreate("lo.1.p1",OBJ_TREND,0,t1.p1,lo.ma.p1.1,t2.p1,lo.ma.p1.1);
ObjectSet("lo.1.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.1.p1",OBJPROP_WIDTH,2);
ObjectSet("lo.1.p1",OBJPROP_RAY,false);
ObjectSet("lo.1.p1",OBJPROP_COLOR,fib.SR.shadow.2.c);
ObjectSetText("lo.1.p1",DoubleToStr(lo.ma.p1.1,Digits),7,"Arial",fib.SR.shadow.2.c);
ObjectCreate("hi.1.p1",OBJ_TREND,0,t1.p1,hi.ma.p1.1,t2.p1,hi.ma.p1.1);
ObjectSet("hi.1.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.1.p1",OBJPROP_WIDTH,2);
ObjectSet("hi.1.p1",OBJPROP_RAY,false);
ObjectSet("hi.1.p1",OBJPROP_COLOR,fib.SR.shadow.2.c);
ObjectSetText("hi.1.p1",DoubleToStr(hi.ma.p1.1,Digits),7,"Arial",fib.SR.shadow.2.c);}
//2stlevel(hi.2.p1,lo.2.p1)
if(lo.ma.p1.2-hi.ma.p1.2>Ask-Bid){
ObjectCreate("lo.2.p1",OBJ_TREND,0,t1.p1,lo.ma.p1.2,t2.p1,lo.ma.p1.2);
ObjectSet("lo.2.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.2.p1",OBJPROP_WIDTH,2);
ObjectSet("lo.2.p1",OBJPROP_RAY,false);
ObjectSet("lo.2.p1",OBJPROP_COLOR,fib.SR.shadow.3.c);
ObjectSetText("lo.2.p1",DoubleToStr(lo.ma.p1.2,Digits),7,"Arial",fib.SR.shadow.3.c);
ObjectCreate("hi.2.p1",OBJ_TREND,0,t1.p1,hi.ma.p1.2,t2.p1,hi.ma.p1.2);
ObjectSet("hi.2.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.2.p1",OBJPROP_WIDTH,2);
ObjectSet("hi.2.p1",OBJPROP_RAY,false);
ObjectSet("hi.2.p1",OBJPROP_COLOR,fib.SR.shadow.3.c);
ObjectSetText("hi.2.p1",DoubleToStr(hi.ma.p1.2,Digits),7,"Arial",fib.SR.shadow.3.c);}
//3rdlevel(hi.3.p1,lo.3.p1)
if(lo.ma.p1.3-hi.ma.p1.3>Ask-Bid){
ObjectCreate("lo.3.p1",OBJ_TREND,0,t1.p1,lo.ma.p1.3,t2.p1,lo.ma.p1.3);
ObjectSet("lo.3.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.3.p1",OBJPROP_WIDTH,2);
ObjectSet("lo.3.p1",OBJPROP_RAY,false);
ObjectSet("lo.3.p1",OBJPROP_COLOR,fib.SR.shadow.4.c);
ObjectSetText("lo.3.p1",DoubleToStr(lo.ma.p1.3,Digits),7,"Arial",fib.SR.shadow.4.c);
ObjectCreate("hi.3.p1",OBJ_TREND,0,t1.p1,hi.ma.p1.3,t2.p1,hi.ma.p1.3);
ObjectSet("hi.3.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.3.p1",OBJPROP_WIDTH,2);
ObjectSet("hi.3.p1",OBJPROP_RAY,false);
ObjectSet("hi.3.p1",OBJPROP_COLOR,fib.SR.shadow.4.c);
ObjectSetText("hi.3.p1",DoubleToStr(hi.ma.p1.3,Digits),7,"Arial",fib.SR.shadow.4.c);}
//4thlevel(hi.4.p1,lo.4.p1)
if(lo.ma.p1.4-hi.ma.p1.4>Ask-Bid){
ObjectCreate("lo.4.p1",OBJ_TREND,0,t1.p1,lo.ma.p1.4,t2.p1,lo.ma.p1.4);
ObjectSet("lo.4.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.4.p1",OBJPROP_WIDTH,2);
ObjectSet("lo.4.p1",OBJPROP_RAY,false);
ObjectSet("lo.4.p1",OBJPROP_COLOR,fib.SR.shadow.5.c);
ObjectSetText("lo.4.p1",DoubleToStr(lo.ma.p1.4,Digits),7,"Arial",fib.SR.shadow.5.c);
ObjectCreate("hi.4.p1",OBJ_TREND,0,t1.p1,hi.ma.p1.4,t2.p1,hi.ma.p1.4);
ObjectSet("hi.4.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.4.p1",OBJPROP_WIDTH,2);
ObjectSet("hi.4.p1",OBJPROP_RAY,false);
ObjectSet("hi.4.p1",OBJPROP_COLOR,fib.SR.shadow.5.c);
ObjectSetText("hi.4.p1",DoubleToStr(hi.ma.p1.4,Digits),7,"Arial",fib.SR.shadow.5.c);}
//5thlevel(hi.5.p1,lo.5.p1)
if(lo.ma.p1.5-hi.ma.p1.5>Ask-Bid){
ObjectCreate("lo.5.p1",OBJ_TREND,0,t1.p1,lo.ma.p1.5,t2.p1,lo.ma.p1.5);
ObjectSet("lo.5.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.5.p1",OBJPROP_WIDTH,2);
ObjectSet("lo.5.p1",OBJPROP_RAY,false);
ObjectSet("lo.5.p1",OBJPROP_COLOR,fib.SR.shadow.6.c);
ObjectSetText("lo.5.p1",DoubleToStr(lo.ma.p1.5,Digits),7,"Arial",fib.SR.shadow.6.c);
ObjectCreate("hi.5.p1",OBJ_TREND,0,t1.p1,hi.ma.p1.5,t2.p1,hi.ma.p1.5);
ObjectSet("hi.5.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.5.p1",OBJPROP_WIDTH,2);
ObjectSet("hi.5.p1",OBJPROP_RAY,false);
ObjectSet("hi.5.p1",OBJPROP_COLOR,fib.SR.shadow.6.c);
ObjectSetText("hi.5.p1",DoubleToStr(hi.ma.p1.5,Digits),7,"Arial",fib.SR.shadow.6.c);}
//6thlevel(hi.6.p1,lo.6.p1)
if(lo.ma.p1.6-hi.ma.p1.6>Ask-Bid){
ObjectCreate("lo.6.p1",OBJ_TREND,0,t1.p1,lo.ma.p1.6,t2.p1,lo.ma.p1.6);
ObjectSet("lo.6.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.6.p1",OBJPROP_WIDTH,2);
ObjectSet("lo.6.p1",OBJPROP_RAY,false);
ObjectSet("lo.6.p1",OBJPROP_COLOR,fib.SR.shadow.7.c);
ObjectSetText("lo.6.p1",DoubleToStr(lo.ma.p1.6,Digits),7,"Arial",fib.SR.shadow.7.c);
ObjectCreate("hi.6.p1",OBJ_TREND,0,t1.p1,hi.ma.p1.6,t2.p1,hi.ma.p1.6);
ObjectSet("hi.6.p1",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.6.p1",OBJPROP_WIDTH,2);
ObjectSet("hi.6.p1",OBJPROP_RAY,false);
ObjectSet("hi.6.p1",OBJPROP_COLOR,fib.SR.shadow.7.c);
ObjectSetText("hi.6.p1",DoubleToStr(hi.ma.p1.6,Digits),7,"Arial",fib.SR.shadow.7.c);}
//...............MovingAverageSupport&ResistanceLevels..............................
stringspace="";
ObjectCreate("ma1.p1",OBJ_TEXT,0,t1.p1,ma1.p1);//13ma
ObjectSetText("ma1.p1",space+DoubleToStr(ma1.p1,Digits),8,"Arial",White);
ObjectCreate("ma2.p1",OBJ_TEXT,0,t1.p1,ma2.p1);//21ma
ObjectSetText("ma2.p1",space+DoubleToStr(ma2.p1,Digits),8,"Arial",White);
ObjectCreate("ma3.p1",OBJ_TEXT,0,t1.p1,ma3.p1);//34ma
if(Bid>ma3.p1){ObjectSetText("ma3.p1",space+DoubleToStr(ma3.p1,Digits),8,"Arial",LightGreen);}
if(Ask
if(Bid<=ma3.p1&&Ask>=ma3.p1){
ObjectSetText("ma3.p1",space+DoubleToStr(ma3.p1,Digits),8,"Arial",Yellow);}
ObjectCreate("ma4.p1",OBJ_TEXT,0,t1.p1,ma4.p1);//55ma
if(Bid>ma4.p1){ObjectSetText("ma4.p1",space+DoubleToStr(ma4.p1,Digits),8,"Arial",LightGreen);}
if(Ask
if(Bid<=ma4.p1&&Ask>=ma4.p1){
ObjectSetText("ma4.p1",space+DoubleToStr(ma4.p1,Digits),8,"Arial",Yellow);}
ObjectCreate("ma5.p1",OBJ_TEXT,0,t1.p1,ma5.p1);//89ma
if(Bid>ma5.p1){ObjectSetText("ma5.p1",space+DoubleToStr(ma5.p1,Digits),8,"Arial",Green);}
if(Ask
if(Bid<=ma5.p1&&Ask>=ma5.p1){
ObjectSetText("ma5.p1",space+DoubleToStr(ma5.p1,Digits),8,"Arial",Yellow);}
ObjectCreate("ma6.p1",OBJ_TEXT,0,t1.p1,NormalizeDouble(ma6.p1,Digits));//144ma
if(Bid>ma6.p1){ObjectSetText("ma6.p1",space+DoubleToStr(ma6.p1,Digits),8,"Arial",Green);}
if(Ask
if(Bid<=ma6.p1&&Ask>=ma6.p1){
ObjectSetText("ma6.p1",space+DoubleToStr(ma6.p1,Digits),8,"Arial",Yellow);}
ObjectCreate("ma7.p1",OBJ_TEXT,0,t1.p1,NormalizeDouble(ma7.p1,Digits));//233ma
if(Bid>ma7.p1){ObjectSetText("ma7.p1",space+DoubleToStr(ma7.p1,Digits),8,"Arial",Green);}
if(Ask
if(Bid<=ma7.p1&&Ask>=ma7.p1){
ObjectSetText("ma7.p1",space+DoubleToStr(ma7.p1,Digits),8,"Arial",Yellow);}
}//endp1.Fib.Plot()
voidp2.Fib.Plot(){
//p2dynamicfibolevels
doublelo.ma.p2,hi.ma.p2;
lo.ma.p2=ma1.p2;
if(ma2.p2
if(ma3.p2
if(ma4.p2
if(ma5.p2
if(ma6.p2
if(ma7.p2
lo.ma.p2=NormalizeDouble(lo.ma.p2+(fib.SR.shadow.1Point),Digits);
hi.ma.p2=ma7.p2;
if(ma6.p2>hi.ma.p2){hi.ma.p2=ma6.p2;}
if(ma5.p2>hi.ma.p2){hi.ma.p2=ma5.p2;}
if(ma4.p2>hi.ma.p2){hi.ma.p2=ma4.p2;}
if(ma3.p2>hi.ma.p2){hi.ma.p2=ma3.p2;}
if(ma2.p2>hi.ma.p2){hi.ma.p2=ma2.p2;}
if(ma1.p2>hi.ma.p2){hi.ma.p2=ma1.p2;}
hi.ma.p2=NormalizeDouble(hi.ma.p2-(fib.SR.shadow.1Point),Digits);
//p2centerdynamicfibplacement
if(lo.ma.p2-hi.ma.p2>Ask-Bid){
ObjectCreate("lcf.p2",OBJ_TREND,0,t1.p2,lo.ma.p2,t2.p2,lo.ma.p2);
ObjectSet("lcf.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lcf.p2",OBJPROP_WIDTH,2);
ObjectSet("lcf.p2",OBJPROP_RAY,false);
ObjectSet("lcf.p2",OBJPROP_COLOR,fib.SR.shadow.1.c);
ObjectSetText("lcf.p2",DoubleToStr(lo.ma.p2,Digits),7,"Arial",fib.SR.shadow.1.c);
ObjectCreate("hcf.p2",OBJ_TREND,0,t1.p2,hi.ma.p2,t2.p2,hi.ma.p2);
ObjectSet("hcf.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hcf.p2",OBJPROP_WIDTH,2);
ObjectSet("hcf.p2",OBJPROP_RAY,false);
ObjectSet("hcf.p2",OBJPROP_COLOR,fib.SR.shadow.1.c);
ObjectSetText("hcf.p2",DoubleToStr(hi.ma.p2,Digits),7,"Arial",fib.SR.shadow.1.c);}
doublelo.ma.p2.1,lo.ma.p2.2,lo.ma.p2.3,lo.ma.p2.4,lo.ma.p2.5,lo.ma.p2.6;
lo.ma.p2.1=lo.ma.p2+(fib.SR.shadow.2Point);
lo.ma.p2.2=lo.ma.p2.1+(fib.SR.shadow.3Point);
lo.ma.p2.3=lo.ma.p2.2+(fib.SR.shadow.4Point);
lo.ma.p2.4=lo.ma.p2.3+(fib.SR.shadow.5Point);
lo.ma.p2.5=lo.ma.p2.4+(fib.SR.shadow.6Point);
lo.ma.p2.6=lo.ma.p2.5+(fib.SR.shadow.7Point);
doublehi.ma.p2.1,hi.ma.p2.2,hi.ma.p2.3,hi.ma.p2.4,hi.ma.p2.5,hi.ma.p2.6;
hi.ma.p2.1=hi.ma.p2-(fib.SR.shadow.2Point);
hi.ma.p2.2=hi.ma.p2.1-(fib.SR.shadow.3Point);
hi.ma.p2.3=hi.ma.p2.2-(fib.SR.shadow.4Point);
hi.ma.p2.4=hi.ma.p2.3-(fib.SR.shadow.5Point);
hi.ma.p2.5=hi.ma.p2.4-(fib.SR.shadow.6Point);
hi.ma.p2.6=hi.ma.p2.5-(fib.SR.shadow.7Point);
//p21stlevel(hi.1.p2,lo.1.p2)
if(lo.ma.p2.1-hi.ma.p2.1>Ask-Bid){
ObjectCreate("lo.1.p2",OBJ_TREND,0,t1.p2,lo.ma.p2.1,t2.p2,lo.ma.p2.1);
ObjectSet("lo.1.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.1.p2",OBJPROP_WIDTH,2);
ObjectSet("lo.1.p2",OBJPROP_RAY,false);
ObjectSet("lo.1.p2",OBJPROP_COLOR,fib.SR.shadow.2.c);
ObjectSetText("lo.1.p2",DoubleToStr(lo.ma.p2.1,Digits),7,"Arial",fib.SR.shadow.2.c);
ObjectCreate("hi.1.p2",OBJ_TREND,0,t1.p2,hi.ma.p2.1,t2.p2,hi.ma.p2.1);
ObjectSet("hi.1.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.1.p2",OBJPROP_WIDTH,2);
ObjectSet("hi.1.p2",OBJPROP_RAY,false);
ObjectSet("hi.1.p2",OBJPROP_COLOR,fib.SR.shadow.2.c);
ObjectSetText("hi.1.p2",DoubleToStr(hi.ma.p2.1,Digits),7,"Arial",fib.SR.shadow.2.c);}
//2stlevel(hi.2.p2,lo.2.p2)
if(lo.ma.p2.2-hi.ma.p2.2>Ask-Bid){
ObjectCreate("lo.2.p2",OBJ_TREND,0,t1.p2,lo.ma.p2.2,t2.p2,lo.ma.p2.2);
ObjectSet("lo.2.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.2.p2",OBJPROP_WIDTH,2);
ObjectSet("lo.2.p2",OBJPROP_RAY,false);
ObjectSet("lo.2.p2",OBJPROP_COLOR,fib.SR.shadow.3.c);
ObjectSetText("lo.2.p2",DoubleToStr(lo.ma.p2.2,Digits),7,"Arial",fib.SR.shadow.3.c);
ObjectCreate("hi.2.p2",OBJ_TREND,0,t1.p2,hi.ma.p2.2,t2.p2,hi.ma.p2.2);
ObjectSet("hi.2.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.2.p2",OBJPROP_WIDTH,2);
ObjectSet("hi.2.p2",OBJPROP_RAY,false);
ObjectSet("hi.2.p2",OBJPROP_COLOR,fib.SR.shadow.3.c);
ObjectSetText("hi.2.p2",DoubleToStr(hi.ma.p2.2,Digits),7,"Arial",fib.SR.shadow.3.c);}
//3rdlevel(hi.3.p2,lo.3.p2)
if(lo.ma.p2.3-hi.ma.p2.3>Ask-Bid){
ObjectCreate("lo.3.p2",OBJ_TREND,0,t1.p2,lo.ma.p2.3,t2.p2,lo.ma.p2.3);
ObjectSet("lo.3.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.3.p2",OBJPROP_WIDTH,2);
ObjectSet("lo.3.p2",OBJPROP_RAY,false);
ObjectSet("lo.3.p2",OBJPROP_COLOR,fib.SR.shadow.4.c);
ObjectSetText("lo.3.p2",DoubleToStr(lo.ma.p2.3,Digits),7,"Arial",fib.SR.shadow.4.c);
ObjectCreate("hi.3.p2",OBJ_TREND,0,t1.p2,hi.ma.p2.3,t2.p2,hi.ma.p2.3);
ObjectSet("hi.3.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.3.p2",OBJPROP_WIDTH,2);
ObjectSet("hi.3.p2",OBJPROP_RAY,false);
ObjectSet("hi.3.p2",OBJPROP_COLOR,fib.SR.shadow.4.c);
ObjectSetText("hi.3.p2",DoubleToStr(hi.ma.p2.3,Digits),7,"Arial",fib.SR.shadow.4.c);}
//4thlevel(hi.4.p2,lo.4.p2)
if(lo.ma.p2.4-hi.ma.p2.4>Ask-Bid){
ObjectCreate("lo.4.p2",OBJ_TREND,0,t1.p2,lo.ma.p2.4,t2.p2,lo.ma.p2.4);
ObjectSet("lo.4.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.4.p2",OBJPROP_WIDTH,2);
ObjectSet("lo.4.p2",OBJPROP_RAY,false);
ObjectSet("lo.4.p2",OBJPROP_COLOR,fib.SR.shadow.5.c);
ObjectSetText("lo.4.p2",DoubleToStr(lo.ma.p2.4,Digits),7,"Arial",fib.SR.shadow.5.c);
ObjectCreate("hi.4.p2",OBJ_TREND,0,t1.p2,hi.ma.p2.4,t2.p2,hi.ma.p2.4);
ObjectSet("hi.4.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.4.p2",OBJPROP_WIDTH,2);
ObjectSet("hi.4.p2",OBJPROP_RAY,false);
ObjectSet("hi.4.p2",OBJPROP_COLOR,fib.SR.shadow.5.c);
ObjectSetText("hi.4.p2",DoubleToStr(hi.ma.p2.4,Digits),7,"Arial",fib.SR.shadow.5.c);}
//5thlevel(hi.5.p2,lo.5.p2)
if(lo.ma.p2.5-hi.ma.p2.5>Ask-Bid){
ObjectCreate("lo.5.p2",OBJ_TREND,0,t1.p2,lo.ma.p2.5,t2.p2,lo.ma.p2.5);
ObjectSet("lo.5.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.5.p2",OBJPROP_WIDTH,2);
ObjectSet("lo.5.p2",OBJPROP_RAY,false);
ObjectSet("lo.5.p2",OBJPROP_COLOR,fib.SR.shadow.6.c);
ObjectSetText("lo.5.p2",DoubleToStr(lo.ma.p2.5,Digits),7,"Arial",fib.SR.shadow.6.c);
ObjectCreate("hi.5.p2",OBJ_TREND,0,t1.p2,hi.ma.p2.5,t2.p2,hi.ma.p2.5);
ObjectSet("hi.5.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.5.p2",OBJPROP_WIDTH,2);
ObjectSet("hi.5.p2",OBJPROP_RAY,false);
ObjectSet("hi.5.p2",OBJPROP_COLOR,fib.SR.shadow.6.c);
ObjectSetText("hi.5.p2",DoubleToStr(hi.ma.p2.5,Digits),7,"Arial",fib.SR.shadow.6.c);}
//6thlevel(hi.6.p2,lo.6.p2)
if(lo.ma.p2.6-hi.ma.p2.6>Ask-Bid){
ObjectCreate("lo.6.p2",OBJ_TREND,0,t1.p2,lo.ma.p2.6,t2.p2,lo.ma.p2.6);
ObjectSet("lo.6.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.6.p2",OBJPROP_WIDTH,2);
ObjectSet("lo.6.p2",OBJPROP_RAY,false);
ObjectSet("lo.6.p2",OBJPROP_COLOR,fib.SR.shadow.7.c);
ObjectSetText("lo.6.p2",DoubleToStr(lo.ma.p2.6,Digits),7,"Arial",fib.SR.shadow.7.c);
ObjectCreate("hi.6.p2",OBJ_TREND,0,t1.p2,hi.ma.p2.6,t2.p2,hi.ma.p2.6);
ObjectSet("hi.6.p2",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.6.p2",OBJPROP_WIDTH,2);
ObjectSet("hi.6.p2",OBJPROP_RAY,false);
ObjectSet("hi.6.p2",OBJPROP_COLOR,fib.SR.shadow.7.c);
ObjectSetText("hi.6.p2",DoubleToStr(hi.ma.p2.6,Digits),7,"Arial",fib.SR.shadow.7.c);}
//...............MovingAverageSupport&ResistanceLevels..............................
stringspace="";
ObjectCreate("ma1.p2",OBJ_TEXT,0,t1.p2,ma1.p2);//13ma
ObjectSetText("ma1.p2",space+DoubleToStr(ma1.p2,Digits),8,"Arial",White);
ObjectCreate("ma2.p2",OBJ_TEXT,0,t1.p2,ma2.p2);//21ma
ObjectSetText("ma2.p2",space+DoubleToStr(ma2.p2,Digits),8,"Arial",White);
ObjectCreate("ma3.p2",OBJ_TEXT,0,t1.p2,ma3.p2);//34ma
if(Bid>ma3.p2){ObjectSetText("ma3.p2",space+DoubleToStr(ma3.p2,Digits),8,"Arial",LightGreen);}
if(Ask
if(Bid<=ma3.p2&&Ask>=ma3.p2){
ObjectSetText("ma3.p2",space+DoubleToStr(ma3.p2,Digits),8,"Arial",Yellow);}
ObjectCreate("ma4.p2",OBJ_TEXT,0,t1.p2,ma4.p2);//55ma
if(Bid>ma4.p2){ObjectSetText("ma4.p2",space+DoubleToStr(ma4.p2,Digits),8,"Arial",LightGreen);}
if(Ask
if(Bid<=ma4.p2&&Ask>=ma4.p2){
ObjectSetText("ma4.p2",space+DoubleToStr(ma4.p2,Digits),8,"Arial",Yellow);}
ObjectCreate("ma5.p2",OBJ_TEXT,0,t1.p2,ma5.p2);//89ma
if(Bid>ma5.p2){ObjectSetText("ma5.p2",space+DoubleToStr(ma5.p2,Digits),8,"Arial",Green);}
if(Ask
if(Bid<=ma5.p2&&Ask>=ma5.p2){
ObjectSetText("ma5.p2",space+DoubleToStr(ma5.p2,Digits),8,"Arial",Yellow);}
ObjectCreate("ma6.p2",OBJ_TEXT,0,t1.p2,NormalizeDouble(ma6.p2,Digits));//144ma
if(Bid>ma6.p2){ObjectSetText("ma6.p2",space+DoubleToStr(ma6.p2,Digits),8,"Arial",Green);}
if(Ask
if(Bid<=ma6.p2&&Ask>=ma6.p2){
ObjectSetText("ma6.p2",space+DoubleToStr(ma6.p2,Digits),8,"Arial",Yellow);}
ObjectCreate("ma7.p2",OBJ_TEXT,0,t1.p2,NormalizeDouble(ma7.p2,Digits));//233ma
if(Bid>ma7.p2){ObjectSetText("ma7.p2",space+DoubleToStr(ma7.p2,Digits),8,"Arial",Green);}
if(Ask
if(Bid<=ma7.p2&&Ask>=ma7.p2){
ObjectSetText("ma7.p2",space+DoubleToStr(ma7.p2,Digits),8,"Arial",Yellow);}
}//endp2.Fib.Plot()
voidp3.Fib.Plot(){
//p3dynamicfibolevels
doublelo.ma.p3,hi.ma.p3;
lo.ma.p3=ma1.p3;
if(ma2.p3
if(ma3.p3
if(ma4.p3
if(ma5.p3
if(ma6.p3
if(ma7.p3
lo.ma.p3=NormalizeDouble(lo.ma.p3+(fib.SR.shadow.1Point),Digits);
hi.ma.p3=ma7.p3;
if(ma6.p3>hi.ma.p3){hi.ma.p3=ma6.p3;}
if(ma5.p3>hi.ma.p3){hi.ma.p3=ma5.p3;}
if(ma4.p3>hi.ma.p3){hi.ma.p3=ma4.p3;}
if(ma3.p3>hi.ma.p3){hi.ma.p3=ma3.p3;}
if(ma2.p3>hi.ma.p3){hi.ma.p3=ma2.p3;}
if(ma1.p3>hi.ma.p3){hi.ma.p3=ma1.p3;}
hi.ma.p3=NormalizeDouble(hi.ma.p3-(fib.SR.shadow.1Point),Digits);
//p3centerdynamicfibplacement
if(lo.ma.p3-hi.ma.p3>Ask-Bid){
ObjectCreate("lcf.p3",OBJ_TREND,0,t1.p3,lo.ma.p3,t2.p3,lo.ma.p3);
ObjectSet("lcf.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lcf.p3",OBJPROP_WIDTH,2);
ObjectSet("lcf.p3",OBJPROP_RAY,false);
ObjectSet("lcf.p3",OBJPROP_COLOR,fib.SR.shadow.1.c);
ObjectSetText("lcf.p3",DoubleToStr(lo.ma.p3,Digits),7,"Arial",fib.SR.shadow.1.c);
ObjectCreate("hcf.p3",OBJ_TREND,0,t1.p3,hi.ma.p3,t2.p3,hi.ma.p3);
ObjectSet("hcf.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hcf.p3",OBJPROP_WIDTH,2);
ObjectSet("hcf.p3",OBJPROP_RAY,false);
ObjectSet("hcf.p3",OBJPROP_COLOR,fib.SR.shadow.1.c);
ObjectSetText("hcf.p3",DoubleToStr(hi.ma.p3,Digits),7,"Arial",fib.SR.shadow.1.c);}
doublelo.ma.p3.1,lo.ma.p3.2,lo.ma.p3.3,lo.ma.p3.4,lo.ma.p3.5,lo.ma.p3.6;
lo.ma.p3.1=lo.ma.p3+(fib.SR.shadow.2Point);
lo.ma.p3.2=lo.ma.p3.1+(fib.SR.shadow.3Point);
lo.ma.p3.3=lo.ma.p3.2+(fib.SR.shadow.4Point);
lo.ma.p3.4=lo.ma.p3.3+(fib.SR.shadow.5Point);
lo.ma.p3.5=lo.ma.p3.4+(fib.SR.shadow.6Point);
lo.ma.p3.6=lo.ma.p3.5+(fib.SR.shadow.7Point);
doublehi.ma.p3.1,hi.ma.p3.2,hi.ma.p3.3,hi.ma.p3.4,hi.ma.p3.5,hi.ma.p3.6;
hi.ma.p3.1=hi.ma.p3-(fib.SR.shadow.2Point);
hi.ma.p3.2=hi.ma.p3.1-(fib.SR.shadow.3Point);
hi.ma.p3.3=hi.ma.p3.2-(fib.SR.shadow.4Point);
hi.ma.p3.4=hi.ma.p3.3-(fib.SR.shadow.5Point);
hi.ma.p3.5=hi.ma.p3.4-(fib.SR.shadow.6Point);
hi.ma.p3.6=hi.ma.p3.5-(fib.SR.shadow.7Point);
//p31stlevel(hi.1.p3,lo.1.p3)
if(lo.ma.p3.1-hi.ma.p3.1>Ask-Bid){
ObjectCreate("lo.1.p3",OBJ_TREND,0,t1.p3,lo.ma.p3.1,t2.p3,lo.ma.p3.1);
ObjectSet("lo.1.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.1.p3",OBJPROP_WIDTH,2);
ObjectSet("lo.1.p3",OBJPROP_RAY,false);
ObjectSet("lo.1.p3",OBJPROP_COLOR,fib.SR.shadow.2.c);
ObjectSetText("lo.1.p3",DoubleToStr(lo.ma.p3.1,Digits),7,"Arial",fib.SR.shadow.2.c);
ObjectCreate("hi.1.p3",OBJ_TREND,0,t1.p3,hi.ma.p3.1,t2.p3,hi.ma.p3.1);
ObjectSet("hi.1.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.1.p3",OBJPROP_WIDTH,2);
ObjectSet("hi.1.p3",OBJPROP_RAY,false);
ObjectSet("hi.1.p3",OBJPROP_COLOR,fib.SR.shadow.2.c);
ObjectSetText("hi.1.p3",DoubleToStr(hi.ma.p3.1,Digits),7,"Arial",fib.SR.shadow.2.c);}
//2stlevel(hi.2.p3,lo.2.p3)
if(lo.ma.p3.2-hi.ma.p3.2>Ask-Bid){
ObjectCreate("lo.2.p3",OBJ_TREND,0,t1.p3,lo.ma.p3.2,t2.p3,lo.ma.p3.2);
ObjectSet("lo.2.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.2.p3",OBJPROP_WIDTH,2);
ObjectSet("lo.2.p3",OBJPROP_RAY,false);
ObjectSet("lo.2.p3",OBJPROP_COLOR,fib.SR.shadow.3.c);
ObjectSetText("lo.2.p3",DoubleToStr(lo.ma.p3.2,Digits),7,"Arial",fib.SR.shadow.3.c);
ObjectCreate("hi.2.p3",OBJ_TREND,0,t1.p3,hi.ma.p3.2,t2.p3,hi.ma.p3.2);
ObjectSet("hi.2.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.2.p3",OBJPROP_WIDTH,2);
ObjectSet("hi.2.p3",OBJPROP_RAY,false);
ObjectSet("hi.2.p3",OBJPROP_COLOR,fib.SR.shadow.3.c);
ObjectSetText("hi.2.p3",DoubleToStr(hi.ma.p3.2,Digits),7,"Arial",fib.SR.shadow.3.c);}
//3rdlevel(hi.3.p3,lo.3.p3)
if(lo.ma.p3.3-hi.ma.p3.3>Ask-Bid){
ObjectCreate("lo.3.p3",OBJ_TREND,0,t1.p3,lo.ma.p3.3,t2.p3,lo.ma.p3.3);
ObjectSet("lo.3.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.3.p3",OBJPROP_WIDTH,2);
ObjectSet("lo.3.p3",OBJPROP_RAY,false);
ObjectSet("lo.3.p3",OBJPROP_COLOR,fib.SR.shadow.4.c);
ObjectSetText("lo.3.p3",DoubleToStr(lo.ma.p3.3,Digits),7,"Arial",fib.SR.shadow.4.c);
ObjectCreate("hi.3.p3",OBJ_TREND,0,t1.p3,hi.ma.p3.3,t2.p3,hi.ma.p3.3);
ObjectSet("hi.3.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.3.p3",OBJPROP_WIDTH,2);
ObjectSet("hi.3.p3",OBJPROP_RAY,false);
ObjectSet("hi.3.p3",OBJPROP_COLOR,fib.SR.shadow.4.c);
ObjectSetText("hi.3.p3",DoubleToStr(hi.ma.p3.3,Digits),7,"Arial",fib.SR.shadow.4.c);}
//4thlevel(hi.4.p3,lo.4.p3)
if(lo.ma.p3.4-hi.ma.p3.4>Ask-Bid){
ObjectCreate("lo.4.p3",OBJ_TREND,0,t1.p3,lo.ma.p3.4,t2.p3,lo.ma.p3.4);
ObjectSet("lo.4.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.4.p3",OBJPROP_WIDTH,2);
ObjectSet("lo.4.p3",OBJPROP_RAY,false);
ObjectSet("lo.4.p3",OBJPROP_COLOR,fib.SR.shadow.5.c);
ObjectSetText("lo.4.p3",DoubleToStr(lo.ma.p3.4,Digits),7,"Arial",fib.SR.shadow.5.c);
ObjectCreate("hi.4.p3",OBJ_TREND,0,t1.p3,hi.ma.p3.4,t2.p3,hi.ma.p3.4);
ObjectSet("hi.4.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.4.p3",OBJPROP_WIDTH,2);
ObjectSet("hi.4.p3",OBJPROP_RAY,false);
ObjectSet("hi.4.p3",OBJPROP_COLOR,fib.SR.shadow.5.c);
ObjectSetText("hi.4.p3",DoubleToStr(hi.ma.p3.4,Digits),7,"Arial",fib.SR.shadow.5.c);}
//5thlevel(hi.5.p3,lo.5.p3)
if(lo.ma.p3.5-hi.ma.p3.5>Ask-Bid){
ObjectCreate("lo.5.p3",OBJ_TREND,0,t1.p3,lo.ma.p3.5,t2.p3,lo.ma.p3.5);
ObjectSet("lo.5.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.5.p3",OBJPROP_WIDTH,2);
ObjectSet("lo.5.p3",OBJPROP_RAY,false);
ObjectSet("lo.5.p3",OBJPROP_COLOR,fib.SR.shadow.6.c);
ObjectSetText("lo.5.p3",DoubleToStr(lo.ma.p3.5,Digits),7,"Arial",fib.SR.shadow.6.c);
ObjectCreate("hi.5.p3",OBJ_TREND,0,t1.p3,hi.ma.p3.5,t2.p3,hi.ma.p3.5);
ObjectSet("hi.5.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.5.p3",OBJPROP_WIDTH,2);
ObjectSet("hi.5.p3",OBJPROP_RAY,false);
ObjectSet("hi.5.p3",OBJPROP_COLOR,fib.SR.shadow.6.c);
ObjectSetText("hi.5.p3",DoubleToStr(hi.ma.p3.5,Digits),7,"Arial",fib.SR.shadow.6.c);}
//6thlevel(hi.6.p3,lo.6.p3)
if(lo.ma.p3.6-hi.ma.p3.6>Ask-Bid){
ObjectCreate("lo.6.p3",OBJ_TREND,0,t1.p3,lo.ma.p3.6,t2.p3,lo.ma.p3.6);
ObjectSet("lo.6.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.6.p3",OBJPROP_WIDTH,2);
ObjectSet("lo.6.p3",OBJPROP_RAY,false);
ObjectSet("lo.6.p3",OBJPROP_COLOR,fib.SR.shadow.7.c);
ObjectSetText("lo.6.p3",DoubleToStr(lo.ma.p3.6,Digits),7,"Arial",fib.SR.shadow.7.c);
ObjectCreate("hi.6.p3",OBJ_TREND,0,t1.p3,hi.ma.p3.6,t2.p3,hi.ma.p3.6);
ObjectSet("hi.6.p3",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.6.p3",OBJPROP_WIDTH,2);
ObjectSet("hi.6.p3",OBJPROP_RAY,false);
ObjectSet("hi.6.p3",OBJPROP_COLOR,fib.SR.shadow.7.c);
ObjectSetText("hi.6.p3",DoubleToStr(hi.ma.p3.6,Digits),7,"Arial",fib.SR.shadow.7.c);}
//...............MovingAverageSupport&ResistanceLevels..............................
stringspace="";
ObjectCreate("ma1.p3",OBJ_TEXT,0,t1.p3,ma1.p3);//13ma
ObjectSetText("ma1.p3",space+DoubleToStr(ma1.p3,Digits),8,"Arial",White);
ObjectCreate("ma2.p3",OBJ_TEXT,0,t1.p3,ma2.p3);//21ma
ObjectSetText("ma2.p3",space+DoubleToStr(ma2.p3,Digits),8,"Arial",White);
ObjectCreate("ma3.p3",OBJ_TEXT,0,t1.p3,ma3.p3);//34ma
if(Bid>ma3.p3){ObjectSetText("ma3.p3",space+DoubleToStr(ma3.p3,Digits),8,"Arial",LightGreen);}
if(Ask
if(Bid<=ma3.p3&&Ask>=ma3.p3){
ObjectSetText("ma3.p3",space+DoubleToStr(ma3.p3,Digits),8,"Arial",Yellow);}
ObjectCreate("ma4.p3",OBJ_TEXT,0,t1.p3,ma4.p3);//55ma
if(Bid>ma4.p3){ObjectSetText("ma4.p3",space+DoubleToStr(ma4.p3,Digits),8,"Arial",LightGreen);}
if(Ask
if(Bid<=ma4.p3&&Ask>=ma4.p3){
ObjectSetText("ma4.p3",space+DoubleToStr(ma4.p3,Digits),8,"Arial",Yellow);}
ObjectCreate("ma5.p3",OBJ_TEXT,0,t1.p3,ma5.p3);//89ma
if(Bid>ma5.p3){ObjectSetText("ma5.p3",space+DoubleToStr(ma5.p3,Digits),8,"Arial",Green);}
if(Ask
if(Bid<=ma5.p3&&Ask>=ma5.p3){
ObjectSetText("ma5.p3",space+DoubleToStr(ma5.p3,Digits),8,"Arial",Yellow);}
ObjectCreate("ma6.p3",OBJ_TEXT,0,t1.p3,NormalizeDouble(ma6.p3,Digits));//144ma
if(Bid>ma6.p3){ObjectSetText("ma6.p3",space+DoubleToStr(ma6.p3,Digits),8,"Arial",Green);}
if(Ask
if(Bid<=ma6.p3&&Ask>=ma6.p3){
ObjectSetText("ma6.p3",space+DoubleToStr(ma6.p3,Digits),8,"Arial",Yellow);}
ObjectCreate("ma7.p3",OBJ_TEXT,0,t1.p3,NormalizeDouble(ma7.p3,Digits));//233ma
if(Bid>ma7.p3){ObjectSetText("ma7.p3",space+DoubleToStr(ma7.p3,Digits),8,"Arial",Green);}
if(Ask
if(Bid<=ma7.p3&&Ask>=ma7.p3){
ObjectSetText("ma7.p3",space+DoubleToStr(ma7.p3,Digits),8,"Arial",Yellow);}
}//endp3.Fib.Plot()
voidp4.Fib.Plot(){
//p4dynamicfibolevels
doublelo.ma.p4,hi.ma.p4;
lo.ma.p4=ma1.p4;
if(ma2.p4
if(ma3.p4
if(ma4.p4
if(ma5.p4
if(ma6.p4
if(ma7.p4
lo.ma.p4=NormalizeDouble(lo.ma.p4+(fib.SR.shadow.1Point),Digits);
hi.ma.p4=ma7.p4;
if(ma6.p4>hi.ma.p4){hi.ma.p4=ma6.p4;}
if(ma5.p4>hi.ma.p4){hi.ma.p4=ma5.p4;}
if(ma4.p4>hi.ma.p4){hi.ma.p4=ma4.p4;}
if(ma3.p4>hi.ma.p4){hi.ma.p4=ma3.p4;}
if(ma2.p4>hi.ma.p4){hi.ma.p4=ma2.p4;}
if(ma1.p4>hi.ma.p4){hi.ma.p4=ma1.p4;}
hi.ma.p4=NormalizeDouble(hi.ma.p4-(fib.SR.shadow.1Point),Digits);
//p4centerdynamicfibplacement
if(lo.ma.p4-hi.ma.p4>Ask-Bid){
ObjectCreate("lcf.p4",OBJ_TREND,0,t1.p4,lo.ma.p4,t2.p4,lo.ma.p4);
ObjectSet("lcf.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lcf.p4",OBJPROP_WIDTH,2);
ObjectSet("lcf.p4",OBJPROP_RAY,false);
ObjectSet("lcf.p4",OBJPROP_COLOR,fib.SR.shadow.1.c);
ObjectSetText("lcf.p4",DoubleToStr(lo.ma.p4,Digits),7,"Arial",fib.SR.shadow.1.c);
ObjectCreate("hcf.p4",OBJ_TREND,0,t1.p4,hi.ma.p4,t2.p4,hi.ma.p4);
ObjectSet("hcf.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hcf.p4",OBJPROP_WIDTH,2);
ObjectSet("hcf.p4",OBJPROP_RAY,false);
ObjectSet("hcf.p4",OBJPROP_COLOR,fib.SR.shadow.1.c);
ObjectSetText("hcf.p4",DoubleToStr(hi.ma.p4,Digits),7,"Arial",fib.SR.shadow.1.c);}
doublelo.ma.p4.1,lo.ma.p4.2,lo.ma.p4.3,lo.ma.p4.4,lo.ma.p4.5,lo.ma.p4.6;
lo.ma.p4.1=lo.ma.p4+(fib.SR.shadow.2Point);
lo.ma.p4.2=lo.ma.p4.1+(fib.SR.shadow.3Point);
lo.ma.p4.3=lo.ma.p4.2+(fib.SR.shadow.4Point);
lo.ma.p4.4=lo.ma.p4.3+(fib.SR.shadow.5Point);
lo.ma.p4.5=lo.ma.p4.4+(fib.SR.shadow.6Point);
lo.ma.p4.6=lo.ma.p4.5+(fib.SR.shadow.7Point);
doublehi.ma.p4.1,hi.ma.p4.2,hi.ma.p4.3,hi.ma.p4.4,hi.ma.p4.5,hi.ma.p4.6;
hi.ma.p4.1=hi.ma.p4-(fib.SR.shadow.2Point);
hi.ma.p4.2=hi.ma.p4.1-(fib.SR.shadow.3Point);
hi.ma.p4.3=hi.ma.p4.2-(fib.SR.shadow.4Point);
hi.ma.p4.4=hi.ma.p4.3-(fib.SR.shadow.5Point);
hi.ma.p4.5=hi.ma.p4.4-(fib.SR.shadow.6Point);
hi.ma.p4.6=hi.ma.p4.5-(fib.SR.shadow.7Point);
//p41stlevel(hi.1.p4,lo.1.p4)
if(lo.ma.p4.1-hi.ma.p4.1>Ask-Bid){
ObjectCreate("lo.1.p4",OBJ_TREND,0,t1.p4,lo.ma.p4.1,t2.p4,lo.ma.p4.1);
ObjectSet("lo.1.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.1.p4",OBJPROP_WIDTH,2);
ObjectSet("lo.1.p4",OBJPROP_RAY,false);
ObjectSet("lo.1.p4",OBJPROP_COLOR,fib.SR.shadow.2.c);
ObjectSetText("lo.1.p4",DoubleToStr(lo.ma.p4.1,Digits),7,"Arial",fib.SR.shadow.2.c);
ObjectCreate("hi.1.p4",OBJ_TREND,0,t1.p4,hi.ma.p4.1,t2.p4,hi.ma.p4.1);
ObjectSet("hi.1.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.1.p4",OBJPROP_WIDTH,2);
ObjectSet("hi.1.p4",OBJPROP_RAY,false);
ObjectSet("hi.1.p4",OBJPROP_COLOR,fib.SR.shadow.2.c);
ObjectSetText("hi.1.p4",DoubleToStr(hi.ma.p4.1,Digits),7,"Arial",fib.SR.shadow.2.c);}
//2stlevel(hi.2.p4,lo.2.p4)
if(lo.ma.p4.2-hi.ma.p4.2>Ask-Bid){
ObjectCreate("lo.2.p4",OBJ_TREND,0,t1.p4,lo.ma.p4.2,t2.p4,lo.ma.p4.2);
ObjectSet("lo.2.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.2.p4",OBJPROP_WIDTH,2);
ObjectSet("lo.2.p4",OBJPROP_RAY,false);
ObjectSet("lo.2.p4",OBJPROP_COLOR,fib.SR.shadow.3.c);
ObjectSetText("lo.2.p4",DoubleToStr(lo.ma.p4.2,Digits),7,"Arial",fib.SR.shadow.3.c);
ObjectCreate("hi.2.p4",OBJ_TREND,0,t1.p4,hi.ma.p4.2,t2.p4,hi.ma.p4.2);
ObjectSet("hi.2.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.2.p4",OBJPROP_WIDTH,2);
ObjectSet("hi.2.p4",OBJPROP_RAY,false);
ObjectSet("hi.2.p4",OBJPROP_COLOR,fib.SR.shadow.3.c);
ObjectSetText("hi.2.p4",DoubleToStr(hi.ma.p4.2,Digits),7,"Arial",fib.SR.shadow.3.c);}
//3rdlevel(hi.3.p4,lo.3.p4)
if(lo.ma.p4.3-hi.ma.p4.3>Ask-Bid){
ObjectCreate("lo.3.p4",OBJ_TREND,0,t1.p4,lo.ma.p4.3,t2.p4,lo.ma.p4.3);
ObjectSet("lo.3.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.3.p4",OBJPROP_WIDTH,2);
ObjectSet("lo.3.p4",OBJPROP_RAY,false);
ObjectSet("lo.3.p4",OBJPROP_COLOR,fib.SR.shadow.4.c);
ObjectSetText("lo.3.p4",DoubleToStr(lo.ma.p4.3,Digits),7,"Arial",fib.SR.shadow.4.c);
ObjectCreate("hi.3.p4",OBJ_TREND,0,t1.p4,hi.ma.p4.3,t2.p4,hi.ma.p4.3);
ObjectSet("hi.3.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.3.p4",OBJPROP_WIDTH,2);
ObjectSet("hi.3.p4",OBJPROP_RAY,false);
ObjectSet("hi.3.p4",OBJPROP_COLOR,fib.SR.shadow.4.c);
ObjectSetText("hi.3.p4",DoubleToStr(hi.ma.p4.3,Digits),7,"Arial",fib.SR.shadow.4.c);}
//4thlevel(hi.4.p4,lo.4.p4)
if(lo.ma.p4.4-hi.ma.p4.4>Ask-Bid){
ObjectCreate("lo.4.p4",OBJ_TREND,0,t1.p4,lo.ma.p4.4,t2.p4,lo.ma.p4.4);
ObjectSet("lo.4.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.4.p4",OBJPROP_WIDTH,2);
ObjectSet("lo.4.p4",OBJPROP_RAY,false);
ObjectSet("lo.4.p4",OBJPROP_COLOR,fib.SR.shadow.5.c);
ObjectSetText("lo.4.p4",DoubleToStr(lo.ma.p4.4,Digits),7,"Arial",fib.SR.shadow.5.c);
ObjectCreate("hi.4.p4",OBJ_TREND,0,t1.p4,hi.ma.p4.4,t2.p4,hi.ma.p4.4);
ObjectSet("hi.4.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.4.p4",OBJPROP_WIDTH,2);
ObjectSet("hi.4.p4",OBJPROP_RAY,false);
ObjectSet("hi.4.p4",OBJPROP_COLOR,fib.SR.shadow.5.c);
ObjectSetText("hi.4.p4",DoubleToStr(hi.ma.p4.4,Digits),7,"Arial",fib.SR.shadow.5.c);}
//5thlevel(hi.5.p4,lo.5.p4)
if(lo.ma.p4.5-hi.ma.p4.5>Ask-Bid){
ObjectCreate("lo.5.p4",OBJ_TREND,0,t1.p4,lo.ma.p4.5,t2.p4,lo.ma.p4.5);
ObjectSet("lo.5.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.5.p4",OBJPROP_WIDTH,2);
ObjectSet("lo.5.p4",OBJPROP_RAY,false);
ObjectSet("lo.5.p4",OBJPROP_COLOR,fib.SR.shadow.6.c);
ObjectSetText("lo.5.p4",DoubleToStr(lo.ma.p4.5,Digits),7,"Arial",fib.SR.shadow.6.c);
ObjectCreate("hi.5.p4",OBJ_TREND,0,t1.p4,hi.ma.p4.5,t2.p4,hi.ma.p4.5);
ObjectSet("hi.5.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.5.p4",OBJPROP_WIDTH,2);
ObjectSet("hi.5.p4",OBJPROP_RAY,false);
ObjectSet("hi.5.p4",OBJPROP_COLOR,fib.SR.shadow.6.c);
ObjectSetText("hi.5.p4",DoubleToStr(hi.ma.p4.5,Digits),7,"Arial",fib.SR.shadow.6.c);}
//6thlevel(hi.6.p4,lo.6.p4)
if(lo.ma.p4.6-hi.ma.p4.6>Ask-Bid){
ObjectCreate("lo.6.p4",OBJ_TREND,0,t1.p4,lo.ma.p4.6,t2.p4,lo.ma.p4.6);
ObjectSet("lo.6.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("lo.6.p4",OBJPROP_WIDTH,2);
ObjectSet("lo.6.p4",OBJPROP_RAY,false);
ObjectSet("lo.6.p4",OBJPROP_COLOR,fib.SR.shadow.7.c);
ObjectSetText("lo.6.p4",DoubleToStr(lo.ma.p4.6,Digits),7,"Arial",fib.SR.shadow.7.c);
ObjectCreate("hi.6.p4",OBJ_TREND,0,t1.p4,hi.ma.p4.6,t2.p4,hi.ma.p4.6);
ObjectSet("hi.6.p4",OBJPROP_STYLE,STYLE_SOLID);
ObjectSet("hi.6.p4",OBJPROP_WIDTH,2);
ObjectSet("hi.6.p4",OBJPROP_RAY,false);
ObjectSet("hi.6.p4",OBJPROP_COLOR,fib.SR.shadow.7.c);
ObjectSetText("hi.6.p4",DoubleToStr(hi.ma.p4.6,Digits),7,"Arial",fib.SR.shadow.7.c);}
//...............MovingAverageSupport&ResistanceLevels..............................
stringspace="";
ObjectCreate("ma1.p4",OBJ_TEXT,0,t1.p4,ma1.p4);//13ma
ObjectSetText("ma1.p4",space+DoubleToStr(ma1.p4,Digits),8,"Arial",White);
ObjectCreate("ma2.p4",OBJ_TEXT,0,t1.p4,ma2.p4);//21ma
ObjectSetText("ma2.p4",space+DoubleToStr(ma2.p4,Digits),8,"Arial",White);
ObjectCreate("ma3.p4",OBJ_TEXT,0,t1.p4,ma3.p4);//34ma
if(Bid>ma3.p4){ObjectSetText("ma3.p4",space+DoubleToStr(ma3.p4,Digits),8,"Arial",LightGreen);}
if(Ask
if(Bid<=ma3.p4&&Ask>=ma3.p4){
ObjectSetText("ma3.p4",space+DoubleToStr(ma3.p4,Digits),8,"Arial",Yellow);}
ObjectCreate("ma4.p4",OBJ_TEXT,0,t1.p4,ma4.p4);//55ma
if(Bid>ma4.p4){ObjectSetText("ma4.p4",space+DoubleToStr(ma4.p4,Digits),8,"Arial",LightGreen);}
if(Ask
if(Bid<=ma4.p4&&Ask>=ma4.p4){
ObjectSetText("ma4.p4",space+DoubleToStr(ma4.p4,Digits),8,"Arial",Yellow);}
ObjectCreate("ma5.p4",OBJ_TEXT,0,t1.p4,ma5.p4);//89ma
if(Bid>ma5.p4){ObjectSetText("ma5.p4",space+DoubleToStr(ma5.p4,Digits),8,"Arial",Green);}
if(Ask
if(Bid<=ma5.p4&&Ask>=ma5.p4){
ObjectSetText("ma5.p4",space+DoubleToStr(ma5.p4,Digits),8,"Arial",Yellow);}
ObjectCreate("ma6.p4",OBJ_TEXT,0,t1.p4,NormalizeDouble(ma6.p4,Digits));//144ma
if(Bid>ma6.p4){ObjectSetText("ma6.p4",space+DoubleToStr(ma6.p4,Digits),8,"Arial",Green);}
if(Ask
if(Bid<=ma6.p4&&Ask>=ma6.p4){
ObjectSetText("ma6.p4",space+DoubleToStr(ma6.p4,Digits),8,"Arial",Yellow);}
ObjectCreate("ma7.p4",OBJ_TEXT,0,t1.p4,NormalizeDouble(ma7.p4,Digits));//233ma
if(Bid>ma7.p4){ObjectSetText("ma7.p4",space+DoubleToStr(ma7.p4,Digits),8,"Arial",Green);}
if(Ask
if(Bid<=ma7.p4&&Ask>=ma7.p4){
ObjectSetText("ma7.p4",space+DoubleToStr(ma7.p4,Digits),8,"Arial",Yellow);}
}//endp4.Fib.Plot()
voidcolumn(){
//..................TimeFrameColumns.................................................
//Addition-usesPsarofthattimeframetocolourthelanes
//Dullred-greenpsarsarenotwithyou
//brighterred-greenpsarinyourfavour
//becausePsarappearswiththenewbarIthingicanuseBar0
//forfasternotification.
stringcolumn.down,column.up;
column.down=Bid+"";column.up=Ask+"";
//1stColumn
if(iSAR(NULL,p1.ma,0.02,0.2,0)
{
ObjectCreate(column.up+p1.ma,OBJ_RECTANGLE,0,t1.p1,Ask,t2.p1,Ask1.5);
ObjectSet(column.up+p1.ma,OBJPROP_COLOR,LimeGreen);
}
else
{
ObjectCreate(column.up+p1.ma,OBJ_RECTANGLE,0,t1.p1,Ask,t2.p1,Ask1.5);
ObjectSet(column.up+p1.ma,OBJPROP_COLOR,Green);
}
if(iSAR(NULL,p1.ma,0.02,0.2,0)>Bid)//noequalsfor1minitssensitive
{
ObjectCreate(column.down+p1.ma,OBJ_RECTANGLE,0,t1.p1,Bid,t2.p1,0);
ObjectSet(column.down+p1.ma,OBJPROP_COLOR,Red);
}
else
{
ObjectCreate(column.down+p1.ma,OBJ_RECTANGLE,0,t1.p1,Bid,t2.p1,0);
ObjectSet(column.down+p1.ma,OBJPROP_COLOR,IndianRed);
}
//2ndColumn
if(iSAR(NULL,p2.ma,0.02,0.2,0)<=Ask)
{
ObjectCreate(column.up+p2.ma,OBJ_RECTANGLE,0,t1.p2,Ask,t2.p2,Ask1.5);
ObjectSet(column.up+p2.ma,OBJPROP_COLOR,LimeGreen);
}
else
{
ObjectCreate(column.up+p2.ma,OBJ_RECTANGLE,0,t1.p2,Ask,t2.p2,Ask1.5);
ObjectSet(column.up+p2.ma,OBJPROP_COLOR,Green);
}
if(iSAR(NULL,p2.ma,0.02,0.2,0)>=Bid)
{
ObjectCreate(column.down+p2.ma,OBJ_RECTANGLE,0,t1.p2,0,t2.p2,Bid);
ObjectSet(column.down+p2.ma,OBJPROP_COLOR,Red);
}
else
{
ObjectCreate(column.down+p2.ma,OBJ_RECTANGLE,0,t1.p2,0,t2.p2,Bid);
ObjectSet(column.down+p2.ma,OBJPROP_COLOR,IndianRed);
}
//3rdColumn
if(iSAR(NULL,p3.ma,0.02,0.2,0)<=Ask)
{
ObjectCreate(column.up+p3.ma,OBJ_RECTANGLE,0,t1.p3,Ask,t2.p3,Ask1.5);
ObjectSet(column.up+p3.ma,OBJPROP_COLOR,LimeGreen);
}
else
{
ObjectCreate(column.up+p3.ma,OBJ_RECTANGLE,0,t1.p3,Ask,t2.p3,Ask1.5);
ObjectSet(column.up+p3.ma,OBJPROP_COLOR,Green);
}
if(iSAR(NULL,p3.ma,0.02,0.2,0)>=Bid)
{
ObjectCreate(column.down+p3.ma,OBJ_RECTANGLE,0,t1.p3,Bid,t2.p3,0);
ObjectSet(column.down+p3.ma,OBJPROP_COLOR,Red);
}
else
{
ObjectCreate(column.down+p3.ma,OBJ_RECTANGLE,0,t1.p3,Bid,t2.p3,0);
ObjectSet(column.down+p3.ma,OBJPROP_COLOR,IndianRed);
}
//4thcolumn
if(iSAR(NULL,p4.ma,0.02,0.2,0)<=Ask)
{
ObjectCreate(column.up+p4.ma,OBJ_RECTANGLE,0,t1.p4,Ask,t2.p4,Ask1.5);
ObjectSet(column.up+p4.ma,OBJPROP_COLOR,LimeGreen);
}
else
{
ObjectCreate(column.up+p4.ma,OBJ_RECTANGLE,0,t1.p4,Ask,t2.p4,Ask1.5);
ObjectSet(column.up+p4.ma,OBJPROP_COLOR,Green);
}
if(iSAR(NULL,p4.ma,0.02,0.2,0)>=Bid)
{
ObjectCreate(column.down+p4.ma,OBJ_RECTANGLE,0,t1.p4,Bid,t2.p4,0);
ObjectSet(column.down+p4.ma,OBJPROP_COLOR,Red);
}
else
{
ObjectCreate(column.down+p4.ma,OBJ_RECTANGLE,0,t1.p4,Bid,t2.p4,0);
ObjectSet(column.down+p4.ma,OBJPROP_COLOR,IndianRed);
}
}//endColumns
//----done
EA3
//+------------------------------------------------------------------+
//|MACDSample.mq4|
//|Copyright?2005,MetaQuotesSoftwareCorp.|
//|http://www.metaquotes.net/|
//+------------------------------------------------------------------+
externdoubleTakeProfit=50;
externdoubleLots=0.1;
externdoubleTrailingStop=30;
externdoubleMACDOpenLevel=3;
externdoubleMACDCloseLevel=2;
externdoubleMATrendPeriod=26;
//+------------------------------------------------------------------+
//||
//+------------------------------------------------------------------+
intstart()
{
doubleMacdCurrent,MacdPrevious,SignalCurrent;
doubleSignalPrevious,MaCurrent,MaPrevious;
intcnt,ticket,total;
//initialdatachecks
//itisimportanttomakesurethattheexpertworkswithanormal
//chartandtheuserdidnotmakeanymistakessettingexternal
//variables(Lots,StopLoss,TakeProfit,
//TrailingStop)inourcase,wecheckTakeProfit
//onachartoflessthan100bars
if(Bars<100)
{
Print("barslessthan100");
return(0);
}
if(TakeProfit<10)
{
Print("TakeProfitlessthan10");
return(0);//checkTakeProfit
}
//tosimplifythecodingandspeedupaccess
//dataareputintointernalvariables
MacdCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,0);
MacdPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,1);
SignalCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,0);
SignalPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,1);
MaCurrent=iMA(NULL,0,MATrendPeriod,0,MODE_EMA,PRICE_CLOSE,0);
MaPrevious=iMA(NULL,0,MATrendPeriod,0,MODE_EMA,PRICE_CLOSE,1);
total=OrdersTotal();
if(total<1)
{
//noopenedordersidentified
if(AccountFreeMargin()<(1000Lots))
{
Print("Wehavenomoney.FreeMargin=",AccountFreeMargin());
return(0);
}
//checkforlongposition(BUY)possibility
if(MacdCurrent<0&&MacdCurrent>SignalCurrent&&MacdPrevious
MathAbs(MacdCurrent)>(MACDOpenLevelPoint)&&MaCurrent>MaPrevious)
{
ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,Ask+TakeProfitPoint,"macdsample",16384,0,Green);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))Print("BUYorderopened:",OrderOpenPrice());
}
elsePrint("ErroropeningBUYorder:",GetLastError());
return(0);
}
//checkforshortposition(SELL)possibility
if(MacdCurrent>0&&MacdCurrentSignalPrevious&&
MacdCurrent>(MACDOpenLevelPoint)&&MaCurrent
{
ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,Bid-TakeProfitPoint,"macdsample",16384,0,Red);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))Print("SELLorderopened:",OrderOpenPrice());
}
elsePrint("ErroropeningSELLorder:",GetLastError());
return(0);
}
return(0);
}
//itisimportanttoenterthemarketcorrectly,
//butitismoreimportanttoexititcorrectly...
for(cnt=0;cnt
{
OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
if(OrderType()<=OP_SELL&&//checkforopenedposition
OrderSymbol()==Symbol())//checkforsymbol
{
if(OrderType()==OP_BUY)//longpositionisopened
{
//shoulditbeclosed?
if(MacdCurrent>0&&MacdCurrentSignalPrevious&&
MacdCurrent>(MACDCloseLevelPoint))
{
OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet);//closeposition
return(0);//exit
}
//checkfortrailingstop
if(TrailingStop>0)
{
if(Bid-OrderOpenPrice()>PointTrailingStop)
{
if(OrderStopLoss()
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-PointTrailingStop,OrderTakeProfit(),0,Green);
return(0);
}
}
}
}
else//gotoshortposition
{
//shoulditbeclosed?
if(MacdCurrent<0&&MacdCurrent>SignalCurrent&&
MacdPrevious(MACDCloseLevelPoint))
{
OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet);//closeposition
return(0);//exit
}
//checkfortrailingstop
if(TrailingStop>0)
{
if((OrderOpenPrice()-Ask)>(PointTrailingStop))
{
if((OrderStopLoss()>(Ask+PointTrailingStop))||(OrderStopLoss()==0))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+PointTrailingStop,OrderTakeProfit(),0,Red);
return(0);
}
}
}
}
}
}
return(0);
}
//theend.
EA4
//+------------------------------------------------------------------+
//|MovingAverage.mq4|
//|Copyright?2005,MetaQuotesSoftwareCorp.|
//|http://www.metaquotes.net/|
//+------------------------------------------------------------------+
#defineMAGICMA20050610
externdoubleLots=0.1;
externdoubleMaximumRisk=0.02;
externdoubleDecreaseFactor=3;
externdoubleMovingPeriod=12;
externdoubleMovingShift=6;
//+------------------------------------------------------------------+
//|Calculateopenpositions|
//+------------------------------------------------------------------+
intCalculateCurrentOrders(stringsymbol)
{
intbuys=0,sells=0;
//----
for(inti=0;i
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false)break;
if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MAGICMA)
{
if(OrderType()==OP_BUY)buys++;
if(OrderType()==OP_SELL)sells++;
}
}
//----returnordersvolume
if(buys>0)return(buys);
elsereturn(-sells);
}
//+------------------------------------------------------------------+
//|Calculateoptimallotsize|
//+------------------------------------------------------------------+
doubleLotsOptimized()
{
doublelot=Lots;
intorders=HistoryTotal();//historyorderstotal
intlosses=0;//numberoflossesorderswithoutabreak
//----selectlotsize
lot=NormalizeDouble(AccountFreeMargin()MaximumRisk/1000.0,1);
//----calcuulatenumberoflossesorderswithoutabreak
if(DecreaseFactor>0)
{
for(inti=orders-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false){Print("Errorinhistory!");break;}
if(OrderSymbol()!=Symbol()||OrderType()>OP_SELL)continue;
//----
if(OrderProfit()>0)break;
if(OrderProfit()<0)losses++;
}
if(losses>1)lot=NormalizeDouble(lot-lotlosses/DecreaseFactor,1);
}
//----returnlotsize
if(lot<0.1)lot=0.1;
return(lot);
}
//+------------------------------------------------------------------+
//|Checkforopenorderconditions|
//+------------------------------------------------------------------+
voidCheckForOpen()
{
doublema;
intres;
//----gotradingonlyforfirsttiksofnewbar
if(Volume[0]>1)return;
//----getMovingAverage
ma=iMA(NULL,0,MovingPeriod,MovingShift,MODE_SMA,PRICE_CLOSE,0);
//----sellconditions
if(Open[1]>ma&&Close[1]
{
res=OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,3,0,0,"",MAGICMA,0,Red);
return;
}
//----buyconditions
if(Open[1]ma)
{
res=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,0,0,"",MAGICMA,0,Blue);
return;
}
//----
}
//+------------------------------------------------------------------+
//|Checkforcloseorderconditions|
//+------------------------------------------------------------------+
voidCheckForClose()
{
doublema;
//----gotradingonlyforfirsttiksofnewbar
if(Volume[0]>1)return;
//----getMovingAverage
ma=iMA(NULL,0,MovingPeriod,MovingShift,MODE_SMA,PRICE_CLOSE,0);
//----
for(inti=0;i
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false)break;
if(OrderMagicNumber()!=MAGICMA||OrderSymbol()!=Symbol())continue;
//----checkordertype
if(OrderType()==OP_BUY)
{
if(Open[1]>ma&&Close[1]
break;
}
if(OrderType()==OP_SELL)
{
if(Open[1]ma)OrderClose(OrderTicket(),OrderLots(),Ask,3,White);
break;
}
}
//----
}
//+------------------------------------------------------------------+
//|Startfunction|
//+------------------------------------------------------------------+
voidstart()
{
//----checkforhistoryandtrading
if(Bars<100||IsTradeAllowed()==false)return;
//----calculateopenordersbycurrentsymbol
if(CalculateCurrentOrders(Symbol())==0)CheckForOpen();
elseCheckForClose();
//----
}
//+------------------------------------------------------------------+
|
|
