通达信成交量智能诊断选股指标公式源码

通达信成交量智能诊断选股指标公式源码

源码正文：

万手:vol/10000,LINETHICK0{XG51};
AA:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL){XG51};
预测:AA/10000{XG51};
BB:=VOL/((HIGH-LOW)*2-Abs(CLOSE-OPEN)){XG51};
主动买:=IF(CLOSE>OPEN,BB*(HIGH-LOW),IF(CLOSE<OPEN,BB*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)){XG51};
主买:主动买/10000,COLORWHITE{XG51};
主动卖:=IF(CLOSE>OPEN,0-BB*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-BB*(HIGH-LOW),0-VOL/2)){XG51};
主卖:-主动卖/10000,COLORLIGREEN{XG51};
主力净买:(主动买+主动卖)/10000,COLORmaGENTA{XG51};
持币:IF(SAR(10,2,20)>=H,SAR(10,2,20),DRAWNULL),CIRCLEDOT,COLORYELLOW{XG51};
持股:IF(SAR(10,2,20)<=L,SAR(10,2,20),DRAWNULL),CIRCLEDOT,COLORWHITE{XG51};
五日: MA(V,5)COLORRED{XG51};
十日: MA(V,10)COLORBLUE{XG51};
六十日:MA(V,60),COLORCYAN{XG51};
上涨家数:INDEXADV,COLOR0080FF,NODRAW{XG51};
下跌家数:INDEXDEC,COLORCYAN,NODRAW{XG51};
stICKLINE(CLOSE=REF(CLOSE,1),0,VOL,3.5,0),COLORRED{XG51};
STICKLINE(CLOSE>REF(CLOSE,1),0,VOL,3.5,0),COLORWHITE{XG51};
STICKLINE(CLOSE<REF(CLOSE,1),0,VOL,3.5,0),COLORCYAN{XG51};
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 3.5 , 0 ) , COLOR00FFFF {XG51};
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 3.2 , 0 ) , COLOR007777 {XG51};
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 2.7 , 0 ) , COLOR009999 {XG51};
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 2.1 , 0 ) , COLOR00BBBB {XG51};
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 1.5 , 0 ) , COLOR00ddeE {XG51};
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 0.9 , 0 ) , COLOR66FFFF {XG51};
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 0.2 , 0 ) , COLORFFFFFF {XG51};
STICKLINE(主动买>=0,VOL,-主动卖,3.2,0),COLOR000033{XG51};
STICKLINE(主动买>=0,VOL,-主动卖,2.7,0),COLOR000066{XG51};
STICKLINE(主动买>=0,VOL,-主动卖,2.1,0),COLOR000099{XG51};
STICKLINE(主动买>=0,VOL,-主动卖,1.5,0),COLOR0000CC{XG51};
STICKLINE(主动买>=0,VOL,-主动卖,0.9,0),COLOR0000FF{XG51};
STICKLINE(主动买>=0,VOL,-主动卖,0.2,0),COLORCC66FF{XG51};
STICKLINE(主动卖<=0,0,-主动卖,3.2,0),COLOR990000{XG51};
STICKLINE(主动卖<=0,0,-主动卖,2.7,0),COLORCC0000{XG51};
STICKLINE(主动卖<=0,0,-主动卖,2.1,0),COLORFF4400{XG51};
STICKLINE(主动卖<=0,0,-主动卖,1.5,0),COLORFF8800{XG51};
STICKLINE(主动卖<=0,0,-主动卖,0.9,0),COLORFFCC00{XG51};
STICKLINE(主动卖<=0,0,-主动卖,0.2,0),COLORGREEN{XG51};
N:=IF(TOTALBARSCOUNT>=120,120,TOTALBARSCOUNT){XG51};
HH0:=HHV(H,N){XG51};
LL0:=LLV(L,N){XG51};
MM0:=CONST((HH0+LL0)*0.5){XG51};
S01:=CONST(IF(REF(C,N-15)>MM0,1.00,-0.08)){XG51};
S02:=CONST(IF(REF(C,N-15)>MM0,-1,1)){XG51};
S1:=IF(FINDSTR(EXTERNSTR(0,13),'万元'),S01+(0.08*S02),S01),NODRAW{XG51};
S2:=IF(FINDSTR(EXTERNSTR(0,12),'。'),S1+(0.08*S02),S1),NODRAW{XG51};
S3:=IF(FINDSTR(EXTERNSTR(0,8),'公告'),S2+(0.08*S02),S2),NODRAW{XG51};
S4:=IF(FINDSTR(EXTERNSTR(0,10),'，'),S3+(0.08*S02),S3){XG51};
S5:=IF(FINDSTR(EXTERNSTR(0,15),'-'),S4+(0.08*S02),S4){XG51};
S6:=IF(FINDSTR(EXTERNSTR(0,1),'，'),S5+(0.08*S02),S5){XG51};
S7:=IF(FINDSTR(EXTERNSTR(0,14),'-'),S6+(0.08*S02),S6){XG51};
S8:=IF(FINDSTR(EXTERNSTR(0,11),'-'),S7+(0.08*S02),S7){XG51};
S9:=IF(FINDSTR(EXTERNSTR(0,9),'-'),S8+(0.08*S02),S8){XG51};
K:=IF(S1<=0,0.05,IF(S1>=0,-0.05,0)){XG51};
T2:=IF(FINDSTR(EXTERNSTR(0,12),'。'),STRCAT('智能诊断：',EXTERNSTR(0,12)),''){XG51};
DRAWTEXT_FIX(1,0.00,0.01,0,T2)COLORFFFFFF{X~G-5~1~C~N~{};