예스스탁 | 전략 설계부터 자동매매까지

커뮤니티

Input : 전환(0.45); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0); Array:고[10,4](0),저[10,4](0); HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 고[1,3] = sDate; 고[1,4] = sTime; 저[1,1] = LL; 저[1,2] = 0; 저[1,3] = sDate; 저[1,4] = sTime; } If Index > 0 Then { hiBar = hiBar + 1; loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1]+전환 <= HH and hiBar == 0; Condition2 = 고[1,1]-전환 >= LL and loBar == 0; 처리구분 = ""; If Condition1 and Condition2 Then { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,RED); T = 1; } Else If 고[1,1] < HH[hiBar] Then { 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]); } 최종꼭지점 = "고점"; if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= V[1]*2 Then { Sell(); } } If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,BLUE); T = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]); } 최종꼭지점 = "저점"; if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= V[1]*2 Then { Buy(); } } if MarketPosition == 1 and BarsSinceEntry == 1 Then ExitLong("bx"); if MarketPosition == -1 and BarsSinceEntry == 1 Then ExitShort("sx"); 매매 조건 중에서, 직전봉 거래량의 2배 조건을, 직전 20개 봉 평균값의 2배로 수정. 매수 매도 자리에 세로선 추가. 감사합니다.

시스템

답변 3

예스스탁 예스스탁 답변

2023-10-26 10:42:51

안녕하세요
예스스탁입니다.


Input : 전환(0.45);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0);
Array:고[10,4](0),저[10,4](0);

HH = H;
LL = L;
If Index == 0 Then
{
   고[1,1] = HH;
   고[1,2] = 0;
   고[1,3] = sDate;
   고[1,4] = sTime;
   저[1,1] = LL;
   저[1,2] = 0;
   저[1,3] = sDate;
   저[1,4] = sTime;
}
If Index > 0 Then
{
   hiBar = hiBar + 1;
   loBar = loBar + 1;
}
If HH[hiBar] < HH Then hiBar = 0;
If LL[loBar] > LL Then loBar = 0;
Condition1 = 저[1,1]+전환 <= HH and hiBar == 0;
Condition2 = 고[1,1]-전환 >= LL and loBar == 0;

처리구분 = "";
If Condition1 and Condition2 Then              
{
   If 최종꼭지점 == "저점" Then
   {
      If 저[1,1] > LL Then 처리구분 = "저점처리";
      Else                 처리구분 = "고점처리";
   }
   Else If 최종꼭지점 == "고점" Then
   {
      If 고[1,1] < HH Then 처리구분 = "고점처리";
      Else                 처리구분 = "저점처리";
   }
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";

If 처리구분 == "고점처리" Then
{
      If 최종꼭지점 == "저점" Then
      {          

            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                  고[j,jj] = 고[j-1,jj];
                  }
            }
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
   
            TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,RED);  
                  T = 1;
      
      }
      Else If 고[1,1] < HH[hiBar] Then                   
      {
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
            TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]);                         
    
      }
      최종꼭지점 = "고점";

        if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= ma(V,20)*2 Then
        {
              Sell();     
      }
}

If 처리구분 == "저점처리" Then
{
      If 최종꼭지점 == "고점" Then
      {
            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                        저[j,jj] = 저[j-1,jj];
                  }
            }
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;      
     
            TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,BLUE); 
                  T = -1;
            
      }
      Else If 저[1,1] > LL[loBar] Then
      {
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;   
      
            TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]);                    

            }                           
      최종꼭지점 = "저점";

        if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= ma(V,20)[1]*2 Then
        {
                  Buy();
            }
} 

if MarketPosition == 1 and BarsSinceEntry == 1 Then  ExitLong("bx");  
if MarketPosition == -1 and BarsSinceEntry == 1 Then  ExitShort("sx");  

즐거운 하루되세요


> 고성 님이 쓴 글입니다.

> 제목 : 전환추세 거래량 평균

> Input : 전환(0.45);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0);
Array:고[10,4](0),저[10,4](0);

HH = H;
LL = L;
If Index == 0 Then
{
   고[1,1] = HH;
   고[1,2] = 0;
   고[1,3] = sDate;
   고[1,4] = sTime;
   저[1,1] = LL;
   저[1,2] = 0;
   저[1,3] = sDate;
   저[1,4] = sTime;
}
If Index > 0 Then
{
   hiBar = hiBar + 1;
   loBar = loBar + 1;
}
If HH[hiBar] < HH Then hiBar = 0;
If LL[loBar] > LL Then loBar = 0;
Condition1 = 저[1,1]+전환 <= HH and hiBar == 0;
Condition2 = 고[1,1]-전환 >= LL and loBar == 0;

처리구분 = "";
If Condition1 and Condition2 Then              
{
   If 최종꼭지점 == "저점" Then
   {
      If 저[1,1] > LL Then 처리구분 = "저점처리";
      Else                 처리구분 = "고점처리";
   }
   Else If 최종꼭지점 == "고점" Then
   {
      If 고[1,1] < HH Then 처리구분 = "고점처리";
      Else                 처리구분 = "저점처리";
   }
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";

If 처리구분 == "고점처리" Then
{
      If 최종꼭지점 == "저점" Then
      {          

            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                  고[j,jj] = 고[j-1,jj];
                  }
            }
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
   
            TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,RED);  
                  T = 1;
      
      }
      Else If 고[1,1] < HH[hiBar] Then                   
      {
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
            TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]);                         
    
      }
      최종꼭지점 = "고점";

        if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= V[1]*2 Then
        {
              Sell();     
      }
}

If 처리구분 == "저점처리" Then
{
      If 최종꼭지점 == "고점" Then
      {
            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                        저[j,jj] = 저[j-1,jj];
                  }
            }
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;      
     
            TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,BLUE); 
                  T = -1;
            
      }
      Else If 저[1,1] > LL[loBar] Then
      {
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;   
      
            TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]);                    

            }                           
      최종꼭지점 = "저점";

        if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= V[1]*2 Then
        {
                  Buy();
            }
} 

if MarketPosition == 1 and BarsSinceEntry == 1 Then  ExitLong("bx");  
if MarketPosition == -1 and BarsSinceEntry == 1 Then  ExitShort("sx");    

매매 조건 중에서, 직전봉 거래량의 2배 조건을, 직전 20개 봉 평균값의 2배로 수정.
매수 매도 자리에 세로선 추가.    감사합니다.

안녕하세요 예스스탁입니다. Input : 전환(0.45); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0); Array:고[10,4](0),저[10,4](0); HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 고[1,3] = sDate; 고[1,4] = sTime; 저[1,1] = LL; 저[1,2] = 0; 저[1,3] = sDate; 저[1,4] = sTime; } If Index > 0 Then { hiBar = hiBar + 1; loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1]+전환 <= HH and hiBar == 0; Condition2 = 고[1,1]-전환 >= LL and loBar == 0; 처리구분 = ""; If Condition1 and Condition2 Then { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,RED); T = 1; } Else If 고[1,1] < HH[hiBar] Then { 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]); } 최종꼭지점 = "고점"; if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= ma(V,20)*2 Then { Sell(); } } If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,BLUE); T = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]); } 최종꼭지점 = "저점"; if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= ma(V,20)[1]*2 Then { Buy(); } } if MarketPosition == 1 and BarsSinceEntry == 1 Then ExitLong("bx"); if MarketPosition == -1 and BarsSinceEntry == 1 Then ExitShort("sx"); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 전환추세 거래량 평균 > Input : 전환(0.45); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0); Array:고[10,4](0),저[10,4](0); HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 고[1,3] = sDate; 고[1,4] = sTime; 저[1,1] = LL; 저[1,2] = 0; 저[1,3] = sDate; 저[1,4] = sTime; } If Index > 0 Then { hiBar = hiBar + 1; loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1]+전환 <= HH and hiBar == 0; Condition2 = 고[1,1]-전환 >= LL and loBar == 0; 처리구분 = ""; If Condition1 and Condition2 Then { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,RED); T = 1; } Else If 고[1,1] < HH[hiBar] Then { 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]); } 최종꼭지점 = "고점"; if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= V[1]*2 Then { Sell(); } } If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,BLUE); T = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]); } 최종꼭지점 = "저점"; if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= V[1]*2 Then { Buy(); } } if MarketPosition == 1 and BarsSinceEntry == 1 Then ExitLong("bx"); if MarketPosition == -1 and BarsSinceEntry == 1 Then ExitShort("sx"); 매매 조건 중에서, 직전봉 거래량의 2배 조건을, 직전 20개 봉 평균값의 2배로 수정. 매수 매도 자리에 세로선 추가. 감사합니다.

고성

2023-10-26 11:31:50

> 예스스탁 님이 쓴 글입니다.

> 제목 : Re : 전환추세 거래량 평균

> 
안녕하세요
예스스탁입니다.


Input : 전환(0.45);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0);
Array:고[10,4](0),저[10,4](0);

HH = H;
LL = L;
If Index == 0 Then
{
   고[1,1] = HH;
   고[1,2] = 0;
   고[1,3] = sDate;
   고[1,4] = sTime;
   저[1,1] = LL;
   저[1,2] = 0;
   저[1,3] = sDate;
   저[1,4] = sTime;
}
If Index > 0 Then
{
   hiBar = hiBar + 1;
   loBar = loBar + 1;
}
If HH[hiBar] < HH Then hiBar = 0;
If LL[loBar] > LL Then loBar = 0;
Condition1 = 저[1,1]+전환 <= HH and hiBar == 0;
Condition2 = 고[1,1]-전환 >= LL and loBar == 0;

처리구분 = "";
If Condition1 and Condition2 Then              
{
   If 최종꼭지점 == "저점" Then
   {
      If 저[1,1] > LL Then 처리구분 = "저점처리";
      Else                 처리구분 = "고점처리";
   }
   Else If 최종꼭지점 == "고점" Then
   {
      If 고[1,1] < HH Then 처리구분 = "고점처리";
      Else                 처리구분 = "저점처리";
   }
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";

If 처리구분 == "고점처리" Then
{
      If 최종꼭지점 == "저점" Then
      {          

            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                  고[j,jj] = 고[j-1,jj];
                  }
            }
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
   
            TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,RED);  
                  T = 1;
      
      }
      Else If 고[1,1] < HH[hiBar] Then                   
      {
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
            TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]);                         
    
      }
      최종꼭지점 = "고점";

        if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= ma(V,20)*2 Then
        {
              Sell();     
      }
}

If 처리구분 == "저점처리" Then
{
      If 최종꼭지점 == "고점" Then
      {
            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                        저[j,jj] = 저[j-1,jj];
                  }
            }
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;      
     
            TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,BLUE); 
                  T = -1;
            
      }
      Else If 저[1,1] > LL[loBar] Then
      {
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;   
      
            TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]);                    

            }                           
      최종꼭지점 = "저점";

        if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= ma(V,20)[1]*2 Then
        {
                  Buy();
            }
} 

if MarketPosition == 1 and BarsSinceEntry == 1 Then  ExitLong("bx");  
if MarketPosition == -1 and BarsSinceEntry == 1 Then  ExitShort("sx");  

즐거운 하루되세요


> 고성 님이 쓴 글입니다.

> 제목 : 전환추세 거래량 평균

> Input : 전환(0.45);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0);
Array:고[10,4](0),저[10,4](0);

HH = H;
LL = L;
If Index == 0 Then
{
   고[1,1] = HH;
   고[1,2] = 0;
   고[1,3] = sDate;
   고[1,4] = sTime;
   저[1,1] = LL;
   저[1,2] = 0;
   저[1,3] = sDate;
   저[1,4] = sTime;
}
If Index > 0 Then
{
   hiBar = hiBar + 1;
   loBar = loBar + 1;
}
If HH[hiBar] < HH Then hiBar = 0;
If LL[loBar] > LL Then loBar = 0;
Condition1 = 저[1,1]+전환 <= HH and hiBar == 0;
Condition2 = 고[1,1]-전환 >= LL and loBar == 0;

처리구분 = "";
If Condition1 and Condition2 Then              
{
   If 최종꼭지점 == "저점" Then
   {
      If 저[1,1] > LL Then 처리구분 = "저점처리";
      Else                 처리구분 = "고점처리";
   }
   Else If 최종꼭지점 == "고점" Then
   {
      If 고[1,1] < HH Then 처리구분 = "고점처리";
      Else                 처리구분 = "저점처리";
   }
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";

If 처리구분 == "고점처리" Then
{
      If 최종꼭지점 == "저점" Then
      {          

            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                  고[j,jj] = 고[j-1,jj];
                  }
            }
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
   
            TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,RED);  
                  T = 1;
      
      }
      Else If 고[1,1] < HH[hiBar] Then                   
      {
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
            TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]);                         
    
      }
      최종꼭지점 = "고점";

        if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= V[1]*2 Then
        {
              Sell();     
      }
}

If 처리구분 == "저점처리" Then
{
      If 최종꼭지점 == "고점" Then
      {
            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                        저[j,jj] = 저[j-1,jj];
                  }
            }
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;      
     
            TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,BLUE); 
                  T = -1;
            
      }
      Else If 저[1,1] > LL[loBar] Then
      {
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;   
      
            TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]);                    

            }                           
      최종꼭지점 = "저점";

        if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= V[1]*2 Then
        {
                  Buy();
            }
} 

if MarketPosition == 1 and BarsSinceEntry == 1 Then  ExitLong("bx");  
if MarketPosition == -1 and BarsSinceEntry == 1 Then  ExitShort("sx");    

매매 조건 중에서, 직전봉 거래량의 2배 조건을, 직전 20개 봉 평균값의 2배로 수정.
매수 매도 자리에 세로선 추가.    감사합니다.

재문의
   if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= ma(V,20)[1]*2 Then
ma(v,20) 다음에 [1].   한봉전 표시가 sell에는 없는데 buy에만 있네요.차이가 있나요?
[1] 삭제하니까 미세한 차이는 있네요.
매매 자리에 세로선 추가  부탁합니다.

> 예스스탁 님이 쓴 글입니다. > 제목 : Re : 전환추세 거래량 평균 > 안녕하세요 예스스탁입니다. Input : 전환(0.45); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0); Array:고[10,4](0),저[10,4](0); HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 고[1,3] = sDate; 고[1,4] = sTime; 저[1,1] = LL; 저[1,2] = 0; 저[1,3] = sDate; 저[1,4] = sTime; } If Index > 0 Then { hiBar = hiBar + 1; loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1]+전환 <= HH and hiBar == 0; Condition2 = 고[1,1]-전환 >= LL and loBar == 0; 처리구분 = ""; If Condition1 and Condition2 Then { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,RED); T = 1; } Else If 고[1,1] < HH[hiBar] Then { 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]); } 최종꼭지점 = "고점"; if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= ma(V,20)*2 Then { Sell(); } } If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,BLUE); T = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]); } 최종꼭지점 = "저점"; if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= ma(V,20)[1]*2 Then { Buy(); } } if MarketPosition == 1 and BarsSinceEntry == 1 Then ExitLong("bx"); if MarketPosition == -1 and BarsSinceEntry == 1 Then ExitShort("sx"); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 전환추세 거래량 평균 > Input : 전환(0.45); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0); Array:고[10,4](0),저[10,4](0); HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 고[1,3] = sDate; 고[1,4] = sTime; 저[1,1] = LL; 저[1,2] = 0; 저[1,3] = sDate; 저[1,4] = sTime; } If Index > 0 Then { hiBar = hiBar + 1; loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1]+전환 <= HH and hiBar == 0; Condition2 = 고[1,1]-전환 >= LL and loBar == 0; 처리구분 = ""; If Condition1 and Condition2 Then { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,RED); T = 1; } Else If 고[1,1] < HH[hiBar] Then { 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]); } 최종꼭지점 = "고점"; if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= V[1]*2 Then { Sell(); } } If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,BLUE); T = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]); } 최종꼭지점 = "저점"; if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= V[1]*2 Then { Buy(); } } if MarketPosition == 1 and BarsSinceEntry == 1 Then ExitLong("bx"); if MarketPosition == -1 and BarsSinceEntry == 1 Then ExitShort("sx"); 매매 조건 중에서, 직전봉 거래량의 2배 조건을, 직전 20개 봉 평균값의 2배로 수정. 매수 매도 자리에 세로선 추가. 감사합니다. 재문의 if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= ma(V,20)[1]*2 Then ma(v,20) 다음에 [1]. 한봉전 표시가 sell에는 없는데 buy에만 있네요.차이가 있나요? [1] 삭제하니까 미세한 차이는 있네요. 매매 자리에 세로선 추가 부탁합니다.

예스스탁 예스스탁 답변

2023-10-26 11:36:01

안녕하세요
예스스탁입니다.

[1]을 추가해 드립니다. 직전봉대비이므로 [1]이 있어야 합니다.


Input : 전환(0.45);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0);
Array:고[10,4](0),저[10,4](0);

HH = H;
LL = L;
If Index == 0 Then
{
   고[1,1] = HH;
   고[1,2] = 0;
   고[1,3] = sDate;
   고[1,4] = sTime;
   저[1,1] = LL;
   저[1,2] = 0;
   저[1,3] = sDate;
   저[1,4] = sTime;
}
If Index > 0 Then
{
   hiBar = hiBar + 1;
   loBar = loBar + 1;
}
If HH[hiBar] < HH Then hiBar = 0;
If LL[loBar] > LL Then loBar = 0;
Condition1 = 저[1,1]+전환 <= HH and hiBar == 0;
Condition2 = 고[1,1]-전환 >= LL and loBar == 0;

처리구분 = "";
If Condition1 and Condition2 Then              
{
   If 최종꼭지점 == "저점" Then
   {
      If 저[1,1] > LL Then 처리구분 = "저점처리";
      Else                 처리구분 = "고점처리";
   }
   Else If 최종꼭지점 == "고점" Then
   {
      If 고[1,1] < HH Then 처리구분 = "고점처리";
      Else                 처리구분 = "저점처리";
   }
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";

If 처리구분 == "고점처리" Then
{
      If 최종꼭지점 == "저점" Then
      {          

            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                  고[j,jj] = 고[j-1,jj];
                  }
            }
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
   
            TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,RED);  
                  T = 1;
      
      }
      Else If 고[1,1] < HH[hiBar] Then                   
      {
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
            TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]);                         
    
      }
      최종꼭지점 = "고점";

        if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= ma(V,20)[1]*2 Then
        {
              Sell(); 
			  TL_New(sDate,sTime,0,sDate,sTime,999999999);    
      }
}

If 처리구분 == "저점처리" Then
{
      If 최종꼭지점 == "고점" Then
      {
            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                        저[j,jj] = 저[j-1,jj];
                  }
            }
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;      
     
            TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,BLUE); 
                  T = -1;
            
      }
      Else If 저[1,1] > LL[loBar] Then
      {
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;   
      
            TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]);                    

            }                           
      최종꼭지점 = "저점";

        if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= ma(V,20)[1]*2 Then
        {
                  Buy();
				  TL_New(sDate,sTime,0,sDate,sTime,999999999);
            }
} 

if MarketPosition == 1 and BarsSinceEntry == 1 Then  ExitLong("bx");  
if MarketPosition == -1 and BarsSinceEntry == 1 Then  ExitShort("sx");  

즐거운 하루되세요



> 고성 님이 쓴 글입니다.

> 제목 : Re : Re : 전환추세 거래량 평균

> 

> 예스스탁 님이 쓴 글입니다.

> 제목 : Re : 전환추세 거래량 평균

> 
안녕하세요
예스스탁입니다.


Input : 전환(0.45);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0);
Array:고[10,4](0),저[10,4](0);

HH = H;
LL = L;
If Index == 0 Then
{
   고[1,1] = HH;
   고[1,2] = 0;
   고[1,3] = sDate;
   고[1,4] = sTime;
   저[1,1] = LL;
   저[1,2] = 0;
   저[1,3] = sDate;
   저[1,4] = sTime;
}
If Index > 0 Then
{
   hiBar = hiBar + 1;
   loBar = loBar + 1;
}
If HH[hiBar] < HH Then hiBar = 0;
If LL[loBar] > LL Then loBar = 0;
Condition1 = 저[1,1]+전환 <= HH and hiBar == 0;
Condition2 = 고[1,1]-전환 >= LL and loBar == 0;

처리구분 = "";
If Condition1 and Condition2 Then              
{
   If 최종꼭지점 == "저점" Then
   {
      If 저[1,1] > LL Then 처리구분 = "저점처리";
      Else                 처리구분 = "고점처리";
   }
   Else If 최종꼭지점 == "고점" Then
   {
      If 고[1,1] < HH Then 처리구분 = "고점처리";
      Else                 처리구분 = "저점처리";
   }
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";

If 처리구분 == "고점처리" Then
{
      If 최종꼭지점 == "저점" Then
      {          

            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                  고[j,jj] = 고[j-1,jj];
                  }
            }
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
   
            TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,RED);  
                  T = 1;
      
      }
      Else If 고[1,1] < HH[hiBar] Then                   
      {
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
            TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]);                         
    
      }
      최종꼭지점 = "고점";

        if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= ma(V,20)*2 Then
        {
              Sell();     
      }
}

If 처리구분 == "저점처리" Then
{
      If 최종꼭지점 == "고점" Then
      {
            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                        저[j,jj] = 저[j-1,jj];
                  }
            }
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;      
     
            TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,BLUE); 
                  T = -1;
            
      }
      Else If 저[1,1] > LL[loBar] Then
      {
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;   
      
            TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]);                    

            }                           
      최종꼭지점 = "저점";

        if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= ma(V,20)[1]*2 Then
        {
                  Buy();
            }
} 

if MarketPosition == 1 and BarsSinceEntry == 1 Then  ExitLong("bx");  
if MarketPosition == -1 and BarsSinceEntry == 1 Then  ExitShort("sx");  

즐거운 하루되세요


> 고성 님이 쓴 글입니다.

> 제목 : 전환추세 거래량 평균

> Input : 전환(0.45);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0);
Array:고[10,4](0),저[10,4](0);

HH = H;
LL = L;
If Index == 0 Then
{
   고[1,1] = HH;
   고[1,2] = 0;
   고[1,3] = sDate;
   고[1,4] = sTime;
   저[1,1] = LL;
   저[1,2] = 0;
   저[1,3] = sDate;
   저[1,4] = sTime;
}
If Index > 0 Then
{
   hiBar = hiBar + 1;
   loBar = loBar + 1;
}
If HH[hiBar] < HH Then hiBar = 0;
If LL[loBar] > LL Then loBar = 0;
Condition1 = 저[1,1]+전환 <= HH and hiBar == 0;
Condition2 = 고[1,1]-전환 >= LL and loBar == 0;

처리구분 = "";
If Condition1 and Condition2 Then              
{
   If 최종꼭지점 == "저점" Then
   {
      If 저[1,1] > LL Then 처리구분 = "저점처리";
      Else                 처리구분 = "고점처리";
   }
   Else If 최종꼭지점 == "고점" Then
   {
      If 고[1,1] < HH Then 처리구분 = "고점처리";
      Else                 처리구분 = "저점처리";
   }
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";

If 처리구분 == "고점처리" Then
{
      If 최종꼭지점 == "저점" Then
      {          

            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                  고[j,jj] = 고[j-1,jj];
                  }
            }
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
   
            TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,RED);  
                  T = 1;
      
      }
      Else If 고[1,1] < HH[hiBar] Then                   
      {
            고[1,1] = HH[hiBar];
            고[1,2] = Index - hiBar;
            고[1,3] = sDate[hiBar];
            고[1,4] = sTime[hiBar];
            hiBar   = -1;
            loBar   = -1;
            TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]);                         
    
      }
      최종꼭지점 = "고점";

        if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= V[1]*2 Then
        {
              Sell();     
      }
}

If 처리구분 == "저점처리" Then
{
      If 최종꼭지점 == "고점" Then
      {
            For j = 10 DownTo 2
            {
                  For jj = 1 To 4
                  {
                        저[j,jj] = 저[j-1,jj];
                  }
            }
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;      
     
            TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
            TL_SetSize(TL,1);
            TL_SetColor(TL,BLUE); 
                  T = -1;
            
      }
      Else If 저[1,1] > LL[loBar] Then
      {
            저[1,1] = LL[loBar];
            저[1,2] = Index - loBar;
            저[1,3] = sDate[loBar];
            저[1,4] = sTime[loBar];
            hiBar   = -1;
            loBar   = -1;   
      
            TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]);
            Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2));
            Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]);                    

            }                           
      최종꼭지점 = "저점";

        if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= V[1]*2 Then
        {
                  Buy();
            }
} 

if MarketPosition == 1 and BarsSinceEntry == 1 Then  ExitLong("bx");  
if MarketPosition == -1 and BarsSinceEntry == 1 Then  ExitShort("sx");    

매매 조건 중에서, 직전봉 거래량의 2배 조건을, 직전 20개 봉 평균값의 2배로 수정.
매수 매도 자리에 세로선 추가.    감사합니다.

재문의
   if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= ma(V,20)[1]*2 Then
ma(v,20) 다음에 [1].   한봉전 표시가 sell에는 없는데 buy에만 있네요.차이가 있나요?
[1] 삭제하니까 미세한 차이는 있네요.
매매 자리에 세로선 추가  부탁합니다.

안녕하세요 예스스탁입니다. [1]을 추가해 드립니다. 직전봉대비이므로 [1]이 있어야 합니다. Input : 전환(0.45); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0); Array:고[10,4](0),저[10,4](0); HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 고[1,3] = sDate; 고[1,4] = sTime; 저[1,1] = LL; 저[1,2] = 0; 저[1,3] = sDate; 저[1,4] = sTime; } If Index > 0 Then { hiBar = hiBar + 1; loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1]+전환 <= HH and hiBar == 0; Condition2 = 고[1,1]-전환 >= LL and loBar == 0; 처리구분 = ""; If Condition1 and Condition2 Then { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,RED); T = 1; } Else If 고[1,1] < HH[hiBar] Then { 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]); } 최종꼭지점 = "고점"; if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= ma(V,20)[1]*2 Then { Sell(); TL_New(sDate,sTime,0,sDate,sTime,999999999); } } If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,BLUE); T = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]); } 최종꼭지점 = "저점"; if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= ma(V,20)[1]*2 Then { Buy(); TL_New(sDate,sTime,0,sDate,sTime,999999999); } } if MarketPosition == 1 and BarsSinceEntry == 1 Then ExitLong("bx"); if MarketPosition == -1 and BarsSinceEntry == 1 Then ExitShort("sx"); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : Re : Re : 전환추세 거래량 평균 > > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 전환추세 거래량 평균 > 안녕하세요 예스스탁입니다. Input : 전환(0.45); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0); Array:고[10,4](0),저[10,4](0); HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 고[1,3] = sDate; 고[1,4] = sTime; 저[1,1] = LL; 저[1,2] = 0; 저[1,3] = sDate; 저[1,4] = sTime; } If Index > 0 Then { hiBar = hiBar + 1; loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1]+전환 <= HH and hiBar == 0; Condition2 = 고[1,1]-전환 >= LL and loBar == 0; 처리구분 = ""; If Condition1 and Condition2 Then { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,RED); T = 1; } Else If 고[1,1] < HH[hiBar] Then { 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]); } 최종꼭지점 = "고점"; if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= ma(V,20)*2 Then { Sell(); } } If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,BLUE); T = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]); } 최종꼭지점 = "저점"; if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= ma(V,20)[1]*2 Then { Buy(); } } if MarketPosition == 1 and BarsSinceEntry == 1 Then ExitLong("bx"); if MarketPosition == -1 and BarsSinceEntry == 1 Then ExitShort("sx"); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 전환추세 거래량 평균 > Input : 전환(0.45); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(0),T(0); Array:고[10,4](0),저[10,4](0); HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 고[1,3] = sDate; 고[1,4] = sTime; 저[1,1] = LL; 저[1,2] = 0; 저[1,3] = sDate; 저[1,4] = sTime; } If Index > 0 Then { hiBar = hiBar + 1; loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1]+전환 <= HH and hiBar == 0; Condition2 = 고[1,1]-전환 >= LL and loBar == 0; 처리구분 = ""; If Condition1 and Condition2 Then { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,RED); T = 1; } Else If 고[1,1] < HH[hiBar] Then { 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]); } 최종꼭지점 = "고점"; if 고[1,1] >= 저[1,1]+1 and V > 500 and V >= V[1]*2 Then { Sell(); } } If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,BLUE); T = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)); Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]); } 최종꼭지점 = "저점"; if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= V[1]*2 Then { Buy(); } } if MarketPosition == 1 and BarsSinceEntry == 1 Then ExitLong("bx"); if MarketPosition == -1 and BarsSinceEntry == 1 Then ExitShort("sx"); 매매 조건 중에서, 직전봉 거래량의 2배 조건을, 직전 20개 봉 평균값의 2배로 수정. 매수 매도 자리에 세로선 추가. 감사합니다. 재문의 if 저[1,1] <= 고[1,1]-1 and V > 500 and V >= ma(V,20)[1]*2 Then ma(v,20) 다음에 [1]. 한봉전 표시가 sell에는 없는데 buy에만 있네요.차이가 있나요? [1] 삭제하니까 미세한 차이는 있네요. 매매 자리에 세로선 추가 부탁합니다.

문의드립니다.

문의드립니다

[공지] 예스트레이더 업그레이드

[공지] 예스트레이더 업그레이드

[공지] 예스트레이더 업그레이드

[공지] 예스트레이더 업그레이드

[공지] 예스트레이더 업그레이드

커뮤니티

전환추세 거래량 평균

답변 3

예스스탁 예스스탁 답변

고성

예스스탁 예스스탁 답변

커뮤니티

전환추세 거래량 평균

답변 3

예스스탁 예스스탁 답변

고성

예스스탁 예스스탁 답변

개인정보 취급방침