|
以下是通达信原创主力持仓和散户持仓的彩条附图（无源码的请下载附件导入）
JJ:=(HIGH+LOW+CLOSE)/3,NODRAW;
QJ0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW),NODRAW;
TD1:=QJ0*(MIN(OPEN,CLOSE)-LOW),NODRAW;
DD1:=QJ0*(JJ-MIN(CLOSE,OPEN)),NODRAW;
DD2:=QJ0*(HIGH-MAX(OPEN,CLOSE)),NODRAW;
TD2:=QJ0*(MAX(CLOSE,OPEN)-JJ),NODRAW;
TD:=TD1-TD2,NODRAW;
DA:=DD1-DD2,NODRAW;
XD1:=1-(TD1+DD1),NODRAW;
XD2:=1-(TD2+DD2),NODRAW;
TZ:=V/SUM(V,60)*100,NODRAW;
DT:=((XD1-XD2)/1000000)/TZ,NODRAW;
散户持仓:SUM(DT,220),COLOR888888,LINETHICK1,NODRAW;
DX:=((TD1+DD1)-(TD2+DD2))/1000000,NODRAW;
主力持仓:SUM(DX,600),COLORWHITE,LINETHICK1,NODRAW;
DRAWRECTREL(400,0,635,320,RGB(0,100,0));
DRAWRECTREL(470,0,550,320,RGB(0,200,50));
DRAWRECTREL(470,0,470+CONST(主力持仓*150/400),320,RGB(150,10,0));
DRAWTEXT_FIX(1,0.42,0.020,0,STRCAT(STRCAT('主力持仓: ',CON2STR(主力持仓,2)),'')),COLORYELLOW;
DRAWRECTREL(400,460,635,750,RGB(0,50,160));
DRAWRECTREL(470,460,550,750,RGB(0,200,50));
DRAWRECTREL(470,460,470+CONST(散户持仓*140/400),750,RGB(150,10,0));
DRAWTEXT_FIX(1,0.42,0.43,0,STRCAT(STRCAT('散户持仓: ',CON2STR(散户持仓,2)),'')),COLORYELLOW;
638488901.jpg
|
