NDDX:=10;
JJDDX:=(HIGH+LOW+CLOSE)/3;
QJ0DDX:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1DDX:=IF(CAPITAL=0,QJ0DDX*(JJDDX-MIN(CLOSE,OPEN)),QJ0DDX*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2DDX:=IF(CAPITAL=0,QJ0DDX*(MIN(OPEN,CLOSE)-LOW),QJ0DDX*IF(HIGH=LOW,1,(JJDDX-MIN(CLOSE,OPEN))));
QJ3DDX:=IF(CAPITAL=0,QJ0DDX*(HIGH-MAX(OPEN,CLOSE)),QJ0DDX*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4DDX:=IF(CAPITAL=0,QJ0DDX*(MAX(CLOSE,OPEN)-JJDDX),QJ0DDX*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJDDX)));
大单流向: ((QJ1DDX+QJ2DDX)-(QJ3DDX+QJ4DDX))/IF(CAPITAL=0,1000000,10000),COLORRED;
虚拟量:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL);
STICKLINE(虚拟量>0,VOL,虚拟量,-1,-1),COLOR00C0C0;
JJ:=(HIGH+LOW+CLOSE)/3;
QJ9:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW);
TD1:=QJ9*(MIN(OPEN,CLOSE)-LOW);
XD1:=QJ9*(JJ-MIN(CLOSE,OPEN));
XD2:=QJ9*(HIGH-MAX(OPEN,CLOSE));
TD2:=QJ9*(MAX(CLOSE,OPEN)-JJ);
日净:((TD1+XD1)-(TD2+XD2))/10000,NODRAW;
量＿价:=1;CTKG:=1;
W:=量＿价;
EPSL:=0.0001;
ZZ:=(C+H+L)/3;
TJA:=ZZ>=MAX(C,O) AND CTKG=1;{倒锤头};
TJB:=ZZ<=MIN(C,O) AND CTKG=1;{正锤头};
ZF:=IF(TJA,1,IF(TJB,-1,0));{正负数};
TJ0:=TJA OR TJB;
TJ1:=H=L AND C>REF(C,1);{一字涨停};
TJ2:=H=L AND C<REF(C,1);{一字跌停};
TJ3:=H=L AND C=REF(C,1);{连续一字涨、跌停};
量_价:=IF(W=1,VOL,AMOUNT),STICK,COLOREEFFEE;{平盘量,白色}
EE:=IF(TJ1,EPSL,IF(TJ2,-EPSL,0));
ZL:=2*(H-L)+ABS(C-O)+3*IF(TJ3,EPSL,ABS(EE));
JGL_DX:=(IF(TJ0,2/3*(2*C-H-L)+ZF*ABS(C-O),(C-O))+EE)/ZL;
差:(JGL_DX*量_价)/20000,COLOR13AADD,NODRAW;
DX:=JGL_DX*100,NODRAW;
买:量_价*(1+JGL_DX)/20000,COLOR1133AA,NODRAW;
卖:量_价*(1-JGL_DX)/20000,COLORFFFF00,NODRAW;
量差:买-卖,NODRAW,COLORYELLOW;
比:=买/卖*100-100;
亿:=AMOUNT/100000000,COLORFF00FF,NODRAW;
VART:=AMOUNT/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
流入:IF(CLOSE>OPEN,VART*(HIGH-LOW),IF(CLOSE<OPEN,VART*((HIGH-OPEN)+(CLOSE-LOW)),AMOUNT/2))/100000000,COLORRED,NODRAW;
流出:IF(CLOSE>OPEN,0-VART*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VART*(HIGH-LOW),0-AMOUNT/2))/100000000,COLOR00FF00,NODRAW;
额差:流入+流出,COLORFFFF00,NODRAW;
万手:=VOL/10000,LINETHICK0;
AA:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL);
预测:=AA/10000;
BB:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动买:=IF(CLOSE>OPEN,BB*(HIGH-LOW),IF(CLOSE<OPEN,BB*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
主买:主动买/10000,COLORRED;
主动卖:=IF(CLOSE>OPEN,0-BB*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-BB*(HIGH-LOW),0-VOL/2));
主卖:-主动卖/10000,COLORGREEN;
差额:(主动买+主动卖)/10000,COLORRED;
换:=SUM(VOL,1)/CAPITAL*100,COLOR666666,NODRAW;
伍:SUM(VOL,5)/CAPITAL*100,COLORGREEN,NODRAW;
十:SUM(VOL,10)/CAPITAL*100,COLORYELLOW,NODRAW;
二:SUM(VOL,20)/CAPITAL*100,COLORRED,NODRAW;
VOLUME:VOL,VOLSTICK;
STICKLINE(量差<=0,0,V,3,0),COLOR009900;
STICKLINE(量差<=0,0,V,2.2,0),COLOR00BB00;
STICKLINE(量差<=0,0,V,1.5,0),COLOR00DD00;
STICKLINE(量差<=0,0,V,0.5,0),COLOR00FF00;
{红}
STICKLINE(量差>=0,0,V,3,0),COLOR000099;
STICKLINE(量差>=0,0,V,2.2,0),COLOR0000CC;
STICKLINE(量差>=0,0,V,1.5,0),COLOR0000FF;
STICKLINE(量差>=0,0,V,0.5,0),COLORCC66FF;
STICKLINE(换>=5,0,V,0.3,0),COLORYELLOW;
⑤:MA(V,5);
M10:MA(V,10);
DRAWTEXT(CROSS(⑤,M10) AND 量差>0,V+1.20,'★'),COLORGREEN;
STICKLINE(BARSCOUNT(C)>=60 AND V=LLV(V,60),V,V*0.6,1,0),COLORYELLOW;
STICKLINE(BARSCOUNT(C)>=135 AND V=LLV(V,135),0,V*0.5,1,0),COLOR0000FF;
VAR2:=HIGH-LOW;
VAR3:=ABS(OPEN-CLOSE);
VAR4:=HIGH-(IF(CLOSE>OPEN,CLOSE,OPEN));
VAR5:=(IF(CLOSE>OPEN,OPEN,CLOSE))-LOW;
VAR6:=VAR3/VAR2*VOL;
VAR7:=VAR4/VAR2*VOL;
VAR8:=VAR5/VAR2*VOL;
VAR9:=IF(VOL/CAPITAL>0.001,1,EXP(ABS(LOG(VOL/CAPITAL*100))));
VARA:=(CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100;
VARB:=MA(CLOSE,5)>MA(CLOSE,10) AND MA(CLOSE,10)>MA(CLOSE,30) AND MA(CLOSE,30)>MA(CLOSE,60);
VARC:=MA(CLOSE,5)<MA(CLOSE,10) AND MA(CLOSE,10)<MA(CLOSE,30);
DRAWTEXT(VAR9>2 AND VOL<MA(VOL,5)/2,VOL,'地量'),COLORRED;
{萃富网-股票公式网站 www.cuiv.com}
逢高出货:DRAWTEXT(VAR7>VAR6 AND VARA>2 AND VAR7>VAR8 AND CLOSE>MA(CLOSE,5) AND CLOSE>MA(CLOSE,30) AND HIGH>MA(CLOSE,60) AND VOL>MA(VOL,5) AND VAR7>=MA(VOL,5),VOL,'逢高出货'),COLORRED;
逢低跟进:DRAWTEXT(VAR8>VAR6 AND VAR8>VAR7 AND VARA<-2 AND CLOSE<MA(CLOSE,30) AND VAR8<MA(VOL,5)/2 AND MA(VOL,5)<MA(VOL,10),VOL,'逢低跟进'),COLORGREEN;
强势参与:DRAWTEXT(VAR6>MA(VOL,5)*2 AND VAR6>=VAR7 AND VAR6>=VAR8 AND CLOSE>OPEN OR VOL>MA(VOL,5)*3 AND VARB,VOL,'强势参与'),COLORCC99CC;
空头释放:DRAWTEXT(VAR6>=VAR7 AND VAR6>=VAR8 AND CLOSE<OPEN AND VAR6/VOL>0.7 AND VARC AND VAR6>MA(VOL,5),VOL,'空头释放'),COLORFF00FF;