{定動態(tài)多換手率指標(biāo)}
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;
{定點(diǎn)換手有未來}
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;
當(dāng)日:=換手,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;
月?lián)Q :=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, ' 定點(diǎn)換手:'),COLORWHITE;
DRAWTEXTEX(c,1,1,60,'\n'+'-------------------\n'+
'▼當(dāng)日換手:'+NUMTOSTR(換手[p],2)+'%\n'+
'▼本周換手:'+NUMTOSTR(周換[p],2)+'%\n'+
'▼本月?lián)Q手:'+NUMTOSTR(月?lián)Q[p],2)+'%\n'+
'▼本季換手:'+NUMTOSTR(季換[p],2)+'%\n'+
'▼半年換手:'+NUMTOSTR(半年換[p],2)+'%\n'+
'▼本年換手:'+NUMTOSTR(年換[p],2)+'%\n'+
'-------------------'),COLORyellow;
{動態(tài)換手}
周換手 :=SUM(VOL, 5)/CAPITAL*100;
月?lián)Q手 :=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, ' 動態(tài)換手:'),COLORWHITE;
DRAWTEXTEX(c,1,260,60,'\n'+'-----------------\n'+
'當(dāng)日換手:'+NUMTOSTR(換手[p],2)+'%\n'+
'周 換 手:'+NUMTOSTR(周換手[p],2)+'%\n'+
'月 換 手:'+NUMTOSTR(月?lián)Q手[p],2)+'%\n'+
'季 換 手:'+NUMTOSTR(季換手[p],2)+'%\n'+
'半年換手:'+NUMTOSTR(半年換手[p],2)+'%\n'+
'年 換 手:'+NUMTOSTR(年換手[p],2)+'%\n'+
'-----------------'),COLORGREEN;
{動態(tài)倉位}
機(jī)構(gòu):=IF(ISLASTBAR,STKINDI('','機(jī)構(gòu).機(jī)構(gòu)',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, ' 動態(tài)倉位:'),COLORWHITE;
DRAWTEXTex(c,1,510,60,'\n'+'-------------------\n'+
'主 力:'+NUMTOSTR(機(jī)構(gòu)[p]+券商[p]+大戶[p],0)+'手\n'+
'中 小 散:'+NUMTOSTR(中戶[p]+散戶[p],0)+'手\n'+
'買賣總數(shù):'+NUMTOSTR(機(jī)構(gòu)[p]+券商[p]+大戶[p]+中戶[p]+散戶[p],0)+'手\n'+
'資金進(jìn)出:'+NUMTOSTR((機(jī)構(gòu)[p]+券商[p]+大戶[p]+中戶[p]+散戶[p])*C/100,0)+'萬元\n'+
'-------------------'),COLORRED;
