通达信RSI战神未加密选股指标公式源码

源码正文：

使用说明:
1.rsi>80 为超买，RSI<20 为超卖；
2.RSI 以50为中界线，大于50视为多头行情，小于50视为空头行情；
3.RSI 在80以上形成Ｍ头或头肩顶形态时，视为向下反转信号；
4.RSI 在20以下形成Ｗ底或头肩底形态时，视为向上反转信号；
AS买入；
红色向上箭头为RSI买入；
绿色向下箭头为RSI卖出；
黄色向上三角▲为突破上轨；
黄色向下三角▼为跌破下轨；
抄为抄底，逃为逃顶；
白色向上三角 ▲为>昨日RSI1时的指示，表示趋势向上；
白色向下三角▼为<昨日RSI1时的指示，表示趋势向下；

｛参数：P&nbsp; 2 100 5  N1 2 100 6  HIGHN 2 100 20｝
LC:=REF(CLOSE,1){XG51};
RSI1:SMA(maX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100,COLORRED{XG51};
AA:=REF(RSI1,HIGHN)=HHV(RSI1,2*HIGHN+1){XG51};
QY:=BacKSET(AA,HIGHN+1){XG51};
CC:=FILTER(QY,HIGHN) AND RSI1=HHV(RSI1,HIGHN+1){XG51};
DDD:=BArslAst(CC){XG51};
GDTS:=IF(CC,CURRBARSCOUNT,0){XG51};
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS){XG51};
GDCS1:=CONST(DINGBUTS){XG51};
DINGBUTS1:=REF(DINGBUTS,DDD+1){XG51};
GDCS2:=CONST(DINGBUTS1){XG51};
AA1:=REF(RSI1,HIGHN)=LLV(RSI1,2*HIGHN+1){XG51};
QY1:=BACKSET(AA1,HIGHN+1){XG51};
CC1:=FILTER(QY1,HIGHN) AND RSI1=LLV(RSI1,HIGHN+1){XG51};
DD1:=BARSLAST(CC1){XG51};
DDTS:=IF(CC1,CURRBARSCOUNT,0){XG51};
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS){XG51};
DDCS1:=CONST(DDTS1){XG51};
DDTS2:=REF(DDTS1,DD1+1){XG51};
DDCS2:=CONST(DDTS2){XG51};
A1:=REF(RSI1,P)=HHV(RSI1,2*P+1){XG51};
B1:=FILTER(A1,P){XG51};
C1:=BACKSET(B1,P+1){XG51};
D1:=FILTER(C1,P){XG51};
A2:=REF(RSI1,P)=LLV(RSI1,2*P+1){XG51};
B2:=FILTER(A2,P){XG51};
C2:=BACKSET(B2,P+1){XG51};
D2:=FILTER(C2,P){XG51};
R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1){XG51};
S11:=R11>REF(R11,1){XG51};
T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1){XG51};
U11:=T11>REF(T11,1){XG51};
MID:=MA(RSI1,20){XG51};
UPPER:=MID + 2*STD(RSI1,20){XG51};
LOWER:=MID - 2*STD(RSI1,20){XG51};
高:=REF(HHV(RSI1,360),1){XG51};
低:=REF(LLV(RSI1,240),1){XG51};
bias1:=(C-MA(C,6))/MA(C,6)*100{XG51};
BIAS2:=(C-MA(C,12))/MA(C,12)*100{XG51};
BIAS3:=(C-MA(C,24))/MA(C,24)*100{XG51};
BIAS:=(BIAS1+2*BIAS2+3*BIAS3)/6{XG51};
乖离:=MA(BIAS,3){XG51};
前高:REF(RSI1,BARSLAST(D1)),COLORFF00FF,NODRAW{XG51};
前低:REF(RSI1,BARSLAST(D2)),COLOR00FF00,NODRAW{XG51};
相对能量:(RSI1-前低)/(前高-前低)*100,COLORBLUE,NODRAW{XG51};
上轨:UPPER,COLOR993300{XG51};
下轨:LOWER,COLOR993300{XG51};
DRAWICON(CC,RSI1*1.03,2){XG51};
DRAWICON(CC1,RSI1*0.97,1);
高压:DRAWLINE(CURRBARSCOUNT=GDCS2,RSI1,CURRBARSCOUNT=GDCS1,RSI1,1) COLORYELLOW,POINTDOT,LINETHICK4{XG51};
低支:DRAWLINE(CURRBARSCOUNT=DDCS2,RSI1,CURRBARSCOUNT=DDCS1,RSI1,1) COLORWHITE,POINTDOT,LINETHICK4{XG51};
阻力:DRAWLINE(D1,RSI1,S11,RSI1,1),COLORBLUE{XG51};
支撑:DRAWLINE(D2,RSI1,U11,RSI1,1),COLOR00FF00{XG51};
DRAWTEXT(crOSS(RSI1,LOWER),LOWER,'抄'),COLOR00FF00{XG51};
DRAWTEXT(CROSS(LOWER,RSI1),LOWER,'▼'),COLOR00FF00{XG51};
DRAWTEXT(CROSS(RSI1,高),MID,'年高'),COLORBLUE{XG51};
DRAWTEXT(CROSS(低,RSI1),MID,'年低'),COLORBLUE{XG51};
DRAWTEXT(CROSS(UPPER,RSI1),UPPER,'逃'),COLORBLUE{XG51};
DRAWTEXT(CROSS(RSI1,UPPER),UPPER,'▲'),COLORBLUE{XG51};
VM:MA(RSI1,N1),COLORFF00FF,NODRAW{XG51};
DRAWTEXT(ISLASTBAR AND RSI1>REF(RSI1,1),VM,' ▲'),COLORDD00FF{XG51};
DRAWTEXT(ISLASTBAR AND RSI1<REF(RSI1,1),VM,' ▼'),COLORCCEE00{X_G~5-1_C_N_{};

源码正文：

XX:=((((CLOSE - ma(CLOSE,34)) / MA(CLOSE,34)) * 100)* 5){XG51};
B001:=(((((CLOSE - MA(CLOSE,42)) / MA(CLOSE,42)) ) * 100) * 5){XG51};
B002:=(((((CLOSE - MA(CLOSE,67)) / MA(CLOSE,67)) ) * 100) * 5){XG51};
B003:=(((XX + B001) / 2) - (B002 )){XG51};
B004:=(((0 - 100) * (HHV(HIGH,34) - CLOSE)) / (HHV(HIGH,34) - LLV(LOW,34))){XG51};
B005:=(((0 - 100) * (HHV(HIGH,42) - CLOSE)) / (HHV(HIGH,42) - LLV(LOW,42))){XG51};
B006:=(((0 - 100) * (HHV(HIGH,72) - CLOSE)) / (HHV(HIGH,72) - LLV(LOW,72))){XG51};
B007:=ema((((B004 + B005) / 2) - B006),6){XG51};
B008:=REF(CLOSE,1){XG51};
B009:=((((SMA(MAX((CLOSE - B008),0),19,1) / SMA(Abs((CLOSE - B008)),19,1)) * 100) - 50) * 1.25){XG51};
B010:=((((SMA(MAX((CLOSE - B008),0),34,1) / SMA(ABS((CLOSE - B008)),34,1)) * 100) - 50) * 1.25){XG51};
B011:=((((SMA(MAX((CLOSE - B008),0),72,1) / SMA(ABS((CLOSE - B008)),72,1)) * 100) - 50) * 1.25){XG51};
B012:=EMA(((((B009 + B010) / 2) - B011) * 5),6){XG51};
B013:=((((0 - 1) * ((B007 + B003) + B012)) / 3) * 1.5){XG51};
B014:=B012{XG51};
B015:=B013{XG51};
B016:=EMA(B012,4){XG51};
B017:=B012{XG51};
KKM1:=B013{XG51};
DPM1:=EMA(B013,4){XG51};
多头:B017,COLOR0000FF{XG51};
空头:KKM1,COLOR00FF00{XG51};
多均:B016{XG51};
空均:DPM1{XG51};
B018:=IF(crOSS(B017,KKM1),28,0){XG51};
XD:5 {XG51};
VARX:=B017{XG51};
C023:=KKM1{XG51};
C024:=B016{XG51};
C025:=DPM1{XG51};
C026:=WINNER(CLOSE){XG51};
W:=(dma(C026,((vol / CAPITAL) * 1)) * 100){XG51};
HWXWINNER:=W{XG51};
XD1:=EMA(W,6){XG51};
XWXMH:=XD1{XG51};
XD2:=MA(W,14){XG51};
庄家控盘:((HWXWINNER - XWXMH) * 10),COLORstICK,LINETHICK2{XG51};
STICKLINE(CROSS(多头,空均),0,50,8,0) ,COLORWHITE{X~G-5^1~C~N~{};