通达信红持绿清未加密选股指标公式源码

源码正文：

DRAWGBK(C>O,RGB(30,0,0),RGB(0,0,0),1,2,1){XG51};
VAR1:=1{XG51};
VAR3:=LLV(HIGH,240){XG51};
VAR4:=100*(CLOSE-VAR3)/VAR3*VAR1{XG51};
VAR5:=REF(LLV(CLOSE,480),1)*VAR1{XG51};
VAR6:=REF(HHV(CLOSE,480),1)*VAR1{XG51};
VAR7:=100*(CLOSE-VAR5)/(VAR6-VAR5)*VAR1{XG51};
VAR8:=(CLOSE-LLV(CLOSE,981))/(HHV(CLOSE,981)-LLV(CLOSE,981))*100*VAR1{XG51};
VAR9:=(CLOSE-LLV(CLOSE,393))/(HHV(CLOSE,393)-LLV(CLOSE,393))*100*VAR1{XG51};
VARA:=(CLOSE-LLV(LOW,981))/(HHV(HIGH,981)-LLV(LOW,981))*100*VAR1{XG51};
VARB:=(CLOSE-LLV(LOW,393))/(HHV(HIGH,393)-LLV(LOW,393))*100*VAR1{XG51};
VARC:=ema(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),5)/4*VAR1{XG51};
VARD:=IF(VARC>23.16,VARC,0)*VAR1{XG51};
VARE:=VARC<1*VAR1{XG51};
VARF:=VARD*VAR1{XG51};
VAR10:=VAR4<0 AND VAR7<0{XG51};
VAR11:=1{XG51};
VAR12:=(HIGH+LOW+CLOSE*2)/4*VAR11{XG51};
VAR13:=Ema(VAR12,21){XG51};
VAR14:=stD(VAR12,21){XG51};
VAR15:=((VAR12-VAR13)/VAR14*100+200)/4*VAR11{XG51};
VAR16:=(EMA(VAR15,89)-25)*1.56*VAR11{XG51};
VAR17:=EMA(VAR16,5)*1.22*VAR11{XG51};
VAR18:=EMA(VAR17,3)*VAR11{XG51};
VAR19:=3*VAR17-2*VAR18*VAR11{XG51};
VAR1A:=IF(crOSS(VAR19,VAR17) AND CROSS(VAR19,VAR18) AND CROSS(VAR17,VAR18),1,0){XG51};
VAR1B:=IF(CROSS(VAR17,VAR19) AND CROSS(VAR18,VAR19) AND CROSS(VAR18,VAR17),1,0){XG51};
买点:=IF(FILTER(VAR8=0 AND VARE AND VAR10 AND VAR1A,5)=1,10,0){XG51};
卖点:=IF(FILTER(VAR8=100 AND VARF AND VAR1B,5)=1,10,0){XG51};
VAR1C:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),13)/4*VAR1{XG51};
VAR1D:=EMA(CLOSE,2)-EMA(CLOSE,89)*VAR1{XG51};
VAR1E:=EMA(VAR1D,30)*VAR1{XG51};
VAR1F:=2*(VAR1D-VAR1E)*10*VAR1{XG51};
VAR20:=POW(VAR1F,3)*0.1+POW(VAR1F,2)*VAR1{XG51};
VAR21:=SQRT(SQRT(LOW*HIGH*OPEN*CLOSE)){XG51};
VAR22:=EMA(VAR21*0.97,3)*VAR1{XG51};
VAR23:=(HIGH+LOW+CLOSE)/3*VAR1{XG51};
VAR24:=(VAR23-MA(VAR23,14))/(0.015*AVEDEV(VAR23,14))*VAR1{XG51};
VAR25:=IF(YEAR<9999 AND VAR1F>0.015,VAR20,0)/45*VAR1{XG51};
YZ:=VAR25/10,COLORWHITE{XG51};
VAR26:=EMA(CLOSE,2)-EMA(CLOSE,150){XG51};
VAR27:=EMA(VAR26,100){XG51};
VAR28:=2*(VAR26-VAR27){XG51};
VAR29:=POW(VAR28,3)*0.1+POW(VAR28,1){XG51};
VAR2A:=SQRT(SQRT(LOW*HIGH*OPEN*CLOSE)){XG51};
VAR2B:=EMA(VAR2A*0.97,3){XG51};
VAR2C:=(HIGH+LOW+CLOSE)/3{XG51};
VAR2D:=(VAR2C-MA(VAR2C,14))/(0.015*AVEDEV(VAR2C,14)){XG51};
ZL:=IF(YEAR<9999 AND VAR28>0.1,VAR29,0)*5/10{XG51};
无红持币:=EMA((ZL+YZ),22),COLORBLUE,LINETHICK1{XG51};
渐红持股:=IF(无红持币>REF(无红持币,1),无红持币,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
STICKLINE(无红持币,0,无红持币,0.2,1),COLORBLUE{XG51};
STICKLINE(渐红持股,0,渐红持股,0.2,0),COLORWHITE{XG51};
高中:=HHV(无红持币,100){XG51};
DRAWTEXT(FILTER(高中,200),无红持币,''),COLORWHITE{XG51};
录制:=MA(无红持币,3){XG51};
DRAWBAND(无红持币,RGB(140,0,150),录制,RGB(0,170,0)){XG51};
无红持币A:EMA((ZL+YZ),22),COLORBLUE,LINETHICK1{XG51};
渐红持股A:IF(无红持币>REF(无红持币,1),无红持币,DRAWNULL),COLORWHITE,LINETHICK1{X!G=5+1!C!N!{};

源码正文：

N:=30;M:=13{XG51};
LC := REF(CLOSE,1){XG51};
rsi1:=SMA(maX(CLOSE-LC,0),13,1)/SMA(Abs(CLOSE-LC),13,1)*100{XG51};
RSIF:=90-RSI1,COLOR33DD33{XG51};
A4:=((C-LLV(L,33))/(HHV(H,33)-LLV(L,33)))*67{XG51};
VAR22:=LLV(LOW,10){XG51};
VAR33:=HHV(HIGH,25){XG51};
动力线:ema((CLOSE-VAR22)/(VAR33-VAR22)*4,4){XG51};
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100{XG51};
PP101:=SMA(RSV,3,1){XG51};
PP102:=SMA(PP101,3,1){XG51};
PP103:=3*PP101-2*PP102{XG51};
stICKLINE(动力线>0 AND ISLASTBAR AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),20,80,0,1),COLORBROWN{XG51};
STICKLINE(动力线>=0.2 AND 动力线<0.5 AND ISLASTBAR AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),20,35,2,1),COLORBROWN{XG51};
STICKLINE(动力线>=0.5 AND 动力线<1.75 AND ISLASTBAR AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),35,50,2,0),COLORBLUE{XG51};
STICKLINE(动力线>=1.75 AND 动力线<3.2 AND ISLASTBAR AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),50,65,2,0),COLORWHITE{XG51};
STICKLINE(动力线>=3.2 AND 动力线<3.45 AND ISLASTBAR AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),65,72,2,0),COLORLICYAN{XG51};
STICKLINE(动力线>=3.45 AND ISLASTBAR,72,80,2,0) AND PP103<PP101,COLORGREEN;{XG51};
STICKLINE(PP103<PP101 AND ISLASTBAR,30,70,1,1),COLORCYAN;{XG51};
STICKLINE(动力线>0 AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),95,94,1,0),COLORBROWN{XG51};
STICKLINE(动力线>=0.2 AND 动力线<0.5 AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),95,92,3,0),COLORBROWN{XG51};
STICKLINE(动力线>=0.5 AND 动力线<1.75 AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),95,94,1,0),COLORBLUE{XG51};
STICKLINE(动力线>=1.75 AND 动力线<3.2 AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),95,94,1,0),COLORWHITE{XG51};
STICKLINE(动力线>=3.2 AND 动力线<3.45 AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),95,92,3,0),COLORLICYAN{XG51};
STICKLINE(动力线>=3.45,95,92,3,0) AND PP103<PP101,COLORGREEN;{XG51};
STICKLINE(PP103<PP101,95,94,1,0),COLORCYAN;{XG51};
VAR1:=(HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100-70{XG51};
VAR2:=SMA(VAR1,9,1)+100{XG51};
VAR3:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
VAR4:=SMA(VAR3,3,1){XG51};
VAR5:=SMA(VAR4,3,1)+100{XG51};
VAR6:=VAR5-VAR2{XG51};
趋势:IF(VAR6>45,VAR6-45,0){XG51};
STICKLINE(REF(趋势,1)< 趋势, 趋势,REF(趋势,1),2,0),COLORLIMAGENTA{XG51};
STICKLINE(REF(趋势,1)> 趋势, 趋势,REF(趋势,1),2,0),COLORCYAN{XG51};
强弱分界:=50,COLORFFFFCC{XG51};
底部:=0,COLOR00FFFF{XG51};
安全:=20,COLORFFAA66,LINETHICK1{XG51};
预警:=80,COLORFFAA66,LINETHICK1{XG51};
顶部:=100,COLORFFFF33{XG51};
V1:=LLV(LOW,10){XG51};
V2:=HHV(H,25){XG51};
价位线:=EMA((C-V1)/(V2-V1)*4,4){XG51};
DRAWTEXT(CROSS(3.5,价位线),110-4,'●卖'),COLORRED{XG51};
VAR2Q:=REF(LOW,1){XG51};
VAR3Q:=SMA(ABS(LOW-VAR2Q),3,1)/SMA(MAX(LOW-VAR2Q,0),3,1)*100{XG51};
VAR4Q:=EMA(IF(CLOSE*1.3,VAR3Q*10,VAR3Q/10),3){XG51};
VAR5Q:=LLV(LOW,30){XG51};
VAR6Q:=HHV(VAR4Q,30){XG51};
VAR7Q:=IF(MA(CLOSE,58),1,0){XG51};
VAR8Q:=EMA(IF(LOW<=VAR5Q,(VAR4Q+VAR6Q*2)/2,0),3)/618*VAR7Q{XG51};
VAR9Q:=IF(VAR8Q>100,100,VAR8Q){XG51};
AA3:=(HHV(HIGH,21)-CLOSE)/(HHV(HIGH,21)-LLV(LOW,21))*100-10{XG51};
AA4:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100{XG51};
AA5:=SMA(AA4,13,8){XG51};
走势:=CEILING(SMA(AA5,13,8)){XG51};
AA6:=SMA(AA3,21,8){XG51};
卖临界:STICKLINE(走势-AA6>85,103,100,15,1),COLORWHITE,LINETHICK2{XG51};
主力线:3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*
SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1),LINETHICK2,COLORYELLOW{XG51};
超短线:=(((主力线-LLV(主力线,21))/(HHV(主力线,21)-LLV(主力线,21)))*(4))*(25),LINETHICK2,COLORYELLOW{XG51};
VAR11:=REF((LOW+OPEN+CLOSE+HIGH)/4,1){XG51};
VAR21:=SMA(ABS(LOW-VAR11),13,1)/SMA(MAX(LOW-VAR11,0),10,1){XG51};
VAR31:=EMA(VAR21,10){XG51};
VAR41:=LLV(LOW,33){XG51};
VAR51:=EMA(IF(LOW<=VAR41,VAR31,0),3){XG51};
主力进场:IF(VAR51>REF(VAR51,1),VAR51,0),COLORWHITE,NODRAW{XG51};
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,3,0 ),COLOR000055{XG51};
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,2.6,0 ),COLOR000077{XG51};
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,2.1,0 ),COLOR000099{XG51};
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,1.5,0 ),COLOR0000BB{XG51};
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,0.9,0 ),COLOR0000DD{XG51};
STICKLINE(VAR51>REF(VAR51,1),0,VAR51,0.3,0 ),COLOR0000FF{XG51};
洗盘:IF(VAR51<REF(VAR51,1),VAR51,0),COLORCYAN,NODRAW{XG51};
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,3,0),COLOR005500{XG51};
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,2.6,0),COLOR007700{XG51};
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,2.1,0),COLOR009900{XG51};
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,1.5,0),COLOR00BB00{XG51};
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,0.9,0),COLOR00DD00{XG51};
STICKLINE(VAR51<REF(VAR51,1),0,VAR51,0.3,0),COLOR00FF00{XG51};
VAR12:=3{XG51};
VAR28:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) - (2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1)){XG51};
SS1:=(LOW+HIGH+CLOSE*2)/4{XG51};
SS2:= MA(SS1,4){XG51};
SS3:=HHV(SS2,10){XG51};
SS4:=MA(SS3,3){XG51};
SS5:=1.25*SS4-0.25*SS3{XG51};
XKKJ:=IF(SS5>SS3,SS3,SS5){XG51};
FF1:=LLV(SS2,10){XG51};
FF2:=MA(FF1,3){XG51};
FF3:=1.25*FF2-0.25*FF1{XG51};
DKKJ:=IF(FF3<FF1,FF1,FF3){XG51};
MA13:=MA(C,13){XG51};
ZDHM:=CROSS(C,DKKJ) AND CROSS(C,MA13) AND CROSS(C,XKKJ){XG51};
ZHM:=CROSS(C,MA13) AND CROSS(C,XKKJ){XG51};
大黑马:IF(ZDHM OR ZHM,50,0),COLORBLUE,LINETHICK3{XG51};
动态底部:=EMA(IF(L<= LLV(L,30),SMA(ABS(L-REF(L,1)),30,1)/SMA(MAX(L-REF(L,1),0),99,1),0)*5,3){XG51};
准备买入:=CROSS(C,TROUGH(CLOSE,N,1)*1.02){XG51};
低点:IF(动态底部 AND 准备买入,50,0),COLORRED,LINETHICK3{XG51};
RSV11:=(CLOSE-LLV(LOW,19))/(HHV(HIGH,19)-LLV(LOW,19))*100{XG51};
K:=SMA(RSV11,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=3*K-2*D{XG51};
短线:=EMA(J,6),COLORWHITE{XG51};
浮筹:=MA(短线,28)*1,LINETHICK2,COLORCYAN{XG51};
空方:=MA(100*(HHV(HIGH,35)-CLOSE)/(HHV(HIGH,35)-LLV(LOW,35)),3),COLORBLUE{XG51};
DRAWTEXT(CROSS(短线,浮筹) AND 短线<36,20+4,' 买'),COLORLIGREEN{XG51};
DRAWICON(CROSS(短线,浮筹) AND 短线<36,20+4,17),COLORYELLOW, LINETHICK1{XG51};
DRAWTEXT(CROSS(浮筹,空方),浮筹,' 追'),COLORRED{XG51};
DRAWICON(CROSS(浮筹,空方),浮筹,16){X=G-5_1=C=N={};