안녕하세요 예스스탁입니다. input : Period(35),pt(0.25); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0),box(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 : txx(0),txxx(0); 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]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); } Condition1 = False; if Condition1 == False and max(LoVal[0],LoVal[1],LoVal[2]) <= min(LoVal[0],LoVal[1],LoVal[2])+pt Then { Condition1 = true; txx = Text_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0]+PriceScale*0,"●"); Text_SetColor(txx,Green); Text_SetSize(txx,20); Text_SetStyle(txx,2,2); box = Box_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0],NextBarSdate,NextBarStime,LoVal[0]); Box_SetColor(box,Green); } Condition2 = true; txxx = Text_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0]+PriceScale*0,"●"+NewLine); Text_SetColor(txxx,Cyan); Text_SetSize(txxx,30); Text_SetStyle(txxx,2,2); if Condition2 == true and L <= LoVal[1]-PriceScale*1 Then { Condition2 = False; Text_Delete(txxx); } } If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; if Condition1 == False and max(LoVal[0],LoVal[1],LoVal[2]) <= min(LoVal[0],LoVal[1],LoVal[2])+pt Then { Condition1 = true; txx = Text_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0]+PriceScale*0,"●"); Text_SetColor(txx,Green); Text_SetSize(txx,20); Text_SetStyle(txx,2,2); box = Box_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0],sDate,sTime,LoVal[0]); Box_SetColor(box,Green); } if Condition1 == true Then Box_SetEnd(box,NextBarSdate,NextBarStime,Loval[0]); } if Condition1 == true and max(LoVal[0],LoVal[1],LoVal[2]) > min(LoVal[0],LoVal[1],LoVal[2])+pt Then { Condition1 = False; Text_Delete(txx); Box_Delete(box); PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } if Condition2 == true and LoVal[0] <= LoVal[1]-PriceScale*1 Then { Condition2 = False; Text_Delete(txxx); PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } } If T == 1 Then { If T[1] != 1 Then { text_Delete(txx); text_Delete(txxx); Box_Delete(box); 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]; 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]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; } } 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 추세선 쓰리바닥 박스 > input : Period(35),pt(0.25); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0), date21(0),date22(0),time21(0),time22(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 : txx(0),txxx(0); 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]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); } Condition1 = False; if max(LoVal[1],LoVal[2]) <= min(LoVal[1],LoVal[2])+pt Then { txx = Text_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0]+PriceScale*0,"●"); Text_SetColor(txx,Green); Text_SetSize(txx,20); Text_SetStyle(txx,2,2); Condition1 = true; } Condition2 = true; txxx = Text_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0]+PriceScale*0,"●"+NewLine); Text_SetColor(txxx,Cyan); Text_SetSize(txxx,30); Text_SetStyle(txxx,2,2); if Condition2 == true and L <= LoVal[1]-PriceScale*1 Then { Condition2 = False; Text_Delete(txxx); } } If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; } if Condition1 == true and LoVal[0] < max(LoVal[1],LoVal[2])-pt Then { Condition1 = False; Text_Delete(txx); PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } if Condition2 == true and LoVal[0] <= LoVal[1]-PriceScale*1 Then { Condition2 = False; Text_Delete(txxx); PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } } If T == 1 Then { If T[1] != 1 Then { text_Delete(txx); text_Delete(txxx); 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]; 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]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; } } 현 수식은 0.25p 내에서 쓰리바닥 가능성을 실시간으로 보기위해, 0.25p 내에서 쌍바닥 후에 쓰리바닥으로 가는 하락 중일 때 동그라미를 표시했다가 양전환되거나 0.25p를 벗어나서 더 하락하면 동그라미를 삭제하는 수식인데, 표현 방식을 현재 방식과 병행해서, 동그라미 생성될 때 그 부분을 추가로 박스로도 표현. 동그라미 삭제될 때 박스도 같이 삭제. 박스는 삭제될 때까지 연장. 오류 수정:직전 저점과 전전 저점의 차이가 0.25p 이내일 때만 하락 전환시 동그라미가 생성되어야 하는데 하락전환시 무조건 생성되는 듯 합니다. 동그라미가 두개 생성됩니다. 하나를 제거해도 되나요? 감사합니다.