안녕하세요 예스스탁입니다. 현재 파동선은 일정기간 최고가/최저가가 갱신되면 방향이 변경되게 되며 파동선은 사후적으로 그려지고 있습니다 최고가 갱신되면 직전 2개의 저점을 비교해 최근 저점이 값이 높으면 이후 해당 저점을 하향이탈하면 표시가 되게 작성해 드립니다. Input: Period1(1),Period2(10),Period3(20),length(2),종가사용여부(0),파동선두께(2),파동선두께고저선(1),수치표시(1); Variables: TLen1(0),TRIma1(0),TLen2(0),TRIma2(0),TLen3(0),TRIma3(0),j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0) ,tl2(0),tl3(0),tl4(0),tl5(0),tl6(0),T(0),sumv(0),sumi(0),mav(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime var : tx(0); #==========================================# TLen1 = Ceiling((Period1 + 1) * .5); TRIma1 =Ema(Ema(C, TLen1), TLen1); TLen2 = Ceiling((Period2 + 1) * .5); TRIma2 =Ema(Ema(C, TLen2), TLen2); TLen3 = Ceiling((Period3 + 1) * .5); TRIma3 =Ema(Ema(C, TLen3), TLen3); HH = IFF(종가사용여부==1,C,H); LL = IFF(종가사용여부==1,C,L); If Index == 0 Then { 고[1,1] = HH; 저[1,1] = LL; } Condition1 = Highest(HH,length) == HH and 최종고가 <> HH; Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL; 처리구분 = ""; 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 { T = 1; 최종고가 = HH; // 신규고점을 체크하기 위해 저장 If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; 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, 0, 1); Text_SetColor(Text1, Red); Text_SetSize(Text1, 16); } TL_SetSize(TL1,파동선두께); TL_SetColor(TL1,White); TL_SetSize(TL2,파동선두께고저선); TL_SetColor(TL2,Rgb(129,129,129)); } Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]); TL_SetEnd(TL2,고[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 저[1,1] > 저[2,1] and 저[2,1] > 0 Then { Condition1 = true; var1 = 저[1,1]; } Else Condition1 = False; } #==========================================# If 처리구분 == "저점처리" Then { T = -1; 최종저가 = LL; If 최종꼭지점 == "고점" then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; 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, 1, 0); Text_SetColor(Text1, Blue); Text_SetSize(Text1, 16); } TL_SetSize(TL1,파동선두께); TL_SetColor(TL1,White); TL_SetSize(TL2,파동선두께고저선); TL_SetColor(TL2,Rgb(129,129,129)); } Else If 저[1,1] > LL then { 저[1,1] = LL; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]); TL_SetEnd(TL2,저[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 Condition1 == true and C <= var1 and C[1] > Var1 Then { Condition1 = False; tx = Text_New(sDate,sTime,H,"▼"); Text_SetStyle(tx,2,0); Text_SetColor(tx,Blue); Text_SetSize(tx,20); } 즐거운 하루되세요 > bestkim 님이 쓴 글입니다. > 제목 : 수식부탁드립니다 > 아래수식은 파동수식입니다 Input: Period1(1),Period2(10),Period3(20),length(2),종가사용여부(0),파동선두께(2),파동선두께고저선(1),수치표시(1); Variables: TLen1(0),TRIma1(0),TLen2(0),TRIma2(0),TLen3(0),TRIma3(0),j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0) ,tl2(0),tl3(0),tl4(0),tl5(0),tl6(0),T(0),sumv(0),sumi(0),mav(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# TLen1 = Ceiling((Period1 + 1) * .5); TRIma1 =Ema(Ema(C, TLen1), TLen1); TLen2 = Ceiling((Period2 + 1) * .5); TRIma2 =Ema(Ema(C, TLen2), TLen2); TLen3 = Ceiling((Period3 + 1) * .5); TRIma3 =Ema(Ema(C, TLen3), TLen3); HH = IFF(종가사용여부==1,C,H); LL = IFF(종가사용여부==1,C,L); If Index == 0 Then { 고[1,1] = HH; 저[1,1] = LL; } Condition1 = Highest(HH,length) == HH and 최종고가 <> HH; Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL; 처리구분 = ""; 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 { T = 1; 최종고가 = HH; // 신규고점을 체크하기 위해 저장 If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; 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, 0, 1); Text_SetColor(Text1, Red); Text_SetSize(Text1, 16); } TL_SetSize(TL1,파동선두께); TL_SetColor(TL1,White); TL_SetSize(TL2,파동선두께고저선); TL_SetColor(TL2,Rgb(129,129,129)); } Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]); TL_SetEnd(TL2,고[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 { T = -1; 최종저가 = LL; If 최종꼭지점 == "고점" then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; 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, 1, 0); Text_SetColor(Text1, Blue); Text_SetSize(Text1, 16); } TL_SetSize(TL1,파동선두께); TL_SetColor(TL1,White); TL_SetSize(TL2,파동선두께고저선); TL_SetColor(TL2,Rgb(129,129,129)); } Else If 저[1,1] > LL then { 저[1,1] = LL; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]); TL_SetEnd(TL2,저[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)); } } 최종꼭지점 = "저점"; } 이 수식을 이용해서 상승파동이 생성된 상태에서 지수가 전저점을 crossdown할때 하삼각표시가 발생되는 수식을 부탁드립니다 여기서 상승파동이 생성된상태는 첨부그림에서 처럼 전저점332.95 가 전전저점 332.65보다 상승한상태이며 이상태에서 전저점을 crossdown한다는 것은 지수가 전저점332.95를 crossdown하는것을 말합니다 부탁드리겠습니다 감사합니다