本人用极品VOL成交量源码（能改成通达信的更好）

把杨钦老师的指标稍改一下，在此感谢杨钦老师 ！！！希望有老师把他改成通达信的   谢谢 §83§

极品VOL成交量

VOL,VOLSTICK;
成交:=ref(AMOUNT,3)/10000/10000;
前成交:=ref(AMOUNT,2)/10000/10000;
昨成交:=ref(AMOUNT,1)/10000/10000;   
今成交:=AMOUNT/10000/10000;
昨收:ref(c,1),linethick0;
DRAWTEXTABS(18,00 ,'今日：'+numtostrn(今成交,2)),COLORyellow;
DRAWTEXTABS(90 ,00 ,'昨日：'+numtostrn(昨成交,2)),COLOR5454FF;
DRAWTEXTABS(160 ,00 ,'前日：'+numtostrn(前成交,2)),COLORFFFF66;
DRAWTEXTABS(240 ,00 ,'3 日：'+numtostrn(成交,2)),colorFF00FF;
{www.gpxiazai.com}
换手:VOL/CAPITAL*100;
预量:IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,MAX(VOL,DYNAINFO(17)*REF(MA(VOL,5),1)),0),COLOR391AEC;
STICKLINE(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VOL,MAX(VOL,DYNAINFO(17)*REF(MA(VOL,5),1)),7,1),ColorC0C0C0;
实量:VOL,VOLSTICK,COLORFFFF00;
均价:AMOUNT/VOL/100,COLOR6699CC;
量能饱和度:IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100),COLOR391AEC,LINETHICK0;
STICKLINE(C>=O,vol,O,7,0),COLOR0000bb;
STICKLINE(C>=O,vol,O,6,0),COLOR0000cc ;
STICKLINE(C>=O,vol,O,5,0),COLOR0000dd;
STICKLINE(C>=O,vol,O,4,0),COLOR0000ee ;
STICKLINE(C>=O,vol,O,3,0),COLOR0000ff;
STICKLINE(C>=O,vol,O,2,0),COLOR0000FF;
STICKLINE(C>=O,vol,O,1,0),COLOR0000FF;
STICKLINE(C<=O,vol,O,7,0),colorbbbb00;
STICKLINE(C<=O,vol,O,6,0),colorcccc00;
STICKLINE(C<=O,vol,O,5,0),colordddd00;
STICKLINE(C<=O,vol,O,4,0),coloreeee00;
STICKLINE(C<=O,vol,O,3,0),colorffff00;
STICKLINE(C<=O,vol,O,2,0),colorffff00;
STICKLINE(C<=O,vol,O,1,0),COLORFFFF00;