유로 쥐 - 트레이딩 시스템 - MQL5 프로그래밍 포럼

elmucon 2017.10.07 21:00 #21

Mickey Moose :
누구에게 묻고 있습니까?

또 다른 재미있는 사람... 말투를 바꾸세요...

그 과정에서 당신은 자신에게 맞는 아바타를 선택했습니다 - 프로이트에 따르면 ...

"엘크는 운명이다"라는 옛말을 의역하자면...

Aleksey Vyazmikin 2017.10.07 21:27 #22

elmucon :

1. 함수에 전달할 문자열 값은 무엇입니까?

2. 코드에 따르면 컴파일러는 이 줄에서 맹세합니다.

l_AUDUSD = 0 ; l_NZDUSD = 0 ; l_USDCAD = 0 ; l_USDJPY = 0 ; // эти для отрисовки графики

elmucon 2017.10.07 23:18 #23

Aleksey Vyazmikin :

1. 함수에 전달할 문자열 값은 무엇입니까?

2. 코드에 따르면 컴파일러는 이 줄에서 맹세합니다.

그래서 해보세요 - 차트에 그리기 위한 변수가 있었습니다(시각화)

(이전 터미널의 경우 아래 코드):

 // +--------------------------------------------------------------------------------------------------+
// входные параметры                                                                                  |
// +--------------------------------------------------------------------------------------------------+
input ENUM_MA_METHOD      Metod  = MODE_SMA ;           // Усреднение
input ENUM_APPLIED_PRICE Prise  = PRICE_MEDIAN ;       // Цена 
       input int Sdvig           = 3 ;                   // Cдвиг MA 
       input int MA              = 20 ;                 // Периуд MA

// +--------------------------------------------------------------------------------------------------+
// функция направления торговли                                                                       |
// +--------------------------------------------------------------------------------------------------+
int CheckSig( string sym){
     bool l_Avers;
     int   l_dn = 0 , l_up = 0 ; 
     int   Shift_Au,  Shift_Nz,  Shift_Ca,  Shift_Jp;
     datetime iTm = iTime ( _Symbol , 0 , 1 );
     if ( StringFind (sym, "USD" , 0 )== 3 ) l_Avers = false ; else l_Avers = true ;
    Shift_Au = iBarShift ( "AUDUSD" , 0 ,iTm, true ); if (Shift_Au <= 0 ) return ( 2 );
    Shift_Nz = iBarShift ( "NZDUSD" , 0 ,iTm, true ); if (Shift_Nz <= 0 ) return ( 2 );
    Shift_Ca = iBarShift ( "USDCAD" , 0 ,iTm, true ); if (Shift_Ca <= 0 ) return ( 2 );
    Shift_Jp = iBarShift ( "USDJPY" , 0 ,iTm, true ); if (Shift_Jp <= 0 ) return ( 2 );
     if ( iClose ( "AUDUSD" , 0 ,Shift_Au) > iMA ( "AUDUSD" , 0 ,MA,Sdvig,Metod,Prise,Shift_Au)){ if (!l_Avers) l_up ++; else l_dn ++;}
     if ( iClose ( "AUDUSD" , 0 ,Shift_Au) < iMA ( "AUDUSD" , 0 ,MA,Sdvig,Metod,Prise,Shift_Au)){ if (!l_Avers) l_dn ++; else l_up ++;}
     if ( iClose ( "NZDUSD" , 0 ,Shift_Nz) > iMA ( "NZDUSD" , 0 ,MA,Sdvig,Metod,Prise,Shift_Nz)){ if (!l_Avers) l_up ++; else l_dn ++;}
     if ( iClose ( "NZDUSD" , 0 ,Shift_Nz) < iMA ( "NZDUSD" , 0 ,MA,Sdvig,Metod,Prise,Shift_Nz)){ if (!l_Avers) l_dn ++; else l_up ++;}
     if ( iClose ( "USDCAD" , 0 ,Shift_Ca) < iMA ( "USDCAD" , 0 ,MA,Sdvig,Metod,Prise,Shift_Ca)){ if (!l_Avers) l_up ++; else l_dn ++;}
     if ( iClose ( "USDCAD" , 0 ,Shift_Ca) > iMA ( "USDCAD" , 0 ,MA,Sdvig,Metod,Prise,Shift_Ca)){ if (!l_Avers) l_dn ++; else l_up ++;}
     if ( iClose ( "USDJPY" , 0 ,Shift_Jp) < iMA ( "USDJPY" , 0 ,MA,Sdvig,Metod,Prise,Shift_Jp)){ if (!l_Avers) l_up ++; else l_dn ++;}
     if ( iClose ( "USDJPY" , 0 ,Shift_Jp) > iMA ( "USDJPY" , 0 ,MA,Sdvig,Metod,Prise,Shift_Jp)){ if (!l_Avers) l_dn ++; else l_up ++;}
     if (l_up == 4 ) return ( 1 ); 
     if (l_dn == 4 ) return (- 1 );
return ( 0 );}

 // вызов для евро

CheckSig( "EURUSD" );

// вызов для фунта

CheckSig( "GBPUSD" );

// вызов для франка

CheckSig( "USDCHF" );


// ну или так

CheckSig( _Symbol );
CheckSig( Symbol ());