VOL指标彩带化【副图,源码,附图】

发一个仅供参考的公式把最常用的VOL指标彩带化，比VOL复杂些。但更直观，更好理解VOL的变化
{VOL彩带}
DRAWGBKlast(c>0,strip(RGB(0,0,250),RGB(60,0,0),0));
VA:=EMA(EMA(EMA(VOL,3),3),3);
PARTLINE(VA ,(VA>REF(VA,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),LINETHICK3,LAYER0;
LLJX:=VA;
B1:EMA(LLJX,2),COLOR00ff11;
B2:EMA(LLJX,3),COLOR00ff22;
B3:EMA(LLJX,4),COLOR00ff33;
B4:EMA(LLJX,5),COLOR00ff44;
B5:EMA(LLJX,6),COLOR00ff55;
B6:EMA(LLJX,7),COLOR00ff66;
B7:EMA(LLJX,8),COLOR00ff77;
B8:EMA(LLJX,9),COLOR00ff88;
B9:EMA(LLJX,10),COLOR00ff99,LINETHICK2;
B10:EMA(LLJX,11),COLOR00ffaa;
B11:EMA(LLJX,12),COLOR00ffbb;
B12:EMA(LLJX,13),COLOR00ffcc;
B13:EMA(LLJX,14),COLOR00ffdd;
B14:EMA(LLJX,15),COLOR00ffee;
B15:EMA(LLJX,16),COLOR00ffff,LINETHICK2;
partline(B1,B1>REF(B1,1),rgb(255,0,20));
partline(B2,B2>REF(B2,1),rgb(245,0,40));
partline(B3,B3>REF(B3,1),rgb(235,0,60));;
partline(B4,B4>REF(B4,1),rgb(225,0,80));
partline(B5,B5>REF(B5,1),rgb(215,0,100));
partline(B6,B6>REF(B6,1),rgb(205,0,120));
partline(B7,B7>REF(B7,1),rgb(195,0,140));
partline(B8,B8>REF(B8,1),rgb(185,0,160));
partline(B9,B9>REF(B9,1),rgb(175,0,180)),LINETHICK2;
partline(B10,B10>REF(B10,1),rgb(165,5,200));
partline(B11,B11>REF(B11,1),rgb(155,10,220));
partline(B12,B12>REF(B12,1),rgb(145,15,240));
partline(B13,B13>REF(B13,1),rgb(135,20,250));
partline(B14,B9>REF(B14,1),rgb(125,25,255));
partline(B15,B15>REF(B15,1),rgb(115,30,255)),LINETHICK3;

A1:=DYNAINFO(23) / DYNAINFO(22);
A2:=DYNAINFO(17);
DRAWTEXTABS(10,10,IFS((A1 >= 1),'能量(外盘比内盘):'+NUMTOSTRN(A1,2)+' 量比(当日): '+NUMTOSTRN(A2,2),'')),linethick2,color0000FF;
DRAWTEXTABS(10,10,IFS((A1 < 1),'能量(外盘比内盘):'+NUMTOSTRN(A1,2)+' 量比(当日): '+NUMTOSTRN(A2,2),'')),linethick2,color00FF00;