通达信资金博弈成交量副图源码

2016-11-18 21:43:00来源:本站整理浏览:1169

{整理_SHUHONG}

{60天均量线}
DRAWBAND(MA(VOL,60),RGB(80,64,64),0,RGB(0,0,0));

{太极成交量TJCJL}
ZZ:=IF(REF(C,1)>REF(O,1) AND O>REF(C,1)*1.014 AND C<O*1.02,1,3);
V5:=MA(V,5);
V12:=MA(V,12);
V34:=MA(V,34);
C6:=MA(C,6);
STICKLINE(CROSS(C,C6) AND V>V5*1.2 AND V>V12*1.2 AND ZZ>2 AND C>H*0.975,0,VOL*1.05,5,0),COLORC000C0;{吸货洋红}
STICKLINE(CROSS(C6,C) AND V>V5*1.2 AND V>V12*1.2,0,VOL*1.05,5,0),COLOR008080;{出货棕}
STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05,0,VOL*1.05,5,0),COLORFFC000;{天量蓝色}
STICKLINE(VOL<MA(VOL,5)/2 AND V<V12/2,0,VOL*1.05,5,0),COLORBLUE;{地量深蓝}
DRAWTEXT_FIX(ISLASTBAR,0.45,0.10,0,'柱底色: 洋红吸货量,棕色出货量,天蓝色天量,深蓝色地量;'),COLORWHITE;

{沪深_上涨_下跌_具体数据}
上涨家数:=STRCAT('▇沪深上涨家数:',CON2STR(DYNAINFO(60),0));
下跌家数:=STRCAT('▇沪深下跌家数:',CON2STR(DYNAINFO(61),0));
上涨百分比:=DYNAINFO(60)/(DYNAINFO(60)+DYNAINFO(61))*100;
下跌百分比:=DYNAINFO(61)/(DYNAINFO(60)+DYNAINFO(61))*100;
DRAWTEXT_FIX(1,0.45,0,0,上涨家数),COLORRED;
DRAWTEXT_FIX(1,0.54,0,0,STRCAT(STRCAT('(',VAR2STR(上涨百分比,2)),'%)')),COLORRED;
DRAWTEXT_FIX(1,0.60,0,0,下跌家数),COLORGREEN;
DRAWTEXT_FIX(1,0.69,0,0,STRCAT(STRCAT('(',VAR2STR(下跌百分比,2)),'%)')),COLORGREEN;

{盘中虚拟}
盘中虚拟:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),COLORWHITE,NODRAW;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,盘中虚拟,0,-1,-1),COLORGRAY;

{成交量}
VOLUME:VOL,VOLSTICK,COLORYELLOW;

{主动买卖成交量}
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动买盘:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,NODRAW;
主动卖盘:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),COLORGREEN,NODRAW;
STICKLINE(主动买盘>0,0,主动买盘,1.5,0),COLOR0080FF;
STICKLINE(主动卖盘<0,VOL,主动买盘,1.5,0),COLORB46E00;

{均线}
MA5:MA(VOLUME,5)COLORWHITE;
MA10:MA(VOLUME,10)COLORYELLOW;
MA60:MA(VOLUME,60)COLORC08080,NODRAW;
{DRAWTEXT(ISLASTBAR,MA60,' ←60均线')COLORC08080;}
MA120:MA(VOLUME,120)COLORLIGREEN,NODRAW;

{量能提示 BY 冷妞妞}
基准量:=(MA(VOL,5)+MA(VOL,10))/2;
危险量:=基准量*1.5;
破坏量:=基准量*1.15;
弱压量:=基准量*0.8;
超大量:=基准量*1.5;
攻击量:=基准量*1.15;
防守量:=基准量*0.8;
YL:=C>O OR (C=O AND C>=REF(C,1));
DL:=C<O OR (C=O AND C<REF(C,1));
TJ1:=DL AND VOL>=弱压量 AND VOL<破坏量;
TJ2:=DL AND VOL>=破坏量 AND VOL<危险量;
TJ3:=DL AND VOL>=危险量;
TJA:=YL AND VOL>=防守量 AND VOL<攻击量;
TJB:=YL AND VOL>=攻击量 AND VOL<超大量;
TJC:=YL AND VOL>超大量;
DRAWTEXT_FIX(ISLASTBAR AND TJ1,0.998,0.0,1.0,'[ 弱压量 ]'),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR AND TJ2,0.998,0.0,1.0,'[ 破坏量 ]'),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR AND TJ3,0.998,0.0,1.0,'[ 危险量 ]'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR AND TJA,0.998,0.0,1.0,'[ 防守量 ]'),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR AND TJB,0.998,0.0,1.0,'[ 攻击量 ]'),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR AND TJC,0.998,0.0,1.0,'[ 超大量 ]'),COLORRED;

{换手率}
换手率:VOL/CAPITAL*100,COLORFF80FF,NODRAW;
{DRAWTEXT_FIX(ISLASTBAR,0.86,0.01,0,STRCAT('今日换手率: ', CON2STR(DYNAINFO(37)*100,2))),COLORLIGRAY;}
DRAWTEXT_FIX(ISLASTBAR,0.88,0.0,0,STRCAT('5换手: ', CON2STR(SUM(DYNAINFO(37)*100,5),2))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,0.81,0.0,0,STRCAT('10换手: ', CON2STR(SUM(DYNAINFO(37)*100,10),2))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,0.74,0.0,0,STRCAT('20换手: ', CON2STR(SUM(DYNAINFO(37)*100,20),2))),COLORLIGRAY;

{量比}
量比:DYNAINFO(17),COLORFF8000;

{----------------------------- 以下资金博弈 -----------------------------}

{资金博弈今日持仓}
DRAWRECTREL(0,0,350,400,IF(120,RGB(36,36,36),0))NOFRAME;
超B:=L2_AMO(0,2)/10000.0;
大B:=L2_AMO(1,2)/10000.0;
中B:=L2_AMO(2,2)/10000.0;
小B:=L2_AMO(3,2)/10000.0;
超S:=L2_AMO(0,3)/10000.0;
大S:=L2_AMO(1,3)/10000.0;
中S:=L2_AMO(2,3)/10000.0;
小S:=L2_AMO(3,3)/10000.0;
TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);
总流入比:=(超B+大B+中B+小B)/(超B+大B+中B+小B+超S+大S+中S+小S)*100,NODRAW,COLORWHITE;
大单流入:=(超B+大B)/(超B+大B+超S+大S)*100,NODRAW,COLORWHITE;
大单流入限制:=IF((超B+大B+超S+大S)=0,0,大单流入);
成交总量:=(超B+大B+中B+小B+超S+大S+中S+小S),NODRAW,COLORWHITE;
机构参与度:=(超B+超S+大B+大S)/成交总量*100,NODRAW,COLORWHITE;
主买A:=ACTINVOL,COLORRED,NODRAW;
主卖A:=ACTOUTVOL,COLORGREEN,NODRAW;
主买C:=主买A*100/(主买A+主卖A),NODRAW,COLORRED;
{资金流入比}
DRAWRECTREL(100,125,340,75,RGB(51,185,84))NOFRAME;{绿色}
DRAWRECTREL(100,125,220,75,RGB(51,153,204))NOFRAME;{青色}
DRAWRECTREL(100,125,100+240*CONST(总流入比/100),75,RGB(243,83,81))NOFRAME;{红色}
{大单流入比}
DRAWRECTREL(100,200,340,150,RGB(50,185,84))NOFRAME;{绿色}