안녕하세요 예스스탁입니다. Input: 전환틱수(20); Var : j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""); var : TL1(0),TX1(0); Array:고[10,6](0),저[10,6](0); HH = H; LL = L; If Bdate != Bdate[1] Then { 고[1,1] = HH; 고[1,2] = 0; 고[1,3] = sDate; 고[1,4] = sTime; 고[1,5] = 0; 저[1,1] = LL; 저[1,2] = 0; 저[1,3] = sDate; 저[1,4] = sTime; 저[1,5] = 0; } else { hiBar = hiBar + 1; loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1]+PriceScale*전환틱수 < HH and hiBar == 0; Condition2 = 고[1,1]-PriceScale*전환틱수 > 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 5 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; 고[1,5] = abs(고[1,1]-저[1,1]); hiBar = -1; loBar = -1; TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); TL_SetSize(TL1,1); TL_SetColor(TL1,RED); TX1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2)+NewLine+"+"+NumToStr(고[1,5],2)); Text_SetColor(TX1,RED); Text_SetStyle(TX1,2,1); } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; 고[1,5] = abs(고[1,1]-저[1,1]); hiBar = -1; loBar = -1; TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]); Text_SetLocation(TX1,고[1,3],고[1,4],고[1,1]); Text_SetString(TX1,NumToStr(고[1,1],2)+NewLine+"+"+NumToStr(고[1,5],2)); } 최종꼭지점 = "고점"; } If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 5 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; 저[1,5] = abs(고[1,1]-저[1,1]); hiBar = -1; loBar = -1; TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); TL_SetSize(TL1,1); TL_SetColor(TL1,BLUE); TX1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2)+"-"+NewLine+NumToStr(저[1,5],2)); Text_SetColor(TX1,Blue); Text_SetStyle(TX1,2,0); } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; 저[1,5] = abs(고[1,1]-저[1,1]); hiBar = -1; loBar = -1; TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]); Text_SetLocation(TX1,저[1,3],저[1,4],저[1,1]); Text_SetString(TX1,NumToStr(저[1,1],2)+NewLine+"-"+NumToStr(저[1,5],2)); } 최종꼭지점 = "저점"; } if MarketPosition >= 0 and 고[2,3] == sDate and 고[2,5] > 0 and NextBarSdate == sDate Then Sell("s1",AtLimit,고[2,1]+고[2,5],1); if MarketPosition == -1 Then { Sell("s2",AtLimit,EntryPrice+고[2,5][BarsSinceEntry],2); if MaxEntries == 1 Then ExitShort("sx1",AtLimit,고[2,1][BarsSinceEntry]); Else ExitShort("sx2",AtLimit,EntryPrice); } if MarketPosition >= 0 and 저[2,3] == sDate and 저[2,5] > 0 and NextBarSdate == sDate Then Buy("b1",AtLimit,저[2,1]-저[2,5],1); if MarketPosition == 1 Then { Buy("b2",AtLimit,EntryPrice-저[2,5][BarsSinceEntry],2); if MaxEntries == 1 Then Exitlong("bx1",AtLimit,저[2,1][BarsSinceEntry]); Else ExitLong("bx2",AtLimit,EntryPrice); } 즐거운 하루되세요 > 예스요 님이 쓴 글입니다. > 제목 : 문의 드립니다.~~~~ > 수고하십니다 추세선식을 포함하는 시스템식 부탁드립니다 - 상승추세선은 장시작후 저점대비 a틱이상 상승했을시에 빨간색으로 생성 (상승추세선의 고저차이가 a틱이상이어야 함) a틱이상 상승후 b틱이상 하락시에 상승추세선 완성되고 고점형성 추세선으로 생긴 각각의 고점과 저점의 가격과 그차이값을 챠트에 표기 - 하락추세선은 장시작후 고점대비 a틱이상 하락했을시에 파란색으로 생성 (하락추세선의 고저차이가 a틱이상이어야 함) a틱이상 하락후 b틱이상 상승시에 하락추세선 완성되고 저점형성 추세선으로 생긴 각각의 고점과 저점가격과 그차이값을 챠트에 표기 - 이후 상승 또는 하락추세선은 위의 조건에 따라 반복 생성 - 매도진입 추세선으로 인해 만들어진 직전고점을 돌파하여 직전고점에서 부터 직전상승추세선의 고점저점차이값 만큼 상승도달시 1계약 매도 - 매도 물타기 1차진입지점에서 직전상승추세선의 고점저점차이값 만큼 상승도달시 2계약 추가매도 - 매도청산 익절은 1계약 매도시는 하락하여 직전고점에 도달시 익절청산 물타기후 총 3계약 매도시는 첫진입가에 도달시 전부 익절청산 손절은 매수진입발생시 전부 청산과 동시에 1계약 매수스위칭진입 - 매수진입 추세선으로 인해 만들어진 직전저점을 돌파하여 직전저점에서 부터 직전하락추세선의 고점저점차이값 만큼 하락도달시 1계약 매수 - 매수 물타기 1차진입지점에서 직전하락추세선의 고점저점차이값 만큼 하락도달시 2계약 추가매수 - 매수청산 익절은 1계약 매수시는 상승하여 직전저점에 도달시 익절청산 물타기후 총 3계약 매수시는 첫진입가에 도달시 전부 익절청산 손절은 매도진입발생시 전부 청산과 동시에 1계약 매도스위칭진입