//+------------------------------------------------------------------+
//| Lock&&PipsingXR1.mq4 |
//| Copyright © 2008, XrustSolution. |
//| http://www.xrust.ucoz.net |
//+------------------------------------------------------------------+
#property copyright "#Copyright © 2008, XrustSolution.#"
#property link "#http://www.xrust.ucoz.net#"
#include <stdlib.mqh>
//-------------------------------------------------------------------+
extern string a="KEY PARAMETERS OF THE ADVISER";
extern string b="Maximum quantity of warrants=20";
extern int MaxOrd_1=15;
extern string c="Stoploss, for a scalping mode =0";
extern int StopLoss=0;
extern string d="TakeProfit, for a scalping mode=0";
extern int TakeProfit=0;
extern string e="StartLots of EA =0,01";
extern double StartLots=0.01;
extern string f="Lot increment value=0,01";
extern double LotsIncrementValue=0.01;
extern string g="The permission to lot auto detection";
extern bool AutoLot=true;
extern string h="Percent of risk for a pack of warrants";
extern double Risk=10;
extern string j="Profit at which the pack of warrants will be closed=0";
extern double MInProfit=5;
extern string k="Pause between opening of warrants in minutes=10";
extern int MinTradePause=10;
extern int per=9;
extern string l="Traling step for single order=5";
extern int TralStep=5;
extern string m="Equity traling step=5";
extern int EqvTralStep=5;
extern bool TradeOfTime=true;
extern int StartTradeHour=20;
extern int EndTradeHour=8;
extern bool ShowComment=true;
extern bool MargineVarning=true;
//----Variables for KimIV funcions ---------------------------------+
bool NumberOfTry=3,UseSound=false,print=false;
string NameFileSound = "expert.wav"; // Íàèìåíîâàíèå çâóêîâîãî ôàéëà
color clOpenBuy = Blue; // Öâåò çíà÷êà îòêðûòèÿ Buy
color clOpenSell = Red; // Öâåò çíà÷êà îòêðûòèÿ Sell
bool MarketWatch=false;
bool gbDisabled = False; // Áëîêèðîâêà
int BuyMagic1=2891,BuyMagic2=2892,BuyMagic3=2893;
int SellMagic1=73351,SellMagic2=73352,SellMagic3=73353;
static int PrevTime=0;double Lot;
double MinLot, MaxLot, MarginMinLot;
int MinLotDgts,period,GrossPeriod,GrossTrand=0;
int Slippage=3;
//------------------------------------------------------------------+
static double StartDepo, gEqviti;
static double gPriseAp,gPriseDn,gMidPrise;
int gFrChSize,tP;
static bool asd=false;
int BuySell_1=0,BuySell_2=0,BuySell_3=0;
static int gCountBuy_1=1,gCountSell_1=1;
double lot,gLotMin;
static string gTime;
static int bs=0,ss=0;
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
void init()
{
MathSrand( GetTickCount() );
gLotMin=MarketInfo(Symbol(),MODE_MINLOT);
StartDepo = AccountBalance();
if(StartLots<MarketInfo(Symbol(),MODE_MINLOT)){
StartLots=MarketInfo(Symbol(),MODE_MINLOT);
}
if(LotsIncrementValue!=MarketInfo(Symbol(),MODE_LOTSTEP)){
LotsIncrementValue=MarketInfo(Symbol(),MODE_LOTSTEP);
}
lot=StartLots;
return;
}
//+------------------------------------------------------------------+
void deinit(){Comment(" ");return(0);} //deinit |
//+------------------------------------------------------------------+
int start()
{
if(MargineVarning){if(Varning()){return(0);}}
if(!IsDemo()&&!IsOptimization()&&!IsTesting()){
if(AccountNumber()!=126354){Comment("Bad Account!!!");Sleep(500);Comment(" ");return(0);}
}
BuySell_1=0;BuySell_2=0;BuySell_3=0;
//----
//Comment("Profit SELL",PorfitBuySell(1),"\nProfitBUY",PorfitBuySell(0));
if(!TradeTime()){
//if(CountOpOrd("0")>1){EcvitiTral();}
}
//LastOrdTral(TralStep);
//OneOrdTral(TralStep);
//OneOrdTral(SellMagic1,TralStep);
if(!DelDamage()){DelBigestLoss();}
//DelBigestLoss();
//EcvitiTral();
//DelOppositeOrder();
if(CountOpOrd("0")>2){if(GrPorfit()>MInProfit){EcvitiTral();CloseAll();}}
//CloseBy();
//DelVs();
//DelDamage();
if((AccountBalance()-StartDepo)+(PorfitBuySell(0)+PorfitBuySell(1))>0){
//OneOrdTral(TralStep);
//OneOrdTral(SellMagic1,TralStep);
//LastOrdTral(TralStep);
//DelOppositeOrder();
//CloseBy();
//DelVs();
//if(CountOpOrd("0")==1){OneOrdTral(TralStep);}
}
if(NevBar()){
/*if(IfLastOrdLoss(0)){
if(AutoLot){lot=CalcLotsAuto();}
OpenPosition("",1,lot,StopLoss,TakeProfit,BuyMagic1);
}
if(IfLastOrdLoss(1)){
if(AutoLot){lot=CalcLotsAuto();}
OpenPosition("",0,lot,StopLoss,TakeProfit,BuyMagic1);
} */
IfZZ2();
/*if(CountOpOrd("0")<1){
if(IfLastOrdProf(0)){
if(AutoLot){lot=CalcLotsAuto();}
OpenPosition("",0,lot,StopLoss,TakeProfit,BuyMagic1);
}
if(IfLastOrdProf(1)){
if(AutoLot){lot=CalcLotsAuto();}
OpenPosition("",1,lot,StopLoss,TakeProfit,BuyMagic1);
}
}*/
//if(ShowComment){Info();}
if(TradeTime()){
if(TimeOfTrade()){lot=StartLots;
if(CountOpOrd("0")<MaxOrd_1){
if(LastOrdTral(TralStep)){
if(BuySell_1>0){
if(AutoLot){lot=CalcLotsAuto();}
OpenPosition("",0,lot,StopLoss,TakeProfit,BuyMagic1);
}
if(BuySell_1<0){
if(AutoLot){lot=CalcLotsAuto();}
OpenPosition("",1,lot,StopLoss,TakeProfit,SellMagic1);
gCountBuy_1=1;
}
}
}
}
}
//if(NullDotBuy()!=NullDot()){SetArrow("BUY",4,1,1,NullDotBuy(),Blue);}
//if(NullDotSell()!=NullDot()){SetArrow("SELL",4,1,1,NullDotSell(),Red);}
//SetArrow("NULL",4,1,1,NullDot(),White);
}
//----
return(0);
}
//-----------------------------------------------------------------------------+
// Áûë ëè ïîñëåäíèé íå çàêðûòûé îðäåð ñ ñ óáûòêîì |
//-----------------------------------------------------------------------------+
bool IfLastOrdLoss(int typ){int tm=0;double pr=0;
//if(OrdersTotal()<3){return(false);}
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderType()==typ){
if(OrderOpenTime()>tm){
tm=OrderOpenTime();
pr=OrderProfit();
}
}
}
}
if(pr<5&&tm!=0){return(true);}
return(false);
}
//-----------------------------------------------------------------------------+
// Áûë ëè ïîñëåäíèé çàêðûòûé îðäåð ñ ïðèáûëüþ |
//-----------------------------------------------------------------------------+
bool IfLastOrdProf(int typ){int tm=0;double pr=0;
for(int i = OrdersHistoryTotal()+1;i>=0;i--){
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)){
if(OrderType()==typ){
if(OrderCloseTime()>tm){
tm=OrderCloseTime();
pr=OrderProfit();
}
}
}
}
if(pr>=0&&tm!=0){return(true);}
return(false);
}
//---------------------------------------------------------------------------------------------------------------------+
extern string ZzName="Zigzag2_R_";
extern int ZzLevel_1=2;
extern int ZzLevel_2=5;
extern int ZzCountGr=4;
extern bool DriveArrow=true;
extern int numbar=1;
int ZzPar2[12]={5,8,13,21,34,55,89,144,233,377,610,987};
int IfZZ2(){int i,count =0,CountAp=0,CountDn=0,CountAp1=0,CountDn1=0,CountAp2=0,CountDn2=0,CountAp3=0,CountDn3=0;
//----Level_1
for(i=ZzLevel_1;i<(ZzLevel_1+ZzCountGr);i++){count++;if(iCustom(Symbol(),0,ZzName,ZzPar2[2+i],ZzPar2[1+i],ZzPar2[i],0,numbar)!=0){CountAp1++;}}
if(CountAp1==count){
BuySell_1=-1;
gCountBuy_1++;
gCountSell_1=1;
if(DriveArrow)SetArrow("EASELL1 ",242,1,numbar,High[1]+10*Point,Red);
}
count=0;
for(i=ZzLevel_1;i<(ZzLevel_1+ZzCountGr);i++){count++;if(iCustom(Symbol(),0,ZzName,ZzPar2[2+i],ZzPar2[1+i],ZzPar2[i],1,numbar)!=0){CountDn1++;}}
if(CountDn1==count){
BuySell_1=1;
gCountBuy_1=1;
gCountSell_1++;
if(DriveArrow)SetArrow("EABUY1 ",241,1,numbar,Low[1]-10*Point,Blue);
}
count=0;
}
//+------------------------------------------------------------------+
//| Óñòàíîâêà ñòðåëîê |
//+------------------------------------------------------------------+
void SetArrow(string nm,int kod,int razm,int bar,double prs,color col){
//if(!DriveArrow)return;
string Name=StringConcatenate(nm,TimeToStr(TimeLocal(),TIME_DATE|TIME_SECONDS));
ObjectCreate(Name,OBJ_ARROW,0,0,0,0,0,0,0);
ObjectSet(Name,OBJPROP_ARROWCODE,kod);
ObjectSet(Name,OBJPROP_STYLE,DRAW_ARROW);
ObjectSet(Name,OBJPROP_TIME1,Time[bar]);
ObjectSet(Name,OBJPROP_PRICE1,prs);
ObjectSet(Name,OBJPROP_WIDTH,razm);
ObjectSet(Name,OBJPROP_COLOR,col);
return;}
//-----------------------------------------------------------------------------+
// Óñëîâèÿ âõîäà â ðûíîê |
//-----------------------------------------------------------------------------+
int IfZZ(){
if(OrdersTotal()>5){
if(NullDotSell()==NullDot()){
if(Bid<NullDotSell()){
BuySell_1=-1;
return(1);
}
}
if(NullDotSell()<NullDot()){
if(Bid<NullDot()&&Bid>NullDotSell()){
BuySell_1=1;
return(1);
}
if(Bid<NullDotSell()){
BuySell_1=1;
return(1);
}
}
}//else{
if(Close[1]>Open[0]){
//if(MathRand() < 32767/2){
//if(Close[1]>iMA(Symbol(),0,per,0,1,0,1)){
BuySell_1=-1;return(1);}//}
if(OrdersTotal()>5){
if(NullDotBuy()==NullDot()){
if(Bid>NullDotBuy()){
BuySell_1=1;
return(1);
}
}
if(NullDotBuy()>NullDot()){
if(Bid>NullDot()&&Bid<NullDotBuy()){
BuySell_1=-1;
return(1);
}
if(Bid>NullDotBuy()){
BuySell_1=-1;
return(1);
}
}
}//else{
if(Close[1]<Open[0]){
//else{//if(MathRand() > 32767/2.615){
//if(Close[1]<iMA(Symbol(),0,per,0,1,0,1)){
BuySell_1=1;return(-1);}//}
BuySell_1=0;
return(0);
}
//-----------------------------------------------------------------------------+
// Òî÷êà ðàâíîâåñèÿ |
//-----------------------------------------------------------------------------+
double NullDot(){double prise=0;int count=0,countlot=0;
if(OrdersTotal()<1){return(Bid);}
double MinLot=MarketInfo(Symbol(),MODE_MINLOT);
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){
countlot=(OrderLots()/MinLot);
count=count+countlot;
prise=prise+(OrderOpenPrice()*countlot);
}
}
}
prise=prise/count;
return(prise);
}
//-----------------------------------------------------------------------------+
// Òî÷êà ðàâíîâåñèÿ |
//-----------------------------------------------------------------------------+
double NullDotBuy(){double prise=0;int count=0,countlot=0;
if(CountOpOrd("",0)<2){return(NullDot());}
double MinLot=MarketInfo(Symbol(),MODE_MINLOT);
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){
if(OrderType()<1){
countlot=(OrderLots()/MinLot);
count=count+countlot;
prise=prise+(OrderOpenPrice()*countlot);
}
}
}
}
prise=prise/count;
return(prise);
}
//-----------------------------------------------------------------------------+
// Òî÷êà ðàâíîâåñèÿ |
//-----------------------------------------------------------------------------+
double NullDotSell(){double prise=0;int count=0,countlot=0;
if(CountOpOrd("",1)<2){return(NullDot());}
double MinLot=MarketInfo(Symbol(),MODE_MINLOT);
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){
if(OrderType()>0){
countlot=(OrderLots()/MinLot);
count=count+countlot;
prise=prise+(OrderOpenPrice()*countlot);
}
}
}
}
prise=prise/count;
return(prise);
}
//-----------------------------------------------------------------------------+
// Áûë ëè ïîñåäíèé îðäåð buy ñ ïðèáûëüþ |
//-----------------------------------------------------------------------------+
bool IfLastOrdProfBuy(){int tm=0;double pr=0;
for(int i = OrdersHistoryTotal()+1;i>=0;i--){
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)){
if(OrderType()<1){
if(OrderCloseTime()>tm){
tm=OrderCloseTime();
pr=OrderProfit();
}
}
}
}
if(pr>0&&tm!=0){return(true);}
return(false);
}
//-----------------------------------------------------------------------------+
// Áûë ëè ïîñåäíèé îðäåð sell ñ ïðèáûëüþ |
//-----------------------------------------------------------------------------+
bool IfLastOrdProfSell(){int tm=0;double pr=0;
for(int i = OrdersHistoryTotal()+1;i>=0;i--){
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)){
if(OrderType()==1){
if(OrderCloseTime()>tm){
tm=OrderCloseTime();
pr=OrderProfit();
}
}
}
}
if(pr>0&&tm!=0){return(true);}
return(false);
}
//-----------------------------------------------------------------------------+
// Âîçâðàùàåò ïðèáûëü êàêèõ îðäåðîâ áîëüøå |
//-----------------------------------------------------------------------------+
int ProfitBuyOrSell(){double countbuy=0,countsell=0;
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){
if(OrderType()==0){countbuy=countbuy+OrderProfit();}
if(OrderType()==1){countsell=countsell+OrderProfit();}
}
}
}
if(countbuy>countsell){return(-1);}
if(countbuy<countsell){return(1);}
return(0);
}
//-----------------------------------------------------------------------------+
// Âîçâðàùàåò êàêèõ îðäåðîâ áîëüøå |
//-----------------------------------------------------------------------------+
int BuyOrSell(){int countbuy=0,countsell=0;
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){
if(OrderType()==0){countbuy++;}
if(OrderType()==1){countsell++;}
}
}
}
if(countbuy>countsell){return(-1);}
if(countbuy<countsell){return(1);}
return(0);
}
//-----------------------------------------------------------------------------+
// Âûâîäèò Òèï ïîñëåäíåãî óñò îðäåðà |
//-----------------------------------------------------------------------------+
int LastOrdType(){int time=0,typ=-1;
if(OrdersTotal()<1){return(-1);}
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){
if(OrderOpenTime()>time){
time=OrderOpenTime();
typ=OrderType();
}
}
}
}
return(typ);
}
//-----------------------------------------------------------------------------+
// Âûâîäèò èíôîðìàöèþ íà ýêðàí |
//-----------------------------------------------------------------------------+
void Info(){
Comment("AccountBalance ="+(DoubleToStr(AccountBalance()+PorfitBuySell(0)+PorfitBuySell(1),1))+"$\n"+
"AccountFreeMargin ="+(DoubleToStr(AccountFreeMargin(),1))+"$\n"+
"Current profit ="+(DoubleToStr(PorfitBuySell(0)+PorfitBuySell(1),1))+"$\n"+
"Profit from the trade beginning ="+(DoubleToStr(AccountBalance()-StartDepo,1))+"$\n"+
"Current profit from the trade beginning ="+DoubleToStr(((AccountBalance()-StartDepo)+(PorfitBuySell(0)+PorfitBuySell(1))),1)+"$\n"+
gTime
+"\n"+"Free orders = ="+(MaxOrd_1-OrdersTotal())
);
return;
}
//-----------------------------------------------------------------------------+
// Âûâîäèò ïðåäóïðåæäàþùåå ñîîáùåíèå |
//-----------------------------------------------------------------------------+
bool Varning(){int ord;double depo;
if(AutoLot){StartLots=CalcLotsAuto();}
if((MarketInfo(Symbol(),MODE_MARGINREQUIRED)*StartLots*MaxOrd_1*2)>StartDepo){
depo=MarketInfo(Symbol(),MODE_MARGINREQUIRED)*StartLots*MaxOrd_1*2;
ord=StartDepo/(MarketInfo(Symbol(),MODE_MARGINREQUIRED)*StartLots*2);
if(!print){return(true);}
Alert("THERE IS NOT ENOUGH MEANS FOR THE ACCOUNT"+"\n"+
"For such quantity of warrants it is necessary"+"\n"+
"The starting Deposit ="+depo+" $\n"+
"On your means it is possible to open "+ord+" Orders"+"\n"+
"Fill up your account please"+"\n"+
"Or reduce quantity of warrants"+"\n"+
"Or reduce a traded lot"+"\n"+
"Or disconnect the alarm system");
return(true);
}
return(false);
}
//-----------------------------------------------------------------------------+
// Ôóíêöèÿ êîíòðîëÿ âðåìåíè òîðãîâëè |
//-----------------------------------------------------------------------------+
bool TradeTime(){if(!TradeOfTime){
gTime="ÐÀÁÎÒÀÅÌ ÁÅÇ ÏÅÐÅÐÛÂÎÂ";
return(true);}
if(TimeDayOfWeek(TimeCurrent())==5){StartTradeHour=0;}
if(TimeDayOfWeek(TimeCurrent())==1){StartTradeHour=1;}
if(StartTradeHour<EndTradeHour){
if(TimeHour(TimeCurrent())>=StartTradeHour&&TimeHour(TimeCurrent())<EndTradeHour
){//||(CountOpOrd("0")+CountOpOrd("1"))>0){
gTime=StringConcatenate("Äî êîíöà òîðãîâîé ñåññèè :",DoubleToStr((EndTradeHour-TimeHour(TimeCurrent())),0)," ×àñîâ");
return(true);}}
if(StartTradeHour>EndTradeHour){
if(TimeHour(TimeCurrent())>=StartTradeHour||TimeHour(TimeCurrent())<EndTradeHour
){//||(CountOpOrd("0")+CountOpOrd("1"))>0){
gTime=StringConcatenate("Äî êîíöà òîðãîâîé ñåññèè :",DoubleToStr((EndTradeHour-TimeHour(TimeCurrent())),0)," ×àñîâ");
return(true);}}
gTime=StringConcatenate("ÎÒÄÛÕÀÅÌ ÄÎ : ",StartTradeHour,": 00");
return(false);
}
//-----------------------------------------------------------------------------+
// Óäàëåíèå ñàìîãî áîëüøîãî ëîñÿ |
//-----------------------------------------------------------------------------+
void DelBigestLoss(){
static double gBigLoss=0;
double BigLoss=0,profit=0,Lossticket,FarLot,FarProfit;
int Ticket[];int count=0;
if(OrdersTotal()<2){return;gBigLoss=0;}
double MinLot=MarketInfo(Symbol(),MODE_MINLOT);
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){
if(OrderProfit()<0){
if((gBigLoss<0&&OrderProfit()>gBigLoss)||(gBigLoss==0)){
if(OrderProfit()<BigLoss){
BigLoss=OrderProfit();
Lossticket=OrderTicket();
FarLot=OrderLots();
FarProfit=OrderProfit();
}
}
}
}
}
}
if(FarLot<=MinLot){gBigLoss=0;return;}
for(int n=0;n<OrdersTotal();n++){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){
if(OrderProfit()>0){
profit=profit+OrderProfit();
count++;
Ticket[count]=OrderTicket();
profit=NormalizeDouble(profit,1);
}
}
}
}
if(count==1){OneOrdTral(TralStep);return;}
if(profit+BigLoss<0){gBigLoss=BigLoss;return;}
int lot=(FarLot/MinLot);
double MinFarProfit=FarProfit/lot;
int y;
double lotstep;
for(y=lot;y>0;y--){
if(profit+(MinFarProfit*y)>MathAbs(MinFarProfit)){
lotstep=MinLot*y;
break;
}
}
if(lotstep>=MinLot){
ArrayResize(Ticket,count+1);
for(int x=0;x<count+1;x++){if(OrderSelect(Ticket[x],SELECT_BY_TICKET)){if(OrderCloseTime()==0){del(OrderTicket());}}}
if(OrderSelect(Lossticket,SELECT_BY_TICKET)){if(OrderCloseTime()==0){dellot(Lossticket,lotstep);return(true);}}
}
return;
}
//-----------------------------------------------------------------------------+
// Èñùåò ñàìûé äàëüíèé îðäåð ñ îòðèöàòåëüíîé ïðèáûëüþ |
//-----------------------------------------------------------------------------+
int FarOrder(){double dist=0;int tick=0;
//if(OrdersTotal()<1)return;
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){
if(OrderProfit()<0){
RefreshRates();
if((MathAbs(OrderOpenPrice()-Ask)/Point)>dist){
dist=(MathAbs(OrderOpenPrice()-Ask))/Point;
tick=OrderTicket();
}
}
}
}
}
return(tick);
}
//+----------------------------------------------------------------------------+
// Óäàëåíèå ñàìîãî äàëüíåãî îðäåðà +
//-----------------------------------------------------------------------------+
bool DelDamage(){double FarProfit=1,FarLot=0,profit=0;int count=-1,x;
//if(OrdersTotal()<1)return;
double spred=NormalizeDouble(MarketInfo(Symbol(),MODE_SPREAD)*MarketInfo(Symbol(),MODE_TICKVALUE),Digits);
double PipsPrise=MarketInfo(Symbol(),MODE_TICKVALUE);
double MinLot=MarketInfo(Symbol(),MODE_MINLOT);
int Ticket[];
if(FarOrder()>0){
if(OrderSelect(FarOrder(),SELECT_BY_TICKET)){if(OrderCloseTime()==0){FarLot=OrderLots();FarProfit=OrderProfit();}}
}
if(FarProfit<0){
profit=0;
for(int n=0;n<OrdersTotal();n++){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){
if(OrderProfit()>0){
profit=profit+OrderProfit();
count++;
Ticket[count]=OrderTicket();
profit=NormalizeDouble(profit,1);
FarProfit=NormalizeDouble(FarProfit,1);
}
}
}
}
if(profit+FarProfit>spred+(MInProfit*Bid*PipsPrise)){
ArrayResize(Ticket,count+1);
for(x=0;x<count+1;x++){if(OrderSelect(Ticket[x],SELECT_BY_TICKET)){if(OrderCloseTime()==0){del(OrderTicket());}}}
if(OrderSelect(FarOrder(),SELECT_BY_TICKET)){if(OrderCloseTime()==0){del(FarOrder());return(true);}}
}
if(profit+FarProfit<0&&profit>0){
if(FarLot<MinLot*2){return(false);}
int lot=(FarLot/MinLot);
double MinFarProfit=FarProfit/lot;
int y;
double lotstep;
for(y=lot;y>0;y--){
if(profit+(MinFarProfit*y)>0){
lotstep=MinLot*y;
break;
}
}
if(lotstep>=MinLot){
ArrayResize(Ticket,count+1);
for(x=0;x<count+1;x++){if(OrderSelect(Ticket[x],SELECT_BY_TICKET)){if(OrderCloseTime()==0){del(OrderTicket());}}}
if(OrderSelect(FarOrder(),SELECT_BY_TICKET)){if(OrderCloseTime()==0){dellot(FarOrder(),lotstep);return(true);}}
}
}
}
return(false);
}
//+----------------------------------------------------------------------------+
// Óñðåäíåíèå óäàëåíèåì +
//-----------------------------------------------------------------------------+
void DelVs(){int tick1=0,tick2=0,typ;double pr1=0,pr2=0;
if(OrdersTotal()<MaxOrd_1/2){return;}
for(int n=0;n<OrdersTotal();n++){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(IfOrder("0")){
tick1=OrderTicket();
pr1=OrderProfit();
if(OrderType()==0){typ=0;}
if(OrderType()==1){typ=1;}
if(pr1>0){
for(int x=OrdersTotal()+1;x>=0;x--){
if(OrderSelect(x,SELECT_BY_POS,MODE_TRADES)){
if(IfOrder("0",typ)){
tick2=OrderTicket();
pr2=OrderProfit();
if(pr1-pr2==0){
if(tick2!=0){del(tick2);}
if(tick1!=0){del(tick1);}
return;
}
}
}
}
}
}
}
}
return;
}
//+----------------------------------------------------------------------------+
// Âñòðå÷íîå çàêðûòèå +
//-----------------------------------------------------------------------------+
void CloseBy(){
double profit1=0, profit2=0;
int i, n, tip, tip2 ,ticket1=0, ticket2=0;
if(OrdersTotal()<MaxOrd_1/2){return;}
for(n=0;n<OrdersTotal();n++){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(IfOrder("0")){
if(OrderProfit()<0){
tip=OrderType();
profit1=OrderProfit();
ticket1=OrderTicket();
if(tip==1){tip2=0;}
if(tip==0){tip2=1;}
for(n=0;n<OrdersTotal();n++){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(IfOrder("0",tip2)){
if((OrderProfit()+profit1)>=0){
if(ticket1!=0&&OrderTicket()!=0){OrderCloseBy(ticket1,OrderTicket(),White);}
}
}
}
}
}
}
}
}
}
//+----------------------------------------------------------------------------+
// Âîçâðàùàåò ñàìûé äàëüíèé îðäåð +
//-----------------------------------------------------------------------------+
double OrderDistanse(double prise=0){double gprise=0;int n;
if(OrdersTotal()<2){return;}
if(prise==0){
for(n=0;n<OrdersTotal();n++){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(IfOrder("0")){
if(OrderProfit()<0){
if(MathAbs(Bid-OrderOpenPrice())>prise){
prise=OrderOpenPrice();
}
}
}
}
}
return(prise);
}
if(prise!=0){
for(n=0;n<OrdersTotal();n++){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(IfOrder("0")){
if(OrderProfit()<0){
if(MathAbs(Bid-OrderOpenPrice())>gprise&&(OrderOpenPrice()!=prise)){
gprise=OrderOpenPrice();
}
}
}
}
}
return(gprise);
}
return(0);
}
//+----------------------------------------------------------------------------+
// Åùå îäíî óñðåäíåíèå 2 +
//-----------------------------------------------------------------------------+
void DelOppositeOrder(){
double prise=0,profit=0,Grprofit=0;
int n, tick=0,tip=-1,tip2=-1,countord=0;
int ticket[100];
//for(n=0;n<CountOpOrd(0);n++){
Grprofit=0;
for(n=0;n<OrdersTotal();n++){
if(OrderDistanse(prise)!=0){
prise=OrderDistanse(prise);
tick=OrderTicket();
profit=OrderProfit();
tip=OrderType();
}
if(tip==1){tip2=0;}
if(tip==0){tip2=1;}
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(IfOrder("0",tip2)){
if(OrderProfit()>0){
Grprofit=Grprofit+OrderProfit();
ticket[countord]=OrderTicket();
countord++;
}
}
}
}
if(profit+Grprofit>MInProfit){
ArrayResize(ticket,countord+1);
double profit2=0;
if(OrderSelect(tick,SELECT_BY_TICKET,MODE_TRADES)){
if(OrderCloseTime()==0){
for(int i=0;i<CountOpOrd("0")+1;i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderProfit()>profit2){
if(OrderType()==tip2){
if(OrderCloseTime()==0){
profit2=OrderProfit();
int ticket2=OrderTicket();
}
}
}
}
}
if(ticket2!=0&&tick>0){OrderCloseBy(tick,ticket2,White);}
for(i=0;i<countord+1;i++){
if(OrderSelect(ticket[i],SELECT_BY_TICKET,MODE_TRADES)){
if(OrderCloseTime()==0){del(OrderTicket());}
}
}
return;
}
}
}
}
//+------------------------------------------------------------------+
//|Òðàë ïî ýêâèòè |
//+------------------------------------------------------------------+
void EcvitiTral(){int i, n ,x;double Gpr=0;
if(OrdersTotal()<1){gEqviti=AccountBalance();return;}
for(i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
Gpr=Gpr+OrderProfit()+OrderSwap()+OrderCommission();
}
}
if((AccountBalance()+Gpr)-EqvTralStep>gEqviti){gEqviti=gEqviti+EqvTralStep;}
else{if(gEqviti>AccountBalance()&&gEqviti>StartDepo){
CloseAll();if(OrdersTotal()<1){gEqviti=AccountBalance();return;}}}
return;
}
//+------------------------------------------------------------------+
//| ïðîâåðÿåò ðûíî÷íûé îðäåð íà ïðèíàäëåæíîñòü ñîãëàñíî óñëîâèÿì |
//+------------------------------------------------------------------+
bool IfOrder(string Sy="",int Typ=-1,int Magik=-1){
if(Sy=="0"||Sy==""){Sy=Symbol();}
if(OrderSymbol()==Sy||Sy==""){
if(OrderType()==Typ||Typ==(-1)){
if(OrderMagicNumber()==Magik||Magik==(-1)){
return(true);
}
}
}
return(false);
}
//+------------------------------------------------------------------+
//| Ïîäñ÷èòûâàåò êîëè÷åñòâî îòêðûòûõ îðäåðîâ ñîãëàñíî óñëîâèÿì |
//+------------------------------------------------------------------+
int CountOpOrd(string Sy="",int Typ=-1,int Magik=-1){int count=0;
if(Sy=="0"){Sy=Symbol();}
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Sy||Sy==""){
if(OrderType()==Typ||Typ==(-1)){
if(OrderMagicNumber()==Magik||Magik==(-1)){
count++;
}
}
}
}
}
return(count);
}
//+----------------------------------------------------------------------------+
// Ïîäñ÷èòûâàåò Îáùóþ íå ðåàëèçîâàííóþ ïðèáûëü íà äàííîì èíñòðóìåíòå +
//-----------------------------------------------------------------------------+
double Profit(int Pr=0){double grpr=0;
for(int n=0;n<OrdersTotal();n++){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){
if(Pr>0){if(OrderProfit()>0){grpr=grpr+OrderProfit();}}
if(Pr<0){if(OrderProfit()<0){grpr=grpr+OrderProfit();}}
}
}
}
return(grpr);
}
//+----------------------------------------------------------------------------+
// Ïîäñ÷èòûâàåò Îáùóþ íå ðåàëèçîâàííóþ ïðèáûëü íà äàííîì èíñòðóìåíòå +
//-----------------------------------------------------------------------------+
double GrPorfit(){double grpr=0;
if(OrdersTotal()<1){return(0);}
for(int n=0;n<OrdersTotal();n++){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){grpr=grpr+OrderProfit();}
}
}
return(grpr);
}
//+----------------------------------------------------------------------------+
// Ïîäñ÷èòûâàåò Îáùóþ íå ðåàëèçîâàííóþ ïðèáûëü íà äàííîì èíñòðóìåíòå +
//-----------------------------------------------------------------------------+
double PorfitBuySell(int tip){double grpr=0;
if(OrdersTotal()<1){return(-1);}
for(int n=OrdersTotal()+1;n>=0;n--){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(IfOrder("0",tip)){grpr=grpr+OrderProfit();}
}
}
return(grpr);
}
//+----------------------------------------------------------------------------+
// Çàêðûâàåò âñå îðäåðà íà äàííîì èíñòðóìåíòå +
//-----------------------------------------------------------------------------+
void CloseAll(){
//if(IfOrder(0)==true){
for(int n=OrdersTotal()+1;n>=0;n--){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(IfOrder("0")){del(OrderTicket());}
}
}
//}
return;
}
//+----------------------------------------------------------------------------+
// Çàäàåò ïàóçó ìåæäó óñòàíîâêàìè îðäåðîâ +
//-----------------------------------------------------------------------------+
bool TimeOfTrade(){int count=0,distanse=0;double OpPrs=0;
if(OrdersTotal()<1){return(true);}
for(int n=0;n<OrdersTotal();n++){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){
if(OrderOpenTime()>count){count=OrderOpenTime();OpPrs=OrderOpenPrice();}
}
}
}
if(OpPrs!=0){distanse=(MathAbs(OpPrs-Bid)/Point)/5;}
if((TimeCurrent()-count)>(MinTradePause*60)){return(true);}
return(false);
}
//+----------------------------------------------------------------------------+
// Òðàë ïîñëåäíåãî îðäåðà +
//-----------------------------------------------------------------------------+
bool LastOrdTral(double step){int n,tic,count=0,StPr=0;static int PrewStPr2=0;
if(OrdersTotal()<1){return(true);}
static int PrewStPr=0,stepcount=1;
count=0;
step=step*Point;
for(n=OrdersTotal()+1;n>=0;n--){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(IfOrder("0")){
if(OrderOpenTime()>count){
count=OrderOpenTime();
tic=OrderTicket();
}
}
}
}
if(OrderSelect(tic,SELECT_BY_TICKET)){
if(OrderCloseTime()==0){
if(IfOrder("0")){
if(OrderProfit()<0){return(true);}
if((OrderProfit()/(OrderLots()*10))>step*stepcount){
StPr=(OrderProfit()/(OrderLots()*10));
//Comment((OrderProfit()/(OrderLots()*10)),"\n",StPr,">",PrewStPr,"\n",(step*stepcount));
//Print((OrderProfit()/(OrderLots()*10))," ",StPr,">",PrewStPr," Step=",(step*stepcount));
if(StPr>PrewStPr){PrewStPr=StPr;stepcount++;}
else{del(OrderTicket());PrewStPr=0;stepcount=1;return(true);}
}else{
if((OrderProfit()/(OrderLots()*10))<PrewStPr&&PrewStPr>0){del(OrderTicket());PrewStPr=0;stepcount=1;return(true);}
if(PrewStPr>0&&OrderProfit()<=0){del(OrderTicket());PrewStPr=0;stepcount=1;return(true);}
}
}
}
}
return(false);
}
//+----------------------------------------------------------------------------+
// Òðàë îäíîãî îðäåðà +
//-----------------------------------------------------------------------------+
bool OneOrdTral(double step){int n,count=0,StPr=0;static int PrewStPr=0,stepcount=1;
if(OrdersTotal()<1){return(true);}
count=0;
for(n=OrdersTotal()+1;n>=0;n--){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(IfOrder("")){count++;}
}
}
if(count>1){return(true);}
if(count==1){
for(n=OrdersTotal()+1;n>=0;n--){
if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){
if(IfOrder("0")){
if((OrderProfit()/(OrderLots()*10))>step*stepcount){
StPr=(OrderProfit()/(OrderLots()*10));
//Comment((OrderProfit()/(OrderLots()*10)),"\n",StPr,">",PrewStPr,"\n",(step*stepcount));
//Print((OrderProfit()/(OrderLots()*10))," ",StPr,">",PrewStPr," Step=",(step*stepcount));
if(StPr>PrewStPr){PrewStPr=StPr;stepcount++;}
else{del(OrderTicket());PrewStPr=0;stepcount=1;return(true);}
}else{
if((OrderProfit()/(OrderLots()*10))<PrewStPr&&PrewStPr>0){del(OrderTicket());PrewStPr=0;stepcount=1;return(true);}
if(PrewStPr>0&&OrderProfit()<=0){del(OrderTicket());PrewStPr=0;stepcount=1;return(true);}
}
}
}
}
}
if(OrderProfit()<0){return(true);}
return(false);
}
//+------------------------------------------------------------------+
//| Ðàñ÷åò ëîòà ñîîòâ ðèñêó è áàëàíñó |
//+------------------------------------------------------------------+
double CalcLotsAuto()
{static double Sredstva;
if(OrdersTotal()<1){Sredstva=AccountBalance();}
double LotOpt,LotNeOpt,Zalog;
RefreshRates();
double Marga=AccountFreeMargin();
double Balans=AccountBalance();
double LotMin=MarketInfo(Symbol(),MODE_MINLOT);
double LotMax=MarketInfo(Symbol(),MODE_MAXLOT);
double StepLot=MarketInfo(Symbol(),MODE_LOTSTEP);
double StopLv=AccountStopoutLevel();
int PrsMinLot=1000*LotMin;
if(Risk<0)Risk=0;
if(Risk>100)Risk=100;
if(StepLot==0.01){int step=2;}else{step=1;}
//---------------------------
Zalog=(Sredstva*(Risk/100));
LotOpt=NormalizeDouble((Zalog/1000),step);
if(LotOpt>LotMax)LotOpt=LotMax;
return(LotOpt);
/*
Zalog=((AccountFreeMargin()/(MaxOrd_1))/10)*Risk;
LotOpt=NormalizeDouble((Zalog/StartDepo),step);
//if(LotOpt<LotMin);//MaxOrd_1--;//LotOpt=LotMin;
if(LotOpt>LotMax)LotOpt=LotMax;
return(LotOpt);*/
}
//-----------------------------------------------------------------------------+
// Ôóíêöèÿ êîíòðîëÿ íîâîãî áàðà |
//-----------------------------------------------------------------------------+
bool NevBar(){
if (PrevTime==Time[0]) return(false);
PrevTime=Time[0];
return(true);}
//-----------------------------------------------------------------------------+
//Óäàëÿåò ðûíî÷íûé îðäåð ñ óêàçàííûì åé òèêåòîì è ëîòîì |
//+----------------------------------------------------------------------------+
void dellot(int ticket,double lot){int err;
int step;
if(MarketInfo(Symbol(),MODE_LOTSTEP)==0.1){step=1;}
if(MarketInfo(Symbol(),MODE_LOTSTEP)==0.01){step=2;}
lot=NormalizeDouble(lot,step);
for(int i=0;i<1;i++){
GetLastError();//îáíóëÿåì îøèêó
OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES);
string symbol = OrderSymbol();
if(OrderType()==OP_BUY){RefreshRates();
double prise = MarketInfo(symbol,MODE_BID);
if(!OrderClose(ticket,lot,prise,3,Green)){err = GetLastError();}}
if(OrderType()==OP_SELL){RefreshRates();
prise = MarketInfo(symbol,MODE_ASK);
if(!OrderClose(ticket,lot,prise,3,Green)){err = GetLastError();}}
if(err == 0){PlaySound("expert.wav");break;}
if(err != 0){PlaySound("timeout.wav");Print("Error for Close Funtion =",err);}
while(!IsTradeAllowed()){Sleep(5000);}// åñëè ðûíîê çàíÿò òî ïîäîæäåì 5 ñåê
if (err==146) while (IsTradeContextBusy()) Sleep(1000*11);
}
}
//-----------------------------------------------------------------------------+
//Óäàëÿåò ðûíî÷íûé îðäåð ñ óêàçàííûì åé òèêåòîì |
//+----------------------------------------------------------------------------+
void del(int ticket){int err;
for(int i=0;i<1;i++){
GetLastError();//îáíóëÿåì îøèêó
OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES);
string symbol = OrderSymbol();
if(OrderType()==OP_BUY){RefreshRates();
double prise = MarketInfo(symbol,MODE_BID);
if(!OrderClose(ticket,OrderLots(),prise,3,Green)){err = GetLastError();}}
if(OrderType()==OP_SELL){RefreshRates();
prise = MarketInfo(symbol,MODE_ASK);
if(!OrderClose(ticket,OrderLots(),prise,3,Green)){err = GetLastError();}}
if(err == 0){PlaySound("expert.wav");break;}
if(err != 0){PlaySound("timeout.wav");Print("Error for Close Funtion =",err);}
while(!IsTradeAllowed()){Sleep(5000);}// åñëè ðûíîê çàíÿò òî ïîäîæäåì 5 ñåê
if (err==146) while (IsTradeContextBusy()) Sleep(1000*11);
}
}
//-----------------------------------------------------------------------------+
//___________________ÊÈÌÓ_______ÐÅÑÏÅÊÒ________È_____ÓÂÀÆÓÕÀ___________________|
//+----------------------------------------------------------------------------+
//| Àâòîð : Êèì Èãîðü Â. aka KimIV, http://www.kimiv.ru |
//+----------------------------------------------------------------------------+
//| Âåðñèÿ : 01.09.2005 |
//| Îïèñàíèå : Âûâîä ñîîáùåíèÿ â êîììåíò è â æóðíàë |
//+----------------------------------------------------------------------------+
//| Ïàðàìåòðû: |
//| m - òåêñò ñîîáùåíèÿ |
//+----------------------------------------------------------------------------+
void Message(string m) {
//Comment(m);
if (StringLen(m)>0) Print(m);
}
//+----------------------------------------------------------------------------+
//| Àâòîð : Êèì Èãîðü Â. aka KimIV, http://www.kimiv.ru |
//+----------------------------------------------------------------------------+
//| Âåðñèÿ : 28.11.2006 |
//| Îïèñàíèå : Ìîäèôèêàöèÿ îäíîãî ïðåäâàðèòåëüíî âûáðàííîãî îðäåðà. |
//+----------------------------------------------------------------------------+
//| Ïàðàìåòðû: |
//| pp - öåíà óñòàíîâêè îðäåðà |
//| sl - öåíîâîé óðîâåíü ñòîïà |
//| tp - öåíîâîé óðîâåíü òåéêà |
//| ex - äàòà èñòå÷åíèÿ |
//+----------------------------------------------------------------------------+
void ModifyOrder(double pp=-1, double sl=0, double tp=0, datetime ex=0) {
bool fm;
color cl=White;
double op, pa, pb, os, ot;
int dg=MarketInfo(OrderSymbol(), MODE_DIGITS), er, it;
if (pp<=0) pp=OrderOpenPrice();
if (sl<0 ) sl=OrderStopLoss();
if (tp<0 ) tp=OrderTakeProfit();
pp=NormalizeDouble(pp, dg);
sl=NormalizeDouble(sl, dg);
tp=NormalizeDouble(tp, dg);
op=NormalizeDouble(OrderOpenPrice() , dg);
os=NormalizeDouble(OrderStopLoss() , dg);
ot=NormalizeDouble(OrderTakeProfit(), dg);
//if(OrderType()==0||OrderType()==2||OrderType()==4){if(Ask-stoplevel<sl||Bid+stoplevel>tp){return;}}
//if(OrderType()==1||OrderType()==3||OrderType()==5){if(Bid+stoplevel>sl||Ask-stoplevel<tp){return;}}
//if(MathAbs(sl-Ask)<stoplevel||MathAbs(tp-Ask)<stoplevel){return;}
if(pp==op&&sl==os&&tp==ot){return;}
if ((sl==os&&(os!=0||sl!=0))&& (tp==ot&&(ot!=0||tp!=0))) {return;}
for (it=1; it<=NumberOfTry; it++) {
//if ((!IsExpertEnabled() || IsStopped())) break;
while (!IsTradeAllowed()) Sleep(5000);
RefreshRates();
fm=OrderModify(OrderTicket(), pp, sl, tp, ex, cl);
if (fm) {
if (UseSound) PlaySound(NameFileSound); break;
} else {
er=GetLastError();
pa=MarketInfo(OrderSymbol(), MODE_ASK);
pb=MarketInfo(OrderSymbol(), MODE_BID);
if(print){Print("Error(",er,") modifying order: ",ErrorDescription(er),", try ",it);
Print("Ask=",pa," Bid=",pb," sy=",OrderSymbol(),
" op="+GetNameOP(OrderType())," pp=",pp," sl=",sl," tp=",tp);}
Sleep(1000*10);
//if(er==130){del(OrderTicket());}
}
}
//}
}
//+----------------------------------------------------------------------------+
//| Àâòîð : Êèì Èãîðü Â. aka KimIV, http://www.kimiv.ru |
//+----------------------------------------------------------------------------+
//| Âåðñèÿ : 06.03.2008 |
//| Îïèñàíèå : Âîçâðàùàåò ôëàã ñóùåñòâîâàíèÿ ïîçèöèé |
//+----------------------------------------------------------------------------+
//| Ïàðàìåòðû: |
//| sy - íàèìåíîâàíèå èíñòðóìåíòà ("" - ëþáîé ñèìâîë, |
//| NULL - òåêóùèé ñèìâîë) |
//| op - îïåðàöèÿ (-1 - ëþáàÿ ïîçèöèÿ) |
//| mn - MagicNumber (-1 - ëþáîé ìàãèê) |
//| ot - âðåìÿ îòêðûòèÿ ( 0 - ëþáîå âðåìÿ îòêðûòèÿ) |
//+----------------------------------------------------------------------------+
bool ExistPositions(string sy="", int op=-1, int mn=-1, datetime ot=0) {
int i, k=OrdersTotal();
if (sy=="0") sy=Symbol();
for (i=0; i<k; i++) {
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
if (OrderSymbol()==sy || sy=="") {
if (OrderType()==OP_BUY || OrderType()==OP_SELL) {
if (op<0 || OrderType()==op) {
if (mn<0 || OrderMagicNumber()==mn) {
if (ot<=OrderOpenTime()) return(True);
}
}
}
}
}
}
return(False);
}
//+----------------------------------------------------------------------------+
//| Àâòîð : Êèì Èãîðü Â. aka KimIV, http://www.kimiv.ru |
//+----------------------------------------------------------------------------+
//| Âåðñèÿ : 01.09.2005 |
//| Îïèñàíèå : Âîçâðàùàåò íàèìåíîâàíèå òîðãîâîé îïåðàöèè |
//+----------------------------------------------------------------------------+
//| Ïàðàìåòðû: |
//| op - èäåíòèôèêàòîð òîðãîâîé îïåðàöèè |
//+----------------------------------------------------------------------------+
string GetNameOP(int op) {
switch (op) {
case OP_BUY : return("Buy");
case OP_SELL : return("Sell");
case OP_BUYLIMIT : return("BuyLimit");
case OP_SELLLIMIT: return("SellLimit");
case OP_BUYSTOP : return("BuyStop");
case OP_SELLSTOP : return("SellStop");
default : return("Unknown Operation");
}
}
//+----------------------------------------------------------------------------+
//| Àâòîð : Êèì Èãîðü Â. aka KimIV, http://www.kimiv.ru |
//+----------------------------------------------------------------------------+
//| Âåðñèÿ : 10.04.2008 |
//| Îïèñàíèå : Îòêðûâàåò ïîçèöèþ ïî ðûíî÷íîé öåíå. |
//+----------------------------------------------------------------------------+
//| Ïàðàìåòðû: |
//| sy - íàèìåíîâàíèå èíñòðóìåíòà (NULL èëè "" - òåêóùèé ñèìâîë) |
//| op - îïåðàöèÿ |
//| ll - ëîò |
//| sl - óðîâåíü ñòîï |
//| tp - óðîâåíü òåéê |
//| mn - MagicNumber |
//+----------------------------------------------------------------------------+
void OpenPosition(string sy, int op, double ll, double Sl=0, double Tp=0, int mn=0) {
color clOpen;
datetime ot;
double pp, pa, pb, tp ,sl;
int dg, err, it, ticket=0;
string lsComm="";
if (sy=="" || sy=="0") sy=Symbol();
int stoplevel=MarketInfo(sy,MODE_STOPLEVEL);
int spread=MarketInfo(sy,MODE_SPREAD);
if(Tp!=0&&Tp<stoplevel+spread){Tp=stoplevel;}
if (op<1){
if (Sl>0) {sl=MarketInfo(Symbol(),MODE_ASK)-Sl*Point; }else {sl=0;}
if (Tp>0) {tp=MarketInfo(Symbol(),MODE_ASK)+Tp*Point; }else{ tp=0;}
}else{
if (Sl>0) {sl=MarketInfo(Symbol(),MODE_BID)+Sl*Point; }else{ sl=0;}
if (Tp>0) {tp=MarketInfo(Symbol(),MODE_BID)-Tp*Point;} else {tp=0;}}
if (op==OP_BUY) clOpen=clOpenBuy; else clOpen=clOpenSell;
for (it=1; it<=NumberOfTry; it++) {
if (IsStopped()) {
Print("OpenPosition(): Îñòàíîâêà ðàáîòû ôóíêöèè");
break;}
while (!IsTradeAllowed()) Sleep(5000);
RefreshRates();
dg=MarketInfo(sy, MODE_DIGITS);
pa=MarketInfo(sy, MODE_ASK);
pb=MarketInfo(sy, MODE_BID);
if (op==OP_BUY) pp=pa; else pp=pb;
pp=NormalizeDouble(pp, dg);
ot=TimeCurrent();
if (MarketWatch)
ticket=OrderSend(sy, op, ll, pp, Slippage, 0, 0, lsComm, mn, 0, clOpen);
else
ticket=OrderSend(sy, op, ll, pp, Slippage, sl, tp, lsComm, mn, 0, clOpen);
if (ticket>0) {
if (UseSound) PlaySound(NameFileSound); break;
} else {
err=GetLastError();
if (pa==0 && pb==0) Message("Ïðîâåðüòå â Îáçîðå ðûíêà íàëè÷èå ñèìâîëà "+sy);
// Âûâîä ñîîáùåíèÿ îá îøèáêå
if(print){
Print("Error(",err,") opening position: ",ErrorDescription(err),", try ",it);
Print("Ask=",pa," Bid=",pb," sy=",sy," ll=",ll," op=",GetNameOP(op),
" pp=",pp," sl=",sl," tp=",tp," mn=",mn);}
// Áëîêèðîâêà ðàáîòû ñîâåòíèêà
if (err==2 || err==64 || err==65 || err==133) {
gbDisabled=True; break;
}
// Äëèòåëüíàÿ ïàóçà
if (err==4 || err==131 || err==132) {
Sleep(1000*300); break;
}
if (err==128 || err==142 || err==143) {
Sleep(1000*66.666);
if (ExistPositions(sy, op, mn, ot)) {
if (UseSound) PlaySound(NameFileSound); break;
}
}
if (err==140 || err==148 || err==4110 || err==4111) break;
if (err==141) Sleep(1000*100);
if (err==145) Sleep(1000*17);
if (err==146) while (IsTradeContextBusy()) Sleep(1000*11);
if (err!=135) Sleep(1000*7.7);
}
}
if (MarketWatch && ticket>0 && (sl>0 || tp>0)) {
if (OrderSelect(ticket, SELECT_BY_TICKET)) ModifyOrder(-1, sl, tp);
}
}
//+----------------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Series array that contains open time of each bar
Series array that contains close prices for each bar
Series array that contains open prices of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
ZzName
Order Management characteristics:
Checks for the total of open orders
Checks for the total of closed orders
It Closes Orders by itself
It can change open orders parameters, due to possible stepping strategy
It automatically opens orders when conditions are reached
Other Features:
It issuies visual alerts to the screen
It plays sound alerts
