一致性获利法综合指标
Y:=(H+L)/2;
AA:=REF((SMA(Y,5,1)),3);
BB:=REF((SMA(Y,8,1)),5);
CC:=REF((SMA(Y,13,1)),8);
鳄:CC,COLORFF6600;
齿:BB,colorred;
唇:AA,colorgreen;
R2:=REF(齿,5);
KU1:=IF(HIGH=HHV(HIGH,3),1,0);
KD1:=IF(LOW=LLV(LOW,3),1,0);
UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0)));
DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0)));
上分形:IF(HIGH>=R2,UL,REF(UL,BARSLAST(HIGH>R2))),POINTDOT,LINETHICK3,,colormagenta;
下分形:IF(LOW<=R2,DL,REF(DL,BARSLAST(LOW<=R2))),POINTDOT,LINETHICK3,coloryellow;
DRAWICON(CLOSE>上分形 AND REF(CLOSE,1)<REF(上分形,1),HIGH*1.03,1);
DRAWICON(CLOSE<下分形 AND REF(CLOSE,1)>REF(下分形,1),LOW*0.99,2);
AO:=MA(Y,5)-MA(Y,34);
MAO:=MA(AO,5);
AC:=AO-MAO;
AC1:=REF(AC,1);
AO1:=REF(AO,1);
KAC:=IF(AC>AC1 AND AO>AO1,1,0);
KAO:=IF(AC<AC1 AND AO<AO1,-1,0);
STICKLINE(KAC=1 AND CLOSE>=OPEN,OPEN,CLOSE,3,1),colorred;
STICKLINE(KAO=-1 AND CLOSE>=OPEN,OPEN,CLOSE,3,1),colorgreen;
STICKLINE(KAO=0 AND KAC=0 AND CLOSE>=OPEN,OPEN,CLOSE,3,1),COLORDDDDDD;
STICKLINE(CLOSE>=OPEN,HIGH,CLOSE,0,0.1,0),colorred;
STICKLINE(CLOSE>=OPEN,OPEN,LOW,0,0.1,0),colorred;
STICKLINE(KAC=1 AND CLOSE<OPEN,OPEN,CLOSE,3,0),colorred;
STICKLINE(KAO=-1 AND CLOSE<OPEN,OPEN,CLOSE,3,0),colorgreen;
STICKLINE(KAO=0 AND KAC=0 AND CLOSE<OPEN,OPEN,CLOSE,3,0),COLORDDDDDD;
VAR1:=(HIGH+LOW)/2;
AO:MA(VAR1,5)-MA(VAR1,34),LINETHICK0;
STICKLINE(AO>=REF(AO,1),0,AO,2.2,1),colorred;
STICKLINE(AO<REF(AO,1),0,AO,2.2,1),colorgreen;
AO5:MA(AO,5),COLORFF6600;
S1:=CROSS(0,AO);
DRAWTEXT(S1,AO,'S'),colorwhite;
DRAWICON(S1,AO,2);
S2:=AO<0 AND REF(AO,1)>REF(AO,2) AND AO<REF(AO,1);
DRAWTEXT(S2,AO,'S'),colorwhite;
DRAWICON(S2,AO,2);
SCOUNT:=BARSLAST(AO<0);
SD:=HHV(AO,SCOUNT);
SCOUNTD:=HHVBARS(AO,SCOUNT);
S3:=AO>0 AND REF(AO,1)>REF(AO,2) AND AO<REF(AO,1);
S31:=COUNT(S3,SCOUNTD);
DRAWTEXT(S31>=2 AND S3,AO,'S'),colorwhite;
DRAWICON(S31>=2 AND S3,AO,2);
B1:=CROSS(AO,0);
DRAWTEXT(B1,AO,'B'),colorwhite;
DRAWICON(B1,AO,1);
B2:=AO>0 AND REF(AO,1)<REF(AO,2) AND AO>REF(AO,1) ;
DRAWTEXT(B2,AO,'B'),colorwhite;
DRAWICON(B2,AO,1);
BCOUNT:=BARSLAST(AO>0);
BD:=LLV(AO,BCOUNT);
BCOUNTD:=LLVBARS(AO,BCOUNT);
B3:=AO<0 AND REF(AO,1)<REF(AO,2) AND AO>REF(AO,1);
B31:=COUNT(B3,BCOUNTD);
DRAWTEXT(B31>=2 AND B3,AO,'B'),colorwhite;
DRAWICON(B31>=2 AND B3,AO,1);
AO:=MA((HIGH+LOW)/2,5)-MA((HIGH+LOW)/2,34);
AO5:=MA(AO,5);
AC:AO-AO5,LINETHICK0;
STICKLINE(AC>=REF(AC,1),0,AC,2.2,1),colorred;
STICKLINE(AC< REF(AC,1),0,AC,2.2,1),colorgreen;
AC1:=REF(AC,1);
BUY1:=REF(AC,3)<REF(AC1,3) AND REF(AC,2)<REF(AC1,2) AND REF(AC,2)<REF(AC,3) AND REF(AC,1)>REF(AC1,1) AND AC>AC1 AND COUNT(AC>0,4)=4;
DRAWTEXT(BUY1,AC,'B'),colorwhite;
DRAWICON(BUY1,AC,1);
BUY2:=COUNT(AC<0,4)=4 AND REF(AC,3)<REF(AC1,3) AND COUNT(AC>AC1,3)=3;
DRAWTEXT(BUY2,AC, 'B'),colorwhite;
DRAWICON(BUY2,AC,1);
BUY3:=REF(AC,3)<REF(AC1,3) AND REF(AC,2)<REF(AC1,2) AND REF(AC,2)<REF(AC,3) AND COUNT(AC>AC1,2)=2 AND REF(AC,1)<0 AND AC>0;
DRAWTEXT(BUY3,AC, 'B'),colorwhite;
DRAWICON(BUY3,AC,1);
BUY4:=REF(AC,4)<REF(AC1,4) AND REF(AC,3)<REF(AC1,3) AND REF(AC,3)<REF(AC,4) AND COUNT(AC>AC1,3)=3 AND REF(AC,1)<0 AND AC>0;
DRAWTEXT(BUY4,AC, 'B'),colorwhite;
DRAWICON(BUY4,AC,1);
S1:=REF(AC,3)>REF(AC1,3) AND REF(AC,2)>REF(AC1,2) AND REF(AC,2)>REF(AC,3) AND REF(AC,1)<REF(AC1,1) AND AC<AC1 AND COUNT(AC<0,4)=4;
DRAWTEXT(S1,AC,'S'),colorwhite;
DRAWICON(S1,AC,2);
S2:=COUNT(AC>0,4)=4 AND REF(AC,3)>REF(AC1,3) AND COUNT(AC<AC1,3)=3;
DRAWTEXT(S2,AC,'S'),colorwhite;
DRAWICON(S2,AC,2);
S3:=REF(AC,3)>REF(AC1,3) AND REF(AC,2)>REF(AC1,2) AND REF(AC,2)>REF(AC,3) AND COUNT(AC<AC1,2)=2 AND REF(AC,1)>0 AND AC<0;
DRAWICON(S3,AC,2);
MFI:(H-L)*1000000/V,STICK;
A1:=MFI>=REF(MFI,1)*1.1 AND V>=REF(V,1)*1.1;
A2:=MFI<=REF(MFI,1)*0.9 AND V<=REF(V,1)*0.9;
A3:=MFI>=REF(MFI,1)*1.1 AND V<=REF(V,1)*0.9;
A4:=MFI<=REF(MFI,1)*0.9 AND V>=REF(V,1)*1.1;
STICKLINE(A1,0,MFI,0.1,1),colorgreen;
STICKLINE(A2,0,MFI,0.1,1),colorblue;
STICKLINE(A3,0,MFI,0.1,1),colorbrown;
STICKLINE(A4,0,MFI,0.1,1),colormagenta;
MA5:MA(MFI,5);
绿灯:IF(A1,MFI,DRAWNULL),STICK,colorgreen;
衰退:IF(A2,MFI,DRAWNULL),STICK,colorblue;
伪装:IF(A3,MFI,DRAWNULL),STICK,colorbrown;
蛰伏:IF(A4,MFI,DRAWNULL),STICK,colormagenta;

长线主力控盘特征的股票龙行:EXPMA(CLOSE,250),LINETHICK3,colorwhite;
虎踞Ⅰ:EXPMA(CLOSE,30),LINETHICK2;
龙腾:EXPMA(C,120),LINETHICK3,colorred;
虎踞Ⅱ:EXPMA(C,18),LINETHICK2 ;
AA:=龙行>REF(龙行,20) AND 虎踞Ⅰ>REF(虎踞Ⅰ,3) AND 虎踞Ⅰ>龙行;
STICKLINE(C>=龙腾 AND AA AND C>=O,C,O,4,0),coloryellow;
STICKLINE(C>=龙腾 AND AA AND C>=O,H,L,0,0),coloryellow;
STICKLINE(C>=龙腾 AND AA AND C<O,C,O,4,1),coloryellow;
STICKLINE(C>=龙腾 AND AA AND C<O,O,H,0,0),coloryellow;
STICKLINE(C>=龙腾 AND AA AND C<O,C,L,0,0),coloryellow;
STICKLINE(C<龙腾 AND C>O,C,O,4,1),colorblue;
STICKLINE(C<龙腾 AND C<=O,C,O,4,1),colorblue;
STICKLINE(C<龙腾 AND C<=O,H,L,0,1),colorblue;
STICKLINE(C<龙腾 AND C>O,C,H,0,1),colorblue;
STICKLINE(C<龙腾 AND C>O,O,L,0,1),colorblue;

通达信真实资金流检测主力进出利器指标公式ZLCM:=EMA(WINNER(CLOSE)*70,3);{//主力筹码估算}
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{//小筹码估算}
ZSHTL:=SHCM/(ZLCM+SHCM)*100;{//小股民套牢筹码比率}
ZZLKP:=ZLCM/(ZLCM+SHCM)*100;{//主力控盘筹码比率}
ZCMZL:=MA(ZLCM+SHCM,13);{//市场筹码总量}
ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90);{//走牛天数}
ZSHJJ:=EMA(ZSHTL,89);{//小股民警戒}
ZZLJJ:=EMA(ZZLKP,89);{//主力警戒}
ZJLRQD:=INTPART(ZZLKP-ZZLJJ);{//资金流入强度http://WWW.BUYHAOGU.COM}
SH8:=EMA(ZSHTL,8);
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);
{神秘黑洞}
STICKLINE(REF(ZSHTL,1)>90 AND ZSHTL<90,ZSHTL,0,4,0),COLOR9966FF;
{小股民套牢筹码}
STICKLINE(C>0,ZSHTL,ZZLKP,0,0),COLOREEEEEE;
{小股民筹码警戒}
STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,1,0),COLORAAAAAA;
{主力控盘筹码}
STICKLINE(C>0,ZZLKP,0,3,0),COLORBLUE;
{铸顶风险区}
STICKLINE(ZZLKP>75,ZZLKP,0,3,0),COLORFFFFFF;
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,3,0),COLORRED;
STICKLINE(ZSHTL>=90,ZZLKP,0,3,0),COLORYELLOW;
套牢系数:INTPART(ZSHTL),NODRAW;
控盘系数:INTPART(ZZLKP),COLORCYAN,NODRAW;
资金流入强度:ZJLRQD,NODRAW;
RSV:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
K1:=SMA(RSV,10,1);
D1:=SMA(K1,5,1);
KK:=INTPART(K1);
DD:=INTPART(D1);
TFXXS:=KK+DD;{//变异KD风险系数}
TGLD:=MOD(TFXXS,10);{//踏浪涨停概率点}
TGLXS:=(TFXXS-REF(TFXXS,1))*10;{//变异KD乖离系数}
TYCFX:=TFXXS+TGLXS;{//变异KD预测风险}
乖离系数:TGLXS,LINETHICK0,COLORGREEN;
STICKLINE(TGLXS>0,100,100+TGLXS,3,0),COLOR000088;
STICKLINE(TGLXS>0,100,100+TGLXS,2.5,0),COLOR000099;
STICKLINE(TGLXS>0,100,100+TGLXS,2,0),COLOR0000AA;
STICKLINE(TGLXS>0,100,100+TGLXS,1.5,0),COLOR0000BB;
STICKLINE(TGLXS>0,100,100+TGLXS,1.0,0),COLOR0000DD;
STICKLINE(TGLXS>0,100,100+TGLXS,0.5,0),COLOR0000FF;{//红柱}
STICKLINE(TGLXS<0,100,100+TGLXS,3,0),COLOR008800;
STICKLINE(TGLXS<0,100,100+TGLXS,2.5,0),COLOR00AA00;
STICKLINE(TGLXS<0,100,100+TGLXS,2,0),COLOR00BB00;
STICKLINE(TGLXS<0,100,100+TGLXS,1.5,0),COLOR00DD00;
STICKLINE(TGLXS<0,100,100+TGLXS,1,0),COLOR00FF00;{//绿柱}
STICKLINE(TGLXS=0 AND REF(TGLXS,1)>=0,100,100+TGLXS,8,0),COLORRED;
STICKLINE(TGLXS=0 AND REF(TGLXS,1)<0,100,100+TGLXS,8,0),COLORGREEN;
风险系数:TFXXS,LINETHICK2,COLORYELLOW;
T1:=CONST( ZCMZL>REF(ZCMZL,1) AND DKB=1);
T2:=CONST( ZCMZL>REF(ZCMZL,1) AND DKB=0);
T3:=CONST( ZCMZL=REF(ZCMZL,1));
T4:=CONST( ZCMZL<REF(ZCMZL,1) AND DKB=1);
T5:=CONST( ZCMZL<REF(ZCMZL,1) AND DKB=0);
T6:=CONST(TFXXS<=50 );
T7:=CONST(TFXXS>=160 );
T8:=CONST(TFXXS>50 AND TFXXS<160 AND TFXXS>=REF(TFXXS,1) AND TFXXS<=100 );
T9:=CONST( TFXXS>50 AND TFXXS<160 AND TFXXS>=REF(TFXXS,1) AND TFXXS>100);
T10:=CONST(TFXXS>50 AND TFXXS<160 AND TFXXS<REF(TFXXS,1) AND TFXXS>100 );
T11:=CONST(TFXXS>50 AND TFXXS<160 AND TFXXS<REF(TFXXS,1) AND TFXXS<=100 );
T12:=CONST( ZSHTL>90 );
T13:=CONST( ZZLKP>75 );
T14:=CONST(CROSS(ZCMZL,ZZLJJ) AND ZZLKP>ZZLJJ AND ZZLKP>10 AND ZZLJJ>REF(ZZLJJ,1) AND ZCMZL>REF(ZCMZL,1) );
T15:=CONST(CROSS(ZCMZL,ZZLKP) AND ZZLKP>ZZLJJ AND ZZLKP<ZSHTL AND ZZLKP>10 AND ZZLJJ>REF(ZZLJJ,1) AND ZCMZL>REF(ZCMZL,1) );
T16:=CONST( CROSS(ZCMZL,ZSHTL) AND ZSHTL>ZZLKP AND ZCMZL>REF(ZCMZL,1));
T17:=CONST( CROSS(ZCMZL,100) AND ZCMZL>REF(ZCMZL,1));
T18:=CONST(REF(ZSHTL,1)>90 AND ZSHTL<90 );
TS1:=IF(T1=1,0+0.03,0);
TS2:=IF(T2=1,TS1+0.03,TS1);
TS3:=IF(T3=1,TS2+0.03,TS2);
TS4:=IF(T4=1,TS3+0.03,TS3);
TS5:=IF(T5=1,TS4+0.03,TS4);
TS6:=IF(T6=1,0+0.73,0);
TS7:=IF(T7=1,TS6+0.03,TS6);
TS8:=IF(T8=1,TS7+0.03,TS7);
TS9:=IF(T9=1,TS8+0.03,TS8);
TS10:=IF(T10=1,TS9+0.03,TS9);
TS11:=IF(T11=1,TS10+0.03,TS10);
TS12:=IF(T12,0+0.03,0);
TS13:=IF(T13=1,TS12+0.03,TS12);
TS14:=IF(T14=1,TS13+0.03,TS13);
TS15:=IF(T15=1,TS14+0.03,TS14);
TS16:=IF(T16=1,TS15+0.03,TS15);
TS17:=IF(T17=1,TS16+0.03,TS16);
TS18:=IF(T8=1,TS17+0.03,TS17);
DRAWTEXT_FIX(T1,0.56,TS1,0,'★主力动向监控：主力增仓'),COLORRED;
DRAWTEXT_FIX(T2,0.56,TS2,0,'★主力动向监控：主力减仓'),COLORMAGENTA;
DRAWTEXT_FIX(T3,0.56,TS3,0,'★主力动向监控：多空平衡'),COLORGRAY;
DRAWTEXT_FIX(T4,0.56,TS4,0,'★主力动向监控：主力回补'),COLORFF9933;
DRAWTEXT_FIX(T5,0.56,TS5,0,'★主力动向监控：主力出逃'),COLORGREEN;
DRAWTEXT_FIX(T6,0.76,TS6,0,'★操作风险提示：买入风险'),COLORYELLOW;
DRAWTEXT_FIX(T7,0.76,TS7,0,'★操作风险提示：卖出风险'),COLORCYAN;
DRAWTEXT_FIX(T8,0.76,TS8,0,'★操作风险提示：追涨博弈'),COLORRED;
DRAWTEXT_FIX(T9,0.76,TS9,0,'★操作风险提示：稳健持股'),COLORMAGENTA;
DRAWTEXT_FIX(T10,0.76,TS10,0,'★操作风险提示：盘跌减仓'),COLORWHITE;
DRAWTEXT_FIX(T11,0.76,TS11,0,'★操作风险提示：杀跌空仓'),COLORGREEN;
DRAWTEXT_FIX(T12,0.26,TS12,0,'☆特别信号提示：筑底散兵坑' ),COLOR66FFCC;
DRAWTEXT_FIX(T13,0.26,TS13,0,'☆特别信号提示：铸顶风险区'),COLORCYAN;
DRAWTEXT_FIX(T14,0.26,TS14,0,'☆特别信号提示：穿越主力' ),COLORRED;
DRAWTEXT_FIX(T15,0.26,TS15,0,'☆特别信号提示：穿越主力' ),COLORYELLOW;
DRAWTEXT_FIX(T16,0.26,TS16,0,'☆特别信号提示：穿越散户' ),COLORGREEN;
DRAWTEXT_FIX(T17,0.26,TS17,0,'☆特别信号提示：全盘穿越' ),COLOR3399FF;
DRAWTEXT_FIX(T18,0.26,TS18,0,'☆特别信号提示：神秘黑洞' ),COLOR9966FF;