// Because of my dismal stupidity not even named this EA 
#property copyright "RamilT" 
#property link "RamilT@bk.ru" 
//-----------------------------------Òèïà ïåðåìåííûå----------------------------------------------------------- 
extern int pr=11; 
extern int sl=35; 
extern int tp=75; 
extern int tz=60; 
extern int mm=1; 
extern int qq=10; 
extern int chas1=5; 
extern int chas2=17; 
static double Lots=1; 
//------------------------------------------------------------------------------------------------------------- 
int start() 
{ 
if(Hour()<=chas1||Hour()>=chas2)return(0); 
if(Bars<100) 
{ 
Print("bars less than 100"); 
return(0); 
} 
//-----------------------------------Ìîíýé ìåíäæìåíò----------------------------------------------------------- 
if (mm==1) 
{ 
if(Lots<(MathCeil((AccountFreeMargin()/1000)*qq)/10)){Lots=(MathCeil((AccountFreeMargin()/10000)*qq)/10);if(Lots>100){Lots=100;}} 
} 
//------------------------------------------------------------------------------------------------------------- 
//----------------------------------Ãëàâíûé àëãîðèòì----------------------------------------------------------- 
if(Month()!=12){ 
if(DayOfWeek()!=1){ 
if(OrdersTotal()<1) 
{ 
if (((iOpen(NULL,5,1)-iClose(NULL,5,pr))>(Point*tz))&&(Ask>iOpen(NULL,5,1))) 
{ 
OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-sl*Point,Ask+tp*Point,"qq-buy60",11603575,0,Blue); 
} 
if (((iOpen(NULL,5,1)-iClose(NULL,5,pr))<(-Point*tz))&&(Bid<iOpen(NULL,5,1))) 
{ 
OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Bid+sl*Point,Bid-tp*Point,"qq-sell60",11603575,0,Red); 
} 
} 
} 
} 
//------------------------------------------------------------------------------------------------------------- 
} 
Comments