//+------------------------------------------------------------------+ //| GoldWarrior01bMT4.mq4 | //| Star | //| Copyright 2005, HomeSoft Corp. and Star| //+------------------------------------------------------------------+ #property copyright "Copyright 2005, HomeSoft Corp. and Star" #property link "bors224@mail.ru" extern double Lots =0.1; extern double StopLoss = 1000; extern double TakeProfit = 50; extern double TrailingStop = 0; extern int ZN=1,ZM=0, per=14,d=3,depth=12,deviation=5,backstep=3,mgod=2005,porog=300,test=1, imps=30,impb=-30,k1=2,k2=4; double LastTradeTime; double kors=0.30,korb=0.15,ZZ2=0,ZZ3=0,cci0=0,cci1=0,nimp =0,wpr0=0,wpr1=0,summa=0, down=0,imp=0,mlot=0,ZZ0=0,ssum=0,bsum=0; int cnt=0,j=0,ssig=0,bsig=0,b=0,bsb=0,sbo=0,bloks=0,blokb=0,pm=0,s=0,blok=1; //---------------------------------------------------------------------------------------------------------------------// // per - ?????? ???? ??????????? // // d - ?????????? ?????? ???????? ??? ??????? // // depth,deviation,backstep - ????????? ?????????? ?????? // // mgod - ??? ???????????? // // porog - ???????? ??????????? ????-??????? ??? ???????? ???? ??????? // // test - ???? ?????? ??????? ?????????? - ??? 1 ????????? ? ?????? // // imps - ????????? ???????? ????????????? ????? ???????? ???? ??? // ???????????? ??????? ?? ??????? // // impb - ????????? ???????? ????????????? ????? ???????? ???? ??? // ???????????? ??????? ?? ??????? // // k1 & k2 - ????????? ??? ??????????? ??????? ????? ????-??????? //??????? ? ??????? ??????. k2/k1=2 - ??????????? // //---------------------------------------------------------------------------------------------------------------------// void SetArrow(datetime t, double p, int k, color c) { ObjectSet("Arrow", OBJPROP_TIME1 , t); ObjectSet("Arrow", OBJPROP_PRICE1 , p); ObjectSet("Arrow", OBJPROP_ARROWCODE, k); ObjectSet("Arrow", OBJPROP_COLOR , c); } int start() { { LastTradeTime=GlobalVariableGet("LastTradeTime"); if (mgod!=Year()) j=j+1; if (j==10000) j=0;//??????? ????? if (k2<2*k1) { Comment("??? ?????????? ?????? ???? ????????? ?2!", "\n","?2 ?????? ???? ?? ????? 2*?1"); return(0); } if (sbo==0 && AccountBalance()<1000) { Comment("??? ?????????? ?????? ????????? ??? ??????? ?? ???????????? ??????? ? 1000$"); return(0); } imp=iCustom(NULL,0,"DayImpuls",per,d,0,1); //?????????? ??????????? nimp=iCustom(NULL,0,"DayImpuls",per,d,0,0); ZZ3=iCustom(NULL,0,"Zigzag",depth,deviation,backstep,ZN); ZZ2=iCustom(NULL,0,"Zigzag",depth,deviation,backstep,ZM); cci1=iCCI(NULL,0,per,PRICE_CLOSE,1); cci0=iCCI(NULL,0,per,PRICE_CLOSE,0); wpr1=iWPR(NULL,0,per,1); wpr0=iWPR(NULL,0,per,0); if ((ZZ3!=0 || ZZ2!=0)//?????? ??? ???????? && cci0 && cci1>0 && cci0>0 && nimp<0 && imp>0) { SetArrow(Time[0],High[0]+5*Point,242,GreenYellow); ssig=1; Comment("ZZ0=",MathRound(ZZ2)," ZZ1=",MathRound(ZZ3)," CCI0=",MathRound(cci0)," Impuls=",MathRound(nimp), "\n","???? ??? iZigZag ????????? ????? - ?????? ???? ????? ??????"); } if ((ZZ3!=0 || ZZ2!=0) //?????? ??? ??????? && cci0>cci1 && cci1<0 && cci0<0 && nimp>0 && imp<0) { SetArrow(Time[0],Low[0]-5*Point,241,Gold); bsig=1; Comment("ZZ0=",MathRound(ZZ2)," ZZ1=",MathRound(ZZ3)," CCI0=",MathRound(cci0)," Impuls=",MathRound(imp), "\n","???? ??? iZigZag ????????? ???? - ???? ???? ????? ??????"); } if ((ZZ2==0 && ZZ3==0)//?????? ?????????? ?????? || sbo!=0 //?????? ??????? ???????? ??????? || (imp<=imps && imp>=impb)) { ssig=0;//?????? ??????? bsig=0; //?????? ??????? Comment("ZZ0=",MathRound(ZZ2)," ZZ1=",MathRound(ZZ3)," CCI1=",MathRound(cci1)," CCI0=",MathRound(cci0), " Impuls=",MathRound(imp), "\n"," ?????? ?? ?????????? ?????? ???????????"); } } sbo=0;s=0;b=0;summa=0;ssum=0;bsum=0; for (cnt=1; cnt { if (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES)) { sbo=sbo+1;//???? ???????? ??????? if ((OrderType()==OP_SELL && OrderSymbol()==Symbol()) || (OrderType()==OP_BUY && OrderSymbol()==Symbol())) summa=summa+OrderProfit();// ?????? ?? ???????? ??????? } if ((OrderType()==OP_SELL && OrderSymbol()==Symbol())) { s=s+1;//?????? ???????? ??????? - ??????? ssum=ssum+OrderProfit();//?????? ??? ??????? } if (OrderType()==OP_BUY && OrderSymbol()==Symbol()) { b=b+1;//?????? ???????? ??????? - ??????? bsum=bsum+OrderProfit();//?????? ??? ??????? } } if ((s+b)==0) porog=300; //???????? ?????????? ???????? ??????? if (blok==0) //??????? ? ?????? ? ????????? ????? ??????? ?????? { if (s==1 && summa>0 //??????? ? ??????? ??????? ??? ??????? ?????? 30 && cci0>50 && nimp>0 && imp>nimp) { mlot=k1*Lots; int ticket=OrderSend(Symbol(),OP_SELL,mlot,Bid,3,Bid+StopLoss*Point,Bid-TakeProfit*Point,"Sculp_Sell",1,0,Yellow); bsb=0; //?????????? ?? ???????? ????? ??????? ?????? blok=1; //?????????? ?? ???????? ????? ??????? ?????? return(0); } //} if (s==1 //????????? Hedg ??????? ?????? ???????? ??????? && summa<-30 && cci0<-120 && nimp<-30 && imp { mlot=k1*Lots; ticket=OrderSend(Symbol(),OP_BUY,mlot,Ask,3,Ask-StopLoss*Point,Ask+TakeProfit*Point,"Sculp_BUY",1,0,Yellow); //Setorder(OP_BUY,mlot,Ask,3,Ask-StopLoss*Point,Ask+TakeProfit*Point,Gold); bsb=0; //?????????? ?? ???????? ????? ??????? ?????? blok=1;//?????????? ?? ???????? ????? ??????? ?????? return(0); } // } if (b==1 //????????? Hedg ??????? ?????? ???????? ??????? && summa<-30 && cci0>120 && nimp>30 && imp>nimp) { mlot=k1*Lots; ticket=OrderSend(Symbol(),OP_SELL,mlot,Bid,3,Bid+StopLoss*Point,Bid-TakeProfit*Point,"Sculp_Sell",1,0,Yellow); // Setorder(OP_SELL,mlot,Bid,3,Bid+StopLoss*Point,Bid -TakeProfit*Point,Gold); bsb=0; //?????????? ?? ???????? ????? ??????? ?????? blok=1; //?????????? ?? ???????? ????? ??????? ?????? return(0); } if(b==1 //??????? ? ??????? ??????? ??? ??????? ?????? 30 && summa>0 && cci0<-50 && nimp<0 && imp { mlot=k1*Lots; ticket=OrderSend(Symbol(),OP_BUY,mlot,Ask,3,Ask-StopLoss*Point,Ask+TakeProfit*Point,"Sculp_BUY",1,0,Yellow); //Setorder(OP_BUY,mlot,Ask,3,Ask-StopLoss*Point,Ask+TakeProfit*Point,Gold); bsb=0;//?????????? ?? ???????? ????? ??????? ?????? blok=1;//?????????? ?? ???????? ????? ??????? ?????? return(0); } }//*/ if (blok==1 // ????????? ????? ??????? ?????? && (b+s)==2 && summa<-2000 //???????? ???????? ?????? && bsb==0 )//?????????? ?? ???????? ????? ??????? ?????? { // ????????? ????? ??????? ?????? ??? ??????? if (((b==1 && s==1) || b==2 || (b==1 && s==0)) && bsum<0 && nimp>50) { mlot=k2*Lots; ticket=OrderSend(Symbol(),OP_SELL,mlot,Bid,3,Bid+StopLoss*Point,Bid-TakeProfit*Point,"Sculp_Sell",1,0,Yellow); //Setorder(OP_SELL,mlot,Bid,3,Bid+StopLoss*Point,Bid -TakeProfit*Point,Gold); bsb=1; //?????? ?? ???????? ????? ??????? ?????? ???????? porog=100; return(0); } // ????????? ????? ??????? ?????? ??? ??????? if (((s==1 && b==1) || s==2 || (s==1 && b==0)) && ssum<0 && nimp<-50) { mlot=k2*Lots; ticket=OrderSend(Symbol(),OP_BUY,mlot,Ask,3,Ask-StopLoss*Point,Ask+TakeProfit*Point,"Sculp_BUY",1,0,Yellow); //Setorder(OP_BUY,mlot,Ask,3,Ask-StopLoss*Point,Ask+TakeProfit*Point,Gold); bsb=1; //?????? ?? ???????? ????? ??????? ?????? ???????? porog=100; return(0); } }//*/ if (sbo==0) //???????? ??????? ??? { bloks=0;//?????????? ?? ???????? ??????? ?????? blokb=0;//?????????? ?? ???????? ??????? ??????? pm=0; //?????? ?? ??????? ?? ???????? ???????? ??????? bsb=1;//?????? ?? ???????? ????? ??????? ?????? ???????? }//*/ if (summa<0 && down>summa) down=(MathRound(summa)); //???????? ?????? if (test==1) //?????????? ?? ?????? ?????? ? ?????? ??? ?? ????? { Print ("Data: ",Year(),".",Month(),".",Day()," Time ",Hour(),":",Minute(),":",Seconds(), " Bloks=",bloks," Blokb=",blokb, " Blok=",blok," ZZ0=",MathRound(ZZ2), " ZZ1=",MathRound(ZZ3)," CCI0=",MathRound(cci0)," Imp=",MathRound(nimp), " Prof=",MathRound(summa)," DDown=",MathRound(down/30)," BSB=",bsb); if (j<=2) Comment(" "); } else { Comment ("Data: ",Year(),".",Month(),".",Day()," Time ",Hour(),":",Minute(),":",Seconds(), " Bloks=",bloks," Blokb=",blokb," Blok=",blok," ZZ0=",MathRound(ZZ2), " ZZ1=",MathRound(ZZ3)," CCI0=",MathRound(cci0)," Imp=",MathRound(nimp), " Prof=",MathRound(summa)," DDown=",MathRound(down/30)); }//*/ if (CurTime()-LastTradeTime<15) return(0); if (summa>porog) // ????? ?? ??????? {pm=1;} if (pm==1) //???????? ??????? ?? ??????? { for (cnt=1; cnt { OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES); if (OrderType()==OP_SELL && OrderSymbol()==Symbol()) { OrderClose(OrderTicket(),OrderLots(),Ask,5,Red); return(0); } if (OrderType()==OP_BUY && OrderSymbol()==Symbol()) { OrderClose(OrderTicket(),OrderLots(),Bid,5,Red); return(0); } } } //*/ if (AccountFreeMargin()>=1000 //???????? ????? ??????? && sbo==0 //???????? ??????? ??? && (Minute()==14 || Minute()==29 || Minute()==44 || Minute()==59) //??????????? ????? ??????? && Seconds()>=45) //?????? ? ??????? ????? { mlot=Lots; {if (ssig==1 && bloks==0) { SetArrow(Time[0],High[0]+5*Point,242,Red); ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Bid+StopLoss*Point,Bid-TakeProfit*Point,"Sculp_Sell",1,0,Yellow); blokb=1;//?????? ?????????? ???????? ??????? ?? ??????? bsb=1; //?????? ?? ???????? ????? ??????? ?????? ???????? blok=0; //?????????? ?? ???????? ??????? ?? ??????? ? ????????? ????? ??????? ?????? GlobalVariableSet("LastTradeTime",CurTime()); return(0); } { if (bsig==1 && blokb==0) { SetArrow(Time[0],Low[0]-5*Point,241,Gold); ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-StopLoss*Point,Ask+TakeProfit*Point,"Sculp_Sell",1,0,Yellow); bloks=1;//?????? ?????????? ???????? ??????? ?? ??????? bsb=1; //?????? ?? ???????? ????? ??????? ?????? ???????? blok=0; //?????????? ?? ???????? ??????? ?? ??????? ? ????????? ????? ??????? ?????? GlobalVariableSet("LastTradeTime",CurTime()); return(0); } } return(0); }//---------End-----------