大智慧成交量A副图指标

源码

量:VOL,VOLSTICK;
VAR1:=V/((H-L)*2-ABS(C-O));
买方:=IF(C>O,VAR1*(H-L),IF(C<O,VAR1*((H-O)+(C-L)),V/2));
卖方:=IF(C>O,VAR1*((H-C)+(O-L)),IF(C<O,VAR1*(H-L),0-V/2));
买盘:买方/V*100,Colorff80ff;
卖盘:卖方/V*100,color66ff33;
stickline(买盘,0,买方,4,0),COLORMAGENTA;
stickline(卖盘,0,0-卖方,4,0),colorff8918;

DT1:=CYC(13)/MA(C,13);
DT7:=WINNER(C)*LFS*10000;
虎线:EMA(DT7*DT1,5),COLORWHITE,linethick1;
强弱:EMA(DT7*DT1,13),COLORYELLOW,linethick1;
龙线:EMA(DT1*WINNER(C)*(100-LFS),5)*10000,COLORGREEN,linethick1;
xs1:=(CURRENTTIME/10000);
xs2:=INTPART(xs1);
fs1:=INTPART(CURRENTTIME/100);
fs2:=100*FRACPART(fs1/100);
ms1:=100*FRACPART((CURRENTTIME/100));
jysj1:=if(CURRENTTIME>93000 and CURRENTTIME<=113000,((xs2-9)*3600+(fs2-30)*60+ms1),0);
jysj2:=if(CURRENTTIME>113000 and CURRENTTIME<130000,7200,0);
jysj3:=if(CURRENTTIME>113000 and CURRENTTIME<=150000,(7200+(xs2-13)*3600+fs2*60+ms1),0);
jysj:=MAX(jysj1,jysj2,jysj3);
ygcj1:=if(jysj=0,vol,vol*(14400/jysj));
cjl:if(BARSTATUS=2 and DATATYPE=8 and DATE=CURRENTDATE,ygcj1,vol),COLORGREEN;
量异动:量/((ref(量,1)+ref(量,2)+ref(量,3)+ref(量,4)+ref(量,5))/5)>=3;
STICKLINE(量异动,量,O,3,0),COLORYELLOW,LINETHICK2;
partline(龙线,龙线>ref(龙线,1),RGB(255,0,250)),LINETHICK1;
partline(cjl,cjl>ref(cjl,1),RGB(255,0,50)),LINETHICK1;