안녕하세요 예스스탁입니다. 1번과 2번의 조건만족시 값을 저장하는 변수(var1)를 다르게 지정하셔야 합니다. 아래와 같이 조건에 따라 저장하는 변수를 다르게 하셔야 합니다. If 최종꼭지점[1] < 최종꼭지점 Then var1 = -1; if 최종꼭지점[1] > 최종꼭지점 Then var1 = 1; If abs( 고[1,1] - 저[2,1]) > N Then { if var1 == -1 Then Sell("s1"); } If abs( 고[2,1] - 저[1,1]) > N Then { if var1 == 1 Then buy("b1"); } If 최종꼭지점 == "고점" and 최종꼭지점[1] != 최종꼭지점 and 저[1,1] >= 저[2,1] Then var2 = 1; If 최종꼭지점 == "저점" and 최종꼭지점[1] != 최종꼭지점 and 고[1,1] <= 고[2,1] Then var2 = -1; If var2 == 1 Then Buy("b2"); If var2 == -1 Then Sell("s2"); 또한 위와 같이 식을 작성하시면 1번 수식의 진입과 2번수식의 진입이 동시 충족이 될수 있어 한봉에서 여러번 신호가 발생하게 됩니다, 왜냐하면 조건이 단순 1이냐 -1이냐 이기 때문입니다 조건이 만족하지 않다가 조건이 만족하는 첫봉에 신호가 나오게 하셔야 합니다. If 최종꼭지점[1] < 최종꼭지점 Then var1 = -1; if 최종꼭지점[1] > 최종꼭지점 Then var1 = 1; If abs( 고[1,1] - 저[2,1]) > N Then { if var1 == -1 and var1[1] != -1 Then Sell("s1"); } If abs( 고[2,1] - 저[1,1]) > N Then { if var1 == 1 and var1[1] != 1 Then buy("b1"); } If 최종꼭지점 == "고점" and 최종꼭지점[1] != 최종꼭지점 and 저[1,1] >= 저[2,1] Then var2 = 1; If 최종꼭지점 == "저점" and 최종꼭지점[1] != 최종꼭지점 and 고[1,1] <= 고[2,1] Then var2 = -1; If var2 == 1 and var2[1] != 1 Then Buy("b2"); If var2 == -1 and var2[1] != -1 Then Sell("s2"); 즐거운 하루되세요 > 너무조아 님이 쓴 글입니다. > 제목 : 병합 > 그림 1의 상위 차트는 가.항의 #2번 수식에 의한 차트이고 그림 아래의 차트는 가. 항의 #1 수식과 #2 수식을 단순 병합하여 작성 된 차트 입니다 그 결과 차트에서와 같이 가. 항의 #2번 수식의 조건에 부합하지 않는 신호(화살표표시 된 신호) 가 발생 합니다. 이를 바르게 병합 된 수식에 의하여 나.항의 수식을 완성하여 주시면 대단히 감사하겠습니다. 가. 병합 할 2개의 수식 # 1번 If 최종꼭지점[1] < 최종꼭지점 Then var1 = -1; if 최종꼭지점[1] > 최종꼭지점 Then var1 = 1; If abs( 고[1,1] - 저[2,1]) > N Then { if var1 == -1 Then Sell("s1"); } If abs( 고[2,1] - 저[1,1]) > N Then { if var1 == 1 Then buy("b1"); } # 2번 If 최종꼭지점 == "고점" and 최종꼭지점[1] != 최종꼭지점 and 저[1,1] >= 저[2,1] Then var1 = 1; If 최종꼭지점 == "저점" and 최종꼭지점[1] != 최종꼭지점 and 고[1,1] <= 고[2,1] Then var1 = -1; If var1 == 1 Then Buy("b2"); If var1 == -1 Then Sell("s2"); 나. 완성 하여야 할 수식 Input:상승전환가격(0.5),하락전환가격(0.5),종가사용여부(1),파동선두께(1),수치표시(1); Input:N(0); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = IFF(종가사용여부 == 1,C,H); LL = IFF(종가사용여부 == 1,C,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 // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 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; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); If 수치표시 == 1 Then { Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2)); Text_SetStyle(Text1, 2, 1); } TL_SetSize(TL1,파동선두께); TL_SetColor(TL1,Red); } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]); // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 If 수치표시 == 1 Then { Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]); Text_SetString(Text1,NumToStr(고[1,1],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; TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); If 수치표시 == 1 Then { Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2)); Text_SetStyle(Text1, 2, 0); } TL_SetSize(TL1,파동선두께); TL_SetColor(TL1,Blue); } 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(TL1,저[1,3],저[1,4],저[1,1]); If 수치표시 == 1 Then { Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]); Text_SetString(Text1,NumToStr(저[1,1],2)); } } 최종꼭지점 = "저점"; } #===========================================# #===========================================# # 요기에 추가하여 완성하여 주십시요