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

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

源码正文：

ema13:=Ema(C,13),COLORRED;
EMA21:=EMA(C,21),COLORBLUE;
EMA34:=EMA(C,34),COLORFF00FF;
EMA60:=MA(C,60),COLORFFCC66;
VAR2:=(2*CLOSE+HIGH+LOW)/4;
VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1);
VAR4:=LLV(LOW,5); VAR5:=HHV(HIGH,4);
散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3;
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3;
DRAWTEXT(crOSS(散户,庄家) AND 散户<30,L-0.05,'←低吸'),COLORLICYAN;
DRAWTEXT(CROSS(庄家,散户) AND 散户>70,H+0.05,'←高抛'),COLORCYAN;
DRAWICON(CROSS(散户,庄家) AND 散户<30,L-0.05,1);
DRAWICON(CROSS(庄家,散户) AND 散户>70,H+0.05,2);
VAR9:=CLOSE-REF(CLOSE,5);
VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(Abs(VAR9),5),5);
VARC:=EMA(EMA(VAR9,20),20)/EMA(EMA(ABS(VAR9),20),20);
卖出:=IF(VARA>0 AND CROSS(VARC,VARA),90,100);
DRAWICON(卖出<0,H+0.05,2); 买线:=EMA(CLOSE,2);
卖线:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);
B1:IF(CROSS(买线,卖线),L-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORLIMAGENTA;
S1:IF(CROSS(80,rsi)*30,H+0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORBLUE;
VC:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3{XG51};
S2:=IF(VC>20 AND FILTER(VC< REF(VC,1),5),H+0.02,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORCYAN;
A0:=(L+H+C*2)/4{XG51};
A1:EMA(A0,14)COLORYELLOW,LINETHICK2{XG51};
A2:=EMA(A0,25)COLORLIGREEN,LINETHICK2{XG51};
A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW{XG51};
A2X:=(A2-REF(A2,1))/REF(A2,1)*100,NODRAW{XG51};
看多:IF(A1X>=0 AND BArslAst(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),DRAWNULL),COLORLIMAGENTA{XG51};
逃顶:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),DRAWNULL),COLORGREEN,{XG51};
买入持股:IF(A1X>=0,A1,DRAWNULL)COLORWHITE,LINETHICK3{XG51};
卖出空仓:IF(A1X<0 AND A2X<0,A1,DRAWNULL)COLORCYAN,LINETHICK3{XG51};
STICKLINE(CROSS(A1X,0),H,L,0,0 ),COLOR9933FF{XG51};
STICKLINE(CROSS(A1X,0),C,O,3,0 ),COLOR0000CC;
STICKLINE(CROSS(A1X,0),C,O,1,0 ),COLOR0033FF;
STICKLINE(CROSS(0,A1X),L,H,0,0 ),COLOR66CC33;

{X_G^5_1_C_N_{}

通达信射箭封神未加密选股指标公式源码

源码正文：

P:=3{XG51};
N:=3{XG51};
RN:=10{XG51};
DRAWBAND(100,RGB(00,50,100),-30,RGB(00,00,00)){XG51};
VVAR1:=(ma(CLOSE,80)-MA(CLOSE,13)/3){XG51};
VVAR2:=( MA((CLOSE-VVAR1)/VVAR1,1)){XG51};
VVAR3:=(CLOSE-LLV(LOW,28))/(HHV(HIGH,28)-LLV(LOW,28))*100{XG51};
VVAR4:=SMA(VVAR3,4,1){XG51};
MMA:=ema(VVAR2,12)*0.7{XG51};
MMB:=EMA(VVAR2,3){XG51};
快到底:=IF(LLV(MMB-MMA,12)>0,0,-20),LINETHICK2,COLORCYAN{XG51};
底初选股:=IF( crOSS(0, LLV(MMB-MMA,12)),10,0),LINETHICK0{XG51};
K:=CEILING(C/10){XG51};
difF:=( EMA(CLOSE,12) - EMA(CLOSE,26))/K*100+50{XG51};
DEA:=EMA(DIFF,9){XG51};
macd:=2*(DIFF-DEA)+50{XG51};
LC:=REF(CLOSE,1){XG51};
RA1:=REF(rsi,N)=HHV(RSI,N*2+1); RA2:=REF(RSI,N)=LLV(RSI,N*2+1);
RB1:=FILTER(RA1,N); RB2:=FILTER(RA2,N){XG51};
RC1:=BacKSET(RB1,N+1); RC2:=BACKSET(RB2,N+1){XG51};
RD1:=FILTER(RC1,N); RD2:=FILTER(RC2,N){XG51};
GD1:=BArslAst(RD1); DD1:=BARSLAST(RD2){XG51};
GDTS:=IF(RD1,CURRBARSCOUNT,0){XG51};
DDTS:=IF(RD2,CURRBARSCOUNT,0){XG51};
GDT1:=IF(GD1,REF(GDTS,GD1),GDTS){XG51};
DDT1:=IF(DD1,REF(DDTS,DD1),DDTS){XG51};
GDCS1:=CONST(GDT1); DDCS1:=CONST(DDT1){XG51};
GINGBUTS1:=REF(GDT1,GD1+1); DINGBUTS1:=REF(DDT1,DD1+1){XG51};
GDCS2:=CONST(GINGBUTS1); DDCS2:=CONST(DINGBUTS1){XG51};
GDCS13:=CONST(REF(RSI,GDCS1-1)); DDCS13:=CONST(REF(RSI,DDCS1-1)){XG51};
GDCS23:=CONST(REF(RSI,GINGBUTS1-1)); DDCS23:=CONST(REF(RSI,DINGBUTS1-1)){XG51};
XG1:=BACKSET(ISLASTBAR,GDCS1); XD1:=BACKSET(ISLASTBAR,DDCS1){XG51};
XG2:=BACKSET(ISLASTBAR,GDCS2); XD2:=BACKSET(ISLASTBAR,DDCS2){XG51};
M:=2*N{XG51};
RA11:=REF(RSI,M)=HHV(RSI,M*2+1); RA22:=REF(RSI,M)=LLV(RSI,M*2+1);
RB11:=FILTER(RA11,M); RB22:=FILTER(RA22,M){XG51};
RC11:=BACKSET(RB11,M+1); RC22:=BACKSET(RB22,M+1){XG51};
RD11:=FILTER(RC11,M); RD22:=FILTER(RC22,M),NODRAW{XG51};
GD11:=BARSLAST(RD11); DD11:=BARSLAST(RD22){XG51};
GDTSS:=IF(RD11,CURRBARSCOUNT,0){XG51};
DDTSS:=IF(RD22,CURRBARSCOUNT,0){XG51};
GDT11:=IF(GD11,REF(GDTSS,GD11),GDTSS){XG51};
DDT11:=IF(DD11,REF(DDTSS,DD11),DDTSS){XG51};
GDCS11:=CONST(GDT11); DDCS11:=CONST(DDT11);
GINGBUTS11:=REF(GDT11,GD11+1); DINGBUTS11:=REF(DDT11,DD11+1){XG51};
GDCS22:=CONST(GINGBUTS11); DDCS22:=CONST(DINGBUTS11){XG51};
STICKLINE(MACD>=50,50,MACD,3,0),COLOR000055{XG51};
STICKLINE(MACD<50,50,MACD,3,0),COLOR555555{XG51};
DRAWBAND(DIFF,RGB(100,00,00),DEA,RGB(00,200,00)){XG51};
RSI:((SMA(MAX((CLOSE - LC),0),P,1) / SMA(Abs((CLOSE - LC)),P,1))
* 100),COLORLIMAGENTA,LINETHICK2{XG51};
80,COLORGREEN,LINETHICK1{XG51};
抄底:IF(快到底<0 AND CROSS(MACD,50) AND VVAR4<18,80,20),COLORGREEN{XG51};
高点压力1:DRAWLINE(CURRBARSCOUNT=GDCS2,RSI
,CURRBARSCOUNT=GDCS1,RSI,1) ,COLORWHITE,LINETHICK2{XG51};
低点支撑1:DRAWLINE(CURRBARSCOUNT=DDCS2,RSI
,CURRBARSCOUNT=DDCS1,RSI,1),COLORWHITE,LINETHICK2{XG51};
高点压力2:DRAWLINE(CURRBARSCOUNT=GDCS22,RSI
,CURRBARSCOUNT=GDCS11,RSI,1) ,COLORBLUE,LINETHICK2{XG51};
低点支撑2:DRAWLINE(CURRBARSCOUNT=DDCS22,RSI
,CURRBARSCOUNT=DDCS11,RSI,1),COLORBLUE,LINETHICK2{XG51};
高点压力3:DRAWLINE(CURRBARSCOUNT=GDCS22,RSI
,CURRBARSCOUNT=GDCS2,RSI,1) ,COLORCYAN,LINETHICK2{XG51};
低点支撑3:DRAWLINE(CURRBARSCOUNT=DDCS22,RSI
,CURRBARSCOUNT=DDCS2,RSI,1),COLORCYAN,LINETHICK2{XG51};
VAR1:=("399139$C"){XG51};
VAR2:=("399190$C"){XG51};
VAR3:=("399132$C"){XG51};
VAR4:=("399150$C"){XG51};
VAR5:=("399138$C"){XG51};
VAR6:=("399200$C"){XG51};
VAR7:=("399110$C"){XG51};
VAR8:=("399136$C"){XG51};
VAR9:=("399135$C"){XG51};
VAR10:=("399130$C"){XG51};
VAR11:=("399160$C"){XG51};
VAR12:=IF(C>100,C,("999999$C")){XG51};
VAR13:=("399137$C"){XG51};
医药:=SUM((VAR1/REF(VAR1,1)-1)*100,0)*10{XG51};
金融:=SUM((VAR2/REF(VAR2,1)-1)*100,0)*10{XG51};
纺织:=SUM((VAR3/REF(VAR3,1)-1)*100,0)*10{XG51};
建筑:=SUM((VAR4/REF(VAR4,1)-1)*100,0)*10{XG51};
机械:=SUM((VAR5/REF(VAR5,1)-1)*100,0)*10{XG51};
地产:=SUM((VAR6/REF(VAR6,1)-1)*100,0)*10{XG51};
农林:=SUM((VAR7/REF(VAR7,1)-1)*100,0)*10{XG51};
电子:=SUM((VAR8/REF(VAR8,1)-1)*100,0)*10{XG51};
石化:=SUM((VAR9/REF(VAR9,1)-1)*100,0)*10{XG51};
制造:=SUM((VAR10/REF(VAR10,1)-1)*100,0)*10{XG51};
运输:=SUM((VAR11/REF(VAR11,1)-1)*100,0)*10{XG51};
上证:=SUM((VAR12/REF(VAR12,1)-1)*100,0)*10{XG51};
金属:=SUM((VAR13/REF(VAR13,1)-1)*100,0)*10{XG51};
医药B:=REF(SUM((VAR1/REF(VAR1,1)-1)*100,0)*10,1){XG51};
金融B:=REF(SUM((VAR2/REF(VAR2,1)-1)*100,0)*10,1){XG51};
纺织B:=REF(SUM((VAR3/REF(VAR3,1)-1)*100,0)*10,1){XG51};
建筑B:=REF(SUM((VAR4/REF(VAR4,1)-1)*100,0)*10,1){XG51};
机械B:=REF(SUM((VAR5/REF(VAR5,1)-1)*100,0)*10,1){XG51};
地产B:=REF(SUM((VAR6/REF(VAR6,1)-1)*100,0)*10,1){XG51};
农林B:=REF(SUM((VAR7/REF(VAR7,1)-1)*100,0)*10,1){XG51};
电子B:=REF(SUM((VAR8/REF(VAR8,1)-1)*100,0)*10,1){XG51};
石化B:=REF(SUM((VAR9/REF(VAR9,1)-1)*100,0)*10,1){XG51};
制造B:=REF(SUM((VAR10/REF(VAR10,1)-1)*100,0)*10,1){XG51};
运输B:=REF(SUM((VAR11/REF(VAR11,1)-1)*100,0)*10,1){XG51};
上证B:=REF(SUM((VAR12/REF(VAR12,1)-1)*100,0)*10,1){XG51};
金属B:=REF(SUM((VAR13/REF(VAR13,1)-1)*100,0)*10,1){XG51};
BVAR17:=CONST(MA(医药B,RN)){XG51};
BVAR18:=CONST(MA(金融B,RN)){XG51};
BVAR19:=CONST(MA(纺织B,RN)){XG51};
BVAR20:=CONST(MA(建筑B,RN)){XG51};
BVAR21:=CONST(MA(机械B,RN)){XG51};
BVAR22:=CONST(MA(地产B,RN)){XG51};
BVAR23:=CONST(MA(农林B,RN)){XG51};
BVAR24:=CONST(MA(电子B,RN)){XG51};
BVAR25:=CONST(MA(石化B,RN)){XG51};
BVAR26:=CONST(MA(制造B,RN)){XG51};
BVAR27:=CONST(MA(运输B,RN)){XG51};
BVAR28:=CONST(MA(上证B,RN)){XG51};
BVAR29:=CONST(MA(金属B,RN)){XG51};
VAR17:=CONST(MA(医药,RN)){XG51};
VAR18:=CONST(MA(金融,RN)){XG51};
VAR19:=CONST(MA(纺织,RN)){XG51};
VAR20:=CONST(MA(建筑,RN)){XG51};
VAR21:=CONST(MA(机械,RN)){XG51};
VAR22:=CONST(MA(地产,RN)){XG51};
VAR23:=CONST(MA(农林,RN)){XG51};
VAR24:=CONST(MA(电子,RN)){XG51};
VAR25:=CONST(MA(石化,RN)){XG51};
VAR26:=CONST(MA(制造,RN)){XG51};
VAR27:=CONST(MA(运输,RN)){XG51};
VAR28:=CONST(MA(上证,RN)){XG51};
VAR29:=CONST(MA(金属,RN)){XG51};
医药C:=(CONST(医药)-(VAR17))-(CONST(医药B)-(BVAR17)){XG51};
金融C:=(CONST(金融)-(VAR18))-(CONST(金融B)-(BVAR18)){XG51};
纺织C:=(CONST(纺织)-(VAR19))-(CONST(纺织B)-(BVAR19)){XG51};
建筑C:=(CONST(建筑)-(VAR20))-(CONST(建筑B)-(BVAR20)){XG51};
机械C:=(CONST(机械)-(VAR21))-(CONST(机械B)-(BVAR21)){XG51};
地产C:=(CONST(地产)-(VAR22))-(CONST(地产B)-(BVAR22)){XG51};
农林C:=(CONST(农林)-(VAR23))-(CONST(农林B)-(BVAR23)){XG51};
电子C:=(CONST(电子)-(VAR24))-(CONST(电子B)-(BVAR24)){XG51};
石化C:=(CONST(石化)-(VAR25))-(CONST(石化B)-(BVAR25)){XG51};
制造C:=(CONST(制造)-(VAR26))-(CONST(制造B)-(BVAR26)){XG51};
运输C:=(CONST(运输)-(VAR27))-(CONST(运输B)-(BVAR27)){XG51};
上证C:=(CONST(上证)-(VAR28))-(CONST(上证B)-(BVAR28)){XG51};
金属C:=(CONST(金属)-(VAR29))-(CONST(金属B)-(BVAR29)){XG51};
P1:=IF(BARSLAST(CURRBARSCOUNT=10),1,0){XG51};
P2:=IF(BARSLAST(CURRBARSCOUNT=13),1,0){XG51};
P3:=IF(BARSLAST(CURRBARSCOUNT=16),1,0){XG51};
P4:=IF(BARSLAST(CURRBARSCOUNT=19),1,0){XG51};
P5:=IF(BARSLAST(CURRBARSCOUNT=22),1,0){XG51};
P6:=IF(BARSLAST(CURRBARSCOUNT=25),1,0){XG51};
P7:=IF(BARSLAST(CURRBARSCOUNT=28),1,0){XG51};
P8:=IF(BARSLAST(CURRBARSCOUNT=31),1,0){XG51};
P9:=IF(BARSLAST(CURRBARSCOUNT=34),1,0){XG51};
P10:=IF(BARSLAST(CURRBARSCOUNT=37),1,0){XG51};
P11:=IF(BARSLAST(CURRBARSCOUNT=40),1,0){XG51};
P12:=IF(BARSLAST(CURRBARSCOUNT=43),1,0){XG51};
P13:=IF(BARSLAST(CURRBARSCOUNT=46),1,0){XG51};
P14:=IF(BARSLAST(CURRBARSCOUNT=7),1,0){XG51};
STICKLINE(医药,20,IF(P2-P1,CONST(医药C)+20,DRAWNULL),8,0),COLOR999999{XG51};
STICKLINE(金融,20,IF(P3-P2,CONST(金融C)+20,DRAWNULL),8,0),COLOR999999{XG51};
STICKLINE(纺织,20,IF(P4-P3,CONST(纺织C)+20,DRAWNULL),8,0),COLOR999999{XG51};
STICKLINE(建筑,20,IF(P5-P4,CONST(建筑C)+20,DRAWNULL),8,0),COLOR999999{XG51};
STICKLINE(机械,20,IF(P6-P5,CONST(机械C)+20,DRAWNULL),8,0),COLOR999999{XG51};
STICKLINE(地产,20,IF(P7-P6,CONST(地产C)+20,DRAWNULL),8,0),COLOR999999{XG51};
STICKLINE(农林,20,IF(P8-P7,CONST(农林C)+20,DRAWNULL),8,0),COLOR999999{XG51};
STICKLINE(电子,20,IF(P9-P8,CONST(电子C)+20,DRAWNULL),8,0),COLOR999999{XG51};
STICKLINE(石化,20,IF(P10-P9,CONST(石化C)+20,DRAWNULL),8,0),COLOR999999{XG51};
STICKLINE(制造,20,IF(P11-P10,CONST(制造C)+20,DRAWNULL),8,0),COLOR999999{XG51};
STICKLINE(运输,20,IF(P12-P11,CONST(运输C)+20,DRAWNULL),8,0),COLOR999999{XG51};
STICKLINE(金属,20,IF(P13-P12,CONST(金属C)+20,DRAWNULL),8,0),COLOR999999{XG51};
STICKLINE(医药,20,IF(P2-P1,CONST(医药)-(VAR17)+20,DRAWNULL),4,-2),COLORFF00FF{XG51};
STICKLINE(金融,20,IF(P3-P2,CONST(金融)-(VAR18)+20,DRAWNULL),4,-2),COLORFF00FF{XG51};
STICKLINE(纺织,20,IF(P4-P3,CONST(纺织)-(VAR19)+20,DRAWNULL),4,-2),COLORFF00FF{XG51};
STICKLINE(建筑,20,IF(P5-P4,CONST(建筑)-(VAR20)+20,DRAWNULL),4,-2),COLORFF00FF{XG51};
STICKLINE(机械,20,IF(P6-P5,CONST(机械)-(VAR21)+20,DRAWNULL),4,-2),COLORFF00FF{XG51};
STICKLINE(地产,20,IF(P7-P6,CONST(地产)-(VAR22)+20,DRAWNULL),4,-2),COLORFF00FF{XG51};
STICKLINE(农林,20,IF(P8-P7,CONST(农林)-(VAR23)+20,DRAWNULL),4,-2),COLORFF00FF{XG51};
STICKLINE(电子,20,IF(P9-P8,CONST(电子)-(VAR24)+20,DRAWNULL),4,-2),COLORFF00FF{XG51};
STICKLINE(石化,20,IF(P10-P9,CONST(石化)-(VAR25)+20,DRAWNULL),4,-2),COLORFF00FF{XG51};
STICKLINE(制造,20,IF(P11-P10,CONST(制造)-(VAR26)+20,DRAWNULL),4,-2),COLORFF00FF{XG51};
STICKLINE(运输,20,IF(P12-P11,CONST(运输)-(VAR27)+20,DRAWNULL),4,-2),COLORFF00FF{XG51};
STICKLINE(上证,20,IF(P1-P14,CONST(上证)-(VAR28)+20,DRAWNULL),4,-1),COLOR0000FF{XG51};
STICKLINE(金属,20,IF(P13-P12,CONST(金属)-(VAR29)+20,DRAWNULL),4,-2),COLORFF00FF{XG51};
DRAWTEXT(P2-P1,-30,' 医药'),COLORBLUE{XG51};
DRAWTEXT(P3-P2,-30,' 金融'),COLORBLUE{XG51};
DRAWTEXT(P4-P3,-30,' 纺织'),COLORBLUE{XG51};
DRAWTEXT(P5-P4,-30,' 建筑'),COLORBLUE{XG51};
DRAWTEXT(P6-P5,-30,' 机械'),COLORBLUE{XG51};
DRAWTEXT(P7-P6,-30,' 地产'),COLORBLUE{XG51};
DRAWTEXT(P8-P7,-30,' 农林'),COLORBLUE{XG51};
DRAWTEXT(P9-P8,-30,' 电子'),COLORBLUE{XG51};
DRAWTEXT(P10-P9,-30,' 石化'),COLORBLUE{XG51};
DRAWTEXT(P11-P10,-30,' 制造'),COLORBLUE{XG51};
DRAWTEXT(P12-P11,-30,' 运输'),COLORBLUE{XG51};
DRAWTEXT(P13-P12,-30,' 金属'),COLORBLUE{X*G+5^1*C*N*{};