通达信资金诊断未加密选股指标公式源码

通达信资金诊断未加密选股指标公式源码

源码正文：

ZLCM:=ema(WINNER(CLOSE)*70,3){XG51};
SHCM:=Ema((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3){XG51};
ZSHTL:=SHCM/(ZLCM+SHCM)*100{XG51};
ZZLKP:=ZLCM/(ZLCM+SHCM)*100{XG51};
ZCMZL:=MA(ZLCM+SHCM,13){XG51};
ZZNTS:=BArslAst(ZSHTL<90 AND REF(ZSHTL,1)>90){XG51};
ZSHJJ:=EMA(ZSHTL,89){XG51};
ZZLJJ:=EMA(ZZLKP,89){XG51};
ZJLRQD:=INTPART(ZZLKP-ZZLJJ){XG51};
SH8:=EMA(ZSHTL,8){XG51};
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0){XG51};
STICKLINE(REF(ZSHTL,1)>90 AND ZSHTL<90,ZSHTL,0,4,0),COLOR9966FF{XG51};
STICKLINE(C>0,ZSHTL,ZZLKP,0,0),COLOREEEEEE{XG51};
STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,1,0),COLORAAAAAA{XG51};
STICKLINE(C>0,ZZLKP,0,3,0),COLORYELLOW{XG51};
STICKLINE(ZZLKP>75,ZZLKP,0,3,0),COLORFFFFFF{XG51};

STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,3,0),COLORWHITE{XG51};
STICKLINE(ZSHTL>=90,ZZLKP,0,3,0),COLORBLUE{XG51};
散户套牢系数:INTPART(ZSHTL),NODRAW{XG51};
主力控盘系数:INTPART(ZZLKP),COLORGREEN,NODRAW{XG51};
资金流入强度:ZJLRQD,NODRAW{XG51};

RSV:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100{XG51};
K1:=SMA(RSV,10,1){XG51};
D1:=SMA(K1,5,1){XG51};
KK:=INTPART(K1){XG51};
DD:=INTPART(D1){XG51};
TFXXS:=KK+DD{XG51};
TGLD:=MOD(TFXXS,10){XG51};
TGLXS:=(TFXXS-REF(TFXXS,1))*10{XG51};
TYCFX:=TFXXS+TGLXS{XG51};
乖离系数:TGLXS,LINETHICK0,COLORCYAN{XG51};

STICKLINE(TGLXS>0,100,100+TGLXS,3,0),COLOR000088{XG51};
STICKLINE(TGLXS>0,100,100+TGLXS,2.5,0),COLOR000099{XG51};
STICKLINE(TGLXS>0,100,100+TGLXS,2,0),COLOR0000AA{XG51};
STICKLINE(TGLXS>0,100,100+TGLXS,1.5,0),COLOR0000BB{XG51};
STICKLINE(TGLXS>0,100,100+TGLXS,1.0,0),COLOR0000DD{XG51};
STICKLINE(TGLXS>0,100,100+TGLXS,0.5,0),COLOR0000FF{XG51};
STICKLINE(TGLXS<0,100,100+TGLXS,3,0),COLOR008800{XG51};
STICKLINE(TGLXS<0,100,100+TGLXS,2.5,0),COLOR00AA00{XG51};
STICKLINE(TGLXS<0,100,100+TGLXS,2,0),COLOR00BB00{XG51};
STICKLINE(TGLXS<0,100,100+TGLXS,1.5,0),COLOR00DD00{XG51};
STICKLINE(TGLXS<0,100,100+TGLXS,1,0),COLOR00FF00{XG51};
STICKLINE(TGLXS=0 AND REF(TGLXS,1)>=0,100,100+TGLXS,8,0),COLORWHITE{XG51};
STICKLINE(TGLXS=0 AND REF(TGLXS,1)<0,100,100+TGLXS,8,0),COLORCYAN{XG51};
风险系数:TFXXS,LINETHICK2,COLORBLUE{XG51};
预测风险:TYCFX,LINETHICK1,COLORGREEN{XG51};
市场筹码总量:ZCMZL,COLORCYAN,LINETHICK1{XG51};
上市:FINANCE(42)/10000,NODRAW,COLORBLUE{XG51};
STICKLINE(TGLXS>0 AND 100+TGLXS<TYCFX AND 100+REF(TGLXS,1)>=REF(TYCFX,1),0,(100+Abs(TGLXS)),0,0),COLORBLUE{XG51};
STICKLINE(TGLXS<0 AND 100+TGLXS>=TYCFX AND 100+REF(TGLXS,1)<REF(TYCFX,1),0,(100+ABS(TGLXS)),0,0),COLORBLUE{XG51};
T1:=CONST( ZCMZL>REF(ZCMZL,1) AND DKB=1){XG51};
T2:=CONST( ZCMZL>REF(ZCMZL,1) AND DKB=0){XG51};
T3:=CONST( ZCMZL=REF(ZCMZL,1)){XG51};
T4:=CONST( ZCMZL<REF(ZCMZL,1) AND DKB=1){XG51};
T5:=CONST( ZCMZL<REF(ZCMZL,1) AND DKB=0){XG51};
T6:=CONST(TFXXS<=50 ){XG51};
T7:=CONST(TFXXS>=160 ){XG51};
T8:=CONST(TFXXS>50 AND TFXXS<160 AND TFXXS>=REF(TFXXS,1) AND TFXXS<=100 ){XG51};
T9:=CONST( TFXXS>50 AND TFXXS<160 AND TFXXS>=REF(TFXXS,1) AND TFXXS>100){XG51};
T10:=CONST(TFXXS>50 AND TFXXS<160 AND TFXXS<REF(TFXXS,1) AND TFXXS>100 ){XG51};
T11:=CONST(TFXXS>50 AND TFXXS<160 AND TFXXS<REF(TFXXS,1) AND TFXXS<=100 ){XG51};
T12:=CONST( ZSHTL>90 ){XG51};
T13:=CONST( ZZLKP>75 ){XG51};
T14:=CONST(crOSS(ZCMZL,ZZLJJ) AND ZZLKP>ZZLJJ AND ZZLKP>10 AND ZZLJJ>REF(ZZLJJ,1) AND ZCMZL>REF(ZCMZL,1) ){XG51};
T15:=CONST(CROSS(ZCMZL,ZZLKP) AND ZZLKP>ZZLJJ AND ZZLKP<ZSHTL AND ZZLKP>10 AND ZZLJJ>REF(ZZLJJ,1) AND ZCMZL>REF(ZCMZL,1) ){XG51};
T16:=CONST( CROSS(ZCMZL,ZSHTL) AND ZSHTL>ZZLKP AND ZCMZL>REF(ZCMZL,1)){XG51};
T17:=CONST( CROSS(ZCMZL,100) AND ZCMZL>REF(ZCMZL,1)){XG51};
T18:=CONST(REF(ZSHTL,1)>90 AND ZSHTL<90 ){XG51};
TS1:=IF(T1=1,0+0.03,0){XG51};
TS2:=IF(T2=1,TS1+0.03,TS1){XG51};
TS3:=IF(T3=1,TS2+0.03,TS2){XG51};
TS4:=IF(T4=1,TS3+0.03,TS3){XG51};
TS5:=IF(T5=1,TS4+0.03,TS4){XG51};
TS6:=IF(T6=1,0+0.73,0){XG51};
TS7:=IF(T7=1,TS6+0.03,TS6){XG51};
TS8:=IF(T8=1,TS7+0.03,TS7){XG51};
TS9:=IF(T9=1,TS8+0.03,TS8){XG51};
TS10:=IF(T10=1,TS9+0.03,TS9){XG51};
TS11:=IF(T11=1,TS10+0.03,TS10){XG51};
TS12:=IF(T12,0+0.03,0){XG51};
TS13:=IF(T13=1,TS12+0.03,TS12){XG51};
TS14:=IF(T14=1,TS13+0.03,TS13){XG51};
TS15:=IF(T15=1,TS14+0.03,TS14){XG51};
TS16:=IF(T16=1,TS15+0.03,TS15){XG51};
TS17:=IF(T17=1,TS16+0.03,TS16){XG51};
TS18:=IF(T8=1,TS17+0.03,TS17){XG51};
DRAWTEXT_FIX(T1,0.66,TS1,0,'★主力动向监控：主力增仓'),COLORWHITE{XG51};
DRAWTEXT_FIX(T2,0.66,TS2,0,'★主力动向监控：主力减仓'),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(T3,0.66,TS3,0,'★主力动向监控：多空平衡'),COLORBROWN{XG51};
DRAWTEXT_FIX(T4,0.66,TS4,0,'★主力动向监控：主力回补'),COLORFF9933{XG51};
DRAWTEXT_FIX(T5,0.66,TS5,0,'★主力动向监控：主力出逃'),COLORCYAN{XG51};
DRAWTEXT_FIX(T6,0.86,TS6,0,'★操作风险提示：买入风险'),COLORBLUE{XG51};
DRAWTEXT_FIX(T7,0.86,TS7,0,'★操作风险提示：卖出风险'),COLORGREEN{XG51};
DRAWTEXT_FIX(T8,0.86,TS8,0,'★操作风险提示：追涨博弈'),COLORWHITE{XG51};
DRAWTEXT_FIX(T9,0.86,TS9,0,'★操作风险提示：稳健持股'),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(T10,0.86,TS10,0,'★操作风险提示：盘跌减仓'),COLORRED{XG51};
DRAWTEXT_FIX(T11,0.86,TS11,0,'★操作风险提示：杀跌空仓'),COLORCYAN{XG51};
DRAWTEXT_FIX(T12,0.36,TS12,0,'☆特别信号提示：筑底散兵坑 '),COLOR66FFCC{XG51};
DRAWTEXT_FIX(T13,0.36,TS13,0,'☆特别信号提示：铸顶风险区'),COLORGREEN{XG51};
DRAWTEXT_FIX(T14,0.36,TS14,0,'☆特别信号提示：穿越主力 '),COLORWHITE{XG51};
DRAWTEXT_FIX(T15,0.36,TS15,0,'☆特别信号提示：穿越主力 '),COLORBLUE{XG51};
DRAWTEXT_FIX(T16,0.36,TS16,0,'☆特别信号提示：穿越散户 '),COLORCYAN{XG51};
DRAWTEXT_FIX(T17,0.36,TS17,0,'☆特别信号提示：全盘穿越 '),COLOR3399FF{XG51};
DRAWTEXT_FIX(T18,0.36,TS18,0,'☆特别信号提示：神秘黑洞 '),COLOR9966FF{XG51};
{X~G_5!1~C~N~{};

通达信五星主图未加密选股指标公式源码

源码正文：

日线锁定:=(PERIOD==5) AND (C>0) AND V>0{XG51};
引力:=(ma(C,30)+MA(C,72))/2{XG51};
下轨:=引力*0.73{XG51};
下轨75:=引力*0.75{XG51};
下轨71:=引力*0.71{XG51};
下轨68:=引力*0.68{XG51};
过滤周期:=1{XG51};
VAR1:=ema(EMA(CLOSE,9),9){XG51};
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000{XG51};
资金:=EMA(EMA(CLOSE,8),8){XG51};
资金抬轿:=(资金-REF(资金,1))/REF(资金,1)*1000{XG51};
有庄控盘:=资金抬轿>0{XG51};
无庄控盘:=资金抬轿<=0{XG51};
买线:=EMA(C,3){XG51};
卖线:=EMA(SLOPE(C,22)*20+C,54){XG51};
BU1:=crOSS(买线,卖线){XG51};
SEL1:=CROSS(卖线,买线){XG51};
BU2:=IFF(BU1 AND 有庄控盘,1,IFF(COUNT(BU1 AND 无庄控盘,BArslAst(SEL1)+1)==1 AND CROSS(资金抬轿,0),1,0)){XG51};
BU:=BU2 AND COUNT(BU2,BARSLAST(SEL1)+1)==1{XG51};
SEL:=SEL1 AND COUNT(SEL1,BARSLAST(BU)+1)==1{XG51};
BUNEW:=BU{XG51};
止损条件:=CLOSE/REF(OPEN,BARSLAST(BU))<(1-7/100) AND COUNT(BU,BARSLAST(BU)+1)==1 AND COUNT(SEL,BARSLAST(BU)+1)==0{XG51};
SELNEW:=IFF(止损条件 AND COUNT(止损条件,BARSLAST(BU)+1)==1,1,IFF(SEL AND COUNT(止损条件,BARSLAST(BU)+1)==0,1,0)){XG51};
重新买入:=COUNT(止损条件,BARSLAST(BUNEW)+1)>=1 AND CROSS(C,0.965*REF(O,BARSLAST(BUNEW))){XG51};
不在同一天1:=((重新买入 AND SELNEW)==0); BUNEW2:=((BUNEW AND COUNT(SELNEW,过滤周期)==0) OR 重新买入) AND 不在同一天1{XG51};
二次止损:=(CLOSE/REF(OPEN,BARSLAST(重新买入))<(1-7/100) AND COUNT(重新买入,BARSLAST(重新买入)+1)==1 AND COUNT(SEL,BARSLAST(重
新买入)+1)==0){XG51};
重新卖出:=(SEL AND COUNT(重新买入,BARSLAST(BUNEW2)+1)==1) OR (二次止损 AND SUM(二次止损,0)==1){XG51};
不在同一天2:=((重新卖出 AND BUNEW2)==0){XG51};
SELNEW2:=((SELNEW AND COUNT(SELNEW,BARSLAST(BUNEW2)+1)==1) OR 重新卖出) AND 不在同一天2{XG51};
BUNEW3:=BUNEW2 AND COUNT(BUNEW2,BARSLAST(SELNEW2)+1)==1{XG51};
SELNEW3:=SELNEW2 AND COUNT(SELNEW2,BARSLAST(BUNEW3)+1)==1{XG51};
D:=BARSLAST(BUNEW3)+1>=1 AND COUNT(SELNEW3,BARSLAST(BUNEW3)+1)==0{XG51};
K:=BARSLAST(SELNEW3)+1>=1 AND COUNT(BUNEW3,BARSLAST(SELNEW3)+1)==0{XG51};
修正部分定位:=IFF(COUNT(SELNEW3,BARSCOUNT(C))==0 AND COUNT(BUNEW3,BARSCOUNT(C))==0,1,0){XG51};
修正部分累计:=SUM(修正部分定位,1000)+1{XG51};
精准修正累计:=IFF(修正部分累计==REF(修正部分累计,1) AND REF(修正部分累计,2)<修正部分累计,修正部分累计,0){XG51};
上市修正B:=修正部分定位 AND CROSS(控盘,0){XG51};
上市修正S:=修正部分定位 AND CROSS(0,控盘) AND COUNT(上市修正B,BARSLAST(C>0))>=1{XG51};
上市D:=COUNT(上市修正B,BARSLAST(上市修正B)+1)==1 AND COUNT(上市修正S,BARSLAST(上市修正B)+1)==0 AND COUNT (SELNEW3,BARSCOUNT
(C))==0{XG51};
上市K:=COUNT(上市修正S,BARSLAST(上市修正S)+1)==1 AND COUNT(上市修正B,BARSLAST(上市修正S)+1)==0 AND COUNT
(BUNEW3,BARSCOUNT(C))==0{XG51};
SSXZBZS:=COUNT(上市修正B,BARSCOUNT(C)){XG51};
SSXZSZS:=COUNT(上市修正S,BARSCOUNT(C)){XG51};
QB:=IFF(修正部分定位,上市修正B,BUNEW3){XG51};
QS:=IFF(修正部分定位,上市修正S AND (SSXZBZS==SSXZSZS AND SSXZBZS>=0 AND COUNT(SELNEW3,BARSCOUNT(C))==1 AND COUNT
(BUNEW3,BARSCOUNT(C))==0)==0, SELNEW3 AND (SSXZBZS==SSXZSZS AND SSXZBZS>=0 AND COUNT(SELNEW3,BARSCOUNT(C))==1 AND COUNT
(BUNEW3,BARSCOUNT(C))==0)==0){XG51};
K补:=(COUNT(上市修正B,BARSLAST(C>0))==0 AND COUNT(QB,BARSLAST(C>0))==0)==0{XG51};
定位B68:=QB AND COUNT(L<下轨68,10)>=1{XG51};
定位B71:=QB AND COUNT(L<下轨71,10)>=1{XG51};
定位B75:=QB AND COUNT(L<下轨75,10)>=1{XG51};
定位68B:=EXIST(定位B68,BARSLAST(BUNEW)+1) AND 重新买入 AND QB{XG51};
定位71B:=EXIST(定位B71,BARSLAST(BUNEW)+1) AND 重新买入 AND QB{XG51};
定位75B:=EXIST(定位B75,BARSLAST(BUNEW)+1) AND 重新买入 AND QB{XG51};
概率1:=IFF(定位B68,5,IFF(定位B71,4,IFF(定位B75,3,0))){XG51};
概率2:=IFF(定位68B,5,IFF(定位71B,4,IFF(定位75B,3,0))){XG51};
概率:=IFF(概率1>0,概率1,概率2){XG51};
STICKLINE((D AND 日线锁定) OR (上市D AND 日线锁定),H,L,0.00,0),COLOR0000FF{XG51};
STICKLINE((D AND 日线锁定) OR (上市D AND 日线锁定),C,O,3.00,0),COLOR0000FF{XG51};
STICKLINE((K AND K补 AND 日线锁定) OR (上市K AND 日线锁定),H,L,0.00,0),COLORFFFF00{XG51};
STICKLINE((K AND K补 AND 日线锁定) OR (上市K AND 日线锁定),C,O,3.00,0),COLORFFFF00{XG51};
STICKLINE(C==O AND (D OR 上市D) AND 日线锁定,C,C,3,0),COLOR0000FF{XG51};
STICKLINE(C==O AND (K AND K补) AND 日线锁定,C,C,3,0),COLORFFFF00{XG51};
绘制多头:=(D AND 日线锁定) OR (上市D AND 日线锁定){XG51};
绘制空头:=(K AND K补 AND 日线锁定) OR (上市K AND 日线锁定){XG51};
代修复部分:=绘制多头==0 AND 绘制空头==0{XG51};
B修:=BARSLAST(QB){XG51};
S修:=BARSLAST(QS){XG51};
补充绘制:=IFF(B修<S修 AND 代修复部分,1,IFF(B修>S修 AND 代修复部分,2,0)){XG51};
STICKLINE(日线锁定 AND 补充绘制==1,H,L,0.00,0),COLOR0000FF{XG51};
STICKLINE(日线锁定 AND 补充绘制==1,C,O,3.00,0),COLOR0000FF{XG51};
STICKLINE(日线锁定 AND 补充绘制==2,H,L,0.00,0),COLORFFFF00{XG51};
STICKLINE(日线锁定 AND 补充绘制==2,C,O,3,0),COLORFFFF00{XG51};
DRAWICON(QB AND 日线锁定,LOW*0.99,1){XG51};
DRAWICON(QB AND 日线锁定,LOW*0.97,7){XG51};
DRAWICON(QS AND 日线锁定,HIGH*1.01,2){XG51};
DRAWICON(QS AND 日线锁定,HIGH*1.04,8){XG51};
DRAWICON(概率==5 AND 日线锁定,L*0.95,14){XG51};
DRAWICON(概率==4 AND 日线锁定,L*0.95,13){XG51};
DRAWICON(概率==3 AND 日线锁定,L*0.95,11){X=G*5*1=C=N={};