通达信主力进撤未加密选股指标公式源码

源码正文：

R:=4{XG51};
V1:=(C*2+H+L+O)/5;
V2:=ema(V1,13)-Ema(V1,34){XG51};
V3:=EMA(V2,5);
V4:=(V2-V3)*100;
主力撤:=IF(V4<=0,V4,0){XG51};
主力进:=IF(V4>=0,V4,0){XG51};
V8:=(INDEXC*2+INDEXH+INDEXL+INDEXO)/5{XG51};
V9:=EMA(V8,13)-EMA(V8,34);
VA:=EMA(V9,5);
VB:=(V9-VA)/2;
V11:=3*SMA((C-LLV(L,13))/(HHV(H,13)-LLV(L,13))*100,5,1)-2*SMA(SMA((C- LLV(L,13))/(HHV(H,13)-LLV(L,13))*100,5,1),3,1){XG51};
V12:=3*SMA((C-LLV(L,60))/(HHV(H,60)-LLV(L,60))*100,5,1)-2*SMA(SMA((C- LLV(L,60))/(HHV(H,60)-LLV(L,60))*100,5,1),3,1){XG51};
V13:=3*SMA((C-LLV(L,120))/(HHV(H,120)-LLV(L,120))*100,5,1)-2*SMA(SMA((C- LLV(L,120))/(HHV(H,120)-LLV(L,120))*100,5,1),3,1){XG51};
阳光:EMA(V11,3),COLORBLUE,LINETHICK2{XG51};
空气:EMA(V12,3),COLORDD00FF{XG51};
雨露:EMA(V13,3),COLORRED{XG51};
DV11:=3*SMA((INDEXC-LLV(INDEXL,60))/(HHV(INDEXH,60)-LLV(INDEXL,60))*100,5,1)-2*SMA(SMA((INDEXC-LLV(INDEXL,60))/(HHV(INDEXH,60)-LLV(INDEXL,60))*100,5,1),3,1){XG51};
自然环境:EMA(DV11,13),COLORGREEN,LINETHICK2{XG51};
稻草人:空气<=10,LINETHICK0,COLOREECC99{XG51};
stICKLINE(空气<=10,0,15,3,0),COLOREECC99{XG51};
麦田:空气<=10 AND (阳光<=10 OR 自然环境<=10),LINETHICK0,COLOR00EEAA{XG51};
STICKLINE(空气<=10 AND (阳光<=10 OR 自然环境<=10),0,20,2,0),COLOR00EEAA{XG51};
早熟:空气<=10 AND (阳光<=10 OR 自然环境<=10) AND 雨露<=10,LINETHICK0,COLORLIMAGENTA{XG51};
STICKLINE(空气<=10 AND (阳光<=10 OR 自然环境<=10) AND 雨露<=10,0,25,1,0),COLORLIMAGENTA{XG51};
光合作用:阳光<=10 AND 空气<=10 AND 自然环境<=10 AND 雨露<=10,LINETHICK0,COLORWHITE{XG51};
STICKLINE(阳光<=10 AND 空气<=10 AND 自然环境<=10 AND 雨露<=10,0,30,0.5,0),COLORWHITE{XG51};
AA:=FILTER((空气<=10),15){XG51};
XX:=FILTER(空气<=10 AND 自然环境<=10,15){XG51};
BB:= (空气<=10 AND V12>10) AND FILTER((空气<=10 AND V12>10),10){XG51};
乌鸦:空气>=90 AND 空气>REF(空气,1),COLORFFFF00,LINETHICK0{XG51};
STICKLINE(乌鸦,100,95,15,1),COLORFFFF00{XG51};
暴风雨:空气>=90 AND 自然环境>=90,COLORCYAN,LINETHICK0{XG51};
STICKLINE(暴风雨,100,95,10,0),COLORCYAN{XG51};
收割:FILTER(空气>90 AND 空气<REF(空气,1) AND 主力进<REF(主力进,1),8){XG51};
DRAWTEXT( 收割,90,'收割'),COLORBLUE{XG51};
IF(阳光<=10,阳光,DRAWNULL),LINETHICK3,COLOR0000FF{XG51};
IF(阳光>=90,阳光,DRAWNULL),LINETHICK3,COLORFF0000{XG51};
STICKLINE(自然环境<=10,100,95,10,0),COLORWHITE{XG51};
DRAWTEXT(FILTER(自然环境<=10,8),90,'农耕?'),COLORWHITE{X^G!5-1^C^N^{};

源码正文：

DE:=CONst(LLV(L,90)){XG51};
JI:=CONST(HHV(H,90))-DE{XG51};
DE_K:=DE+JI/3*2{XG51};
JI_K:=JI/2{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
DE_A:=CONST(LLV(RSV,90)){XG51};
DD_A:=CONST(HHV(RSV,90))-DE_A{XG51};
R:=(RSV-DE_A)/DD_A{XG51};
RSV1:=R*JI_K+DE_K{XG51};
DE_M:=DE+JI/3{XG51};
JI_M:=JI/2{XG51};
kdL:=CONST(LLV(ema(C,26),90)){XG51};
KDH:=CONST(HHV(Ema(C,26),90))-KDL{XG51};
R_K1:=(EMA(C,12)-KDL)/KDH{XG51};
R_K2:=(EMA(C,26)-KDL)/KDH{XG51};
dif~:(R_K1-R_K2)*JI*1.5+DE_M{XG51};
DEA~:EMA(DIF~,9){XG51};
macd~:=(DIF~-DEA~)*2+DE_M{XG51};
STICKLINE(MacD~>=DE_M,MACD~,DE_M,0,0),COLORLIGREEN{XG51};
D_1:=MACD~>H AND H>=DE_M AND DE_M>=L{XG51};
D_2:=MACD~>H AND H>=L AND L>DE_M{XG51};
D_3:=H>MACD~ AND MACD~>=L AND L>DE_M{XG51};
D_4:=H>MACD~ AND MACD~>DE_M AND DE_M>=L{XG51};
STICKLINE(D_1>0,H,DE_M,0,0),COLORBLUE{XG51};
STICKLINE(D_2,H,L,0,0),COLORBLUE{XG51};
STICKLINE(D_3,MACD~,L,0,0),COLORBLUE{XG51};
STICKLINE(D_4,MACD~,DE_M,0,0),COLORBLUE{XG51};
D_5:=MACD~<L AND L<=DE_M AND DE_M<=H{XG51};
D_6:=MACD~<L AND H<DE_M{XG51};
D_7:=L<MACD~ AND MACD~<=H AND H<DE_M{XG51};
D_8:=L<MACD~ AND MACD~<DE_M AND DE_M<=H{XG51};
STICKLINE(MACD~<DE_M,DE_M,MACD~,0,0),COLORAA00AA{XG51};
STICKLINE(D_5,DE_M,L,0,0),COLORBLUE{XG51};
STICKLINE(D_6,H,L,0,0),COLORBLUE{XG51};
STICKLINE(D_7,H,MACD~,0,0),COLORBLUE{XG51};
STICKLINE(D_8,DE_M,MACD~,0,0),COLORBLUE{XG51};
L_00:DE_K{XG51};
L_20:JI_K/5+DE_K{XG51};
L_80:JI_K*4/5+DE_K{XG51};
L_100:JI_K+DE_K{XG51};
B1:=MA(CLOSE,1){XG51};
B2:=SMA(SMA(SMA(B1,2,1),2,1),2,1) {XG51};
SMA2:=MA(B2,5) {XG51};
DRAWBAND(B2,RGB(255,0,0),SMA2,RGB(0,255,0)){XG51};
X:=21{XG51};
TTY:=H{XG51};
AAT:=REF(TTY,X)=HHV(TTY,2*X+1){XG51};
BBT:=FILTER(AAT,X){XG51};
CCT:=BACKSET(BBT,X+1){XG51};
HD10T:=FILTER(CCT,X){XG51};
AA1T:=REF(TTY,X)=LLV(TTY,2*X+1){XG51};
BB1T:=FILTER(AA1T,X){XG51};
CC1T:=BACKSET(BB1T,X+1){XG51};
LD10T:=FILTER(CC1T,X){XG51};
前期高位:REF(H,BArslAST(HD10T)),COLORYELLOW,LINETHICK0{XG51};
前期低位:REF(L,BARSLAST(LD10T)),COLORWHITE,LINETHICK0{XG51};
三日不破:=MIN(MIN(L,REF(L,1)),REF(L,2))>=REF(L,3){XG51};
三日量缩:=(MAX(MAX(V,REF(V,1)),REF(V,2))<REF(V,3)){XG51};
三日价涨A:=C>=REF(C,1){XG51};
三日价涨B:=C<REF(C,1){XG51};
三日价涨C:=MIN(MIN(C,REF(C,1)),REF(C,2))>=REF(L,3){XG51};
TIM:=IF(DATE<1140214,1,0){XG51};
缩倍柱:=(vol*1.95<=REF(VOL,1))*TIM{XG51};
百日低量:=(VOL=LLV(VOL,100))*TIM{XG51};
倍量柱:=C>REF(C,1)*1.04 AND (VOL>=1.9*REF(VOL,1))*TIM{XG51};
四日前倍量柱:=(REF(VOL,3)>1.9*REF(VOL,4))*TIM{XG51};
四日前高量柱:=(REF(VOL,3)>=REF(VOL,4) AND REF(VOL,3)<1.9*REF(VOL,4) AND 三日量缩)*TIM{XG51};
前三引用不成立:=COUNT(REF(四日前倍量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0 AND COUNT(REF(四日前高量柱,1) AND
(REF(三日不破,1) OR REF(三日价涨C,1)),3)=0{XG51};
倍量黄金柱:=四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立{XG51};
高量黄金柱:=四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立{XG51};
黄金柱:=倍量黄金柱 OR 高量黄金柱{XG51};
次倍量黄金柱:=NOT(黄金柱) AND 四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立{XG51};
次高量黄金柱:=NOT(黄金柱) AND 四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立{XG51};
次黄金柱:=次倍量黄金柱 OR 次高量黄金柱{XG51};
准倍量黄金柱:=NOT(黄金柱 OR 次黄金柱) AND 四日前倍量柱 AND ((三日量缩 AND 三日价涨C) OR (COUNT(倍量柱,3)>=1 AND 三日不破))
AND 前三引用不成立{XG51};
准高量黄金柱:=NOT(黄金柱 OR 次黄金柱) AND 四日前高量柱 AND (三日量缩 AND 三日价涨C) AND 前三引用不成立{XG51};
准黄金柱:=准倍量黄金柱 OR 准高量黄金柱{XG51};
倍量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱) AND 四日前倍量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立{XG51};
高量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱) AND 四日前高量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立{XG51};
将军柱:=倍量将军柱 OR 高量将军柱{XG51};
BACKSET101:=BACKSET(黄金柱,4){XG51};
FILTER101:=FILTER(BACKSET101,3){XG51};
AAA:=(3*C+H+L+O)/6{XG51};
VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36{XG51};
TJ1:=VOL>=HHV(VOL,3) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1{XG51};
将军柱1:=FILTER(TJ1,5){XG51};
TJ2:=IF(BARSLAST(将军柱1)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(将军柱1)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(将军柱1)=3 AND CLOSE>REF(HIGH,3),1,0))){XG51};
突破:TJ2=1{XG51};
STICKLINE(CLOSE,REF(HIGH,BARSLAST(将军柱1)),REF(HIGH,BARSLAST(将军柱1)),1,0),COLORRED{XG51};
STICKLINE(CLOSE,REF(LOW,BARSLAST(将军柱)),REF(LOW,BARSLAST(将军柱)),1,0),COLORBLUE{XG51};
TJ3:=IF(BARSLAST(将军柱1)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(将军柱1)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(将军柱1)=3 AND CLOSE>REF(LOW,3),1,0))){XG51};
三天法则:=TJ3=1{XG51};
成立:三天法则 AND 突破{XG51};
条件成立:=FILTER(成立,3){XG51};
DRAWTEXT(条件成立,L*0.99,'将军柱1'),COLORBLUE{XG51};
高:=REF(HHV(H,80),3){XG51};
低:=REF(LLV(L,80),3){XG51};
H19:=高-(高-低){XG51};
H38:=高-(高-低){XG51};
H中:=高-(高-低){XG51};
H61:=高-(高-低){XG51};
H80:=高-(高-低){XG51};
顶点:REFDATE(高,DATE),POINTDOT,LINETHICK2,COLORRED{XG51};
低点:REFDATE(低,DATE),POINTDOT,LINETHICK2,COLORRED{XG51};

V2V:=V/REF(V,1)>=1.9 AND C>REF(C,1){XG51};
STICKLINE(V2V,O,C,-1,0),COLORBLUE{XG51};
ZT:=C/REF(C,1)>1.097{XG51};
STICKLINE(ZT,O,C,-1,0),COLORLIMAGENTA{XG51};
MAXV:=CONST(HHV(VOL,90)){XG51};
MAXS:=CONST(HHV(HIGH,90)){XG51};
bs:=MAXV/MAXS{XG51};
VOLUME:=VOL/BS*0.10{XG51};
ORIGIN:=CONST(LLV(LOW,0))-CONST(0.5*HHV(VOLUME,0)),{XG51};
STICKLINE(CLOSE>=OPEN,ORIGIN,ORIGIN+VOLUME,0.2,0),COLORWHITE{XG51};
STICKLINE(CLOSE<OPEN,ORIGIN,ORIGIN+VOLUME,0.2,0),COLORCYAN{X!G_5_1!C!N!{};