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

源码正文：

JRH:=HHV(C,2);JRL:=LLV(C,2){XG51};
YTSL:=(3*CLOSE+LOW+OPEN+HIGH)/6{XG51};
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};
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};
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};
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};
红色持股:=IF((VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC),1,0){XG51};
青色观望:=IF((VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18),1,0){XG51};
短买:=VAR19{XG51};
品红离场:=VAR1A{XG51};
stICKLINE(C>=O,L,H,0,0),COLOR0000CC{XG51};
STICKLINE(C<O,L,H,0,0),COLOR999900{XG51};
STICKLINE(1,C,O,1,0),COLOR858500{XG51};
STICKLINE(C>=O,C,O,1,0),COLOR0000E5{XG51};
STICKLINE(红色持股,CLOSE,O,4,0),COLOR000055{XG51};
STICKLINE(红色持股,CLOSE,O,4,0),COLOR000088{XG51};
STICKLINE(红色持股,CLOSE,O,4,0),COLOR0000AA{XG51};
STICKLINE(红色持股,CLOSE,O,3,0),COLOR0000CC{XG51};
STICKLINE(红色持股,CLOSE,O,2,0),COLOR0000EE{XG51};
STICKLINE(红色持股,CLOSE,O,1,0),COLOR0000FF{XG51};
STICKLINE(青色观望,CLOSE,O,2,0),COLOR555500{XG51};
STICKLINE(青色观望,CLOSE,O,2,0),COLOR888800{XG51};
STICKLINE(青色观望,CLOSE,O,2,0),COLORAAAA00{XG51};
STICKLINE(青色观望,CLOSE,O,2,0),COLORCCCC00{XG51};
STICKLINE(青色观望,CLOSE,O,2,0),COLOREEEE00{XG51};
STICKLINE(青色观望,CLOSE,O,1,0),COLORFFFF00{XG51};
DRAWICON(短买,LOW-0.2,7){XG51};
DRAWICON(品红离场,HIGH+0.2,8){XG51};
RSV:=(C-LLV(L,15))/(HHV(H,16) - LLV(L,16))*100{XG51};
趋势:=ma((3*SMA(RSV,6,1)-2*SMA(SMA(RSV,5,1),5,1)),2),LINETHICK1,COLOR0000FF{XG51};
VAR42:=3*(SMA(((OPEN - LLV(LOW,82))/(HHV(HIGH,89) - LLV(LOW,89)))*(100),20,1))-2*(SMA(SMA(((OPEN - LLV(LOW,89))/(HHV(HIGH,89) - LLV(LOW,89)))*(100),20,1),15,1)){XG51};
VAR43:=VAR42-100{XG51};
背离:=FORCAST(-1*VAR43,21),LINETHICK1,COLOR00FFF3{XG51};
GH:=SUM((H-L)/L*100,8)<16{XG51};
DRAWTEXT((crOSS(趋势,背离) AND 背离<85 ),LOW*0.88,'主升'),COLORE7FCB9{XG51};
乖离率:=(C-MA(C,30))/MA(C,30)*500{XG51};
N1:=BArslAST(CROSS(C,MA(C,30))){XG51};
N2:=BARSLAST(CROSS(MA(C,30),C)){XG51};
长期趋势:=IF(N1<N2,N1+1,0){XG51};
峰值乖离:=HHV(乖离率,长期趋势){XG51};
VAR25:=(ema(CLOSE,2) - EMA(CLOSE,150)){XG51};
VAR26:=EMA(VAR25,100){XG51};
VAR27:=(2 * (VAR25 - VAR26)){XG51};
VAR28:=((POW(VAR27,3) * 0.1) + POW(VAR27,1)){XG51};
黑马线:=(IF((VAR27 > 0.1),VAR28,0) * 5),COLORFF0000{XG51};
DRAWTEXT((CROSS(趋势,背离) AND 黑马线>0.9 AND (乖离率=峰值乖离) ),LOW*0.80,'黑马'),COLORLIMAGENTA{XG51};
顶压:HHV(MA(H,11),50),COLOR00FFFF{XG51};
短压:HHV(MA(H,11),15),COLOR0090E0{XG51};
XL1:=LLV(MA(H,11),1){XG51};
趋势2:IF(XL1>=短压,短压,XL1),COLORFFFFFF{X_G*5~1_C_N_{};

源码正文：

N:=5;QJ0:=(HIGH+LOW+CLOSE)/3{XG51};
QJ1:=IF(HIGH=LOW,1,HIGH-maX(OPEN,CLOSE)){XG51};
QJ2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-QJ0){XG51};
QJ3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW){XG51};
QJ4:=IF(HIGH=LOW,1,QJ0-MIN(CLOSE,OPEN)){XG51};
QJ5:=vol/(IF(HIGH=LOW,4,HIGH-LOW)){XG51};
QJ6:="macd.dif">"MacD.DEA" AND "MACD.DEA"<0{XG51};
QJ7:="kdj.K">"kdj.D" AND "KDJ.D"<30{XG51};
QJ8:="MACD.DIF"<"MACD.DEA"{XG51};
QJ9:="KDJ.K"<"KDJ.D" AND "KDJ.K">80{XG51};
特大: QJ4*QJ5,NODRAW;大单: QJ3*QJ5,NODRAW{XG51};
中单: QJ1*QJ5,NODRAW;小单: QJ2*QJ5,NODRAW{XG51};
W1:=SUM(大单,N)+SUM(特大,N);W2:=SUM(小单,N)+SUM(中单,N){XG51};
量振1:=特大>大单 AND 大单>小单{XG51};
量振2:=特大<小单 AND 大单<小单{XG51};
标振1:=QJ6 AND QJ7{XG51};
标振2:=QJ8 AND QJ9{XG51};
A:=W1-W2;A0:=IF(A>0,A,0);B0:=IF(A<0,A,0){XG51};
stICKLINE(A0,0,A0,3,0),COLOR000044{XG51};
STICKLINE(A0,0,A0,2.5,0),COLOR000088{XG51};
STICKLINE(A0,0,A0,1.5,0),COLOR0000AA{XG51};
STICKLINE(A0,0,A0,1,0),COLOR0000CC{XG51};
STICKLINE(B0,0,-B0,3,0),COLOR004400{XG51};
STICKLINE(B0,0,-B0,2.5,0),COLOR008800{XG51};
STICKLINE(B0,0,-B0,1.5,0),COLOR00AA00{XG51};
STICKLINE(B0,0,-B0,1,0),COLOR00CC00{XG51};
周趋势: MA(A,5),COLORFFFFFF{XG51};
平滑值: ema(周趋势,5),COLOR00FFFF{XG51};
STICKLINE(标振1 AND 量振1 AND 周趋势>平滑值,0,A0,3,0),COLORBLUE;
DRAWTEXT(标振1 AND 量振1 AND 周趋势>平滑值,A0,'振'),COLORBLUE{X*G+5^1*C*N*{};