#property copyright "Copyright © 2010"
#property link ""
//+------------------------------------------------------------------+
//| первоначальные установки эксперта |
//+------------------------------------------------------------------+
extern bool closeorders=true;
extern double lot=0.1;
double min1;// минимум 1 бара
double max1;// максимум 1 бара
double min2;// минимум 2 бара
double max2;// максимум 2 бара
double min3;// минимум 3 бара
double max3;// максимум 3 бара
double min4;// минимум 4 бара
double max4;// максимум 4 бара
double min5;// минимум 5 бара
double max5;// максимум 5 бара
double o1;// цена открытия 1бара
double o2;// цена открытия 2бара
double o3;// цена открытия 3бара
double o4;// цена открытия 4бара
double o5;// цена открытия 5бара
double z1;// цена закрытия 1бара
double z2;// цена закрытия 2бара
double z3;// цена закрытия 3бара
double z4;// цена закрытия 4бара
double z5;// цена закрытия 5бара
double y;//стоп лосс
double y1;//тейкпрофит
double l1, l2, l3, l4, l5;// начальные дельты
double l;//средняя дельта
double telo1,telo2,telo3,telo4,telo5;//размер тела свечи
double x,a;// средний р-р тела и логич переменная
double max12,max23,max34,max45,tmax;
double min12,min23,min34,min45,tmin;
double t;//указатель движения тренда
int time;
int init()
{
//----
time=Time[0];
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
//----
if (time<Time[0]){
min1=Low[5];min2=Low[4];min3=Low[3];min4=Low[2];min5=Low[1]; //установка мин цен всех 5 лотов
max1=High[5];max2=High[4];max3=High[3];max4=High[2];max5=High[1]; //установка макс цен всех 5 лотов
o1=Open[5];o2=Open[4];o3=Open[3];o4=Open[2];o5=Open[1]; //установка цен открытия 5 лотов
z1=Close[5];z2=Close[4];z3=Close[3];z4=Close[2];z5=Close[1]; //установка цен закрытия 5 лотов
l1=max1-min1;l2=max2-min2;l3=max3-min3;l4=max4-min4;l5=max5-min5;//начальных дельт
l=(l1+l2+l3+l4+l5)/5;
telo1=MathAbs(z1-o1);//определяем р-р тела 1 свечи по модулю
telo2=MathAbs(z2-o2);//определяем р-р тела 2 свечи по модулю
telo3=MathAbs(z3-o3);//определяем р-р тела 3 свечи по модулю
telo4=MathAbs(z4-o4);//определяем р-р тела 4 свечи по модулю
telo5=MathAbs(z5-o5);//определяем р-р тела 5 свечи по модулю
x=(telo1+telo2+telo3+telo4+telo5)/5;
a=(((((l4+l5)/2)/((telo4+telo5)/2))/(l/x))+1);
y=((l1+1.2*l2+1.4*l3+1.6*l4+1.8*l5)/5)*10000;
y1=y/3;
max12=(max2-max1)/((l2+l1)/2);
max23=(max3-max2)/((l3+l2)/2);
max12=(max4-max3)/((l4+l3)/2);
max12=(max5-max4)/((l5+l4)/2);
min12=(min2-min1)/((l2+l1)/2);
min23=(min3-min2)/((l3+l2)/2);
min34=(min4-min3)/((l4+l3)/2);
min45=(min5-min4)/((l5+l4)/2);
tmax=max12+1.2*max23+1.4*max34+1.6*max45;
tmin=min12+1.2*min23+1.4*min34+1.6*min45;
t=(tmax+tmin)/a*(1);
if (closeorders>=true)while (OrdersTotal()>0)
{
OrderSelect(0,SELECT_BY_POS);
if (OrderType()==OP_BUY) OrderClose(OrderTicket(),OrderLots(),Bid,3,Green);
else if (OrderType()==OP_SELL) OrderClose(OrderTicket(),OrderLots(),Ask,3,Red);
}
time=Time[0];
if (y1>15) {
if (OrdersTotal()<1){
if (t>0.5) OrderSend(Symbol(),OP_BUY,lot,Ask,3,Bid-y*Point,Ask+y1*Point,"My order #",16384,0,Green); else if (t<-0.5) OrderSend(Symbol(),OP_SELL,lot,Bid,3,Ask+y*Point,Bid-y1*Point,"My order #",16384,0,Red);else Comment("не входить") ;
}
}
}
//----
return(0);