안녕하세요 예스스탁입니다. Input: length(10); Var : j(0),jj(0),T(0); var : 최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),TL1(0); Array:HH[10,4](0),LL[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime If Index == 0 Then { HH[1,1] = H; LL[1,1] = L; } Condition1 = Highest(H,length) == H and 최종고가 <> H; Condition2 = Lowest (L,length) == L and 최종저가 <> L; 처리구분 = ""; If Condition1 and Condition2 Then // 기간고점과 기간저점 동시 발생 { If 최종꼭지점 == "저점" Then { If LL[1,1] > L Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If HH[1,1] < H Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { T = 1; 최종고가 = H; // 신규고점을 체크하기 위해 저장 If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { HH[j,jj] = HH[j-1,jj]; } } HH[1,1] = H; HH[1,2] = Index; HH[1,3] = sDate; HH[1,4] = sTime; TL1 = TL_New(LL[1,3],LL[1,4],LL[1,1],HH[1,3],HH[1,4],HH[1,1]); TL_SetSize(TL1,1); TL_SetColor(TL1,RED); } Else If HH[1,1] < H Then // 1번 고점보다 높은 고가 출현 { HH[1,1] = H; HH[1,2] = Index; HH[1,3] = sDate; HH[1,4] = sTime; TL_SetEnd(TL1,HH[1,3],HH[1,4],HH[1,1]); // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; } #==========================================# If 처리구분 == "저점처리" Then { T = -1; 최종저가 = L; If 최종꼭지점 == "고점" then { For j = 10 DownTo 2 { For jj = 1 To 4 { LL[j,jj] = LL[j-1,jj]; } } LL[1,1] = L; LL[1,2] = Index; LL[1,3] = sDate; LL[1,4] = sTime; TL1 = TL_New(HH[1,3],HH[1,4],HH[1,1],LL[1,3],LL[1,4],LL[1,1]); TL_SetSize(TL1,1); TL_SetColor(TL1,BLUE); } Else If LL[1,1] > L then { LL[1,1] = L; LL[1,2] = Index; LL[1,3] = sDate; LL[1,4] = sTime; TL_SetEnd(TL1,LL[1,3],LL[1,4],LL[1,1]); } 최종꼭지점 = "저점"; } var : CC(0),BB(0),AA(0),XX(0); if T == -1 then { CC = HH[1,1]; BB = LL[2,1]; AA = HH[2,1]; XX = LL[3,1]; if BB <= AA-(AA-XX)*0.618 and BB >= AA-(AA-XX)*0.786 and CC >= BB+(AA-BB)*0.618 and BB <= BB+(AA-BB)*0.786 and CC < AA and CrossDown(C,AA-(AA-XX)*0.786) Then buy(); } if MarketPosition == 1 then { ExitLong("bl",AtStop,XX[BarsSinceEntry]-PriceScale*1); ExitLong("bp",AtLimit,LL[1,1]+(AA[BarsSinceEntry]-LL[1,1])*0.618); } if T == 1 then { CC = LL[1,1]; BB = HH[2,1]; AA = LL[2,1]; XX = HH[3,1]; if BB >= AA+(XX-AA)*0.618 and BB <= AA+(XX-AA)*0.786 and CC <= BB-(BB-AA)*0.618 and BB >= BB-(BB-AA)*0.786 and CC > AA and CrossUp(C,AA+(XX-AA)*0.786) Then Sell(); } if MarketPosition == 1 then { ExitShort("sl",AtStop,XX[BarsSinceEntry]+PriceScale*1); ExitShort("sp",AtLimit,HH[1,1]-(HH[1,1]-AA[BarsSinceEntry])*0.618); } 즐거운 하루되세요 > 상중하 님이 쓴 글입니다. > 제목 : 안녕하세요? > 안녕하세요? 그림1 참고 하셔서 수식 작성 부탁드립니다. 파동선은 게시판번호 59701 참고하세요. 매수 진입조건; -. 저3 =X , 고2=A , 저2=B , 고1=C , 저1= D 설명하기 편하게 알파벳으로 표현 하겠습니다. 1. B는 X-A의 조정비율 61.8% ~ 78.6% 2. C는 A-B의 조정비율 61.8% ~ 78.6% 3. C< A 고1은 고2보다 작아야 함. 1,2,3번 조건이 맞으면 매수 X-A의 조정비율 78.6% 일때 매수 진입. 손절은 X(저3) -1틱 익절은 A-D의 61.8% 매도 진입조건; -. 고3 =X , 저2=A , 고2=B , 저1=C , 고1= D 설명하기 편하게 알파벳으로 표현 하겠습니다. 1. B는 X-A의 조정비율 61.8% ~ 78.6% 2. C는 A-B의 조정비율 61.8% ~ 78.6% 3. C>A 저1은 저2보다 커야 함. 1,2,3번 조건이 맞으면 매도 X-A의 조정비율 78.6% 일때 매도 진입. 손절은 X(고3) +1틱 익절은 A-D의 61.8% 바쁘시겠지만 수식 작성해주시면 감사하겠습니다.

감사합니다. 올 한해도 고생 많이 하셨습니다. 미리 새해 복 많이 받으시고 내년에도 많은 도움 부탁드립니다. 꾸벅