안녕하세요 예스스탁입니다. #Data6 : 선물매수호가총건수 #Data7 : 선물매도호가총건수 var : TL1(0,data1),TL2(0,data1),TL3(0,data1),TL4(0,data1); var : diff(0,data1),hh(0,data1),ll(0,data1); var : TX1(0,data1),TX2(0,data1),TX3(0,data1),TX4(0,data1); var : dd(0,Data1),tt(0,Data1),box1(0),box2(0); diff = data6(c)-data7(c); if Index == 1 Then { dd = sDate; tt = sTime; } if bdate != bdate[1] Then { hh = diff; ll = diff; TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); TL1 = TL_New(sdate,stime,H,NextBarSdate,NextBarStime,H); TL2 = TL_New(sdate,stime,L,NextBarSdate,NextBarStime,L); TL3 = TL_New(sdate,stime,H,Sdate,Stime,H); TL4 = TL_New(sdate,stime,L,Sdate,Stime,L); Text_Delete(TX1); Text_Delete(TX2); Text_Delete(TX3); Text_Delete(TX4); TX1 = Text_New(NextBarSdate,NextBarStime,TL_GetValue(TL1,sdate,stime),NumToStr(HH,0)); TX2 = Text_New(NextBarSdate,NextBarStime,TL_GetValue(TL2,sdate,stime),NumToStr(LL,0)); TX3 = Text_New(NextBarSdate,NextBarStime,TL_GetValue(TL3,sdate,stime),NumToStr(HH,2)); TX4 = Text_New(NextBarSdate,NextBarStime,TL_GetValue(TL4,sdate,stime),NumToStr(LL,2)); Text_SetStyle(TX1,0,0); Text_SetStyle(TX2,0,0); Text_SetStyle(TX3,0,0); Text_SetStyle(TX4,0,0); Box_Delete(box1); box1 = Box_New(dd,tt,TL_GetValue(TL3,sdate,stime),NextBarSdate,NextBarStime,TL_GetValue(TL1,sdate,stime)); Box_SetColor(box1,Red); Box_SetFill(box1,true); Box_Delete(box2); box2 = Box_New(dd,tt,TL_GetValue(TL4,sdate,stime),NextBarSdate,NextBarStime,TL_GetValue(TL2,sdate,stime)); Box_SetColor(box2,Blue); Box_SetFill(box2,true); } else { if diff > hh Then { hh = diff; TL_SetBegin(TL3,sdate,stime,TL_GetValue(TL1,sdate,stime)); TL_Setend(TL3,NextBarSdate,NextBarStime,TL_GetValue(TL1,sdate,stime)); TL_SetBegin(TL1,sdate,stime,h); TL_Setend(TL1,NextBarSdate,NextBarStime,h); Text_SetString(TX3,NumToStr(HH[1],0)); Text_SetString(TX1,NumToStr(HH,0)); } if diff < ll Then { ll = diff; TL_SetBegin(TL4,sdate,stime,TL_GetValue(TL2,sdate,stime)); TL_Setend(TL4,NextBarSdate,NextBarStime,TL_GetValue(TL2,sdate,stime)); TL_SetBegin(TL2,sdate,stime,l); TL_Setend(TL2,NextBarSdate,NextBarStime,l); Text_SetString(TX4,NumToStr(LL[1],0)); Text_SetString(TX2,NumToStr(LL,0)); } Box_SetBegin(box1,dd,tt,TL_GetValue(TL3,sdate,stime)); Box_SetEnd(box1,NextBarSdate,NextBarStime,TL_GetValue(TL1,sdate,stime)); Box_SetBegin(box2,dd,tt,TL_GetValue(TL4,sdate,stime)); Box_SetEnd(box2,NextBarSdate,NextBarStime,TL_GetValue(TL2,sdate,stime)); } TL_SetExtRight(TL1,true); TL_SetExtLeft(TL1,true); TL_SetExtRight(TL2,true); TL_SetExtLeft(TL2,true); TL_SetSize(TL1,2); TL_SetSize(TL2,2); TL_SetColor(TL1,RED); TL_SetColor(TL2,BLUE); TL_SetExtRight(TL3,true); TL_SetExtLeft(TL3,true); TL_SetExtRight(TL4,true); TL_SetExtLeft(TL4,true); TL_SetSize(TL3,2); TL_SetSize(TL4,2); TL_SetColor(TL3,MAGENTA); TL_SetColor(TL4,CYAN); Text_SetLocation(TX1,NextBarSdate,NextBarStime,TL_GetValue(TL1,sdate,stime)); Text_SetLocation(TX2,NextBarSdate,NextBarStime,TL_GetValue(TL2,sdate,stime)); Text_SetLocation(TX3,NextBarSdate,NextBarStime,TL_GetValue(TL3,sdate,stime)); Text_SetLocation(TX4,NextBarSdate,NextBarStime,TL_GetValue(TL4,sdate,stime)); plot1(hh,"최고건수차",RED); plot2(ll,"최저건수차",blue); 즐거운 하루되세요