通达信开口捉妖主图选股指标公式源码

通达信开口捉妖主图选股指标公式源码

源码正文：

N:=5;M:=3{XG51};
VAR0:=((ema(C,5)) * 7 + (Ema(C,10)) * 3) / 10{XG51};
VAR1:=IF((YEAR) >= (2025),0,1){XG51};
VAR2:=EMA(EMA(L,21) + (6.8) * (STD(L,2)),55){XG51};
VAR3:=EMA(((C / (VAR2)) * ((1.88) * C + L + O)) / (2.75),3){XG51};
VAR4:=(((VAR3) - (VAR2)) / (VAR2)) / 2{XG51};
VAR5:=(EMA((VAR3) - ((VAR4) * (VAR3)),5)) * (VAR1){XG51};
黄金轨道:(IF((VAR0) > (VAR5),VAR0,VAR5)) * (VAR1),LINETHICK2,COLORBLUE{XG51};
上轨:IF(((VAR5) < (VAR0)) AND ((VAR5) < (C * (0.15))),(EMA(C,300)) - (3 * (STD(C,300))),VAR5),LINETHICK2,COLORBLUE{XG51};
IF((VAR5) > (VAR0),上轨,DRAWNULL),COLOR00FF00,LINETHICK2{XG51};
开口XG:BArslASTCOUNT(黄金轨道!=上轨)=1,NODRAW{XG51};
DRAWICON(开口XG,MIN(上轨,黄金轨道)*0.96,11){XG51};
VAR6:=(REF(C,1)) * (0.95){XG51};
VAR7:=(REF(C,3)) * (0.875){XG51};
VAR8:=MIN(VAR6,VAR7){XG51};
VAR9:=((SMA(MAX(C - (REF(C,1)),0),9,1)) / (SMA(Abs(C - (REF(C,1))),9,1))) * (100){XG51};
VAR10:=(((SMA(MAX(C - (REF(C,1)),0),24,1)) / (SMA(ABS(C - (REF(C,1))),24,1))) * (100)) * (VAR1){XG51};
IF((((VAR8) = (VAR6)) AND ((VAR0) > (VAR5))) AND ((VAR10) > (64.5)),上轨,DRAWNULL),COLORRED,LINETHICK2{XG51};
VAR11:=(EMA(dma(((2.15) * C + L + H) / 4,(ABS((((3.48) * C + H + L) / 4) - (EMA(C,20)))) / (EMA(C,20))),200)) * (0.968 + 15 / (100)){XG51};
VAR12:=MA(C,26) + 2 * (STD(C,26)){XG51};
VAR13:=((SMA(MAX(C - (REF(C,1)),0),14,1)) / (SMA(ABS(C - (REF(C,1))),14,1))) * (100){XG51};
VAR14:=(EMA(C,60) + EMA(C,120) + EMA(C,240) + EMA(C,480)) / 4{XG51};
VAR15:=VAR14 + (1.91) * (STD(VAR14,3)){XG51};
VAR16:=(EMA(VAR15,12)) * (1.23){XG51};
STICKLINE((((VAR10) >= (64.5)) AND ((VAR13) >= 65)) AND ((MA(C,1)) > (VAR16)),C,O,3,0),COLORWHITE{XG51};
STICKLINE((((VAR10) >= 65) AND (C = O)) AND ((MA(C,1)) > (VAR16)),C,O,3,0),COLORWHITE{XG51};
STICKLINE((((VAR10) > 65) AND ((VAR13) >= 65)) AND ((MA(C,1)) > (VAR16)),H,L,0,0),COLORWHITE{XG51};
STICKLINE(((((VAR10) >= (64.5)) AND ((VAR13) >= 65)) AND ((VAR13) > (VAR10))) AND (C < 上轨),O,L,0,0),COLORWHITE{XG51};
STICKLINE(((((VAR10) >= (64.5)) AND ((VAR13) >= 65)) AND ((VAR13) > (VAR10))) AND (C < 上轨),C,H,0,0),COLORWHITE{XG51};
VAR17:=(MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4{XG51};
IF((VAR0) > (VAR5),VAR17 + 3 * (STD(VAR17,10)),DRAWNULL),COLORFF00FF,LINETHICK1{XG51};
VAR19:=(EMA((C - (REF(C,1))) / (REF(C,3)),8)) * (100){XG51};
DRAWTEXT(((((((((C >= ((REF(C,1)) * (1.095))) AND (C = O)) AND (L < C)) AND (C > (VAR5))) AND ((VAR19) <= 6)) AND ((VAR19) > 1)) > 0) AND ((VAR9) > (VAR10))) AND ((VAR9) > (64.5)),C,'T字战法'),COLORBLUE{XG51};
VAR20:=((((VAR10) >= (64.5)) AND ((VAR13) >= 65)) AND (C > (VAR16))) AND (C > ((MA(H,30)) * (1 + 15 / (100)))){XG51};
IF(((((VAR0) > (VAR5)) AND ((VAR20) > 0)) AND ((VAR17 + 3 * (STD(VAR17,10))) > (REF(VAR17 + 3 * (STD(VAR17,10)),1)))) AND ((VAR17 + 3 * (STD(VAR17,10))) > (HHV(MA(C,5),60))),VAR17 + 3 * (STD(VAR17,10)),DRAWNULL),COLORFF00FF,LINETHICK3{XG51};
VAR22:=EMA(EMA(EMA(EMA(EMA((C - (REF(C,1))) / (REF(C,3)),8),2),2),2),3){XG51};
DRAWTEXT_FIX(1,0,0.9,0,'所属板块:')COLOR00FFFF{XG51};
Z1:=STRCAT(HYBLOCK,' '){XG51};
Z2:=STRCAT(Z1,DYBLOCK){XG51};
Z3:=STRCAT(Z2,' '){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.1,0.9,0,STRCAT(Z3,GNBLOCK)),COLOR00FFFF{XG51};
VAR23:=(REF((C - (REF(C,1))) / (REF(C,1)),1)) * (100){XG51};
STICKLINE(((((C >= ((REF(C,1)) * (1.095))) AND (C = O)) AND (L < C)) AND ((VAR19) > 1)) > 0,C,O,5,0),COLORRED{XG51};
STICKLINE(((((C >= ((REF(C,1)) * (1.095))) AND (C = O)) AND (L < C)) AND ((VAR19) > 1)) > 0,L,C,0,0),COLORRED{XG51};
STICKLINE(CROSS(VAR9,21),O,C,4,1),COLORRED{XG51};
VAR24:=COUNT((((C - (REF(C,1))) / (REF(C,1))) * (100)) > 8,120){XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.145,0,0,VAR24),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0,0,'【股票活跃度】 '),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.16,0,0,'级:   '),COLORBLUE{XG51};
VAR25:=C * V{XG51};
VAR26:=EMA(((EMA(VAR25,3)) / (EMA(V,3)) + (EMA(VAR25,6)) / (EMA(V,6)) + (EMA(VAR25,12)) / (EMA(V,12)) + (EMA(VAR25,24)) / (EMA(V,24))) / 4,13){XG51};
VAR27:=(1.06) * (VAR26){XG51};
DRAWTEXT(((((C - (REF(C,1))) / (REF(C,1))) * (100)) > (5.5)) AND (CROSS((L / ((H + REF(C,1) + O) / 3)) * C,EMA((EMA(C,9)) * (1.14),5))),EMA(L - (0.15),1),'▲'),COLORF00FF0{XG51};
STICKLINE((((((C - (REF(C,1))) / (REF(C,1))) * (100)) > (8.5)) AND (CROSS(MA(C,1),(EMA(H,10)) * (1 + 5 / (100))))) AND (CROSS(MA(C,1),VAR27)),(L + H + O) / 3,O,3,0),COLORWHITE{XG51};
STICKLINE((((((C - (REF(C,1))) / (REF(C,1))) * (100)) > (8.5)) AND (CROSS(MA(C,1),(EMA(H,10)) * (1 + 5 / (100))))) AND (CROSS(MA(C,1),VAR27)),(L + H + O) / 3,C,3,0),COLORFF0099{XG51};
VAR28:=((C - (LLV(L,9))) / ((HHV(H,9)) - (LLV(L,9)))) * (100){XG51};
VAR29:=SMA(VAR28,3,1){XG51};
VAR30:=SMA(VAR29,3,1){XG51};
VAR31:=(3 * (VAR29)) - (2 * (VAR30)){XG51};
VAR32:=((H - L) / (REF(C,1))) * (100){XG51};
VAR33:=((C - O) / (REF(C,1))) * (100){XG51};
VAR34:=((O - L) / (REF(C,1))) * (100){XG51};
VAR35:=((H - C) / (REF(C,1))) * (100){XG51};
VAR36:=(VAR32) / (1.5){XG51};
STICKLINE(((((((VAR32) > 7) AND ((VAR36) > (4.5))) AND ((VAR35) < (5.5))) AND ((VAR35) < (VAR34))) AND (BETWEEN(VAR33,-2.5,2.5))) AND ((VAR31) < (100)),O,H,0,0),COLORWHITE{XG51};
STICKLINE(((((((VAR32) > 7) AND ((VAR36) > (4.5))) AND ((VAR35) < (5.5))) AND ((VAR35) < (VAR34))) AND (BETWEEN(VAR33,-2.5,2.5))) AND ((VAR31) < (100)),O,C,3.5,0),COLORWHITE{XG51};
STICKLINE(((((((VAR32) > 7) AND ((VAR36) > (4.5))) AND ((VAR35) < (5.5))) AND ((VAR35) < (VAR34))) AND (BETWEEN(VAR33,-2.5,2.5))) AND ((VAR31) < (100)),C,L,0,0),COLORF00FF0{XG51};
DRAWTEXT(((((VAR32) > 2) AND ((VAR34) > (VAR33))) AND (H = C)) AND (((((((C >= ((REF(C,1)) * (1.095))) AND (L < C)) AND ((VAR19) <= 6)) AND ((VAR19) > 1)) AND ((VAR9) > (VAR10))) AND ((VAR9) > 64)) > 0),L,'锤法&rarr;'),COLORBLUE{XG51};
STICKLINE((((((REF(((C - (REF(C,1))) / (REF(C,1))) * (100),1)) < -4) AND ((REF(VAR32,1)) > 5)) AND (O > (REF(C,1)))) AND ((((C - (REF(C,1))) / (REF(C,1))) * (100)) > 3)) AND (O < (REF(O,1))),C,C,5,0),COLORBLUE{XG51};
STICKLINE((((((REF(((C - (REF(C,1))) / (REF(C,1))) * (100),1)) < -4) AND ((REF(VAR32,1)) > 5)) AND (O > (REF(C,1)))) AND ((((C - (REF(C,1))) / (REF(C,1))) * (100)) > 3)) AND (O < (REF(O,1))),O,O,5,0),COLORBLUE{XG51};
STICKLINE((((((REF(((C - (REF(C,1))) / (REF(C,1))) * (100),1)) < -4) AND ((REF(VAR32,1)) > 5)) AND (O > (REF(C,1)))) AND ((((C - (REF(C,1))) / (REF(C,1))) * (100)) > 3)) AND (O < (REF(O,1))),L,O,0,0),COLORBLUE{XG51};
STICKLINE((((((REF(((C - (REF(C,1))) / (REF(C,1))) * (100),1)) < -4) AND ((REF(VAR32,1)) > 5)) AND (O > (REF(C,1)))) AND ((((C - (REF(C,1))) / (REF(C,1))) * (100)) > 3)) AND (O < (REF(O,1))),C,O,3,0),COLORBLUE{XG51};
压线:HHV(MA(C,N),60),COLORCYAN{XG51};
大压线:HHV(MA(H,M),120),COLORCYAN{XG51};
IF((大压线) > (REF(大压线,1)),大压线,DRAWNULL),COLORBLUE,LINETHICK1{XG51};
IF(C > 压线,压线,DRAWNULL),COLOR00FFFF,LINETHICK1{XG51};
DRAWTEXT(ISLASTBAR,压线,' &larr;小压力'),COLORCYAN{XG51};
DRAWTEXT(ISLASTBAR,大压线,' &larr;大压力'),COLORCYAN{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.145,0.1,0,VAR19),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0.1,0,'【强度关注2级以上】 '),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.2,0.1,0,'级:   '),COLORBLUE{XG51};
天界:(EMA(H,11)) * (1 + (5.2) / (100)),NODRAW{XG51};
VAR37:=((L + H) / 2){XG51};
VAR38:=(EMA((O + C + L + H) / 4,1)){XG51};
VAR39:=(EMA((C + L + H) / 3,1)){XG51};
}
STICKLINE(((C > ((MA(H,30)) * (1 + 18 / (100)))) AND (C > (VAR5))) AND ((VAR10) > (64.5)),VAR39,VAR37,3,0),COLORRED{XG51};
波段:EMA(C,5),COLORRED,LINETHICK1{XG51};
红升1:IF(波段>REF(波段,1),波段,DRAWNULL),COLORFF00FF,LINETHICK2{XG51};
绿降1:IF(波段<REF(波段,1),波段,DRAWNULL),COLOR00FF01,LINETHICK1{X_G+5_1_C_N_{};