expert for 2006 contest

 

i am a bit late but i think my expert is the best ))))
it did not trade in october yet but the results should be positive till year 2007
happy new year to money winners!
here is the full code for EURUSD daily and goodluck
//+------------------------------------------------------------------+
//| Victor-Champion. mq4 |
//+------------------------------------------------------------------+
extern double TakeProfit = 60;
extern double Lots = 5.0;
extern double StopLoss = 60;

int CalculateCurrentOrders(string symbol)
{
int buys=0,sells=0;
for(int i=0;i<OrdersTotal();i++)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
if(OrderSymbol()==Symbol())
{
if(OrderType()==OP_BUY) buys++;
if(OrderType()==OP_SELL) sells++;
}
}
if(buys>0) return(buys);
else return(-sells);
}

void CheckForOpen()
{
int StartBar=0;
int TotalBars=5;
double hi1=High[Highest(NULL,0,MODE_HIGH,TotalBars,StartBar)];
double lo1=Low [Lowest (NULL,0,MODE_LOW ,TotalBars,StartBar)];
double hi2=High[Highest(NULL,0,MODE_HIGH,TotalBars+3,StartBar)];
double lo2=Low [Lowest (NULL,0,MODE_LOW ,TotalBars+3,StartBar)];

int vpered;
int i_u = -1, i_d = -1;
for ( int i = 0; i < Bars-1; i ++ )
{
if ( i_u == -1 && iFractals( NULL, 0, MODE_UPPER, i ) > 0 ) { i_u = i; }
if ( i_d == -1 && iFractals( NULL, 0, MODE_LOWER, i ) > 0 ) { i_d = i; }
if ( i_u > -1 && i_d > -1 ) { break; }
}

if(Volume[0]>1) return;

//---- sell conditions
if(i_u > i_d && lo2 < lo1)
{
vpered=OrderSend(Symbol(),OP_SELL, Lots, Bid, 3, Bid + StopLoss*Point, Bid - TakeProfit*Point, "",0,0,Red);
return;
}
//---- buy conditions
if(i_u < i_d && hi2 > hi1)
{
vpered=OrderSend(Symbol(),OP_BUY, Lots, Ask, 3, Ask - StopLoss*Point, Ask + TakeProfit*Point, "",0,0,Blue);
return;
}
//----
}

void start()
{
if(Bars<100 || IsTradeAllowed()==false) return;
if(CalculateCurrentOrders(Symbol())< 3) CheckForOpen();
else return;
}

 
Интересный советник и простой! как он работает сейчас в 2007 году и есть ли у ВИктора новые советники хорошие?

zvenitkedr собака 1nsk.ru напиши сюда, есть чем поделится!

с Уважением, АНтон.
Причина обращения: