Форум

mydone 29.07.2010 15:34 

Это когда много индикаторов встроенно настройки вынесены и юзер выбирает параметры индюков для входа + параметры сделки. Тут точно ктото выкладывал

mydone 30.07.2010 00:01 

Да нет точно не он. Там именно все стандартные индюки в одной сове

leonid553 30.07.2010 12:30 

К сож. не могу привести ссылку. Я брал этот код здесь, в разделе CODE BASE , - может пригодится:

 
 
extern string s1 = "EURUSD";
extern int    x1 = 100;
extern int    x2 = 100;
extern int    x3 = 100;
extern int    x4 = 100;
extern double sl1 = 60;
extern int    tp1 = 60;
extern string s2 = "GBPJPY";
extern int    x5 = 100;
extern int    x6 = 100;
extern int    x7 = 100;
extern int    x8 = 100;
extern double sl2 = 60;
extern int    tp2 = 60;
extern string s3 = "AUDNZD";
extern int    x9  = 100;
extern int    x10 = 100;
extern int    x11 = 100;
extern int    x12 = 100;
extern double sl3 = 60;
extern int    tp3 = 60;
extern double    lot           = 0.2;
extern double    sl            = 85;
extern int       MagicNumber   = 777;
static int       prevtime = 0;
 
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//----
   if (Time[0] == prevtime) return(0);
       prevtime = Time[0];
//---
      double s1_bid = MarketInfo(s1,MODE_BID);
      double s1_ask = MarketInfo(s1,MODE_ASK);
      double s2_bid = MarketInfo(s2,MODE_BID);
      double s2_ask = MarketInfo(s2,MODE_ASK);
      double s3_bid = MarketInfo(s3,MODE_BID);
      double s3_ask = MarketInfo(s3,MODE_ASK);
 
   if(retOrders(s1)==0 && perceptron(s1,x1,x2,x3,x4)>0){
         OrderSend(s1,OP_BUY, lot, s1_ask, 3, s1_bid - sl1 * Point, s1_bid
+ tp1 * Point, "", MagicNumber, 0, Blue);}else{prevtime = Time[1];}
   if(retOrders(s2)==0 && perceptron(s2,x5,x6,x7,x8)>0){
         OrderSend(s2,OP_BUY, lot, s2_ask, 3, s2_bid - sl2 * Point, s2_bid
 + tp2 * Point, "", MagicNumber, 0, Blue);}else{prevtime = Time[1];}
    if(retOrders(s3)==0 && perceptron(s3,x9,x10,x11,x12)>0){
         OrderSend(s3,OP_BUY, lot, s3_ask, 3, s3_bid - sl3 * Point, s3_bid
 + tp3 * Point, "", MagicNumber, 0, Blue);}else{prevtime = Time[1];}       
    if(retOrders(s1)==0 && perceptron(s1,x1,x2,x3,x4)<0){
        OrderSend(s1,OP_SELL,lot, s1_bid, 3, s1_ask + sl1 * Point, s1_ask
 - tp1 * Point, "", MagicNumber, 0, Red);}else{prevtime = Time[1];}
   if(retOrders(s2)==0 && perceptron(s2,x5,x6,x7,x8)<0){
         OrderSend(s2,OP_SELL,lot, s2_bid, 3, s2_ask + sl2 * Point, s2_ask 
- tp2 * Point, "", MagicNumber, 0, Red);}else{prevtime = Time[1];}
    if(retOrders(s3)==0 && perceptron(s3,x9,x10,x11,x12)<0){
         OrderSend(s3,OP_SELL,lot, s3_bid, 3, s3_ask + sl3 * Point, s3_ask
- tp3 * Point, "", MagicNumber, 0, Red);}else{prevtime = Time[1];}       
////////////////////////////////////////////////////////////////////////////////////////////
   return(0);
  }
//+------------------------------------------------------------------+
double perceptron(string Sy,int y1,int y2,int y3,int y4) 
  {
   double w1 = y1 - 100;
   double w2 = y2 - 100;
   double w3 = y3 - 100;
   double w4 = y4 - 100;
   double a1 = iAC(Sy, 0, 0);
   double a2 = iAC(Sy, 0, 7);
   double a3 = iAC(Sy, 0, 14);
   double a4 = iAC(Sy, 0, 21);
   return(w1 * a1 + w2 * a2 + w3 * a3 + w4 * a4);
   }
//+------------------------------------------------------------------+
int retOrders(string sym){
 
   int total = OrdersTotal();
   int OrderCount=0;
   for(int i = 0; i <= total; i++) 
     {
       OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
       if( OrderMagicNumber() == MagicNumber && OrderSymbol() == sym) 
         {
          OrderCount++;
         }
      }
     return(OrderCount);
 }
 //+------------------------------------------------------------------+

 

  

mydone 30.07.2010 17:24 

Спасибо большое Леонид, но это все не то к сожалению.

gss 31.07.2010 06:57 

//+-------------------------------------------------------------------------------------+
//| Функция инициализации эксперта |
//+-------------------------------------------------------------------------------------+
int init()
{
//----
Activate = False;
// - 1 - == Сбор информации об условиях торговли ========================================
Tick = MarketInfo(Symbol(), MODE_TICKSIZE); // минимальный тик
Spread = ND(MarketInfo(Symbol(), MODE_SPREAD)*Point); // текщий спрэд
StopLevel = ND(MarketInfo(Symbol(), MODE_STOPLEVEL)*Point); // текущий уровень стопов
MinLot = MarketInfo(Symbol(), MODE_MINLOT); // минимальный разрешенный объем сделки
MaxLot = MarketInfo(Symbol(), MODE_MAXLOT); // максимальный разрешенный объем сделки
LotStep = MarketInfo(Symbol(), MODE_LOTSTEP); // шаг приращения объема сделки
// - 1 - == Окончание блока =============================================================

// - 2 - == Приведение объема сделки к допустимому и проверка корректности объема =======
Lots = MathRound(Lots/LotStep)*LotStep; // округление объема до ближайшего допустимого
if(Lots < MinLot || Lots > MaxLot) // объем сделки не меньше MinLot и не больше MaxLot
{
Comment("Параметром Lots был задан неправильный объем сделки! Советник отключен!");
return(0);
}
// - 2 - == Окончание блока =============================================================

UseInd = UseADX + UseBollinger + UseCCI + UseCrossMA + UseSAR + UseStDev + UseMACD +
UseDeMarker + UseEnvelopes + UseForceIndex + UseMomentum + UseOsMA + UseRSI +
UseRVI + UseStochastic + UseWPR + UseAO + UseAC + UseFractals + UseAlligator+
UseBWMFI;

Comm = "Выбраны следующие индикаторы:\n";
if (UseADX) Comm = Comm + "ADX\n";
if (UseBollinger) Comm = Comm + "Bollinger Bands\n";
if (UseCCI) Comm = Comm + "CCI\n";
if (UseCrossMA) Comm = Comm + "CrossMA\n";
if (UseSAR) Comm = Comm + "Parabolic\n";
if (UseStDev) Comm = Comm + "StDev\n";
if (UseMACD) Comm = Comm + "MACD\n";
if (UseDeMarker) Comm = Comm + "DeMarker\n";
if (UseForceIndex) Comm = Comm + "ForceIndex\n";
if (UseMomentum) Comm = Comm + "Momentum\n";
if (UseOsMA) Comm = Comm + "OsMA\n";
if (UseRSI) Comm = Comm + "RSI\n";
if (UseRVI) Comm = Comm + "RVI\n";
if (UseStochastic) Comm = Comm + "Stochastic\n";
if (UseWPR) Comm = Comm + "WPR\n";
if (UseAO) Comm = Comm + "AO\n";
if (UseAC) Comm = Comm + "AC\n";
if (UseFractals) Comm = Comm + "Fractals\n";
if (UseAlligator) Comm = Comm + "Alligator\n";
if (UseBWMFI) Comm = Comm + "Bill Williams MFI\n";

Comment(Comm);

LastBuySignal = 0;
LastSellSignal = 0;
LastBar = 0;

Activate = True; // Все проверки успешно завершены, возводим флаг активизации эксперта

//----
return(0);
}

//+-------------------------------------------------------------------------------------+
//| Функция деинициализации эксперта |
//+-------------------------------------------------------------------------------------+
int deinit()
{
//----
Comment("");
//----
return(0);
}

//+--------------------------------------------------------------------------------------+
//| Двухуровневый трейлинг-стоп |
//| TrailingStop1 - выставляется один раз после достижения нужного кол-ва пунктов прибыли|
//| TrailingStop2 - движущийся. Включается после отработки трейлинг-стопа первого уровня |
//+--------------------------------------------------------------------------------------+
void TrailingStopDoubleLevel()
{
for (int i = 0; i < OrdersTotal(); i++)
if (OrderSelect(i, SELECT_BY_POS))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && OrderType() < 2)
{
if (!WaitForTradeContext()) break;
// Блок 1. Нормализация основных характеристик позиции -----------------------------------
RefreshRates();
double OpPrice = ND(OrderOpenPrice()); // Приведение цены открытия к нужной точности
double SL = ND(OrderStopLoss()); // Приведение стоп-приказа к нужной точности
double NBid = ND(Bid);
double NAsk = ND(Ask);
// Блок 1. -------------------------------------------------------------------------------

// Блок 2. Классический трейлинг длинной позиции -----------------------------------------
if(OrderType() == OP_BUY)
if(SL >= OpPrice && TrailingStop2 != 0) // Если стоп перенесен в безубыток
{
if(NBid > ND(Tick*TrailingStop2+SL) && // Если BID больше стопа на TrailingStop2
TrailingStop2 > StopLevel/Point) // И TrailingStop2 больше уровня стопов
if(WaitForTradeContext()) // Ждем освобождение торгового потока
if(!OrderModify(OrderTicket(), 0,
ND(NBid-TrailingStop2*Tick), OrderTakeProfit(), 0)) // Модификация
Print("Не удалось изменить ордер BUY. Второй трал. Ошибка №",
GetLastError(), ", Старый: ", SL, ", Новый: ",
NBid-TrailingStop2*Tick); // Развернутое сообщение об ошибке
}
// Блок 2. -------------------------------------------------------------------------------

// Блок 3. Перенос стопа в безубыток длинной позиции -------------------------------------
else
{
if(ND(OpPrice+TrailingStop1*Tick) < NBid && // Если BID больше цены открытия
TrailingStop1 > StopLevel/Point) // на TrailingStop1 пунктов и дальше, чем
if(WaitForTradeContext()) // уровень стопов
if(!OrderModify(OrderTicket(), 0, OpPrice,
OrderTakeProfit(), 0)) // модификация
Print("Не удалось изменить ордер BUY. Первый трал. Ошибка №", // сообщение
GetLastError(), ", Старый: ", SL, ", Новый: ", OpPrice);// в журнал
}
// Блок 3. -------------------------------------------------------------------------------

// Блок 4. Классический трейлинг короткой позиции ----------------------------------------
if(OrderType()==OP_SELL) // Для короткой позиции
if(OpPrice >= SL && SL != 0 && TrailingStop2 != 0) // Если стоп перенесен в безубыток
{
if(TrailingStop2 > StopLevel/Point && // TrailingStop2 больше уровня стопов
SL > ND(Tick*TrailingStop2+NAsk)) // и ASK ниже стопа на TrailingStop2 пунктов
if(WaitForTradeContext()) // Ожидаем освобождения торгового потока
if(!OrderModify(OrderTicket(), 0, ND(NAsk+TrailingStop2*Tick),
OrderTakeProfit(), 0)) // модификация
Print("Не удалось изменить ордер SELL. Второй трал. Ошибка №",
GetLastError(), ", Старый: ", SL, ", Новый: ", NAsk+TrailingStop2*Tick);
}
// Блок 4. -------------------------------------------------------------------------------

// Блок 5. Перенос стопа в безубыток короткой позиции ------------------------------------
else
{
if(OpPrice > ND(NAsk+Tick*TrailingStop1) && //ASK ниже открытия на TrailingStop1
TrailingStop1 > StopLevel/Point) // и на StopLevel пунктов
if(WaitForTradeContext()) // Ожидаем торговый поток
if(!OrderModify(OrderTicket(), 0, OpPrice, OrderTakeProfit(), 0))//модификация
Print("Не удалось изменить ордер SELL. Первый трал. Ошибка №",
GetLastError(), ", Старый: ", SL, ", Новый: ", OpPrice);
}
// Блок 5. -------------------------------------------------------------------------------
}
return(0);
}