안녕하세요 예스스탁입니다. 후행적으로 그려지는 선이므로 빨간색, 파란색 추세선이 그려지는 시점이 이미 값이 넘어가 있는 시점일수도 있습니다. 추세선이 그려지고 첫 조건만족봉에 신호가 발생합니다. Input:length(5),목선두께(2); Var:TL1(0),TL2(0),TL3(0), TL_NewBit(0); // 1:NewLine 2:SetEndLine Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# Value1 = HiLoLineZigZag(length,0,고,저,TL_NewBit); If Value1 == 1 Then { // 고점 If TL_NewBit == 1 Then { // 신규 고점 TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); If 저[4,1] > 저[3,1] and 저[3,1] > 저[2,1] and 저[2,1] < 저[1,1] and 고[4,1] > 고[3,1] and abs(고[2,1] - 고[3,1])/고[3,1] <= 목선두께/100 Then { // 역머리어깨형 TL2 = TL_New(고[3,3],고[3,4],고[3,1],sDate,sTime,(고[2,1]-고[3,1])/(고[2,2]-고[3,2])*(Index-고[3,2])+고[3,1]); Condition2 = true; TL_SetColor(TL2,RED); TL_SetSize(TL2,3); } Else { Condition2 = false; } } Else { // 고점 진행 중, 즉 상승중 If 저[4,1] > 저[3,1] and 저[3,1] > 저[2,1] and 저[2,1] < 저[1,1] and 고[4,1] > 고[3,1] and abs(고[2,1] - 고[3,1])/고[3,1] <= 목선두께/100 Then { TL_SetEnd(TL2,sDate,sTime,(고[2,1]-고[3,1])/(고[2,2]-고[3,2])*(Index-고[3,2])+고[3,1]); } } If TL_NewBit == 2 Then { TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]); } } Else If Value1 == -1 Then { // 저점 If TL_NewBit == 1 Then { // 신규 저점 TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); If 고[4,1] < 고[3,1] and 고[3,1] < 고[2,1] and 고[2,1] > 고[1,1] and 저[4,1] < 저[3,1] and abs(저[2,1] - 저[3,1])/저[3,1] <= 목선두께/100 Then { // 머리어깨형 TL3 = TL_New(저[3,3],저[3,4],저[3,1],sDate,sTime,(저[2,1]-저[3,1])/(저[2,2]-저[3,2])*(Index-저[3,2])+저[3,1]); TL_SetColor(TL3,BLUE); TL_SetSize(TL3,3); Condition3 = true; } Else { Condition3 = false; } } Else { // 저점 진행 중, 즉 하락중 If 고[4,1] < 고[3,1] and 고[3,1] < 고[2,1] and 고[2,1] > 고[1,1] and 저[4,1] < 저[3,1] and abs(저[2,1] - 저[3,1])/저[3,1] <= 목선두께/100 Then { TL_SetEnd(TL3,sDate,sTime,(저[2,1]-저[3,1])/(저[2,2]-저[3,2])*(Index-저[3,2])+저[3,1]); } } If TL_NewBit == 2 Then { TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]); } } if Condition2 == true and C > TL_GetValue(TL2,sdate,stime) Then buy(); if Condition3 == true and C < TL_GetValue(TL3,sdate,stime) Then sell(); 즐거운 하루되세요 > 레전드 님이 쓴 글입니다. > 제목 : 문의 > 아는분에게 얻은 수식입니다. 이것을 캔들이 blue선을 깨고 내려가면 매도신호가 나오게 하고,캔들이 RED선을 뚫고 올라가면 매수신호가 나오게 부탁드립니다 Input:length(5),목선두께(2); Var:TL1(0),TL2(0),TL3(0), TL_NewBit(0); // 1:NewLine 2:SetEndLine Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# Value1 = HiLoLineZigZag(length,0,고,저,TL_NewBit); If Value1 == 1 Then { // 고점 If TL_NewBit == 1 Then { // 신규 고점 TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); If 저[4,1] > 저[3,1] and 저[3,1] > 저[2,1] and 저[2,1] < 저[1,1] and 고[4,1] > 고[3,1] and abs(고[2,1] - 고[3,1])/고[3,1] <= 목선두께/100 Then { // 역머리어깨형 TL2 = TL_New(고[3,3],고[3,4],고[3,1],sDate,sTime,(고[2,1]-고[3,1])/(고[2,2]-고[3,2])*(Index-고[3,2])+고[3,1]); TL_SetColor(TL2,RED); TL_SetSize(TL2,3); } } Else { // 고점 진행 중, 즉 상승중 If 저[4,1] > 저[3,1] and 저[3,1] > 저[2,1] and 저[2,1] < 저[1,1] and 고[4,1] > 고[3,1] and abs(고[2,1] - 고[3,1])/고[3,1] <= 목선두께/100 Then { TL_SetEnd(TL2,sDate,sTime,(고[2,1]-고[3,1])/(고[2,2]-고[3,2])*(Index-고[3,2])+고[3,1]); } } If TL_NewBit == 2 Then { TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]); } } Else If Value1 == -1 Then { // 저점 If TL_NewBit == 1 Then { // 신규 저점 TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); If 고[4,1] < 고[3,1] and 고[3,1] < 고[2,1] and 고[2,1] > 고[1,1] and 저[4,1] < 저[3,1] and abs(저[2,1] - 저[3,1])/저[3,1] <= 목선두께/100 Then { // 머리어깨형 TL3 = TL_New(저[3,3],저[3,4],저[3,1],sDate,sTime,(저[2,1]-저[3,1])/(저[2,2]-저[3,2])*(Index-저[3,2])+저[3,1]); TL_SetColor(TL3,BLUE); TL_SetSize(TL3,3); } } Else { // 저점 진행 중, 즉 하락중 If 고[4,1] < 고[3,1] and 고[3,1] < 고[2,1] and 고[2,1] > 고[1,1] and 저[4,1] < 저[3,1] and abs(저[2,1] - 저[3,1])/저[3,1] <= 목선두께/100 Then { TL_SetEnd(TL3,sDate,sTime,(저[2,1]-저[3,1])/(저[2,2]-저[3,2])*(Index-저[3,2])+저[3,1]); } } If TL_NewBit == 2 Then { TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]); } }