通达信龙虎榜资金未加密选股指标公式源码

源码正文：

A:=SIGnaLS_USER(300, 0), NODRAW;
B:=SIGNALS_USER(299, 0), NODRAW;
D:=(A+B)/2,NODRAW{XG51};
E:=A-D,NODRAW;{XG51};
F:=AMO/10000,NODRAW{XG51};
J:=A/F*100,NODRAW{XG51};
换手:=vol*10000/FINANCE(7),NODRAW,COLORCYAN;
次数:=COUNT(A>0,30),NODRAW{XG51};
月收益:(HHV(H,30)-LLV(L,30))/LLV(L,30)*100,NODRAW{XG51};
年收益:(HHV(H,250)-LLV(L,250))/LLV(L,250)*100,NODRAW{XG51};
月离高:BArslAst(HHV(H,30)>C),NODRAW{XG51};
月离底:BARSLAST(LLV(L,30)<C),NODRAW{XG51};
RC1:=REF(C,1){XG51};
ZT:=C/REF(C,1)>1.099 AND H>L{XG51};
CS:=IF(C>=1,10000,100000){XG51};
C涨停10:=1.10*RC1-49/CS{XG51};
C涨停5 :=1.05*RC1-49/CS{XG51};
C跌停10:=0.90*RC1+51/CS{XG51};
C跌停5 :=0.95*RC1+51/CS{XG51};
ST:=NAMELIKE('S') OR NAMELIKE('*S'){XG51};
涨停:= IF(ST, C>=C涨停5, C>=C涨停10){XG51};
跌停:= IF(ST, C<=C跌停5, C<=C跌停10){XG51};
盘中涨停:=IF(ST, H>=C涨停5, H>=C涨停10){XG51};
盘中跌停:=IF(ST, L<=C跌停5, L<=C跌停10){XG51};
次数Z:=COUNT(C/REF(C,1)>=1.097 OR 涨停,30),NODRAW{XG51};
次数N:=COUNT(C/REF(C,1)>=1.097 OR 涨停,250),NODRAW{XG51};
STICKLINE(H/REF(C,1)>=1.097 AND H>C , 1,10, 0.1, -1),COLORRED{XG51};
STICKLINE(C/REF(C,1)>=1.097 , 1,10, 0.1, 0), COLORWHITE;
STICKLINE(B>0 , 1,10, 0.1, 0), COLORWHITE;
STICKLINE(B<0 , 1,10, 0.1, 0), COLORCYAN;
DRAWTEXT(A>=10000,10*0.6,VARCAT(VARCAT('上榜总:',VAR2STR(A,0)),'万')),COLORBLUE{XG51};
DRAWTEXT(A<10000,10*0.6,VARCAT(VARCAT('上榜总:',VAR2STR(A,0)),'万')),COLORmaGENTA{XG51};
DRAWTEXT(D>0,10*0.45,VARCAT(VARCAT('总买入:',VAR2STR(D,0)),'万')),COLORLIMAGENTA{XG51};
DRAWTEXT(D<0,10*0.45,VARCAT(VARCAT('总买入:',VAR2STR(D,0)),'万')),COLORCYAN{XG51};
DRAWTEXT(E>0,10*0.3,VARCAT(VARCAT('总卖出:',VAR2STR(E,0)),'万')),COLORLIMAGENTA{XG51};
DRAWTEXT(E<0,10*0.3,VARCAT(VARCAT('总卖出:',VAR2STR(E,0)),'万')),COLORCYAN{XG51};
DRAWTEXT(B>0,1.5,VARCAT(VARCAT('净流入:',VAR2STR(B,0)),'万')),COLORLIMAGENTA{XG51};
DRAWTEXT(B>=1000,1.5,VARCAT(VARCAT('净流入:',VAR2STR(B,0)),'万')),COLORBLUE{XG51};
DRAWTEXT(B<0,1.5,VARCAT(VARCAT('净流入:',VAR2STR(B,0)),'万')),COLORCYAN{XG51};
DRAWTEXT(B<=-1000,1.5,VARCAT(VARCAT('净流入:',VAR2STR(B,0)),'万')),COLORYELLOW{XG51};
DRAWTEXT(J>0,9,VARCAT(VARCAT('占比:',VAR2STR(J,0)),'%')),COLORLIMAGENTA{XG51};
DRAWTEXT(换手<=20 AND A>0,7.5,VARCAT(VARCAT('换手:',VAR2STR(换手,0)),'%')),COLORBLUE{XG51};
DRAWTEXT(换手>20 AND 换手<50 AND A>0,7.5,VARCAT(VARCAT('换手:',VAR2STR(换手,0)),'%')),COLORLIMAGENTA{XG51};
DRAWTEXT(换手>=50 AND A>0,7.5,VARCAT(VARCAT('换手:',VAR2STR(换手,0)),'%')),COLORWHITE{XG51};
DRAWTEXT(H/REF(C,1)>=1.097 AND H>C ,6,'炸板操作'),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(1,0.915,0,0,'月上榜:'),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.96,0,0,CONST(次数)),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.98,0,0,'次'),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.915,0.2,0,'月涨停:'),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.96,0.2,0,CONST(次数Z)),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.98,0.2,0,'次'),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.915,0.4,0,'年涨停:'),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.96,0.4,0,CONST(次数N)),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.98,0.4,0,'次'),COLORBLUE{XG51};
DRAWTEXT(换手<=20 AND C/REF(C,1)>=1.097 OR 盘中涨停,7.5,VARCAT(VARCAT('换手:',VAR2STR(换手,0)),'%')),COLORBLUE{XG51};
DRAWTEXT(换手>20 AND C/REF(C,1)>=1.097 OR 盘中涨停,7.5,VARCAT(VARCAT('换手:',VAR2STR(换手,0)),'%')),COLORLIMAGENTA{XG51};
DRAWTEXT(换手>=50 AND C/REF(C,1)>=1.097 OR 盘中涨停,7.5,VARCAT(VARCAT('换手:',VAR2STR(换手,0)),'%')),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.915,0.6,0,'月收益:±'),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.96,0.6,0,CONST(月收益)),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.98,0.6,0,'%'),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.915,0.8,0,'年收益:±'),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.96,0.8,0,CONST(年收益)),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.98,0.8,0,'%'),COLORBLUE{X~G+5=1~C~N~{};

源码正文：

T:=1080{XG51};
T1:=5{XG51};

DRAWKLINE(H,O,L,C){XG51};
涨停:=C/REF(C,1)>=1.097 AND C=H{XG51};
半年板数:SUM(涨停,130),NODRAW{XG51};
DRAWKLINE(H,O,L,C){XG51};
HH:=REF(HHV(H,T),T1){XG51};
LL:=REF(LLV(L,T),T1){XG51};
H1:=HH-(HH-LL)*0.191{XG51};
H2:=HH-(HH-LL)*0.382{XG51};
H3:=HH-(HH-LL)*0.5{XG51};
H4:=HH-(HH-LL)*0.618{XG51};
H5:=HH-(HH-LL)*0.764{XG51};
H6:=HH-(HH-LL)*0.809{XG51};
H7:=HH-(HH-LL)*0.236{XG51};
顶1:=HH+(HH-LL)*0.191{XG51};
顶2:=HH+(HH-LL)*0.382{XG51};
顶3:=HH+(HH-LL)*0.618{XG51};
底1:=IF((HH-LL)<LL,LL-(HH-LL)*0.191,LL-LL*0.191){XG51};
底2:=IF((HH-LL)<LL,LL-(HH-LL)*0.382,LL-LL*0.382){XG51};
底3:=IF((HH-LL)<LL,LL-(HH-LL)*0.618,LL-LL*0.618){XG51};
高:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(HH,DATE),DRAWNULL){XG51};
一:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H1,DATE),DRAWNULL){XG51};
二:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H2,DATE),DRAWNULL){XG51};
三:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H3,DATE),DRAWNULL){XG51};
四:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H4,DATE),DRAWNULL){XG51};
五:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H5,DATE),DRAWNULL){XG51};
六:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H6,DATE),DRAWNULL){XG51};
七:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H7,DATE),DRAWNULL){XG51};
低:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(LL,DATE),DRAWNULL){XG51};
NOTEXT1:高,COLOR007799{XG51};
AA:REFDATE(一,DATE),DOTLINE,COLOR555555{XG51};
BB:REFDATE(二,DATE),DOTLINE,COLOR005858{XG51};
CC:REFDATE(三,DATE),DOTLINE,COLORBLUE{XG51};
DD:REFDATE(四,DATE),DOTLINE,COLOR005858{XG51};
EE:REFDATE(五,DATE),DOTLINE,COLOR555555{XG51};
FF:REFDATE(六,DATE),DOTLINE,COLOR555555{XG51};
GG:REFDATE(七,DATE),DOTLINE,COLOR555555{XG51};
NOTEXT8:低,COLOR668800{XG51};
TT:=INTPART(T*0.5)+T1{XG51};
TT1:=(CURRBARSCOUNT=TT){XG51};
TT2:=(CURRBARSCOUNT=TT-32){XG51};
TT3:=(CURRBARSCOUNT=TT-40){XG51};
DRAWTEXT(TT1 AND 高,高-(高-低)*0.025,stRCAT('【 高点 】:　',CON2STR(HH,2))),COLOR007799{XG51};
DRAWTEXT(TT1 AND 一,一+(高-低)*0.020,STRCAT('191 (809):　',CON2STR(H1,2))),COLOR888888{XG51};
DRAWTEXT(TT1 AND 二,二+(高-低)*0.020,STRCAT('382 (618):　',CON2STR(H2,2))),COLOR008888{XG51};
DRAWTEXT(TT1 AND 三,三+(高-低)*0.020,STRCAT('【 中轴 】:　',CON2STR(H3,2))),COLORBLUE{XG51};
DRAWTEXT(TT1 AND 四,四+(高-低)*0.020,STRCAT('618 (382):　',CON2STR(H4,2))),COLOR008888{XG51};
DRAWTEXT(TT1 AND 五,五+(高-低)*0.020,STRCAT('764 (236):　',CON2STR(H5,2))),COLORWHITE{XG51};
DRAWTEXT(TT1 AND 六,六+(高-低)*0.020,STRCAT('809 (191):　',CON2STR(H6,2))),COLOR888888{XG51};
DRAWTEXT(TT1 AND 七,七+(高-低)*0.020,STRCAT('236 (764):　',CON2STR(H7,2))),COLORWHITE{XG51};
DRAWTEXT(TT1 AND 低,低+(高-低)*0.020,STRCAT('【 低点 】:　',CON2STR(LL,2))),COLOR668800{XG51};
DRAWTEXT(TT3 AND 高,高+(高-低)*0.040,''),COLOR007799;{XG51};
{X_G_5+1_C_N_{};