포럼을 어지럽히 지 않도록 모든 초보자 질문. 프로, 놓치지 마세요. 너 없이는 아무데도 - 6. - 페이지 330

Artyom Trishkin 2013.12.10 00:03 #3291

alexey1979621 :

이에 대한 자습서를 읽으십시오.

stringDoubleToStr (

이중 값, 정수 숫자)

숫자 값을 지정된 정밀도 형식으로 숫자의 문자 표현을 포함하는 텍스트 문자열로 변환합니다.

옵션:

값	-	부동 소수점 값.
숫자	-	소수점 이하 자릿수(0-8)의 정밀도 형식입니다.

예시:

그러나 나는 우리의 경우 그것을 어디에 묶을지 이해하지 못했습니다. 보스를 다시 구하십시오.

켤 것이 없습니다.

여기에서 다음을 수행할 수 있습니다.

 Print ( "А ведь цена-то Ask (" +DoubleToStr(Ask, Digits )+ ") у меня однако с точностью Digits" );

계산용이 아닌 문자열 형식의 출력용입니다.

Alexey Semenov 2013.12.10 00:24 #3292

artmedia70 :

켤 것이 없습니다.

여기에서 다음을 수행할 수 있습니다.

계산용이 아닌 문자열 형식의 출력용입니다.

int init()에서 교묘하게 만들어 모든 것을 삭제했습니다. 고문의 텍스트에 따르면 모든 것이 정상화되었습니다. 이제 모든 것이 잘 작동합니다. artmedia70 감사합니다.

[Deleted] 2013.12.10 05:48 #3293

EA는 현재 가격 에서 지정된 거리에 보류 중인 세트를 설정하고 지정된 시간이 지나면 수정합니다. 모든 것이 잘되지만 때로는 터미널이 수정을 허용하지 않습니다. 그런 다음 수정되지 않은 주문을 삭제해야 합니다. 그것을 하는 방법?

Alexey Subbotin 2013.12.10 06:35 #3294

artmedia70 :

주님!!! 왜 여기 사람들을 혼란스럽게합니까?

iFractals() 는 프랙탈 막대 번호가 아닌 가격을 반환합니다 .

네, 그리고 노파에게 구멍이 있습니다)) 그러나 금요일이 아닌 것 같습니다))

[Deleted] 2013.12.10 08:29 #3295

안녕하세요, 저는 도움을 요청합니다. 저는 작업이 있습니다. OJSC Rosneft의 보통주의 D 1 시간대 통계 데이터에 대한 Commodity Channel Index 기술 지표 사용의 효율성을 결정하는 방법을 공식화할 수 없습니다. 이 표시기는 롱 포지션과 숏 포지션을 정확하게 열고 닫는 것 같습니다. 하지만 어드바이저가 컴파일을 거부하고 오류가 발생합니다. 도와주세요. 이 표시기는 이 목록에 적용해야 합니다. x 변경 없이 표시합니다.

 #property copyright "Copyright © 2010, E-Commerce"
#property link        "http://e-commerce.psati.ru"
 
extern double StopLoss= 3000   ;           // SL для открываемого ордера
extern double TakeProfit= 3000 ;           // ТР для открываемого ордера
extern int TrailingStop= 100 ; 
extern double Lots      = 0.1 ;           // Жестко заданное колич. лотов
double Prots     = 0.07 ;         // Процент свободных средств
extern int SignalLine  = 5 ;           // Период расчётной МА
extern int SignalLine1  = 10 ;           // Период расчётной МА
extern int N1 = 5 ;  
extern int N2  = 10 ; 
int Bars_V       = 34 ;           // Колич.баров для расчёта скор
int Aver_Bars    = 0 ;             // Колич. баров для сглаживания
double Level     = 0.001 ;

bool    Work= true ;                       // Эксперт будет работать.
string Symb;                           // Название финанс. инструмента

int start()
  {
   int
   Period_MA=SignalLine1,
   Period_MA_1=SignalLine,
   Total,                               // Количество ордеров в окне 
   Tip=- 1 ,
   coef,                             // Тип выбран. ордера (B=0,S=1)
   Ticket;                             // Номер ордера
   double
   MA_1_t,                             // Значен. МА_1 текущее
   MA_2_t,                             // Значен. МА_2 текущее 
   Lot,                                 // Колич. лотов в выбран.ордере
   Lts,                                 // Колич. лотов в открыв.ордере
   Min_Lot,                             // Минимальное количество лотов
   Step,                               // Шаг изменения размера лота
   Free,                               // Текущие свободные средства
   One_Lot,                             // Стоимость одного лота
   Price,                               // Цена выбранного ордера
   SL,                                 // SL выбранного ордера 
   TP;                               // TP выбранного ордера
   bool
   Ans  = false ,                         // Ответ сервера после закрытия
   Cls_B= false ,                         // Критерий для закрытия  Buy
   Cls_S= false ,                         // Критерий для закрытия  Sell
   Opn_B= false ,                         // Критерий для открытия  Buy
   Opn_S= false ;                         // Критерий для открытия  Sell
   int BBars= 10000000 ;
   if ( Bars < Period_MA_1)                       // Недостаточно баров
     {
       Alert ( "Недостаточно баров в окне. Эксперт не работает." );
       return ;                                   // Выход из start()
     }
   if (Work== false )                               // Критическая ошибка
     {
       Alert ( "Критическая ошибка. Эксперт не работает." );
       return ;                                   // Выход из start()
     }
     
   // Учёт ордеров
   Symb= Symbol ();                               // Название фин.инстр.
   Total= 0 ;                                     // Количество ордеров
   for ( int i= 1 ; i<= OrdersTotal (); i++)           // Цикл перебора ордер
     {
       if ( OrderSelect (i- 1 ,SELECT_BY_POS)== true ) // Если есть следующий
        {                                       // Анализ ордеров:
         if (OrderSymbol()!=Symb) continue ;       // Не наш фин. инструм
         if (OrderType()> 1 )                     // Попался отложенный
           {
             Alert ( "Обнаружен отложенный ордер. Эксперт не работает." );
             return ;                             // Выход из start()
           }
         Total++;                               // Счётчик рыночн. орд
         if (Total> 1 )                           // Не более одного орд
           {
             Alert ( "Несколько рыночных ордеров. Эксперт не работает." );
             return ;                             // Выход из start()
           }
         Ticket=OrderTicket();                   // Номер выбранн. орд.
         Tip   =OrderType();                     // Тип выбранного орд.
         Price =OrderOpenPrice();               // Цена выбранн. орд.
         SL    =OrderStopLoss();                 // SL выбранного орд.
         TP    =OrderTakeProfit();               // TP выбранного орд.
         Lot   =OrderLots();                     // Количество лотов
        }
     }

   // Торговые критерии
   int P= Period_MA_1;             // Период расчётной МА
   int B= Bars_V;                 // Колич.баров для расчёта скорост
   int A= Aver_Bars;               // Колич. баров для сглаживания
   int Z= Period_MA;
   //double L_1=iCustom(NULL,0,"IPM",H,P,B,A,0,0);
   //double L_5=iCustom(NULL,0,"IPM",H,P,B,A,1,0);
   double Ma2_Previus,Ma3_Previus, Ma2_Current, Ma3_CurrentPrice, CurrentLine, PreviousLine, Line15,Current, Line30;
   //Ma3_Previus=iCustom(NULL,0,"444",H,P,B,A,1,1);
   //Ma2_Previus=iCustom(NULL,0,"www",P,Z,N1,N2,0,2);
  
   //Ma3_Current=iCustom(NULL,0,"444",H,P,B,A,1,2);
   // Ma2_Current=iCustom(NULL,0,"www",P,Z,N1,N2,0,1);

//ПАРАМЕТРЫ ОТКРЫТИЯ ДЛИННОЙ ПОЗИЦИИ

if ( iCCI ( Symbol (), 0 , 12 , PRICE_TYPICAL , 0 )>= 100 )
{
if ((NumberOfBarOpenLastPos()> 0 ||NumberOfBarOpenLastPos()==- 1 )&&(NumberOfBarCloseLastPos()> 0 ||NumberOfBarCloseLastPos()==- 1 ))
{ 
Opn_B= true ;
//Cls_S=true;
}
}
 //ПАРАМЕТРЫ ОТКРЫТИЯ короткой ПОЗИЦИИ    
if ( iCCI ( Symbol (), 0 , 20 , PRICE_TYPICAL , 0 )<= 100 )
{
if ((NumberOfBarOpenLastPos()> 0 ||NumberOfBarOpenLastPos()==- 1 )&&(NumberOfBarCloseLastPos()> 0 ||NumberOfBarCloseLastPos()==- 1 ))
{
Opn_S= true ; 
//Cls_B=true;   
}  
}


if (Tip== 0 ){
           if (TrailingStop> 0 )  
              {                 
               if (Bid-OrderOpenPrice()> Point *TrailingStop)
                 {
                   if (SL<Bid- Point *TrailingStop)
                    {
                     OrderModify(Ticket,OrderOpenPrice(),Bid- Point *TrailingStop,TP, 0 ,Green);
                     //return(0);
                    }
                 }
              }
}

if (Tip== 1 ){
           if (TrailingStop> 0 )  
              {                 
               if ((OrderOpenPrice()-Ask)>( Point *TrailingStop))
                 {
                   if (SL>Ask+ Point *TrailingStop)
                    {
                     OrderModify(Ticket,OrderOpenPrice(),Ask+ Point *TrailingStop,TP, 0 ,Red);
                     // return(0);
                    }
                 }
              }
}


   // Закрытие ордеров
   while ( true )                                   // Цикл закрытия орд.
     {
//длинной
if ( iCCI ( Symbol (), 0 , 12 , PRICE_TYPICAL , 0 )<= 100 ){
       if (Tip== 0 )                 // Открыт ордер Buy..
        {                                       //и есть критерий закр
         Alert ( "Попытка закрыть Buy " ,Ticket, ". Ожидание ответа.." );
         RefreshRates();                         // Обновление данных
         Ans=OrderClose(Ticket,Lot,Bid, 2 );       // Закрытие Buy
         if (Ans== true )                         // Получилось :)
           {
             Alert ( "Закрыт ордер Buy " ,Ticket);
             break ;                               // Выход из цикла закр
           }
                           
            
         if (Fun_Error( GetLastError ())== 1 )       // Обработка ошибок
             continue ;                           // Повторная попытка
         return ;                                 // Выход из start()
        }
        }

// короткой       
//if (Close[i]<0)
if ( iCCI ( Symbol (), 0 , 20 , PRICE_TYPICAL , 0 )>= 100 ){
       if (Tip== 1 )                 // Открыт ордер Sell..
        {                                       // и есть критерий закр
         Alert ( "Попытка закрыть Sell " ,Ticket, ". Ожидание ответа.." );
         RefreshRates();                         // Обновление данных
         Ans=OrderClose(Ticket,Lot,Ask, 2 );       // Закрытие Sell
         if (Ans== true )                         // Получилось :)
           {
             Alert ( "Закрыт ордер Sell " ,Ticket);
             break ;                               // Выход из цикла закр
           }
                  
           
         if (Fun_Error( GetLastError ())== 1 )       // Обработка ошибок
             continue ;                           // Повторная попытка
         return ;                                 // Выход из start()
        }
        }
       break ;                                     // Выход из while
     }



// Стоимость ордеров
   RefreshRates();                               // Обновление данных
   Min_Lot=MarketInfo(Symb,MODE_MINLOT);         // Миним. колич. лотов 
   Free   =AccountFreeMargin();                 // Свободн средства
   One_Lot=MarketInfo(Symb,MODE_MARGINREQUIRED); // Стоимость 1 лота
   Step   =MarketInfo(Symb,MODE_LOTSTEP);       // Шаг изменен размера
 
   if (Lots > 0 )                                 // Если заданы лоты,то 
      Lts =Lots;                                 // с ними и работаем 
   else                                          // % свободных средств
      Lts= MathFloor (Free*Prots/One_Lot/Step)*Step; // Для открытия
 
   if (Lts < Min_Lot) Lts=Min_Lot;               // Не меньше минимальн
   if (Lts*One_Lot > Free)                       // Лот дороже свободн.
     {
       Alert ( " Не хватает денег на " , Lts, " лотов" );
       return ;                                   // Выход из start()
     }
   // Открытие ордеров
   while ( true )                                   // Цикл закрытия орд.
     {
       if (Total== 0 && Opn_B== true )               // Открытых орд. нет +
        {                                       // критерий откр. Buy
         RefreshRates();          
         SL=Bid - New_Stop(StopLoss)* Point ;     // Вычисление SL откр.
         TP=Bid + New_Stop(TakeProfit)* Point ;   // Вычисление TP откр.
         Alert ( "Попытка открыть Buy. Ожидание ответа.." );
         Ticket= OrderSend (Symb,OP_BUY,Lts,Ask, 2 ,SL,TP); //Открытие Buy

         if (Ticket > 0 )                         // Получилось :)
           {
             Alert ( "Открыт ордер Buy " ,Ticket);
             return ;                             // Выход из start()
           }
         if (Fun_Error( GetLastError ())== 1 )       // Обработка ошибок
             continue ;                           // Повторная попытка
         return ;                                 // Выход из start()
        }
       if (Total== 0 && Opn_S== true )               // Открытых орд. нет +
        {                                       // критерий откр. Sell
         RefreshRates();        
         SL=Ask + New_Stop(StopLoss)* Point ;     // Вычисление SL откр.
         TP=Ask - New_Stop(TakeProfit)* Point ;   // Вычисление TP откр.
         Alert ( "Попытка открыть Sell. Ожидание ответа.." );
         Ticket= OrderSend (Symb,OP_SELL,Lts,Bid, 2 ,SL,TP); //Открытие Sel
         if (Ticket > 0 )                         // Получилось :)
           {
             Alert ( "Открыт ордер Sell " ,Ticket);
             return ;                             // Выход из start()
           }
         if (Fun_Error( GetLastError ())== 1 )       // Обработка ошибок
             continue ;                           // Повторная попытка
         return ;                                 // Выход из start()
        }
       break ;                                     // Выход из while
     }
   return ;                                       // Выход из start()
  }
int Fun_Error( int Error)                         // Ф-ия обработ ошибок
  {
   switch (Error)
     {                                           // Преодолимые ошибки            
       case    4 : Alert ( "Торговый сервер занят. Пробуем ещё раз.." );
         Sleep ( 3000 );                           // Простое решение
         return ( 1 );                             // Выход из функции
       case 135 : Alert ( "Цена изменилась. Пробуем ещё раз.." );
         RefreshRates();                         // Обновим данные
         return ( 1 );                             // Выход из функции
       case 136 : Alert ( "Нет цен. Ждём новый тик.." );
         while (RefreshRates()== false )           // До нового тика
             Sleep ( 1 );                           // Задержка в цикле
         return ( 1 );                             // Выход из функции
       case 137 : Alert ( "Брокер занят. Пробуем ещё раз.." );
         Sleep ( 3000 );                           // Простое решение
         return ( 1 );                             // Выход из функции
       case 146 : Alert ( "Подсистема торговли занята. Пробуем ещё.." );
         Sleep ( 500 );                             // Простое решение
         return ( 1 );                             // Выход из функции
         // Критические ошибки
       case    2 : Alert ( "Общая ошибка." );
         return ( 0 );                             // Выход из функции
       case    5 : Alert ( "Старая версия терминала." );
         Work= false ;                             // Больше не работать
         return ( 0 );                             // Выход из функции
       case 64 : Alert ( "Счет заблокирован." );
         Work= false ;                             // Больше не работать
         return ( 0 );                             // Выход из функции
       case 133 : Alert ( "Торговля запрещена." );
         return ( 0 );                             // Выход из функции
       case 134 : Alert ( "Недостаточно денег для совершения операции." );
         return ( 0 );                             // Выход из функции
       default : Alert ( "Возникла ошибка " ,Error); // Другие варианты   
         return ( 0 );                             // Выход из функции
     }
  }
int New_Stop( int Parametr)                       // Проверка стоп-прик.
  {
   int Min_Dist=MarketInfo(Symb,MODE_STOPLEVEL); // Миним. дистанция
   if (Parametr<Min_Dist)                       // Если меньше допуст.
     {
      Parametr=Min_Dist;                         // Установим допуст.
       Alert ( "Увеличена дистанция стоп-приказа." );
     }
   return (Parametr);                             // Возврат значения
  }
 
 int NumberOfBarOpenLastPos( string sy= "0" , int tf= 0 , int op=- 1 , int mn=- 1 ) {
   datetime t;
   int i, k= OrdersTotal ();

   if (sy== "" || sy== "0" ) sy= Symbol ();
   for (i= 0 ; i<k; i++) {
   if ( OrderSelect (i, SELECT_BY_POS, MODE_TRADES)) {
   if (OrderSymbol()==sy) {
   if (OrderType()==OP_BUY || OrderType()==OP_SELL) {
   if (op< 0 || OrderType()==op) {
   if (mn< 0 || OrderMagicNumber()==mn) {
   if (t<OrderOpenTime()) t=OrderOpenTime();
  }
  }
  }
  }
  }
  }
   return (iBarShift(sy, tf, t, True));
}
int NumberOfBarCloseLastPos( string sy= "0" , int tf= 0 , int op=- 1 , int mn=- 1 ) {
   datetime t;
   int       i, k=OrdersHistoryTotal();

   if (sy== "" || sy== "0" ) sy= Symbol ();
   for (i= 0 ; i<k; i++) {
     if ( OrderSelect (i, SELECT_BY_POS, MODE_HISTORY)) {
       if (OrderSymbol()==sy) {
         if (OrderType()==OP_BUY || OrderType()==OP_SELL) {
           if (op< 0 || OrderType()==op) {
             if (mn< 0 || OrderMagicNumber()==mn) {
               if (t<OrderCloseTime()) t=OrderCloseTime();
            }
          }
        }
      }
    }
  }
   return (iBarShift(sy, tf, t, True));
}

Mikhail Kozhemyako 2013.12.10 08:43 #3296

niformalka :
안녕하세요, 저는 도움을 요청합니다. 저는 작업이 있습니다. OJSC Rosneft의 보통주의 D 1 시간대 통계 데이터에 대한 Commodity Channel Index 기술 지표 사용의 효율성을 결정하는 방법을 공식화할 수 없습니다. 이 표시기는 롱 포지션과 숏 포지션을 정확하게 열고 닫는 것 같습니다. 하지만 어드바이저가 컴파일을 거부하고 오류가 발생합니다. 도와주세요. 이 표시기는 이 목록에 적용해야 합니다. x 변경 없이 표시합니다.

그래서 이것은 지시자가 아니라 조언자입니다 ... 컴파일은 오류없이 통과합니다 .... 이제 코드로 재생하겠습니다 .... 테스트하겠습니다 ....

[Deleted] 2013.12.10 08:51 #3297

Sepulca :
그래서 이것은 지시자가 아니라 조언자입니다 ... 컴파일은 오류없이 통과합니다 .... 이제 코드로 재생하겠습니다 .... 테스트하겠습니다 ....

거기에서 어드바이저에 필요한 지표, 즉 icc를 정확히 적용해야 소스 텍스트가 컴파일됩니다.

Artyom Trishkin 2013.12.10 09:11 #3298

alsu :

네, 그리고 노파에게 구멍이 있습니다)) 그러나 금요일이 아닌 것 같습니다))

뭐가 문제 야?

 //+------------------------------------------------------------------+
//|                                                  TestFractal.mq4 |
//|                               Copyright 2013, Artyom A. Trishkin |
//|                       https://www.mql5.com/ru/users/artmedia70 |
//+------------------------------------------------------------------+
#property copyright "Copyright 2013, Artyom A. Trishkin"
#property link        "https://www.mql5.com/ru/users/artmedia70"
#property version    "1.00"
#property strict
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
void OnStart ()
  {
//---
   for ( int i= 3 ; i< 300 ; i++) {
       double fu= iFractals ( Symbol (), Period (),MODE_UPPER,i);
       double fd= iFractals ( Symbol (), Period (),MODE_LOWER,i);
       if (fu> 0 ) Print ( "Значение UP на баре " +( string )i+ " = " +DoubleToStr(fu, Digits ));
       if (fd> 0 ) Print ( "Значение DN на баре " +( string )i+ " = " +DoubleToStr(fd, Digits ));
      }
  }
//+------------------------------------------------------------------+

가격을 돌려준다...

Mikhail Kozhemyako 2013.12.10 09:14 #3299

가장 중요한 것부터 시작하겠습니다. 0에서 주문을 정렬하는 것은 그다지 유능하지 않습니다. 지난번보다 더 나은

 for ( int i=OrderTotal- 1 ; i>= 0 ; i--)           // Цикл перебора ордер

제로 계정이 폐쇄/삭제된 상황이 발생하지 않고 아직 주문이 남아있도록. 모든 것이 뒤집어졌습니다. 연속으로 마지막 사람과 함께 행동하면 끔찍한 일은 일어나지 않습니다.

[Deleted] 2013.12.10 09:20 #3300

Sepulca :

Начнем с главного, не совсем грамотно перебирать ордера с нулевого. Лучше с последнего

Чтобы не возникало ситуации, когда нулевой по счету закрыли/удалили а там ещё ордера есть. всё переколбасилось. Когда действуете с последним по счёту ничего страшного не происходит.

선생님은 숏포지션과 롱포지션을 열고 닫는 라인을 제외하고는 코드에서 아무것도 변경할 필요가 없다는 것을 증명합니다. 저는 이렇게 했지만 컴파일되지 않습니다.

 if (( iCCI ( Symbol , 0 , 14 , PRICE_TYPICAL , 0 )< 100 )&&( iCCI ( Symbol , 0 , 14 , PRICE_TYPICAL , 0 )<- 100 ))

1 ...323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 ...1178

새 코멘트