通达信金量柱,成交量类,源码 副图

{金量柱
参数1: 均线, 最小: 0, 最大: 2, 缺省: 1
参数2: 画虚拟量, 最小: 0, 最大: 1, 缺省: 1
参数3: 平量误差, 最小: 1, 最大: 10, 缺省: 5
参数4: 换手周期画线, 最小: 0, 最大: 1, 缺省: 0
}
VAR1:=DATE<=117010199;
VAR2:=CURRBARSCOUNT;
VAR3:=CURRBARSCOUNT-1;
VAR4:=1-平量误差/100;
VAR5:=1+平量误差/100;
VAR6:=PERIOD=5;
VAR7:=CLOSE/REF(CLOSE,1)>=1.099 AND CLOSE=HIGH;
VAR8:=CLOSE/REF(CLOSE,1)<=0.901 AND LOW=CLOSE;
VAR9:=VOL/REF(VOL,1)>=1.9;
VAR10:=VOL=HHV(VOL,60);
VAR11:=VOL=LLV(VOL,60);
VAR12:=VOL=HHV(VOL,20);
VAR13:=VOL=LLV(VOL,20);
VAR14:=BETWEEN(VOL/REF(VOL,1),VAR4,VAR5) OR REFX(BETWEEN(VOL/REF(VOL,1),VAR4,VAR5),1);
VAR15:=IF(VAR1,VOL/10000,DRAWNULL);
VAR16:=MA(VOL,5);
VAR17:=MA(VOL,30);
VAR18:=MA(VOL,120);
VAR19:=VOL VAR20:=MAX(OPEN,CLOSE)/MIN(OPEN,CLOSE)>=1.03;
VAR21:=CLOSE<=REF(CLOSE,1)*0.95 AND VAR19 AND VAR20;
VAR22:=CLOSE>=REF(CLOSE,1)*1.05 AND VAR19 AND VAR20;
VAR23:=CLOSE<=REF(CLOSE,1)*0.95 AND VAR19 AND VAR20 AND NOT(VAR8);
长阴次涨:REFX(COUNT(REF(VAR23,1) AND CLOSE>REF(CLOSE,1),250)/COUNT(VAR23,250)*100,VAR3),NODRAW,COLORYELLOW;
VAR24:=(CLOSE-LLV(LOW,250))/LLV(LOW,250)*100;

VAR25:=SMA(VAR24,3,1);
VAR26:=SMA(VAR25,3,1);
年KDJ:REFX(VAR26,VAR3),NODRAW,COLORWHITE;
VAR27:=CLOSE>1000;
VAR28:=REF(CLOSE,1)/REF(CLOSE,2)>=1.099 AND REF(CLOSE,1)=REF(HIGH,1) AND REF(LOW,1)!=REF(HIGH,1);
VAR29:=VAR28 AND CLOSE>REF(CLOSE,1);
VAR30:=REFX(COUNT(VAR28,250),VAR3);
年涨停:VAR30,NODRAW,COLORMAGENTA;
次涨:REFX(COUNT(VAR29,250),VAR3),NODRAW,COLORLIMAGENTA;
概率:IF(VAR27,DRAWNULL,次涨/VAR30*100),NODRAW,COLORYELLOW;
VAR31:=VAR15*2/3;
VAR32:=VAR15/2;
VAR33:=VAR15 VAR34:=VAR15 VAR35:=均线=1 OR 均线=2;
VAR36:=均线=2;
五:IF(VAR36,MA(VAR15,5),DRAWNULL),NODRAW,COLORWHITE;
三十:IF(VAR36,MA(VAR15,30),DRAWNULL),NODRAW,COLORMAGENTA;
均120:IF(VAR35,MA(VAR15,120),DRAWNULL),NODRAW,COLORLIBLUE;
万手:VAR15,NODRAW,COLORWHITE;
亿:AMOUNT/100000000,NODRAW,COLORYELLOW;
倍:VOL/REF(VOL,1),NODRAW,COLORWHITE;
VAR37:=SSRP;
今换:REFX(VAR37,VAR3),NODRAW,COLORGREEN;
十:REFX(SUM(VAR37,10),VAR3),NODRAW,COLORWHITE;
五十:REFX(SUM(VAR37,50),VAR3),NODRAW,COLORCYAN;
低:REFX(LOW,VAR3),NODRAW,COLORGREEN;
高:REFX(HIGH,VAR3),NODRAW,COLORMAGENTA;
开:REFX(OPEN,VAR3),NODRAW,COLORWHITE;
收:REFX(CLOSE,VAR3),NODRAW,COLORYELLOW;
幅:REFX((CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,VAR3),NODRAW,COLORRED;
上量:REFX(VAR15>=均120,VAR3),NODRAW,COLORWHITE;
上线:REFX(CLOSE>MA(CLOSE,20),VAR3),NODRAW,COLORMAGENTA;
VAR38:=VAR15>=均120;
VAR39:=VAR15<均120;
VAR40:=COUNT(VAR39,3)=3;
VAR41:=COUNT(VAR38,3)=3;
VAR42:=VAR40 OR REFX(VAR40,1) OR REFX(VAR40,2);
VAR43:=BARSLAST(VAR41) VAR44:=BARSNEXT(VAR40)-2;
VAR45:=BARSNEXT(VAR41)-2;
VAR46:=VAR41 OR REFX(VAR41,1) OR REFX(VAR41,2) OR IF(VAR43,VAR44=DRAWNULL OR NOT(VAR42) OR VAR45 VAR47:=CLOSE>REF(CLOSE,1);
VAR48:=CLOSE<=REF(CLOSE,1);
VAR49:=(-1);
VAR50:=0;
VAR51:=1;
VAR52:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,1)))));
VAR53:=MOD(FROMOPEN,VAR52);
VAR54:=IF(VAR53<0.5,VAR52,VAR53);
VAR55:=IF(CURRBARSCOUNT=1 AND 画虚拟量,VAR15*VAR52/VAR54,DRAWNULL);
STICKLINE(画虚拟量 AND CURRBARSCOUNT=1 AND (SETCODE=0 OR SETCODE=1),VAR55,0,VAR49,(-1)),COLORLIGRAY;
VAR56:=VAR15*6/7;
STICKLINE(VAR47,0,VAR15,VAR49,VAR51),COLORRED;
STICKLINE(VAR47 AND VAR9,VAR32,VAR15,VAR49,VAR50),COLOR0000CC;
STICKLINE(VAR47 AND VAR12,VAR56,VAR15,VAR49,VAR50),COLORRED;
STICKLINE(VAR47 AND VAR13,0,VAR15,VAR49,VAR50),COLORRED;
STICKLINE(VAR47 AND VAR10,VAR56,VAR15,VAR49,VAR50),COLORMAGENTA;
STICKLINE(VAR47 AND VAR11,0,VAR15,VAR49,VAR50),COLORMAGENTA;
STICKLINE(VAR48,0,VAR15,VAR49,VAR50),COLORLIGREEN;
STICKLINE(VAR48 AND VAR9,0,VAR15,VAR49,VAR51),COLORLIGREEN;
STICKLINE(VAR48 AND VAR9,VAR32,VAR15,VAR49,VAR50),COLORLIGREEN;
STICKLINE(VAR48 AND VAR12,VAR56,VAR15,VAR49,VAR50),COLORCYAN;
STICKLINE(VAR48 AND VAR13,0,VAR15,VAR49,VAR50),COLORCYAN;
STICKLINE(VAR48 AND VAR10,VAR56,VAR15,VAR49,VAR50),COLORGREEN;
STICKLINE(VAR48 AND VAR11,0,VAR15,VAR49,VAR50),COLORGREEN;
STICKLINE(VAR21,0,VAR32,0.1,0),COLORBLUE;
STICKLINE(VAR22,0,VAR32,0.1,0),COLORRED;
VAR57:=ABS((WINNER(REF(CLOSE,1))-WINNER(CLOSE))*100)>=18 AND VOL/CAPITAL*100<=3;
STICKLINE(VAR57 AND CLOSE>REF(CLOSE,1),VAR32,VAR15,0.1,0),COLORRED;
STICKLINE(VAR57 AND CLOSE VAR58:=3;
VAR59:=VAR58-1;
VAR60:=REF(CLOSE,VAR59)<=REF(CLOSE,VAR58) AND REF(VOL,VAR59)REF(VOL,VAR58) AND REF(CLOSE,VAR58)>REF(CLOSE,VAR58+1)) AND COUNT(VOL>REF(VOL,1) AND CLOSE<=REF(CLOSE,1),VAR59)=VAR59;
DRAWTEXT(VAR60,VAR15,VAR2STR(VAR58,0)),COLORYELLOW,LINETHICK9;
VAR61:=4;
VAR62:=VAR61-1;
VAR63:=REF(CLOSE,VAR62)<=REF(CLOSE,VAR61) AND REF(VOL,VAR62)REF(VOL,VAR61) AND REF(CLOSE,VAR61)>REF(CLOSE,VAR61+1)) AND COUNT(VOL>REF(VOL,1) AND CLOSE<=REF(CLOSE,1),VAR62)=VAR62;
DRAWTEXT(VAR63,VAR15,VAR2STR(VAR61,0)),COLORYELLOW,LINETHICK9;
VAR64:=3;
VAR65:=VAR64-1;
VAR66:=REF(CLOSE,VAR65)>REF(CLOSE,VAR64) AND REF(VOL,VAR65)REF(CLOSE,VAR64) AND REF(VOL,VAR65)>REF(VOL,VAR64) AND REF(CLOSE,VAR64)<=REF(CLOSE,VAR64+1)) AND COUNT(VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1),VAR65)=VAR65;
DRAWTEXT(VAR66,VAR15,VAR2STR(VAR64,0)),COLORYELLOW,LINETHICK9;
VAR67:=REF(REF(CLOSE,VAR65)>REF(CLOSE,VAR64) AND REF(VOL,VAR65)REF(CLOSE,VAR64) AND REF(VOL,VAR65)>REF(VOL,VAR64) AND REF(CLOSE,VAR64)<=REF(CLOSE,VAR64+1)) AND COUNT(VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1),VAR65)=VAR65,1);
DRAWTEXT(VAR67 AND VOLREF(CLOSE,1),VAR15,VAR2STR(VAR64+1,0)),COLORGREEN,LINETHICK9;
VAR68:=4;
VAR69:=VAR68-1;
VAR70:=REF(CLOSE,VAR69)>REF(CLOSE,VAR68) AND REF(VOL,VAR69)REF(CLOSE,VAR68) AND REF(VOL,VAR69)>REF(VOL,VAR68) AND REF(CLOSE,VAR68)<=REF(CLOSE,VAR68+1)) AND COUNT(VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1),VAR69)=VAR69;
DRAWTEXT(VAR70,VAR15,VAR2STR(VAR68,0)),COLORYELLOW,LINETHICK9;
VAR71:=5;
VAR72:=VAR71-1;
VAR73:=REF(CLOSE,VAR72)>REF(CLOSE,VAR71) AND REF(VOL,VAR72)REF(CLOSE,VAR71) AND REF(VOL,VAR72)>REF(VOL,VAR71) AND REF(CLOSE,VAR71)<=REF(CLOSE,VAR71+1)) AND COUNT(VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1),VAR72)=VAR72;
DRAWTEXT(VAR73,VAR15,VAR2STR(VAR71,0)),COLORYELLOW,LINETHICK9;
VAR74:=6;
VAR75:=VAR74-1;
VAR76:=REF(CLOSE,VAR75)>REF(CLOSE,VAR74) AND REF(VOL,VAR75)REF(CLOSE,VAR74) AND REF(VOL,VAR75)>REF(VOL,VAR74) AND REF(CLOSE,VAR74)<=REF(CLOSE,VAR74+1)) AND COUNT(VOL>REF(VOL,1) A