通达信RSI背离主图选股指标公式源码

通达信RSI背离主图选股指标公式源码

源码正文：

VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2){XG51};
VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
stICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA
OR VARB OR VARC,CLOSE,REF(CLOSE,1),3,1),COLORWHITE{XG51};
VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2){XG51};
VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15
OR VAR16 OR VAR17 OR VAR18,CLOSE,REF(CLOSE,1),3,1),COLORFF9900{XG51};
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1{XG51};
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),3.0,0),COLOR0088FF{XG51};
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),2.0,0),COLOR33AAFF{XG51};
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),0.5,0),COLOR66CCFF{XG51};
DRAWICON(VAR19,L*0.98,7){XG51};
VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD{XG51};
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3.0,0),COLOR008800{XG51};
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),2.0,0),COLOR00BB00{XG51};
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),0.5,0),COLOR00EE00{XG51};
DRAWICON(VAR1A,H*1.02,8){XG51};
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100{XG51};
K:=SMA(RSV,3,1){XG51};
D:=Sma(K,3,1){XG51};
J:=3*K-2*D{XG51};
RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100{XG51};
K24:=SMA(RSV24,3,1){XG51};
D24:=SMA(K24,3,1){XG51};
J24:=3*K24-2*D24{XG51};
压力位:IF(crOSS(J24,J),H,REF(H,BArslAST(CROSS(J24,J)))),COLOR66CC66,LINETHICK3{XG51};
支撑位:IF(CROSS(J,J24),L,REF(L,BARSLAST(CROSS(J,J24)))),COLORCC33CC,LINETHICK3{XG51};
支撑价:LLV(LOW,34),COLOR0088FF,DOTLINE,LINETHICK2{XG51};
阻力价:HHV(HIGH,34),COLORFF9900,DOTLINE,LINETHICK2{XG51};
DRAWTEXT(C-O>=0 AND O/L>1.05 AND L<=LLV(L,30),L,'★<--极品绝底'),COLOR99FF00{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("macd.dif","MacD.DEA"),1))+1)>C AND REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1))+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA")>0,L-0.02,'★M'),COLOR00FFFF{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("kdj.K","kdJ.D"),1))+1)>C AND REF("KDJ.K",BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1))+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D"),L-0.10,'◎K'),COLORFF00FF{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("rsi.RSI1","RSI.RSI2"),1))+1)>C AND REF("RSI.RSI1",BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1))+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2")>0,L-0.18,'◆R'),COLOR0000FF;{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1)<C AND REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1)>"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF")>0,H+0.16,'★M'),COLOR00FF00;{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1))+1)<C AND REF("KDJ.K",BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1))+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K")>0,H+0.08,'◎K'),COLORFFFFCC{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1))+1)<C AND REF("RSI.RSI1",BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1))+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1")>0,H+0.04,'◆R'),COLORFF9900;{XG51};
DRAwrECTREL(0,500,135,999.4,IF(120,RGB(10,0,0),0)){XG51};
超B:=L2_AMO(0,2)/10000.0{XG51};
大B:=L2_AMO(1,2)/10000.0{XG51};
中B:=L2_AMO(2,2)/10000.0{XG51};
小B:=L2_AMO(3,2)/10000.0{XG51};
超S:=L2_AMO(0,3)/10000.0{XG51};
大S:=L2_AMO(1,3)/10000.0{XG51};
中S:=L2_AMO(2,3)/10000.0{XG51};
小S:=L2_AMO(3,3)/10000.0{XG51};
TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0){XG51};
主力进:=(超B)+(大B),NODRAW{XG51};
主力出:=(超S)+(大S),NODRAW{XG51};
小散进:=(中B)+(小B),NODRAW{XG51};
小散出:=(中S)+(小S),NODRAW{XG51};
DAZHIV:=CONST(MAX(Abs(主力进),MAX(ABS(主力出),MAX(ABS(小散进),ABS(小散出))))),NODRAW{XG51};
DRAWRECTREL(0,CONST(940-(ABS(主力进)*250/DAZHIV)),30,960,IF(CONST(主力进>0),RGB(255,0,0),RGB(23,125,255))){XG51};
DRAWRECTREL(32,CONST(940-(ABS(主力出)*250/DAZHIV)),62,960,IF(CONST(主力出>0),RGB(23,125,255),RGB(255,0,0))){XG51};
DRAWRECTREL(70,CONST(940-(ABS(小散进)*250/DAZHIV)),100,960,IF(CONST(小散进>0),RGB(255,0,0),RGB(23,125,255))){XG51};
DRAWRECTREL(102,CONST(940-(ABS(小散出)*250/DAZHIV)),132,960,IF(CONST(小散出>0),RGB(23,125,255),RGB(255,0,0))){XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.0001,0.9,0,STRCAT('',CON2STR(主力进/10,0))),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.033,0.9,0,STRCAT('',CON2STR(主力出/10,0))),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.07,0.9,0,STRCAT('',CON2STR(小散进/10,0))),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.101,0.9,0,STRCAT('',CON2STR(小散出/10,0))),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.03,1,0,'（X10万元)'),COLOR00FFFF{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,1,0,'主进出'),COLORGREEN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.09,1,0,'散进出'),COLORGREEN{XG51};
主力买力度:=LARGEINTRDvol*1000/VOL{XG51};
主力卖力度:=LARGEOUTTRDVOL*1000/VOL{XG51};
AAD:=CONST(MAX(ABS(主力买力度),ABS(主力卖力度)))*4,NODRAW{XG51};
DRAWRECTREL(0,515,CONST(ABS(主力买力度)*500/AAD),568,IF(CONST(主力买力度)>0,RGB(255,0,0),RGB(0,50,0))){XG51};
DRAWRECTREL(0,570,CONST(ABS(主力卖力度)*500/AAD),623,IF(CONST(主力卖力度)>0,RGB(0,50,0),RGB(255,0,0))){XG51};
DRAWTEXT_FIX(1,0,0.524,0,STRCAT('主买力度:',CON2STR(主力买力度,0))),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0,0.576,0,STRCAT('主卖力度:',CON2STR(主力卖力度,0))),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.00,0,0,'所属行业：')COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.05,0,0,HYBLOCK)COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.14,0,0,'所属地区：')COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.19,0,0,DYBLOCK)COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.30,0.00,0,'主题投资：')COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.35,0.00,0,EXTERNSTR(0,2))COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.00,0.05,0,'主营业务：')COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.05,0.05,0,EXTERNSTR(0,3))COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.00,0.10,0,'解禁日期：')COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.05,0.10,0,EXTERNSTR(0,4))COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.00,0.15,0,'愚民概念：'),COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.05,0.15,0,EXTERNSTR(0,6)),COLOR00FFFF{XG51};
{X_G^5_1_C_N_{};