王牌柱副图源码

VOLUME:VOL,VOLSTICK;

{ 显色假阳假阴、倍量阳 }
A:=C>O AND O<REF(C,1);{低开高走,收阳}

A1:=REF(O>C,1) AND C<REF((O+C)/2,1) AND A;{低开高走、且收盘不过昨日阴半的假阳真阴}

A2:=C<REF(C,1) AND A;{显性假阳真阴}

A3:=AMO/VOL/100<REF(C,1) AND NOT(A2) AND A;{隐性假阳真阴}

假阳真阴:=A1 OR A2 OR A3;

STICKLINE(假阳真阴,VOL,0,-1,0),COLOR808000;


B:=C<O AND O>REF(C,1);

B1:=C>REF(C,1) AND B;{显性假阴真阳}

B2:=AMOUNT/V/100>REF(C,1) AND NOT(B1) AND B;

假阴真阳:=B1 OR B2;
STICKLINE(假阴真阳,VOL,0,-1,0),COLORMAGENTA;

倍量阳:=V/REF(V,1)>=1.9 AND C>O AND NOT(假阳真阴);
STICKLINE(倍量阳,V,0,-1,0),COLOR0000E1;{画倍量阳}


{ 标注量型数字 }
百低:=V=LLV(V,100);
DRAWTEXT(百低,V*1.3,'1');

BS:V/REF(V,1),NODRAW ;

倍量:=BS>=1.9 OR REF(BS=0,1) AND NOT(百低);
DRAWTEXT(倍量 OR REF(V,1)=O,V*1.1,'B');

缩量三一:=BS<=2/3 AND BS>0.55 AND NOT(百低) AND NOT(REF(BS=0,1)) ;
DRAWTEXT(缩量三一,V*1.1,'3') ;

缩量二一:=BS<=0.55 AND NOT(百低) AND NOT(REF(BS=0,1));
DRAWTEXT(缩量二一,V*1.1,'2');

平量:=BS>0.95 AND BS<1.05 AND NOT(百低);
DRAWTEXT(平量,V*1.1,'P');