通达信量价关系一目了然副图源码

这是在前人公式的基础上改良的，一直在用，量价关系非常明了，一目了然。
用法：三角符号为价涨量增，表明上升趋势良好；黄圆点表示价涨量减，量价背离，需要注意顶部了。没有标记的区域包括放量下跌和无量阴跌，都不参与。
源码：
成交量宝塔线（副图）
A:=EMA(EMA(AMOUNT/10000000,5),10);
N1:=A;
【最高】:N1,LINETHICK;
【最低】:N1,LINETHICK;
【收盘】:N1,LINETHICK;
【开盘】:REF(【收盘】,1),LINETHICK;
STICKLINE(【收盘】>【开盘】,【最高】,【最低】,0,0),COLOR0000FF;
STICKLINE(【收盘】>【开盘】,【收盘】,【开盘】,2,0),COLOR0000FF;
STICKLINE(【收盘】<【开盘】,【收盘】,【开盘】,2,0),COLOR00FF00;
STICKLINE(【收盘】<【开盘】,【最高】,【最低】,0,0),COLOR00FF00;
均量10:MA(A,10);
B:=【收盘】>【开盘】;
D:=【收盘】<【开盘】;
DRAWTEXT(ISLASTBAR AND B,【最高】,'-量增'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR AND D,【最高】,'-量缩'),COLORYELLOW;
F:=EMA(EMA(C,5),10);
N2:=F;
【收盘1】:=N2;
【开盘1】:=REF(【收盘1】,1);
G:=【收盘1】>【开盘1】;
I:=【收盘1】<【开盘1】;
DRAWTEXT(ISLASTBAR AND G,【最低】*0.90,'-价涨'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR AND I,【最低】*0.90,'-价跌'),COLORYELLOW;
K:=B AND G;
DRAWTEXT(K,【最低】*0.90,'▲'),COLORMAGENTA;
P:=D AND G;
DRAWTEXT(P,【最低】*0.90,'●'),COLORYELLOW;