//+------------------------------------------------------------------+
//| 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 int TimeFrame=30;
extern string b="Maximum quantity of warrants=20";
extern int MaxOrd_1=50;
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);}
//}
//----
Comment("Profit SELL",PorfitBuySell(1),"\nProfitBUY",PorfitBuySell(0));
//if(!DelDamage()){DelBigestLoss();}
//if(GrPorfit()>0){CloseAll();}
//if(GrPorfit()>MInProfit){{CloseAll();}}
if(NevBar()){SetArrow("NULL",4,1,1,NullDot(),White);}
if(OrdersTotal()>=1){
if(OrdersTotal()==1){LastOrdTral(TralStep);}
if(OrdersTotal()>1){if(GrPorfit()>MInProfit){{if(!LastOrdTral(TralStep)){CloseAll();}}}}
if(!DelDamage()){DelBigestLoss();}
if(NevBarS(TimeFrame)){
if(AutoLot){lot=CalcLotsAuto();}
if(OrdersTotal()>2){lot=OrdersLot();}
if(lot<0.02){lot=0.02;}
if((NullDot()<Bid)){
if(PorfitBuySell(1)>=PorfitBuySell(0)){OpenPosition("",1,lot,StopLoss,TakeProfit,BuyMagic1);}
if(PorfitBuySell(1)<PorfitBuySell(0)){OpenPosition("",0,lot,StopLoss,TakeProfit,BuyMagic1);}
}
if((NullDot()>Ask)){
if(PorfitBuySell(0)>=PorfitBuySell(1)){OpenPosition("",0,lot,StopLoss,TakeProfit,SellMagic1);}
if(PorfitBuySell(0)<PorfitBuySell(1)){OpenPosition("",1,lot,StopLoss,TakeProfit,BuyMagic1);}
}
}
}
if(IfClose()>0){
if(OrdersTotal()<1){
if(AutoLot){lot=CalcLotsAuto();}
if(NevBarS(TimeFrame)){OpenPosition("",1,lot,StopLoss,TakeProfit,BuyMagic1);}
}
}
if(IfClose()<0){
if(OrdersTotal()<1){
if(AutoLot){lot=CalcLotsAuto();}
if(NevBarS(TimeFrame)){OpenPosition("",0,lot,StopLoss,TakeProfit,BuyMagic1);}
}
}
//----
return(0);
}
//-----------------------------------------------------------------------------+
// Ñðåäíåå àðèôìåòè÷åñêîå ëîòà óñòàíîâëåííûõ îðäåðîâ |
//-----------------------------------------------------------------------------+
double OrdersLot(){int count=0;double Lt=0;
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()){
if(OrderCloseTime()==0){
Lt=Lt+OrderLots();
count++;
}
}
}
}
Print(NormalizeDouble((Lt/count),2));
return(NormalizeDouble((Lt/count),2));
}
//-----------------------------------------------------------------------------+
// Öåíà ïîñëåäíåãî óñòàíîâëåííîãî îðäåðà |
//-----------------------------------------------------------------------------+
bool IfLastOrdPrise(){int tm=0,Typ=-1;double pr=0;
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderCloseTime()==0){
if(OrderOpenTime()>tm){
tm=OrderOpenTime();
pr=OrderOpenPrice();
}
}
}
}
if(pr>Ask){return(1);}
if(pr<Bid){return(-1);}
return(0);
}
//-----------------------------------------------------------------------------+
// Ôóíêöèÿ êîíòðîëÿ íîâîãî áàðà |
//-----------------------------------------------------------------------------+
bool NevBarS(int Tf){static int times=0;
if(times+(Tf*60)>TimeCurrent()) return(false);
times=TimeCurrent();
return(true);}
//-----------------------------------------------------------------------------+
// Óñëîâèÿ âõîäà â ðûíîê |
//-----------------------------------------------------------------------------+
int If(){
//if(Close[1]<Open[0]){
if(MathRand() < 32767/2){
//if(Close[1]<iMA(Symbol(),0,per,0,1,0,1)){
BuySell_1=-1;
gCountBuy_1++;
gCountSell_1=1;
bs++;
//Comment(b,"\n",s);
return(1);}
//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;
gCountBuy_1=1;
gCountSell_1++;
ss++;
//Comment(b,"\n",s);
return(-1);}
BuySell_1=0;
return(0);
}
//-----------------------------------------------------------------------------+
// Óñëîâèÿ âõîäà â ðûíîê |
//-----------------------------------------------------------------------------+
int IfClose(){
if(iClose(Symbol(),TimeFrame,1)<iOpen(Symbol(),TimeFrame,1)){
BuySell_1=-1;
gCountBuy_1++;
gCountSell_1=1;
return(1);}
if(iClose(Symbol(),TimeFrame,1)>iOpen(Symbol(),TimeFrame,1)){
BuySell_1=1;
gCountBuy_1=1;
gCountSell_1++;
return(-1);}
BuySell_1=0;
return(0);
}
//+----------------------------------------------------------------------------+
// Òðàë ïîñëåäíåãî îðäåðà +
//-----------------------------------------------------------------------------+
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));
Print((OrderProfit()/(OrderLots()*10))," ",StPr,">",PrewStPr," Step=",(stepcount));
double prisearr;
if(OrderType()==0){prisearr=OrderOpenPrice()+PrewStPr*Point;}
if(OrderType()==1){prisearr=OrderOpenPrice()-PrewStPr*Point;}
SetArrow("NULL2",4,1,1,prisearr,Red);
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());Print("Close_At_By");PrewStPr=0;stepcount=1;return(true);}
}
}
}
}
return(false);
}
//+----------------------------------------------------------------------------+
// Òðàë ïîñëåäíåãî îðäåðà +
//-----------------------------------------------------------------------------+
bool LastOrdTral2(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));
double prisearr,prisearr2;
if(OrderType()==0){prisearr=OrderOpenPrice()+PrewStPr*Point;prisearr2=OrderOpenPrice()+StPr*Point;}
if(OrderType()==1){prisearr=OrderOpenPrice()-PrewStPr*Point;prisearr2=OrderOpenPrice()-StPr*Point;}
SetArrow("1",4,1,1,prisearr,White);
SetArrow("2",4,1,1,prisearr2,Blue);
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());Print("Close_At_By");PrewStPr=0;stepcount=1;return(true);}
}
}
}
}
return(false);
}
//-----------------------------------------------------------------------------+
// Òî÷êà ðàâíîâåñèÿ |
//-----------------------------------------------------------------------------+
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);
}
//+------------------------------------------------------------------+
//| Óñòàíîâêà ñòðåëîê |
//+------------------------------------------------------------------+
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;}
//-----------------------------------------------------------------------------+
// Åñëè ïîñëåäíèé íå çàêðûòûé îðäåð ñ ïðèáûëüþ |
//-----------------------------------------------------------------------------+
bool IfLastOrdProfit(double MinPr){int tm=0,Typ=-1;double pr=0;
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderCloseTime()==0){
if(OrderOpenTime()>tm){
tm=OrderOpenTime();
Typ=OrderType();
pr=(OrderProfit()+OrderSwap()+OrderCommission())/(OrderLots()*10);
}
}
}
}
if(pr>MinPr&&Typ>=0){return(Typ);}
return(-1);
}
//-----------------------------------------------------------------------------+
// Åñëè ïîñëåäíèé íå çàêðûòûé îðäåð ñ óáûòêîì |
//-----------------------------------------------------------------------------+
bool IfLastOrdLoss(double MinPr){int tm=0,Typ=-1;double pr=0;
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderCloseTime()==0){
if(OrderOpenTime()>tm){
tm=OrderOpenTime();
Typ=OrderType();
if(OrderType()==0){pr=(Bid-OrderOpenPrice())/Point;}
if(OrderType()==1){pr=(OrderOpenPrice()-Ask)/Point;}
}
}
}
}
if(pr<MinPr&&Typ>=0){Print("pr=",pr);return(Typ);}
return(-1);
}
//-----------------------------------------------------------------------------+
// Âûâîäèò èíôîðìàöèþ íà ýêðàí |
//-----------------------------------------------------------------------------+
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);
}
//-----------------------------------------------------------------------------+
// Óäàëåíèå ñàìîãî áîëüøîãî ëîñÿ |
//-----------------------------------------------------------------------------+
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 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){
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 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()+OrderSwap()+OrderCommission();}
}
}
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 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=(Marga*(Risk/100));
LotOpt=NormalizeDouble((Zalog/1000),step);
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 open prices of each bar
Series array that contains close prices for each bar
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open 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
