[ARŞİV] Forumu kirletmemek için herhangi bir acemi sorusu. Profesyonel, kaçırmayın. Sensiz hiçbir yerde - 3. - MQL4 ve MetaTrader 4 - MQL4 programlama forumu

Pazitiv 2012.01.30 21:47 #5381

QQEA göstergesine dayalı bir Uzman Danışman yazıyorum. Genel olarak, danışmanın fikri şudur: kırmızı çizgi sarı olanı aşağıdan yukarıya kestiğinde, bir Buy emri açılmalıdır, kırmızı olan sarı olanı yukarıdan aşağıya geçtiğinde - bir sipariş satılık. Ama sadece bir sipariş açamam. Koşul karşılandığında siparişler açılır. Evet ve sadece satın alma siparişleri CHAYDNT'den mi kopuyor?!

danışman çalışma illüstrasyonu //

danışman kodu

 //--- input parameters
extern double MaxRisk= 1.0 ;
extern double FixLot = 0.01 ;
extern double Exponent= 2.0 ;
extern int Magic = 888 ;

// костыли

extern int TakeProfit= 100 ;
extern int StopLoss= 100 ;

int init()
   return ( 0 );
}
int deinit()
{
//----

//----
return ( 0 );
}
 int start()
{
//----
int Count= 0 ;
double b0,b1;
int ticket;

// параметры индикатора
int SF = 5 ; // original 5
int RSI_Period = 14 ; // original 14
double DARFACTOR = 4.236 ; //original 4.236

//------------ Параметры из индикатора QQEA -----------------------
// Buffer0 -- красная жирная
string Buffer0 = iCustom ( NULL , 0 , "QQEA" , SF, RSI_Period, DARFACTOR, 0 , 0 ); 
// Buffer1 -- жёлтый пунктир
string Buffer1 = iCustom ( NULL , 0 , "QQEA" , SF, RSI_Period, DARFACTOR, 1 , 0 );

b0= StrToDouble (Buffer0);
b1= StrToDouble (Buffer1);


double Lot=GetLot(MaxRisk);

// если лот <0 выводим сообщение об ошибке
if (Lot== 0 ) 
{
Alert ( "Недостаточно средств!" );
return ( 0 );
} 

if (Lot!= 0 && b0>b1) // если лот <> 0 и красная выше жёлтой
{
ticket=NewOrder(OP_BUY,Lot);
if (ExistOrders( Symbol (), 1 , 888 , 0 ) == true ) // проверяем наличие ордера sell
{
CloseOrder();
}
}

if (Lot!= 0 && b0<b1) // если лот <> 0 и красная выше жёлтой
{
ticket=NewOrder(OP_SELL,Lot);
if (ExistOrders( Symbol (), 0 , 888 , 0 ) == true ) // проверяем наличие ордера buy
{
CloseOrder();
}
} 

Comment ( "Red line: " ,b0, "Yellow line: " ,b1);
return ( 0 );
}
//-------------------------------------------------------------
//расчёт лота

double GetLot( int Risk)
{ double Free = AccountFreeMargin ();
double One_Lot = MarketInfo ( Symbol (),MODE_MARGINREQUIRED);
double Min_Lot = MarketInfo ( Symbol (),MODE_MINLOT);
double Max_Lot = MarketInfo ( Symbol (),MODE_MAXLOT);
double Step = MarketInfo ( Symbol (),MODE_LOTSTEP);
double Lot = MathFloor (Free*Risk/ 100 /One_Lot/Step)*Step;
if (Lot<Min_Lot) Lot=Min_Lot;
if (Lot>Max_Lot) Lot=Max_Lot;
if (Lot*One_Lot>Free) return ( 0.0 );
return (Lot);}


bool ExistOrders( string sy= "" , int op=- 1 , int Magic=- 1 , datetime ot= 0 )
{
int i, k= OrdersTotal (), ty;

if (sy== "0" ) sy= Symbol ();
for (i= 0 ; i<k; i++) {
if ( OrderSelect (i, SELECT_BY_POS, MODE_TRADES)) {
ty= OrderType ();
if (ty> 1 && ty< 6 ) {
if (( OrderSymbol ()==sy || sy== "" ) && (op< 0 || ty==op)) {
if (Magic< 0 || OrderMagicNumber ()==Magic) {
if (ot<= OrderOpenTime ()) return (True);
}
}
}
}
}
return (False);
}


//открытие нового ордера
int NewOrder( int Cmd, double Lot)
{ double TP= 0 ; //тейкпрофит
double SL= 0 ; //стоплосс
double PR= 0 ; //Цена
while (! IsTradeAllowed ()) Sleep ( 100 );
if (Cmd==OP_BUY)
{PR=Ask;
if (TakeProfit> 0 ) TP=Ask+TakeProfit* Point ;
if (StopLoss> 0 ) SL=Ask-StopLoss* Point ;}
if (Cmd==OP_SELL)
{PR=Bid;
if (TakeProfit> 0 ) TP=Bid-TakeProfit* Point ;
if (StopLoss> 0 ) SL=Bid+StopLoss* Point ;}
int tic= OrderSend ( Symbol (),Cmd,Lot,PR, 3 ,SL,TP, " " , 0 , 0 , Green );
if (tic< 0 ) Print ( "Ошибка открытия ордера: " , GetLastError ());
return (tic);}


// закрытие ордера
void CloseOrder()
{ double PR= 0 ;
while (! IsTradeAllowed ()) Sleep ( 100 );
if ( OrderType ()==OP_BUY) PR=Bid;
if ( OrderType ()==OP_SELL) PR=Ask;
if (! OrderClose ( OrderTicket (), OrderLots (),PR, 3 , Red ))
Print ( "Ошибка закрытия ордера: " , GetLastError ());
return ;}

Dosyalar:

qqea_1.mq4 4 kb

[ARŞİV!] Forumu kirletmemek için [Arşiv!] Herhangi bir uzman [Arşivle!] Forumu kirletmemek için

costy_ 2012.01.30 22:42 #5382

PAZITIV :

QQEA göstergesine dayalı bir Uzman Danışman yazıyorum. Genel olarak, danışmanın fikri şudur: kırmızı çizgi sarı olanı aşağıdan yukarıya kestiğinde, bir Buy emri açılmalıdır, kırmızı olan sarı olanı yukarıdan aşağıya geçtiğinde - bir sipariş satılık. Ama sadece bir sipariş açamam. Koşul karşılandığında siparişler açılır. Evet ve sadece satın alma siparişleri CHAYDNT'den mi kopuyor?!

//

danışman kodu

 //--- input parameters
extern double MaxRisk= 1.0 ;
extern double FixLot = 0.01 ;
extern double Exponent= 2.0 ;
extern int Magic= 888 ;

// костыли

extern int TakeProfit= 100 ;
extern int StopLoss= 100 ;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int init()
  {
   return ( 0 );
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int deinit()
  {
//----

//----
   return ( 0 );
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start()
  {
//----
   int Count= 0 ;
   double b0,b1;
   int ticket;

// параметры индикатора
   int SF= 5 ; // original 5
   int RSI_Period= 14 ; // original 14
   double DARFACTOR= 4.236 ; //original 4.236

//------------ Параметры из индикатора QQEA -----------------------
// Buffer0 -- красная жирная
   string Buffer0= iCustom ( NULL , 0 , "QQEA" ,SF,RSI_Period,DARFACTOR, 0 , 0 );
// Buffer1 -- жёлтый пунктир
   string Buffer1= iCustom ( NULL , 0 , "QQEA" ,SF,RSI_Period,DARFACTOR, 1 , 0 );

   b0= StrToDouble (Buffer0);
   b1= StrToDouble (Buffer1);


   double Lot=GetLot(MaxRisk);
// если лот <0 выводим сообщение об ошибке
   if (Lot== 0 )
     {
       Alert ( "Недостаточно средств!" );
       return ( 0 );
     }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
   if (Lot!= 0 && b0>b1) // если лот <> 0 и красная выше жёлтой
     {
      ticket=NewOrder(OP_BUY,Lot);
       if (ExistOrders( Symbol (), 1 , 888 , 0 )==true) // проверяем наличие ордера sell
        {
         CloseOrder();
        }
     }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
   if (Lot!= 0 && b0<b1) // если лот <> 0 и красная выше жёлтой
     {
      ticket=NewOrder(OP_SELL,Lot);
       if (ExistOrders( Symbol (), 0 , 888 , 0 )==true) // проверяем наличие ордера buy
        {
         CloseOrder();
        }
     }

   Comment ( "Red line: " ,b0, "Yellow line: " ,b1);
   return ( 0 );
  }
//-------------------------------------------------------------
//расчёт лота

double GetLot( int Risk)
  {
   double Free= AccountFreeMargin ();
   double One_Lot = MarketInfo ( Symbol (),MODE_MARGINREQUIRED);
   double Min_Lot = MarketInfo ( Symbol (),MODE_MINLOT);
   double Max_Lot = MarketInfo ( Symbol (),MODE_MAXLOT);
   double Step= MarketInfo ( Symbol (),MODE_LOTSTEP);
   double Lot = MathFloor (Free*Risk/ 100 /One_Lot/Step)*Step;
   if (Lot<Min_Lot) Lot=Min_Lot;
   if (Lot>Max_Lot) Lot=Max_Lot;
   if (Lot*One_Lot>Free) return ( 0.0 );
   return (Lot);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool ExistOrders( string sy= "" , int op=- 1 , int Magic=- 1 , datetime ot= 0 )
  {
   int i,k= OrdersTotal (),ty;

   if (sy== "0" ) sy= Symbol ();
   for (i= 0 ; i<k; i++)
       //+------------------------------------------------------------------+
       //|                                                                  |
       //+------------------------------------------------------------------+
     {
       if ( OrderSelect (i,SELECT_BY_POS,MODE_TRADES))
        {
         ty= OrderType ();
         if (ty> 1 && ty< 6 )
           {
             if (( OrderSymbol ()==sy || sy== "" ) && (op< 0 || ty==op))
              {
               if (Magic< 0 || OrderMagicNumber ()==Magic)
                 {
                   if (ot<= OrderOpenTime ()) return (True);
                 }
              }
           }
        }
     }
   return (False);
  }
//открытие нового ордера
int NewOrder( int Cmd, double Lot)
  {
   double TP= 0 ; //тейкпрофит
   double SL= 0 ; //стоплосс
   double PR= 0 ; //Цена
   while (! IsTradeAllowed ()) Sleep ( 100 );
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
   if (Cmd==OP_BUY)
     {
      PR=Ask;
       if (TakeProfit> 0 ) TP=Ask+TakeProfit* Point ;
       if (StopLoss> 0 ) SL=Ask-StopLoss* Point ;
     }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
   if (Cmd==OP_SELL)
     {
      PR=Bid;
       if (TakeProfit> 0 ) TP=Bid-TakeProfit* Point ;
       if (StopLoss> 0 ) SL=Bid+StopLoss* Point ;
     }
   if (GetOrdersCount(Magic,Cmd)> 0 ) return ( 0 );
   int tic= OrderSend ( Symbol (),Cmd,Lot,PR, 3 ,SL,TP, " " , 0 , 0 , Green );
   if (tic< 0 ) Print ( "Ошибка открытия ордера: " , GetLastError ());
   return (tic);
  }
// закрытие ордера
void CloseOrder()
  {
   double PR= 0 ;
   while (! IsTradeAllowed ()) Sleep ( 100 );
   if ( OrderType ()==OP_BUY) PR=Bid;
   if ( OrderType ()==OP_SELL) PR=Ask;
   if (! OrderClose ( OrderTicket (), OrderLots (),PR, 3 , Red ))
       Print ( "Ошибка закрытия ордера: " , GetLastError ());
   return ;
  }
//+------------------------------------------------------------------+
// подсчет кол-ва открытых позиций
int GetOrdersCount( int MagicNumber, int Type)
  {
   int count= 0 ;

   for ( int i= 0 ; i< OrdersTotal (); i++)
     {
       // already closed
       if ( OrderSelect (i,SELECT_BY_POS)==false) continue ;
       // not current symbol
       if ( OrderSymbol ()!= Symbol ()) continue ;
       // order was opened in another way
       if ( OrderMagicNumber ()!=MagicNumber) continue ;

       if ( OrderType ()==Type)
        {
         count++;
        }
     }

   return (count);
  }
//-------------------------------------------------------

Daha okunaklı yazın, daha sonra daha kolay olacaktır.

Victor Nikolaev 2012.01.30 23:39 #5383

PAZITIV :

QQEA göstergesine dayalı bir Uzman Danışman yazıyorum. Genel olarak, danışmanın fikri şudur: kırmızı çizgi sarı olanı aşağıdan yukarıya kestiğinde, bir Buy emri açılmalıdır, kırmızı olan sarı olanı yukarıdan aşağıya geçtiğinde - bir sipariş satılık. Ama sadece bir sipariş açamam. Koşul karşılandığında siparişler açılır. Evet ve sadece satın alma siparişleri CHAYDNT'den mi kopuyor?!

//

danışman kodu

sormama izin ver

Dize türü neden kullanılır?

 //------------ Параметры из индикатора QQEA -----------------------
// Buffer0 -- красная жирная
   string Buffer0= iCustom ( NULL , 0 , "QQEA" ,SF,RSI_Period,DARFACTOR, 0 , 0 );
// Buffer1 -- жёлтый пунктир
   string Buffer1= iCustom ( NULL , 0 , "QQEA" ,SF,RSI_Period,DARFACTOR, 1 , 0 );

[Silindi] 2012.01.31 07:46 #5384

   double diMA60= iMA ( NULL , 60 ,Period_indikatora1, 0 ,Mod_MA, PRICE_CLOSE ,sdvig);
   double diMA30= iMA ( NULL , 30 ,Period_indikatora2, 0 ,Mod_MA, PRICE_CLOSE ,sdvig)

arkadaşlar, danışman iki farklı zaman dilimi kullanır (30 ve 60), bana danışmanı test etmemi söyle, test cihazında hangi süreyi ayarlayacağım? ve EA'daki dönem testi değiştirmez mi???

Рустам 2012.01.31 09:18 #5385

Minimumdan daha az DEĞİL, yani sizin durumunuzda M30

[Silindi] 2012.01.31 09:36 #5386

Bu günlük girişleri ne anlama geliyor:

2012.01.31 14:34:45 Bellek işleyici: 10436536 bayt bellek ayıramıyor

2012.01.31 14:34:45 HistoryBase: yeterli bellek 'EURGBP1' [206996 bar]

? Herhangi bir sorun varsa düzeltmek mümkün mü?

gince 2012.01.31 10:30 #5387

Dizilerle ilgili yardım. İstediğim gibi çalışmıyor.

p[] bir fiyat dizisi var. Bir eleman daha az uzunlukta olacak yeni bir dizi oluşturmak gerekir ve ilk diziden iki bitişik elemanın farkı olarak hesaplanır. Fark negatifse, -1 ile çarpın.

p[6]={1, 5, 9, 4, 6, 2, 3}

almalı

p_diff[5] = {-1*(1-5), -1*(5-9), 9-4, -1*(4-6), 6-2, -1*(2-3)} onlar. p_diff[5] = {4, 4, 5, 2, 4, 1}

 int start()
{
   if ( !NewBar() ) return ( 0 );                                           
   int i, n, k,
      j = 0 ;                             
   for (i= 0 ; i<=Bars_count; i++)
  {
      ZZ[i]= iCustom ( NULL , 0 , "ZigZag" ,ExtDepth,ExtDeviation,ExtBackstep, 0 ,i);  
       if (ZZ[i]!= 0 ) 
      {
         Print (ZZ[j]);
         j = j + 1 ;
         k = j - 1 ;
         Print ( "index = " ,k);
      }
  }
   Print ( "iiii = " , k);
   for (n = 0 ; n <= k- 1 ; n++)
  { 
      ZZ_diff[n] = (ZZ[n] -ZZ[n+ 1 ]);
       if (ZZ_diff[n] < 0 )  
         ZZ_diff[n] = ZZ_diff[n] * (- 1 );
       Print (ZZ_diff[n], "   index diff = " , n);
  }
return ( 0 );
}

Verilen eleman(lar)ın bir dizisini Forumu kirletmemek için herhangi Nabız

costy_ 2012.01.31 12:28 #5388

-Aleksey- :

Bu günlük girişleri ne anlama geliyor:

2012.01.31 14:34:45 Bellek işleyici: 10436536 bayt bellek ayıramıyor

2012.01.31 14:34:45 HistoryBase: yeterli bellek 'EURGBP1' [206996 bar]

? Herhangi bir sorun varsa düzeltmek mümkün mü?

RAM'i artırın, maks. penceredeki çubuklar.

costy_ 2012.01.31 12:31 #5389

gince :

Dizilerle ilgili yardım. İstediğim gibi çalışmıyor.

p[] bir fiyat dizisi var. Bir eleman daha az uzunlukta olacak yeni bir dizi oluşturmak gerekir ve ilk diziden iki bitişik elemanın farkı olarak hesaplanır. Fark negatifse, -1 ile çarpın.

p[6]={1, 5, 9, 4, 6, 2, 3}

almalı

p_diff[5] = {-1*(1-5), -1*(5-9), 9-4, -1*(4-6), 6-2, -1*(2-3)} onlar. p_diff[5] = {4, 4, 5, 2, 4, 1}

çift MathAbs (

çift değer)

İşlev, kendisine iletilen sayının mutlak değerini (modulo değeri) döndürür.

ZZ_diff[n] = MathAbs (ZZ[n] -ZZ[n+ 1 ]);

Рустам 2012.01.31 12:36 #5390

double zz_arr[1000];
double preZz=0;
int i,ii;
for(i=5000;i>=0;i--){
   double zz = iCustom(NULL,0,"ZigZag",ExtDepth,ExtDeviation,ExtBackstep,0,i); 
   if(zz!=0){
      if(preZz==0){preZz=zz;continue;}
      zz_arr[ii]=MathAbs(zz-preZz);
      preZz=zz;
      ii++;
   }
}
ArrayResize(zz_arr,ii);

[ARŞİV] Forumu kirletmemek için herhangi bir acemi sorusu. Profesyonel, kaçırmayın. Sensiz hiçbir yerde - 3. - sayfa 539