안녕하세요 예스스탁입니다. 죄송하지만 해당 내용은 이전 답변 참고하셔서 직접 수정보완해 보셔야 할것 같습니다. 구조가 다른 수식들이라 작성해 보는데 시간이 너무 많이 걸리게 됩니다. 도움을 드리지 못해 죄송합니다. 즐거운 하루되세요 > stockric 님이 쓴 글입니다. > 제목 : 59892 재질문드립니다. > 이전 질문은 파라볼릭을 반드시사용해야한다는 단점이 있었으나, 인터넷에 감사히 올려져있는 오픈소스에서는 그러한 단점을 극복하였습니다. 사용자함수와 로직 두가지인데 나누어서 올리겠습니다. 사용자함수///////////////////////// #==========================================# # 사용자함수 : swing 지그재그 파동 # 버 전 : 1.2 # 작 성 자 : 수식지왕 # 블 로 그 : http://yahoosir.blog.me #==========================================# Input:n(NumericSimple),useCLprice(NumericSimple), oHiZZ[MaxSize1,MaxSize2](NumericArrayRef), // 열번호 1:가격,2:Index,3:sDate,4:sTime oLoZZ[MaxSize3,MaxSize4](NumericArrayRef), oTL_NewBit(NumericRef); // 1:NewLine 2:SetEndLine Var:j(0),jj(0),HH(0),LL(0),최종꼭지점(""),처리구분(""); #==========================================# HH = IFF(useCLprice==1,C,H); LL = IFF(useCLprice==1,C,L); If Index == 0 Then { oHiZZ[1,1] = HH; oLoZZ[1,1] = LL; } Condition1 = Highest(HH,n)[n+1] <= HH[n] and HH[n] > Highest(HH,n); Condition2 = Lowest( LL,n)[n+1] >= LL[n] and LL[n] < Lowest( LL,n); 처리구분 = ""; If Condition1 and Condition2 Then { // 기간고점과 기간저점 동시 발생 If oHiZZ[1,1] < HH[n] and oLoZZ[1,1] > LL[n] Then { // 기존의 파동을 벗어난 경우 If HH[n] - oHiZZ[1,1] > oLoZZ[1,1] - LL[n] Then // 많이 벗어난 쪽으로 처리 처리구분 = "고점처리"; Else If HH[n] - oHiZZ[1,1] < oLoZZ[1,1] - LL[n] Then 처리구분 = "저점처리"; Else If 최종꼭지점 == "저점" Then // 벗어난 정도가 동일하면 지그재그 순서대로 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } Else If oLoZZ[1,1] > LL[n] Then 처리구분 = "저점처리"; Else If oHiZZ[1,1] < HH[n] Then 처리구분 = "고점처리"; Else If 최종꼭지점 == "저점" Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } Else If Condition1 and oLoZZ[1,1] < HH[n] Then 처리구분 = "고점처리"; // SwingHigh 조건이 돼도 저점보다 낮으면 가격이 계속 하락중이므로 무시한다. Else If Condition2 and oHiZZ[1,1] > LL[n] Then 처리구분 = "저점처리"; // SwingLow 조건이 돼도 고점보다 높으면 가격이 계속 상승중이므로 무시한다. oTL_NewBit = 0; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { oHiZZ[j,jj] = oHiZZ[j-1,jj]; } } oHiZZ[1,1] = HH[n]; oHiZZ[1,2] = Index - n; oHiZZ[1,3] = sDate[n]; oHiZZ[1,4] = sTime[n]; oTL_NewBit = 1; } Else If oHiZZ[1,1] < HH[n] Then { // 1번 고점보다 높은 고가 출현 oHiZZ[1,1] = HH[n]; oHiZZ[1,2] = Index - n; oHiZZ[1,3] = sDate[n]; oHiZZ[1,4] = sTime[n]; oTL_NewBit = 2; } 최종꼭지점 = "고점"; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" then { For j = 10 DownTo 2 { For jj = 1 To 4 { oLoZZ[j,jj] = oLoZZ[j-1,jj]; } } oLoZZ[1,1] = LL[n]; oLoZZ[1,2] = Index - n; oLoZZ[1,3] = sDate[n]; oLoZZ[1,4] = sTime[n]; oTL_NewBit = 1; } Else If oLoZZ[1,1] > LL[n] then { oLoZZ[1,1] = LL[n]; oLoZZ[1,2] = Index - n; oLoZZ[1,3] = sDate[n]; oLoZZ[1,4] = sTime[n]; oTL_NewBit = 2; } 최종꼭지점 = "저점"; } If 최종꼭지점 == "고점" Then SwingZigZag = 1; Else If 최종꼭지점 == "저점" Then SwingZigZag = -1; Else SwingZigZag = 0; ////////////////////사용자 함수 종료//////////// 지표 로직입니다. 로직활용은 같이 첨부된 사진으로 설명드리겠습니다. //////////////////추세선 로직////////////////// Input:봉개수(5),종가사용여부(0); Var:TL1(0),신규구분(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# Value1 = SwingZigZag(봉개수, 종가사용여부, 고, 저, 신규구분); If Value1 == 1 Then { // 고점 If 신규구분 == 1 Then // 신규 TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); Else If 신규구분 == 2 Then // 연장 TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]); } Else If Value1 == -1 Then { // 저점 If 신규구분 == 1 Then // 신규 TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); Else If 신규구분 == 2 Then // 연장 TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]); } TL_SetSize(TL1,2); ///////////////////추세선로직 종료/////////////////// 사진과 같은 조건에 만족하면, 만족한 캔들 위에 59892처럼 캔들위에 1,2,3으로 횟수를 세고싶습니다. 이평은 위에 총 5개입니다. 감사합니다.