Navigation:Home > Content >

WOC.T3.mq4

Time: 2010-10-23 | Download file:WOC.T3.mq4

#include 
#include 
extern int   DeltaExtrim =130;//превышение экстремума в пип
extern int     Lbar = 110;//мин.длина бара
extern int     TIME          =  1;//время анализа поступления тиков
extern double  StopLoss       =  1;  //начальный стоплосс 
extern double  TrSt           =  0.5; //Трал
extern double porog           =0;//мин порог разницы тиков . пип
extern double MinProfit       =20;//мин. профит модификации стоплоса
extern int     Speed          =  3;//колич. анализируемых тиков
extern bool  CurrentBar = true;//учёт длины текущего бара
extern bool  PreviousBar = false;//учёт длины предыдущего бара
extern bool  Extrim = false;//флаг разрешения входа по превышению экстремума
extern int   NbarExtrim = 15;//колич. баров вычисления экстремумов
extern bool  OneOrderBar = false;//разрешение только одного ордера в баре
//double  timeSpeed      =  0; 
extern double Lot = 1;
extern double MaxLot = 30;
extern double MinLot = 1;
extern int NormalizeLot =1;//нормализация порядка знаков после зпт. в значении лота 1 - 0.1 ....2 - 0.01
extern bool   TickFiltr = true;//включение фильтра порядка поступления тиков
extern bool   LotOptimized = false;//включение лототрона в доле от свободных средств
extern double    Risk = 0.5;//размер доли свободных средств
extern int    max_spread =15;//макс. значение разрешённого спреда в пип
extern bool   MM = false;
extern double comis =6;//комиссия
extern int Magic = 19805;
extern string DigString="2 for jpy, 4 for other crosses";
extern int     Dig = 5;
extern string com = "Tmod2";


double         Point_;
datetime       nextTime;
int            cnt, total, lastBars,i,vol;
int            up, down, TimeSpeedUp, TimeSpeedDown;
bool           TimBoolUp,TimBoolDown, OrderSal;
double         priceUp, priceDown,profit,eee,lots=0,p;
datetime time;

int              PipMultiplier=0;





void openOrders()
{  
int bo=0,so=0,cb=0,cs=0;
   for (int q = 0; q < total; q++)   
   {
      OrderSelect(q, SELECT_BY_POS, MODE_TRADES);
      if (OrderSymbol() == Symbol()&&OrderMagicNumber()==Magic)
      {
       if(OrderType()==OP_BUY)bo++;
       if(OrderType()==OP_SELL)so++;
       
      }
   }
//----
if(MM==TRUE) 
{
        double MG=AccountFreeMargin();       
        double Min_Lot = MarketInfo(Symbol(), MODE_LOTSTEP);
        
// ищем самый последний закрытый ордер
for(i=OrdersHistoryTotal();i>=0;i--){
  if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)){
    if(OrderSymbol()==Symbol()){
      if(OrderMagicNumber()==Magic){
        if(OrderCloseTime()!=0){
          if(OrderCloseTime()>time){
          time=OrderCloseTime();
          eee=OrderLots();
          profit=OrderProfit();
            //мартин
            if(OneOrderBar == true&&OrderOpenTime()>Time[0]){bo=1;so=1;}
            lots=GetLotSize();
            //----
            if(lots > MaxLot)lots=MaxLot;
            
            if(lots < MinLot)lots=MinLot;
          }
        }
      }
    }
  }
}
         
           if(lots==0) {
            lots=MarketInfo(Symbol(),MODE_MINLOT);
            }
}
else
{
lots=NormalizeDouble(GetLotSize(),NormalizeLot);
}
   
   int try;
   if(Ask-Bid0&&TimeCurrent()-GlobalVariableGet("td"+com)

Recommend