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

예스스탁 예스스탁 답변

2024-06-05 10:39:25

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


Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);

			if 저[2,1] <= 고[2,1]-0.90 Then
				Buy("b2");
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
			Buy("b1");
           
      }
} 

if MarketPosition == 1 Then
	ExitLong();



즐거운 하루되세요



> 고성 님이 쓴 글입니다.

> 제목 : 전환추세 크기 둘

> Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
      Plot1(고[1,1]);
      NoPlot(2);
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
           
      }
      Plot2(저[1,1]);
      NoPlot(1);
} 

하락추세선의 크기가 연속해서 0.45 이상일 때 세로선에서,
두번째 0.45 이상에서 양전환시 매수, 다음봉에 매수청산.  
추가. 직전(첫번째) 하락추세선의 크기가 0.9 이상일 때, 다음(두번째,크기 무관) 하락추세선이 양전환시 매수,  다음봉에 매수청산.   감사합니다.

안녕하세요 예스스탁입니다. Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); if 저[2,1] <= 고[2,1]-0.90 Then Buy("b2"); } 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]); } 최종꼭지점 = "고점"; } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); Buy("b1"); } } if MarketPosition == 1 Then ExitLong(); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 전환추세 크기 둘 > Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); } 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]); } 최종꼭지점 = "고점"; Plot1(고[1,1]); NoPlot(2); } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); } Plot2(저[1,1]); NoPlot(1); } 하락추세선의 크기가 연속해서 0.45 이상일 때 세로선에서, 두번째 0.45 이상에서 양전환시 매수, 다음봉에 매수청산. 추가. 직전(첫번째) 하락추세선의 크기가 0.9 이상일 때, 다음(두번째,크기 무관) 하락추세선이 양전환시 매수, 다음봉에 매수청산. 감사합니다.

고성

2024-06-05 11:06:02

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

> 제목 : Re : 전환추세 크기 둘

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


Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);

			if 저[2,1] <= 고[2,1]-0.90 Then
				Buy("b2");
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
			Buy("b1");
           
      }
} 

if MarketPosition == 1 Then
	ExitLong();



즐거운 하루되세요



> 고성 님이 쓴 글입니다.

> 제목 : 전환추세 크기 둘

> Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
      Plot1(고[1,1]);
      NoPlot(2);
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
           
      }
      Plot2(저[1,1]);
      NoPlot(1);
} 

하락추세선의 크기가 연속해서 0.45 이상일 때 세로선에서,
두번째 0.45 이상에서 양전환시 매수, 다음봉에 매수청산.  
추가. 직전(첫번째) 하락추세선의 크기가 0.9 이상일 때, 다음(두번째,크기 무관) 하락추세선이 양전환시 매수,  다음봉에 매수청산.   감사합니다.

재문의
0.45 연속 둘일 때, 진입시(세로선) 아니고, 이후 양전환시 매수.
매도는 음전환시 아니고, 다음봉에 매수청산.

> 예스스탁 님이 쓴 글입니다. > 제목 : Re : 전환추세 크기 둘 > 안녕하세요 예스스탁입니다. Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); if 저[2,1] <= 고[2,1]-0.90 Then Buy("b2"); } 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]); } 최종꼭지점 = "고점"; } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); Buy("b1"); } } if MarketPosition == 1 Then ExitLong(); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 전환추세 크기 둘 > Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); } 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]); } 최종꼭지점 = "고점"; Plot1(고[1,1]); NoPlot(2); } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); } Plot2(저[1,1]); NoPlot(1); } 하락추세선의 크기가 연속해서 0.45 이상일 때 세로선에서, 두번째 0.45 이상에서 양전환시 매수, 다음봉에 매수청산. 추가. 직전(첫번째) 하락추세선의 크기가 0.9 이상일 때, 다음(두번째,크기 무관) 하락추세선이 양전환시 매수, 다음봉에 매수청산. 감사합니다. 재문의 0.45 연속 둘일 때, 진입시(세로선) 아니고, 이후 양전환시 매수. 매도는 음전환시 아니고, 다음봉에 매수청산.

예스스탁 예스스탁 답변

2024-06-05 11:05:41

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


Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);
			
			if 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
				Buy("b1");
			if 저[2,1] <= 고[2,1]-0.90 Then
				Buy("b2");
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
           
      }
} 

if MarketPosition == 1 and BarsSinceEntry == 1 Then
      ExitLong();



즐거운 하루되세요


> 고성 님이 쓴 글입니다.

> 제목 : Re : Re : 전환추세 크기 둘

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

> 제목 : Re : 전환추세 크기 둘

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


Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);

			if 저[2,1] <= 고[2,1]-0.90 Then
				Buy("b2");
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
			Buy("b1");
           
      }
} 

if MarketPosition == 1 Then
	ExitLong();



즐거운 하루되세요



> 고성 님이 쓴 글입니다.

> 제목 : 전환추세 크기 둘

> Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
      Plot1(고[1,1]);
      NoPlot(2);
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
           
      }
      Plot2(저[1,1]);
      NoPlot(1);
} 

하락추세선의 크기가 연속해서 0.45 이상일 때 세로선에서,
두번째 0.45 이상에서 양전환시 매수, 다음봉에 매수청산.  
추가. 직전(첫번째) 하락추세선의 크기가 0.9 이상일 때, 다음(두번째,크기 무관) 하락추세선이 양전환시 매수,  다음봉에 매수청산.   감사합니다.

재문의
0.45 연속 둘일 때, 진입시(세로선) 아니고, 이후 양전환시 매수.
매도는 음전환시 아니고 다음봉에 매수청산.

안녕하세요 예스스탁입니다. Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); if 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then Buy("b1"); if 저[2,1] <= 고[2,1]-0.90 Then Buy("b2"); } 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]); } 최종꼭지점 = "고점"; } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); } } if MarketPosition == 1 and BarsSinceEntry == 1 Then ExitLong(); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : Re : Re : 전환추세 크기 둘 > > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 전환추세 크기 둘 > 안녕하세요 예스스탁입니다. Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); if 저[2,1] <= 고[2,1]-0.90 Then Buy("b2"); } 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]); } 최종꼭지점 = "고점"; } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); Buy("b1"); } } if MarketPosition == 1 Then ExitLong(); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 전환추세 크기 둘 > Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); } 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]); } 최종꼭지점 = "고점"; Plot1(고[1,1]); NoPlot(2); } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); } Plot2(저[1,1]); NoPlot(1); } 하락추세선의 크기가 연속해서 0.45 이상일 때 세로선에서, 두번째 0.45 이상에서 양전환시 매수, 다음봉에 매수청산. 추가. 직전(첫번째) 하락추세선의 크기가 0.9 이상일 때, 다음(두번째,크기 무관) 하락추세선이 양전환시 매수, 다음봉에 매수청산. 감사합니다. 재문의 0.45 연속 둘일 때, 진입시(세로선) 아니고, 이후 양전환시 매수. 매도는 음전환시 아니고 다음봉에 매수청산.

고성

2024-06-05 12:38:13

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

> 제목 : Re : Re : Re : 전환추세 크기 둘

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


Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);
			
			if 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
				Buy("b1");
			if 저[2,1] <= 고[2,1]-0.90 Then
				Buy("b2");
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
           
      }
} 

if MarketPosition == 1 and BarsSinceEntry == 1 Then
      ExitLong();



즐거운 하루되세요


> 고성 님이 쓴 글입니다.

> 제목 : Re : Re : 전환추세 크기 둘

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

> 제목 : Re : 전환추세 크기 둘

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


Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);

			if 저[2,1] <= 고[2,1]-0.90 Then
				Buy("b2");
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
			Buy("b1");
           
      }
} 

if MarketPosition == 1 Then
	ExitLong();



즐거운 하루되세요



> 고성 님이 쓴 글입니다.

> 제목 : 전환추세 크기 둘

> Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
      Plot1(고[1,1]);
      NoPlot(2);
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
           
      }
      Plot2(저[1,1]);
      NoPlot(1);
} 

하락추세선의 크기가 연속해서 0.45 이상일 때 세로선에서,
두번째 0.45 이상에서 양전환시 매수, 다음봉에 매수청산.  
추가. 직전(첫번째) 하락추세선의 크기가 0.9 이상일 때, 다음(두번째,크기 무관) 하락추세선이 양전환시 매수,  다음봉에 매수청산.   감사합니다.

재문의
0.45 연속 둘일 때, 진입시(세로선) 아니고, 이후 양전환시 매수.
매도는 음전환시 아니고 다음봉에 매수청산.

재문의
0.45 세로선 나온후 양전환시 매수신호가 안 나옵니다. 
매수 신호는 두번째 하락추세선에서 양전환시 발생합니다.

> 예스스탁 님이 쓴 글입니다. > 제목 : Re : Re : Re : 전환추세 크기 둘 > 안녕하세요 예스스탁입니다. Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); if 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then Buy("b1"); if 저[2,1] <= 고[2,1]-0.90 Then Buy("b2"); } 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]); } 최종꼭지점 = "고점"; } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); } } if MarketPosition == 1 and BarsSinceEntry == 1 Then ExitLong(); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : Re : Re : 전환추세 크기 둘 > > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 전환추세 크기 둘 > 안녕하세요 예스스탁입니다. Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); if 저[2,1] <= 고[2,1]-0.90 Then Buy("b2"); } 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]); } 최종꼭지점 = "고점"; } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); Buy("b1"); } } if MarketPosition == 1 Then ExitLong(); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 전환추세 크기 둘 > Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); } 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]); } 최종꼭지점 = "고점"; Plot1(고[1,1]); NoPlot(2); } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); } Plot2(저[1,1]); NoPlot(1); } 하락추세선의 크기가 연속해서 0.45 이상일 때 세로선에서, 두번째 0.45 이상에서 양전환시 매수, 다음봉에 매수청산. 추가. 직전(첫번째) 하락추세선의 크기가 0.9 이상일 때, 다음(두번째,크기 무관) 하락추세선이 양전환시 매수, 다음봉에 매수청산. 감사합니다. 재문의 0.45 연속 둘일 때, 진입시(세로선) 아니고, 이후 양전환시 매수. 매도는 음전환시 아니고 다음봉에 매수청산. 재문의 0.45 세로선 나온후 양전환시 매수신호가 안 나옵니다. 매수 신호는 두번째 하락추세선에서 양전환시 발생합니다.

예스스탁 예스스탁 답변

2024-06-05 13:27:57

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

조건 지정이 잘못되어 수정했습니다.


Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);
                  
			if 저[1,1] <= 고[2,1]-0.45 and 저[2,1] <= 고[3,1]-0.45 Then
                 Buy("b1");
			if 저[2,1] <= 고[3,1]-0.90 Then
				Buy("b2");
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
           
      }
} 

if MarketPosition == 1 and BarsSinceEntry == 1 Then
      ExitLong();



즐거운 하루되세요


> 고성 님이 쓴 글입니다.

> 제목 : Re : Re : Re : Re : 전환추세 크기 둘

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

> 제목 : Re : Re : Re : 전환추세 크기 둘

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


Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);
			
			if 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
				Buy("b1");
			if 저[2,1] <= 고[2,1]-0.90 Then
				Buy("b2");
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
           
      }
} 

if MarketPosition == 1 and BarsSinceEntry == 1 Then
      ExitLong();



즐거운 하루되세요


> 고성 님이 쓴 글입니다.

> 제목 : Re : Re : 전환추세 크기 둘

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

> 제목 : Re : 전환추세 크기 둘

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


Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);

			if 저[2,1] <= 고[2,1]-0.90 Then
				Buy("b2");
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
			Buy("b1");
           
      }
} 

if MarketPosition == 1 Then
	ExitLong();



즐거운 하루되세요



> 고성 님이 쓴 글입니다.

> 제목 : 전환추세 크기 둘

> Input : 전환(0.2);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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);
  
      }
      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]);
        
      }
      최종꼭지점 = "고점";
      Plot1(고[1,1]);
      NoPlot(2);
}

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);          
                  
                  Condition99 = False;      
      }
      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]);
                   
      }
      최종꼭지점 = "저점";
      if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then
      {
            Condition99 = true;
            TL_New(sDate,sTime,0,sDate,sTime,999);
           
      }
      Plot2(저[1,1]);
      NoPlot(1);
} 

하락추세선의 크기가 연속해서 0.45 이상일 때 세로선에서,
두번째 0.45 이상에서 양전환시 매수, 다음봉에 매수청산.  
추가. 직전(첫번째) 하락추세선의 크기가 0.9 이상일 때, 다음(두번째,크기 무관) 하락추세선이 양전환시 매수,  다음봉에 매수청산.   감사합니다.

재문의
0.45 연속 둘일 때, 진입시(세로선) 아니고, 이후 양전환시 매수.
매도는 음전환시 아니고 다음봉에 매수청산.

재문의
0.45 세로선 나온후 양전환시 매수신호가 안 나옵니다. 
매수 신호는 두번째 하락추세선에서 양전환시 발생합니다.

안녕하세요 예스스탁입니다. 조건 지정이 잘못되어 수정했습니다. Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); if 저[1,1] <= 고[2,1]-0.45 and 저[2,1] <= 고[3,1]-0.45 Then Buy("b1"); if 저[2,1] <= 고[3,1]-0.90 Then Buy("b2"); } 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]); } 최종꼭지점 = "고점"; } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); } } if MarketPosition == 1 and BarsSinceEntry == 1 Then ExitLong(); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : Re : Re : Re : Re : 전환추세 크기 둘 > > 예스스탁 님이 쓴 글입니다. > 제목 : Re : Re : Re : 전환추세 크기 둘 > 안녕하세요 예스스탁입니다. Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); if 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then Buy("b1"); if 저[2,1] <= 고[2,1]-0.90 Then Buy("b2"); } 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]); } 최종꼭지점 = "고점"; } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); } } if MarketPosition == 1 and BarsSinceEntry == 1 Then ExitLong(); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : Re : Re : 전환추세 크기 둘 > > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 전환추세 크기 둘 > 안녕하세요 예스스탁입니다. Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); if 저[2,1] <= 고[2,1]-0.90 Then Buy("b2"); } 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]); } 최종꼭지점 = "고점"; } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); Buy("b1"); } } if MarketPosition == 1 Then ExitLong(); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 전환추세 크기 둘 > Input : 전환(0.2); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0),TX2(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); } 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]); } 최종꼭지점 = "고점"; Plot1(고[1,1]); NoPlot(2); } 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); Condition99 = False; } 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]); } 최종꼭지점 = "저점"; if Condition99 == False and 저[1,1] <= 고[1,1]-0.45 and 저[2,1] <= 고[2,1]-0.45 Then { Condition99 = true; TL_New(sDate,sTime,0,sDate,sTime,999); } Plot2(저[1,1]); NoPlot(1); } 하락추세선의 크기가 연속해서 0.45 이상일 때 세로선에서, 두번째 0.45 이상에서 양전환시 매수, 다음봉에 매수청산. 추가. 직전(첫번째) 하락추세선의 크기가 0.9 이상일 때, 다음(두번째,크기 무관) 하락추세선이 양전환시 매수, 다음봉에 매수청산. 감사합니다. 재문의 0.45 연속 둘일 때, 진입시(세로선) 아니고, 이후 양전환시 매수. 매도는 음전환시 아니고 다음봉에 매수청산. 재문의 0.45 세로선 나온후 양전환시 매수신호가 안 나옵니다. 매수 신호는 두번째 하락추세선에서 양전환시 발생합니다.

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

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

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

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

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

커뮤니티

전환추세 크기 둘

답변 5

예스스탁 예스스탁 답변

고성

예스스탁 예스스탁 답변

고성

예스스탁 예스스탁 답변

커뮤니티

전환추세 크기 둘

답변 5

예스스탁 예스스탁 답변

고성

예스스탁 예스스탁 답변

고성

예스스탁 예스스탁 답변

개인정보 취급방침