안녕하세요 예스스탁입니다. input : Period(120),폭1(0.9),폭2(1.3),폭3(1.7),폭4(0.85); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0); var : TL(0),TL1(0),tl2(0),tl3(0),TX(0),tl4(0),tl5(0),tl9(0),dl(0); var : box(0),box1(0),txx(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](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]; box = box_new(date11,time11,Value11,date12,time12,Value12); Box_SetFill(box,true,35); Condition1 = False; if Condition1 == False and Value12 <= value11-폭1 Then { Condition1 = true; } Condition3 = False; if Condition3 == False and Value12 <= value11-폭2 Then { Condition3 = true; } Condition4 = False; if Condition4 == False and Value12 <= value11-폭3 Then { Condition4 = true; } Text_SetSize(tx,25); Text_SetColor(Tx,Red); Text_SetStyle(tx,1,1); Text_SetBold(tx,1); if abs(value12[1]-value11[1]) < 0.5 Then Text_Delete(tx); tx = text_new(sDate,stime,value12,NumToStr(value12-value11,2)); Text_SetColor(Tx,Black); Text_SetStyle(tx,1,0); Text_SetSize(tx,30); Text_SetBold(tx,1); } 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]; Box_SetEnd(box,date12,time12,Value12); if Condition1 == False and Value12 <= value11-폭1 Then { Condition1 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); } if Condition3 == False and Value12 <= value11-폭2 Then { Condition3 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); } if Condition4 == False and Value12 <= value11-폭3 Then { Condition4 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Red); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Red); TL_SetSize(TL9,1); } Text_SetString(tx,NumToStr(value12-value11,2)+" "); Text_SetLocation(tx,sDate,sTime,value12); } if value12 <= value11-0.9 Then Box_SetColor(box,Lime); Else Box_SetColor(box,Blue); } 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]; box = box_new(date11,time11,Value11,date12,time12,Value12); Box_SetFill(box,true,30); Condition2 = False; if Condition2 == False and Value12 > value11+폭4 Then { Condition2 = true; } Text_SetSize(tx,25); Text_SetColor(Tx,Blue); Text_SetStyle(tx,1,0); Text_SetBold(tx,1); if abs(value12[1]-value11[1]) < 0.5 Then Text_Delete(tx); tx = text_new(sDate,stime,value12,NumToStr(value12-value11,2)); Text_SetColor(Tx,Black); Text_SetStyle(tx,1,1); Text_SetSize(tx,30); Text_SetBold(tx,1); } 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]; Box_SetEnd(box,date12,time12,Value12); if Condition2 == False and Value12 > value11+폭4 Then { Condition2 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Cyan); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Cyan); TL_SetSize(TL9,1); } Text_SetString(tx,NumToStr(value12-value11,2)+" "); Text_SetLocation(tx,sDate,sTime,value12); } if Value12 >= value11+0.9 Then Box_SetColor(box,Magenta); Else Box_SetColor(box,Red); } 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 박스 색상 변경 > input : Period(120),폭1(0.9),폭2(1.3),폭3(1.7),폭4(0.85); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0); var : TL(0),TL1(0),tl2(0),tl3(0),TX(0),tl4(0),tl5(0),tl9(0),dl(0); var : box(0),box1(0),txx(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](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]; box = box_new(date11,time11,Value11,date12,time12,Value12); Box_SetColor(box,Lime); Box_SetFill(box,true,35); Condition1 = False; if Condition1 == False and Value12 <= value11-폭1 Then { Condition1 = true; } Condition3 = False; if Condition3 == False and Value12 <= value11-폭2 Then { Condition3 = true; } Condition4 = False; if Condition4 == False and Value12 <= value11-폭3 Then { Condition4 = true; } Text_SetSize(tx,25); Text_SetColor(Tx,Red); Text_SetStyle(tx,1,1); Text_SetBold(tx,1); if abs(value12[1]-value11[1]) < 0.5 Then Text_Delete(tx); tx = text_new(sDate,stime,value12,NumToStr(value12-value11,2)); Text_SetColor(Tx,Black); Text_SetStyle(tx,1,0); Text_SetSize(tx,30); Text_SetBold(tx,1); } 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]; Box_SetEnd(box,date12,time12,Value12); if Condition1 == False and Value12 <= value11-폭1 Then { Condition1 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); } if Condition3 == False and Value12 <= value11-폭2 Then { Condition3 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); } if Condition4 == False and Value12 <= value11-폭3 Then { Condition4 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Red); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Red); TL_SetSize(TL9,1); } Text_SetString(tx,NumToStr(value12-value11,2)+" "); Text_SetLocation(tx,sDate,sTime,value12); } } 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]; box = box_new(date11,time11,Value11,date12,time12,Value12); Box_SetColor(box,Magenta); Box_SetFill(box,true,30); Condition2 = False; if Condition2 == False and Value12 > value11+폭4 Then { Condition2 = true; } Text_SetSize(tx,25); Text_SetColor(Tx,Blue); Text_SetStyle(tx,1,0); Text_SetBold(tx,1); if abs(value12[1]-value11[1]) < 0.5 Then Text_Delete(tx); tx = text_new(sDate,stime,value12,NumToStr(value12-value11,2)); Text_SetColor(Tx,Black); Text_SetStyle(tx,1,1); Text_SetSize(tx,30); Text_SetBold(tx,1); } 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]; Box_SetEnd(box,date12,time12,Value12); if Condition2 == False and Value12 > value11+폭4 Then { Condition2 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Cyan); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Cyan); TL_SetSize(TL9,1); } Text_SetString(tx,NumToStr(value12-value11,2)+" "); Text_SetLocation(tx,sDate,sTime,value12); } } 상승,하락 박스의 크기가 0.9p 보다 커지면(도달시), 그 박스만 전체 색상을 다른 색으로 변경. 0.9p 보다 작으면 불변. 감사합니다.

> 예스스탁 님이 쓴 글입니다. > 제목 : Re : 박스 색상 변경 > 안녕하세요 예스스탁입니다. input : Period(120),폭1(0.9),폭2(1.3),폭3(1.7),폭4(0.85); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0); var : TL(0),TL1(0),tl2(0),tl3(0),TX(0),tl4(0),tl5(0),tl9(0),dl(0); var : box(0),box1(0),txx(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](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]; box = box_new(date11,time11,Value11,date12,time12,Value12); Box_SetFill(box,true,35); Condition1 = False; if Condition1 == False and Value12 <= value11-폭1 Then { Condition1 = true; } Condition3 = False; if Condition3 == False and Value12 <= value11-폭2 Then { Condition3 = true; } Condition4 = False; if Condition4 == False and Value12 <= value11-폭3 Then { Condition4 = true; } Text_SetSize(tx,25); Text_SetColor(Tx,Red); Text_SetStyle(tx,1,1); Text_SetBold(tx,1); if abs(value12[1]-value11[1]) < 0.5 Then Text_Delete(tx); tx = text_new(sDate,stime,value12,NumToStr(value12-value11,2)); Text_SetColor(Tx,Black); Text_SetStyle(tx,1,0); Text_SetSize(tx,30); Text_SetBold(tx,1); } 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]; Box_SetEnd(box,date12,time12,Value12); if Condition1 == False and Value12 <= value11-폭1 Then { Condition1 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); } if Condition3 == False and Value12 <= value11-폭2 Then { Condition3 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); } if Condition4 == False and Value12 <= value11-폭3 Then { Condition4 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Red); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Red); TL_SetSize(TL9,1); } Text_SetString(tx,NumToStr(value12-value11,2)+" "); Text_SetLocation(tx,sDate,sTime,value12); } if value12 <= value11-0.9 Then Box_SetColor(box,Lime); Else Box_SetColor(box,Blue); } 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]; box = box_new(date11,time11,Value11,date12,time12,Value12); Box_SetFill(box,true,30); Condition2 = False; if Condition2 == False and Value12 > value11+폭4 Then { Condition2 = true; } Text_SetSize(tx,25); Text_SetColor(Tx,Blue); Text_SetStyle(tx,1,0); Text_SetBold(tx,1); if abs(value12[1]-value11[1]) < 0.5 Then Text_Delete(tx); tx = text_new(sDate,stime,value12,NumToStr(value12-value11,2)); Text_SetColor(Tx,Black); Text_SetStyle(tx,1,1); Text_SetSize(tx,30); Text_SetBold(tx,1); } 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]; Box_SetEnd(box,date12,time12,Value12); if Condition2 == False and Value12 > value11+폭4 Then { Condition2 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Cyan); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Cyan); TL_SetSize(TL9,1); } Text_SetString(tx,NumToStr(value12-value11,2)+" "); Text_SetLocation(tx,sDate,sTime,value12); } if Value12 >= value11+0.9 Then Box_SetColor(box,Magenta); Else Box_SetColor(box,Red); } 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 박스 색상 변경 > input : Period(120),폭1(0.9),폭2(1.3),폭3(1.7),폭4(0.85); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0); var : TL(0),TL1(0),tl2(0),tl3(0),TX(0),tl4(0),tl5(0),tl9(0),dl(0); var : box(0),box1(0),txx(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](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]; box = box_new(date11,time11,Value11,date12,time12,Value12); Box_SetColor(box,Lime); Box_SetFill(box,true,35); Condition1 = False; if Condition1 == False and Value12 <= value11-폭1 Then { Condition1 = true; } Condition3 = False; if Condition3 == False and Value12 <= value11-폭2 Then { Condition3 = true; } Condition4 = False; if Condition4 == False and Value12 <= value11-폭3 Then { Condition4 = true; } Text_SetSize(tx,25); Text_SetColor(Tx,Red); Text_SetStyle(tx,1,1); Text_SetBold(tx,1); if abs(value12[1]-value11[1]) < 0.5 Then Text_Delete(tx); tx = text_new(sDate,stime,value12,NumToStr(value12-value11,2)); Text_SetColor(Tx,Black); Text_SetStyle(tx,1,0); Text_SetSize(tx,30); Text_SetBold(tx,1); } 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]; Box_SetEnd(box,date12,time12,Value12); if Condition1 == False and Value12 <= value11-폭1 Then { Condition1 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); } if Condition3 == False and Value12 <= value11-폭2 Then { Condition3 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); } if Condition4 == False and Value12 <= value11-폭3 Then { Condition4 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Red); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Red); TL_SetSize(TL9,1); } Text_SetString(tx,NumToStr(value12-value11,2)+" "); Text_SetLocation(tx,sDate,sTime,value12); } } 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]; box = box_new(date11,time11,Value11,date12,time12,Value12); Box_SetColor(box,Magenta); Box_SetFill(box,true,30); Condition2 = False; if Condition2 == False and Value12 > value11+폭4 Then { Condition2 = true; } Text_SetSize(tx,25); Text_SetColor(Tx,Blue); Text_SetStyle(tx,1,0); Text_SetBold(tx,1); if abs(value12[1]-value11[1]) < 0.5 Then Text_Delete(tx); tx = text_new(sDate,stime,value12,NumToStr(value12-value11,2)); Text_SetColor(Tx,Black); Text_SetStyle(tx,1,1); Text_SetSize(tx,30); Text_SetBold(tx,1); } 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]; Box_SetEnd(box,date12,time12,Value12); if Condition2 == False and Value12 > value11+폭4 Then { Condition2 = true; TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Cyan); TL_SetSize(TL9,1); TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL9,Cyan); TL_SetSize(TL9,1); } Text_SetString(tx,NumToStr(value12-value11,2)+" "); Text_SetLocation(tx,sDate,sTime,value12); } } 상승,하락 박스의 크기가 0.9p 보다 커지면(도달시), 그 박스만 전체 색상을 다른 색으로 변경. 0.9p 보다 작으면 불변. 감사합니다. 재문의 바뀌기 전과 후의 박스 색상 밝기를 따로 따로 설정할 수는 없나요? Box_SetFill(box,true,35);