안녕하세요 예스스탁입니다. input : Period(120); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),tl9(0), date21(0),date22(0),time21(0),time22(0),txx(0), vTL(0), vTL9(0),txxx(0), date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0); Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0); var : tx99(0),tx99count(0),l1(0),l2(0),l3(0); Plot1(value12); For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } if crossup(c,highest(H,Period)[1]) Then T = 1; if CrossDown(c,Lowest(L,Period)[1]) Then T = -1; If T == -1 Then { If T[1] != -1 Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; } LoVal[0] = L; LoBar[0] = 0; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); } Condition1 = False; Condition99 = False; tx99count = 0; Text_Delete(tx99); } Else { If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; date22 = date[0]; time22 = stime[0]; Text_Delete(tx); Condition1 = False; Condition99 = False; } Else { if Condition99 == False and value12 <= value11-0.5 and C >= value12+PriceScale*2 and value12 <= DayHigh-0.9 Then { l1 = value12; l2 = l1[1]; l3 = l2[1]; Condition99 = true; tx99count = tx99count+1; if tx99count >= 3 Then { Text_Delete(txxx); txxx = Text_New_Self(sdate,sTime,H-PriceScale*4,"●"); Text_SetStyle(txxx,2,2); if max(l1,l2,l3) <= min(l1,l2,l3)+PriceScale*5 Then Text_SetColor(txxx,Gray); Else Text_SetColor(txxx,Red); Text_SetSize(txxx,30); } if tx99count >= 2 Then { Text_Delete(txx); txx = Text_New_Self(sdate,sTime,H-PriceScale*4,"●"); Text_SetStyle(txx,2,2); if abs(l1-l2) < PriceScale*3 Then Text_SetColor(txx,Black); Else Text_SetColor(txx,Magenta); Text_SetSize(txx,20); } } if Condition1 == False and Value12 <= value11-0.5 and c >= value12+PriceScale*2 and value12 <= DayHigh-0.9 Then { Condition1 = true; txx = Text_New_Self(sdate,sTime,H-PriceScale*4,"●"); Text_SetStyle(txx,2,2); Text_SetColor(txx,Magenta); Text_SetSize(txx,20); } } } } If T == 1 Then { If T[1] != 1 Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; } HiVal[0] = H; HiBar[0] = 0; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 5 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); } } If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; date32 = date[0]; time32 = stime[0]; } } 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 추세선 쓰리반등 > input : Period(120); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),tl9(0), date21(0),date22(0),time21(0),time22(0),txx(0), vTL(0), vTL9(0),txxx(0), date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0); Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0); var : tx99(0),tx99count(0),l1(0),l2(0); Plot1(value12); For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } if crossup(c,highest(H,Period)[1]) Then T = 1; if CrossDown(c,Lowest(L,Period)[1]) Then T = -1; If T == -1 Then { If T[1] != -1 Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; } LoVal[0] = L; LoBar[0] = 0; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); } Condition1 = False; tx99count = 0; Text_Delete(tx99); Condition99 = False; } Else { If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; date22 = date[0]; time22 = stime[0]; Text_Delete(tx); Condition1 = False; Condition99 = False; } Else { if Condition1 == False and Value12 <= value11-0.5 and c >= value12+PriceScale*2 and value12 <= DayHigh-0.9 Then { Condition1 = true; txx = Text_New_Self(sdate,sTime,H-PriceScale*4,"●"); Text_SetStyle(txx,2,2); Text_SetColor(txx,Magenta); Text_SetSize(txx,20); } if Condition99 == False and C >= value12+PriceScale*2 and value12 <= value11-0.5 and value12 <= DayHigh-0.9 Then { l1 = value12; l2 = l1[1]; Condition99 = true; tx99count = tx99count+1; if tx99count >= 2 Then { Text_Delete(txx); txx = Text_New_Self(sdate,sTime,H-PriceScale*4,"●"); Text_SetStyle(txx,2,2); if abs(l1-l2) < PriceScale*3 Then Text_SetColor(txx,Black); Else Text_SetColor(txx,Magenta); Text_SetSize(txx,20); } } } } } If T == 1 Then { If T[1] != 1 Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; } HiVal[0] = H; HiBar[0] = 0; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 5 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); } } If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; date32 = date[0]; time32 = stime[0]; } } 추세선 0.5p 아래에서 2틱 이상 반등 나오면 동그라미 생기는 수식인데 여기에 추가로, 세 저점이 5틱 이내에서 쓰리반등이면 동그라미 표시. 쓰리반등 수식을 현 수식보다 맨 위쪽에 먼저 별도로 작성하여, 동그라미를 같은 위치에 약간 크게하면 현재의 동그라미보다 먼저 표시되어 뒤쪽에서 쌍반등과 겹쳐 보이게 표시. 큰 접시 위에 작은 접시 올려놓은 모양. 감사합니다.