通达信妖股起爆主图未加密选股指标公式源码

通达信妖股起爆主图未加密选股指标公式源码

源码正文：

DRAWGBK(CLOSE>0,RGB(1,1,1),RGB(1,1,1),0,1,0){XG51};
DRAWNULL,COLORCCCCCC{XG51};
所属板块:=stRCAT('【所属板块】：',STRCAT(STRCAT(' [行业]—',HYBLOCK),STRCAT(' [概念]—',GNBLOCK))){XG51};
风格板块:=STRCAT('【风格板块】：',STRCAT(STRCAT(' [地域]—',DYBLOCK),STRCAT(' [风格]—',FGBLOCK))){XG51};
总股本:=STRCAT(STRCAT(' 总股本:',CON2STR(TOTALCAPITAL/1000000,2)),'亿'){XG51};
流通盘:=STRCAT(STRCAT(' 流通盘:',CON2STR(CAPITAL/1000000,2)),'亿'){XG51};
全流通:=STRCAT(STRCAT(' 流通比:',CON2STR(CAPITAL/TOTALCAPITAL*100,2)),'％'){XG51};
市值:=STRCAT(STRCAT(' 流通市值:',CON2STR((CAPITAL/1000000)*C,2)),'亿'){XG51};
股本市值:=STRCAT('【股本市值】：',STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值)){XG51};
市盈率:=STRCAT(' 市盈率:',CON2STR(C/FINANCE(33),2)){XG51};
净资收益率:=STRCAT(' 净资收益率:',CON2STR(FINANCE(33)/FINANCE(34)*100,2)){XG51};
主营利润率:=STRCAT(' 主营利润率:',CON2STR(FINANCE(23)/FINANCE(20)*100,2)){XG51};
当前业绩:=STRCAT('【当前业绩】：',STRCAT(STRCAT(市盈率,净资收益率),主营利润率)){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.005,0.02,0,所属板块),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR ,0.005,0.07,0,风格板块),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.005,0.12,0,股本市值),COLORmaGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.005,0.17,0,当前业绩),COLORLIMAGENTA{XG51};
获利盘％:=100*WINNER(C){XG51};
短期压力:=HHV(H,15){XG51};
短期支撑:=LLV(L,20){XG51};
X11:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2{XG51};
X12:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{XG51};
X13:=FINANCE(23)/FINANCE(10)*3.3{XG51};
X14:=FINANCE(19)/FINANCE(15)*0.6{XG51};
X15:=FINANCE(20)/FINANCE(15)*0.999{XG51};
Z值:=X11+X12+X13+X14+X15{XG51};
DRAWTEXT_FIX(Z值<1.2,0.312,0.22,0,' 【●财务重警●】'),COLORLICYAN{XG51};
DRAWTEXT_FIX( BETWEEN(Z值,1.2,2.6),0.312,0.22,0,' 【○财务轻警○】'),COLOR0099FF{XG51};
DRAWTEXT_FIX(Z值>2.6,0.312,0.22,0,' 【◎财务无警◎】'),COLORLIBLUE{XG51};
DRAWTEXT_FIX(C>0,0.005 ,0.22,0,'【获利盘％】:'),COLORWHITE{XG51};
DRAWTEXT_FIX(C>0,0.105,0.22,0,'【短期压力】:'),COLOR00FF00{XG51};
DRAWTEXT_FIX(C>0,0.21,0.22,0,'【短期支撑】:'),COLORBLUE{XG51};
DRAWNUMBER_FIX(C>0,0.075,0.22,0,CONST(获利盘％)),COLORWHITE{XG51};
DRAWNUMBER_FIX(C>0,0.175,0.22,0,CONST(短期压力)),COLOR00FF00{XG51};
DRAWNUMBER_FIX(C>0,0.28,0.22,0,CONST(短期支撑)),COLORBLUE{XG51};
STG:=NAMELIKE('S') OR NAMELIKE('*'){XG51};
涨停:=((C/REF(C,1)>=1.095 AND C=H) OR (C/REF(C,1)>=1.09 AND C=O AND O=L AND H=L) OR (C/REF(C,1)>=1.048 AND STG=1 AND C=H) OR (C/REF(C,1)>=1.045 AND C=O AND O=L AND H=L AND STG=1)) AND CURRBARSCOUNT<=120{XG51};
ZTCS:=COUNT(涨停,BARSSINCE(涨停)+1){XG51};
GZT1:=STRCAT(' 半年內涨停次数：',CON2STR(ZTCS,0)){XG51};
GZT2:=STRCAT(GZT1,'次'){XG51};
SSTS1:=STRCAT(' 上市天数：',CON2STR(FINANCE(42),0)){XG51};
SSTS2:=STRCAT(SSTS1,'天'){XG51};
NTZZT1:=STRCAT('　距今:',CON2STR(CONST(BArslAST(涨停)),0)){XG51};
NTZZT2:=STRCAT(NTZZT1,'天有涨停'){XG51};
ZTTJ1:=STRCAT(SSTS2,GZT2){XG51};
ZTTJ2:=STRCAT(ZTTJ1,NTZZT2){XG51};
ZTTJ:=STRCAT('【涨停统计】:',ZTTJ2){XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.005,0.265,0,ZTTJ),COLORBLUE{XG51};
DRAWKLINE(H,O,L,C){XG51};
N:=2;M:=30{XG51};
MA(H,M) * (1 + 13 / 100) * 1.0382,LINETHICK1,COLORBLUE {XG51};
MA(H,M) * (1 + 13 / 100),LINETHICK1,COLORBLUE {XG51};
ema(L,30) * (1 - 15 / 100),COLORCYAN , NODRAW {XG51};
EMA(L,30) * (1 - 15 / 100) * 0.82,NODRAW, COLORBLUE{XG51};
GUAIXIANTAITOU:(EMA(C,5) * 7 + EMA(C,10) * 3) / 10,LINETHICK2,COLORRED{XG51};
A1:=(H + L + O + C) / 4;A2:=EMA(A1,13) - EMA(A1,34);A3:=EMA(A2,5){XG51};
A4:=(A2 - A3) * 5;A5:=IF(A4 >= 1000,1000,IF(A4 <= A1,A1,A4)){XG51};
A6:=FORCAST(FORCAST(A5,32),10);A7:=(C - EMA(C,13)) / EMA(C,13) * (0 - 100){XG51};
A8:=EMA(A7 / 10 + EMA(C,13),8);A9:=EMA(C,3);A10:=EMA(SLOPE(C,22) * 20 + C,45){XG51};
A11:=IF(PERIOD >8 AND PERIOD < 11,MA(A10,1),IF(PERIOD = 8,MA(A10,4),IF(PERIOD = 7,MA(A10,8),IF(PERIOD = 6,MA(A10,16),IF(PERIOD = 5,MA(A10,32),0)))));A12:=A11 * 0.865;A13:=IF(A9 > A11,A9,A12){XG51};
A14:=C * V;A15:=EMA((EMA(A14,3) / EMA(V,3) + EMA(A14,6) / EMA(V,6) + EMA(A14,12) / EMA(V,12) + EMA(A14,24) / EMA(V,24)) / 4,13){XG51};
A16:=1.06 * A15;A17:=(C - REF(C,1)) / REF(C,1) * 100 > 8.5{XG51};
A18:=EMA(H,10) * (1 + 5 / 100){XG51};
捉妖:crOSS(GUAIXIANTAITOU,MA(H,30) * (1 + 13 / 100)) * 10,NODRAW{XG51};
A19:=(C - O) / REF(C,1) * 100;A20:=REF(H,N) = HHV(H,2 * N + 1){XG51};
A21:=FILTER(A20,N);A22:=BacKSET(A21,N + 1);A23:=FILTER(A22,N){XG51};
A24:=REF(L,N) = LLV(L,2 * N + 1);A25:=FILTER(A24,N){XG51};
A26:=BACKSET(A25,N + 1);A27:=FILTER(A26,N){XG51};
A28:=(REF(LLV(L,2 * N),1) + REF(HHV(H,2 * N),1)) / 2{XG51};
A29:=(H + L) / 2;A30:=(A23 AND NOT(A27 AND A28 >= A29)) OR ISLASTBAR OR BARSCOUNT(C) = 1{XG51};
A31:=A27 AND NOT(A23 AND A28 < A29);A32:=REF(BARSLAST(A30),1) + 1{XG51};
A33:=BACKSET(A30 AND COUNT(A31,A32) > 0,LLVBARS(IF(A31,L,10000),A32)){XG51};
A34:=A33 > REF(A33,1);A35:=BACKSET(A34,2);A36:=A35 > REF(A35,1){XG51};
A37:=A36 OR ISLASTBAR OR BARSCOUNT(C) = 1;A38:=REF(BARSLAST(A37),1) + 1{XG51};
A39:=BACKSET(A37 AND COUNT(A23 AND NOT(A27 AND A28 >= A29),A38) > 0,HHVBARS(IF(A23 AND NOT(A27 AND A28 >= A29),H,0),A38)){XG51};
A40:=A39 > REF(A39,1);A41:=BACKSET(A40,2);A42:=A41 > REF(A41,1){XG51};
A43:=BACKSET(ISLASTBAR,BARSLAST(A42) + 1);A44:=A43 > REF(A43,1){XG51};
A45:=BACKSET(A44,REF(BARSLAST(A42),1) + 2);A46:=A45 > REF(A45,1){XG51};
短齐压力:DRAWLINE(A46,H,A44,H,1),COLORCYAN,NODRAW{XG51};
A0:=((L+H+C*2)/4);上F:=EMA(A0,14)*1.1382{XG51};
A1KX:=(上F-REF(上F,1)) / REF(上F,1) * 100;GD1:=BARSLAST(CROSS(A1KX,0)){XG51};
真妖显身:IF(H>=REF(A0,BARSLAST(CROSS(A1KX,0)))*1.3,REF(A0,BARSLAST(CROSS(A1KX,0)))*1.3,DRAWNULL),COLORFFB5FF,LINETHICK9{XG51};
DRAWTEXT(ISLASTBAR,真妖显身,' 妖股显身'),COLORFFB5FF{XG51};
DRAWTEXT(FILTER(CROSS(GUAIXIANTAITOU,MA(H,30) * (1 + 13 / 100)),5),MA(H,30) * (1 + 13 / 100) * 0.88,' 捉大妖'),COLORCYAN{XG51};
VAR22:=IF(((YEAR) >= (2039)) AND ((MONTH) > 3),0,1){XG51};
VAR33:=(MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4 + ((1.88) * (STD((MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4,9))) * (VAR22){XG51};
急拉涨停线:((MA(VAR33,12)) * (1.06)) * (VAR22),LINETHICK2,COLORGREEN {XG51};
VAR55:=(EMA(H,10)) * (1 + 5 / (100)){XG51};
VAR6:=C * V{XG51};
VAR7:=EMA(((EMA(VAR6,3)) / (EMA(V,3)) + (EMA(VAR6,6)) / (EMA(V,6)) + (EMA(VAR6,12)) / (EMA(V,12)) + (EMA(VAR6,24)) / (EMA(V,24))) / 4,13){XG51};
VAR8:=(1.06) * (VAR7);VAR9:=(L / ((H + REF(C,1) + O) / 3)) * C{XG51};
DRAWTEXT(((CROSS(VAR9,VAR8)) AND (C > (VAR55))) AND (C > (急拉涨停线)),L,'▲'),LINETHICK1,COLORBLUE{XG51};
NN:=5;MM:=3;VAR0:=((EMA(C,5)) * 7 + (EMA(C,10)) * 3) / 10{XG51};
VAR1:=IF((YEAR) >= (2025),0,1);VAR2:=EMA(EMA(L,21) + (6.8) * (STD(L,2)),55);VAR3:=EMA(((C / (VAR2)) * ((1.88) * C + L + O)) / (2.75),3){XG51};
VAR4:=(((VAR3) - (VAR2)) / (VAR2)) / 2;VAR5:=(EMA((VAR3) - ((VAR4) * (VAR3)),5)) * (VAR1);黄金轨道:(IF((VAR0) > (VAR5),VAR0,VAR5)) * (VAR1),NODRAW ,COLORWHITE ;上轨:IF(((VAR5) < (VAR0)) AND ((VAR5) < (C * (0.15))),(EMA(C,300)) - (3 * (STD(C,300))),VAR5),NODRAW ,COLORBLUE;IF((VAR5) > (VAR0),上轨,DRAWNULL),COLORGREEN ,NODRAW {XG51};
VAR10:=(((SMA(MAX(C - (REF(C,1)),0),24,1)) / (SMA(Abs(C - (REF(C,1))),24,1))) * (100)) * (VAR1);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));VAR16:=(EMA(VAR15,12)) * (1.23){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 ((MA(C,1)) > (VAR16)),C,O,3,0),COLORWHITE;VAR37:=((L + H) / 2){XG51};
VAR39:=(EMA((C + L + H) / 3,1));STICKLINE(((((VAR10) >= (64.5)) AND ((VAR13) >= 65)) AND ((MA(C,1)) > (VAR16))) AND ((MA(C,1)) > ((MA(H,30)) * (1 + 15 / (100)))),O,(VAR37 + L) / 2,3,0),COLORBLUE{XG51};
STICKLINE(((C > ((MA(H,30)) * (1 + 18 / (100)))) AND (C > (VAR5))) AND ((VAR10) > (64.5)),VAR39,VAR37,3,0),COLORRED{XG51};
转强:=100*(C-REF(C,12))/REF(C,12){XG51};
超强:=((H+L+C)/3-MA((H+L+C)/3,88))/(0.015*AVEDEV((H+L+C)/3,88)){XG51};
通道:=1.07*dma(C,ABS((2*C+H+L)/4-MA(C,26))/MA(C,26)){XG51};
趋势:=MA(ATAN(通道-REF(通道,1)),3){XG51};
QS1:=IF((C>O OR C<O) AND H>=REF(C,1),ATAN(MA(H,5)*1.02-REF(MA(C,5)*1.02,1)),0){XG51};
QS2:=IF((C>O OR C<O) AND H<REF(C,1),-ATAN(REF(MA(C,5)*1.02,1)-MA(H,5)*1.02),0){XG51};
分界:=MA(REF((QS1+QS2),1),26){XG51};
强势:=趋势>分界 AND 趋势>REF(趋势,1){XG51};
超级牛股:=强势 AND 超强>200 AND 转强>20 AND C>REF(C,1){XG51};
DRAWTEXT(超级牛股,L*0.95,' 龙'),COLORWHITE; {X^G?5.1^C^N^{};

通达信买入不亏主图未加密选股指标公式源码

源码正文：

N:=2{XG51};
TODAY:=DATE{XG51};
X:=HHVBARS(HIGH,N){XG51};
T7:=(REF(C,1)+O)/2{XG51};
T8:=(REF(C,1)+O)/2*0.98{XG51};
买一:IF(CURRBARSCOUNT<=CONst(X+1),CONST(T7),DRAWNULL),COLORBLUE{XG51};
DRAWTEXT(DATE=CONST(TODAY),T7,CON2STR(T7,2)),COLORBLUE{XG51};
买二:IF(CURRBARSCOUNT<=CONST(X+1),CONST(T8),DRAWNULL),COLORBLUE{XG51};
DRAWTEXT(DATE=CONST(TODAY),T8,CON2STR(T8,2)),COLORBLUE{X^G=5~1^C^N^{};