{===========QKL东财分时用========}
{===========QKL东财资金240========}
开盘时长:FROMOPEN-1,NODRAW;
代码:=STR2CON(CODE),NODRAW,COLORYELLOW;
启动:=TDXDLL1(1,代码,0,0);
信号:2,NODRAW;
{1主力，2小单，3中单，4大单，5超大单}
主力:TDXDLL1(信号,0,开盘时长,1)/10000,COLORMAGENTA,LINETHICK3;
超单:TDXDLL1(信号,0,开盘时长,5)/10000,COLORRED,LINETHICK2;
大单:TDXDLL1(信号,0,开盘时长,4)/10000,COLORYELLOW,LINETHICK2;
中单:TDXDLL1(信号,0,开盘时长,3)/10000,COLORCYAN;
散户:TDXDLL1(信号,0,开盘时长,2)/10000,COLORGREEN;
主力当前:=CONST(主力),NODRAW,COLORMAGENTA;
超单当前:=CONST(超单),NODRAW,COLORRED;
大单当前:=CONST(大单),NODRAW,COLORYELLOW;
中单当前:=CONST(中单),NODRAW,COLORCYAN;
散户当前:=CONST(散户),NODRAW,COLORGREEN;
主力值:=IF(主力>0,主力,-主力);
超单值:=IF(超单>0,超单,-超单);
大单值:=IF(大单>0,大单,-大单);
中单值:=IF(中单>0,中单,-中单);
散户值:=IF(散户>0,散户,-散户);
最大:=MAX(主力值,MAX(超单值,MAX(大单值,MAX(中单值,散户值))));
厚:=50;底:=20;长:=80;
红色:=RGB(200,0,0); 绿色:=RGB(0,180,0);
主力色:=RGB(IF(主力当前>0,255,0),IF(主力当前>0,100,128),IF(主力当前>0,30,255));
GG:=VAR2STR(400+长*(主力值/最大),0);{DRAWRECTREL有小数会不准确}
GGG:=STR2CON(GG);
DRAWRECTREL(400,底+厚*2,GGG,底+厚*3,主力色)NOFRAME;
超单色:=IF(超单当前>0,红色,绿色);
HH:=VAR2STR(400+长*(超单值/最大),0);{DRAWRECTREL有小数会不准确}
HHH:=STR2CON(HH);
DRAWRECTREL(400,底+厚*5,HHH,底+厚*6,超单色)NOFRAME;
大单色:=IF(大单当前>0,红色,绿色);
JJ:=VAR2STR(400+长*(大单值/最大),0);{DRAWRECTREL有小数会不准确}
JJJ:=STR2CON(JJ);
DRAWRECTREL(400,底+厚*8,JJJ,底+厚*9,大单色)NOFRAME;
中单色:=IF(中单当前>0,红色,绿色);
KK:=VAR2STR(400+长*(中单值/最大),0);{DRAWRECTREL有小数会不准确}
KKK:=STR2CON(KK);
DRAWRECTREL(400,底+厚*11,KKK,底+厚*12,中单色)NOFRAME;
散户色:=IF(散户当前>0,红色,绿色);
LL:=VAR2STR(400+长*(散户值/最大),0);{DRAWRECTREL有小数会不准确}
LLL:=STR2CON(LL);
DRAWRECTREL(400,底+厚*14,LLL,底+厚*15,散户色)NOFRAME;
X33:=0.51;
Y:=0.1;S:=0.14;
主力字:=VARCAT('主力 ',VAR2STR(主力,0));
DRAWTEXT_FIX(ISLASTBAR,X33,Y+0,0,主力字)COLORMAGENTA;
超单字:=VARCAT('超单 ',VAR2STR(超单,0));
DRAWTEXT_FIX(ISLASTBAR,X33,Y+S*1,0,超单字)COLORRED;
大单字:=VARCAT('大单 ',VAR2STR(大单,0));
DRAWTEXT_FIX(ISLASTBAR,X33,Y+S*2,0,大单字)COLORYELLOW;
中单字:=VARCAT('中单 ',VAR2STR(中单,0));
DRAWTEXT_FIX(ISLASTBAR,X33,Y+S*3,0,中单字)COLORCYAN;
散户字:=VARCAT('散户 ',VAR2STR(散户,0));
DRAWTEXT_FIX(ISLASTBAR,X33,Y+S*4,0,散户字)COLORGREEN;
TT:=IF(HOUR>12,(HOUR-13)*60+MINUTE+120,(HOUR-9)*60+MINUTE-30);
P:=IF(ISLASTBAR,BARSLAST(TT=1),0);
T:=BACKSET(P,P+1);
VV:=IF(T=1,V,0);
