{定动态多换手率指标}

---

{定动态多换手率指标}
DRAWGBK((C>0),COLORRGB(0,130,100),COLORRGB(0,0,30),1);
HSL:V/CAPITAL*100,pointdot;
HSL1:stickline(HSL<1,0,HSL,8,0),colorffffff;
HSL1至3:stickline(3>HSL and HSL>=1,0,HSL,8,0),color00ffff;
stickline(3>HSL and HSL>=1,0,1,8,0),colorffffff;
HSL3至6:stickline(6>HSL and HSL>=3,0,HSL,8,0),color00aaff;
stickline(6>HSL and HSL>=3,1,3,8,0),color00ffff;
stickline(6>HSL and HSL>=3,0,1,8,0),colorffffff;
HSL6至10:stickline(10>HSL and HSL>=6,0,HSL,8,0),color0066ff;
stickline(10>HSL and HSL>=6,3,6,8,0),color00aaff;
stickline(10>HSL and HSL>=6,1,3,8,0),color00ffff;
stickline(10>HSL and HSL>=6,0,1,8,0),colorffffff;
HSL大于10:stickline(HSL>=10,0,HSL,8,0),color0000ff;
stickline(HSL>=10,6,10,8,0),color0066ff;
stickline(HSL>=10,3,6,8,0),color00aaff;
stickline(HSL>=10,1,3,8,0),color00ffff;
stickline(HSL>=10,0,1,8,0),colorffffff;
1;3;6;
p:=SYSPARAM(1);换手:=VOL/CAPITAL*100;
{定点换手有未来}
BZ:=WEEKDAY;ZB:=BZ<REF(BZ,1);Z1:=SUMBARS(ZB,1);ZZ0:=SUMBARS(ZB,2);
BY:=MONTH;YB:=BY-REF(BY,1)<>0;Y1:=SUMBARS(YB,1);Y0:=SUMBARS(YB,2);
BJ:=ROUND(MONTH/3+0.3);JB:=BJ-REF(BJ,1)<>0;J1:=SUMBARS(JB,1);J0:=SUMBARS(JB,2);
BN:=IF(BY<7,1,2);NB:=BN-REF(BN,1)<>0;N1:=SUMBARS(NB,1);N0:=SUMBARS(NB,2);
年:=YEAR;FN:=年-REF(年,1)<>0;FN1:=SUMBARS(FN,1);FN0:=SUMBARS(FN,2);
换手:=VOL/CAPITAL*100;
当日:=换手,STICK;
RSV:=(HSL-LLV(HSL,9))/(HHV(HSL,9)-LLV(HSL,9))*100;
K:SMA(RSV,3,1)/12,LINETHICK2,COLORGREEN;
D:SMA(K,3,1),LINETHICK2,COLORRED;
{J:3*K-2*D,LINETHICK2,COLORMAGENTA;}
p:=SYSPARAM(1);
周换  :=SUM(VOL, Z1)/CAPITAL*100;
月换  :=SUM(VOL, Y1)/CAPITAL*100;
季换  :=SUM(VOL, J1)/CAPITAL*100;
半年换:=SUM(VOL, N1)/CAPITAL*100;
年换  :=SUM(VOL,FN1)/CAPITAL*100;
DRAWTEXTEX(c,1,1,10, '   定点换手:'),COLORWHITE;
DRAWTEXTEX(c,1,1,60,'\n'+'-------------------\n'+
'▼当日换手:'+NUMTOSTR(换手[p],2)+'%\n'+
'▼本周换手:'+NUMTOSTR(周换[p],2)+'%\n'+
'▼本月换手:'+NUMTOSTR(月换[p],2)+'%\n'+
'▼本季换手:'+NUMTOSTR(季换[p],2)+'%\n'+
'▼半年换手:'+NUMTOSTR(半年换[p],2)+'%\n'+
'▼本年换手:'+NUMTOSTR(年换[p],2)+'%\n'+
'-------------------'),COLORyellow;
{动态换手}
周换手  :=SUM(VOL,  5)/CAPITAL*100;
月换手  :=SUM(VOL, 21)/CAPITAL*100;
季换手  :=SUM(VOL, 62)/CAPITAL*100;
半年换手:=SUM(VOL,123)/CAPITAL*100;
年换手  :=SUM(VOL,245)/CAPITAL*100;
DRAWTEXTEX(c,1,270,10, '   动态换手:'),COLORWHITE;
DRAWTEXTEX(c,1,260,60,'\n'+'-----------------\n'+
'当日换手:'+NUMTOSTR(换手[p],2)+'%\n'+
'周 换 手:'+NUMTOSTR(周换手[p],2)+'%\n'+
'月 换 手:'+NUMTOSTR(月换手[p],2)+'%\n'+
'季 换 手:'+NUMTOSTR(季换手[p],2)+'%\n'+
'半年换手:'+NUMTOSTR(半年换手[p],2)+'%\n'+
'年 换 手:'+NUMTOSTR(年换手[p],2)+'%\n'+
'-----------------'),COLORGREEN;
{动态仓位}
机构:=IF(ISLASTBAR,STKINDI('','机构.机构',0,0),EXTDATA(9));
券商:=IF(ISLASTBAR,STKINDI('','券商.券商',0,0),EXTDATA(10));
大户:=IF(ISLASTBAR,STKINDI('','大户.大户',0,0),EXTDATA(11));
中户:=IF(ISLASTBAR,STKINDI('','中户.中户',0,0),EXTDATA(12));
散户:=IF(ISLASTBAR,STKINDI('','散户.散户',0,0),EXTDATA(13));
DRAWTEXTEX(c,1,520,10, '   动态仓位:'),COLORWHITE;
DRAWTEXTex(c,1,510,60,'\n'+'-------------------\n'+
'主    力:'+NUMTOSTR(机构[p]+券商[p]+大户[p],0)+'手\n'+
'中 小 散:'+NUMTOSTR(中户[p]+散户[p],0)+'手\n'+
'买卖总数:'+NUMTOSTR(机构[p]+券商[p]+大户[p]+中户[p]+散户[p],0)+'手\n'+
'资金进出:'+NUMTOSTR((机构[p]+券商[p]+大户[p]+中户[p]+散户[p])*C/100,0)+'万元\n'+
'-------------------'),COLORRED;