量柱3121刻度副图源码

这是我把两个副图放在一起的。上面的是量柱副图，下面的是量柱3121刻度副图。大家可以看到下面的副图，量柱上已经自动划分成三分，有两条线，从下往上看第一条线是二一位，第二条线是上三一。用第二根量柱和第一根量柱对比就知道缩量多少了。

绿低量:=10;

蓝低量:=50;

灰低量:=100;

H_L:=0.05*CONST(HHV(VOL,240));

{MAV10:MA(V,10),COLORYELLOW;}

VVOL:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL);{模拟量}

STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,VVOL,0,1,-1),COLOR00C0C0;

量:VOL,NODRAW;

STICKLINE(C>=REF(C,1),0,V,2.5,1),COLORRED;

STICKLINE(C<>

换手: VOL*10000/FINANCE(7),NODRAW,COLORGREEN; {DYNAINFO(37)*100}

全换手周期:= SUMBARS(V,CAPITAL),NODRAW,COLORLIGREEN;{求完全换手到现在的周期数}

量比: V/REF(MA(V,5),1),COLORBROWN,NODRAW;

几倍: V/REF(V,1),COLORYELLOW,NODRAW;

倍数:=1.9;

倍量: VOL>=REF(V,1)*倍数 AND (IF(CREF(C,1),1)),COLORYELLOW,NODRAW;

倍缩: REF(V,1)>=VOL*倍数,COLORMAGENTA,NODRAW;

平量: RANGE(V/REF(V,1),0.97,1.03) AND BARSCOUNT(V)>=2,COLORWHITE,NODRAW;

低量10: VOL=LLV(VOL,绿低量) AND BARSCOUNT(V)>=绿低量,COLORGREEN,NODRAW;

低量50: VOL=LLV(VOL,蓝低量) AND BARSCOUNT(V)>=蓝低量,COLORBLUE,NODRAW;

低量100: VOL=LLV(VOL,灰低量) AND BARSCOUNT(V)>=灰低量,COLORGRAY,NODRAW;

V1:=VOL*0.95;{图标位置}

V2:=VOL*0.85;

STICKLINE(倍量, 0,V1,1,0),COLORYELLOW;

STICKLINE(平量,0,V1,1,0),COLORWHITE;

STICKLINE(低量10,0,V2,1,0),COLORLIGREEN;

STICKLINE(低量50,0,V2,1,0),COLORBLUE;

STICKLINE(低量100,0,V2,1,0),COLORGRAY;

STICKLINE(倍缩,0,V*0.45,1,0),COLORMAGENTA;

真阳或假阴:=C>O OR C>REF(C,1);

收阳:= REF(真阳或假阴,3);

倍量1:=REF(倍量,3);

高量:=REF(V,3)>=HHV(V,7);

三日不破:= LLV(C,3)>=REF(L,3);

价升:=COUNT(C>=REF(C,1),3)=3;{收盘价逐升}

量缩:=COUNT(V<>

连阳:= COUNT(真阳或假阴,3)=3;

倍量将军柱:= 倍量1 AND 三日不破 AND 收阳;

高量将军柱:= 高量 AND 三日不破 AND 收阳;

将军柱:= 倍量将军柱 OR 高量将军柱;

黄金柱:= 将军柱 AND 价升 AND 量缩 AND 连阳 ;{标准黄金柱}

STICKLINE(黄金柱,0.3*V,0.7*V,1,0),COLORRED; {红柱}

DRAWICON(黄金柱,V+1.6*H_L,1);

V100:= V<=llv(v,100)*1.2 and="" v="">0 AND BARSCOUNT(V)>=100;

百日地量群:=COUNT(V100,5)>=3;

DRAWTEXT(FILTER(百日地量群,4),V+2*H_L,'百日地量群'),COLORGRAY;

长阴短柱:=C/REF(C,1)<=0.96 and="">

DRAWTEXT(长阴短柱 ,V+1.6*H_L,'！'),COLORLICYAN;

三一:V*0.66,NODRAW;

二一:V*0.5,NODRAW;

STICKLINE(V>REFX(V,1) AND C<>

STICKLINE(V>REFX(V,1) AND C<>

STICKLINE(V>REFX(V,1) AND C>=REF(C,1),三一,三一,2,0),COLORWHITE;

STICKLINE(V>REFX(V,1) AND C>=REF(C,1),二一,二一,2,0),COLORWHITE;