顶底背离主图做波段佳品(通达信)

源码正文：

量能饱和度:IF((AMOUNT/C) /(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100),NODRAW{XG51};
AA10:ma(CLOSE,8),COLOR0000FF{XG51};
AA12:MA(CLOSE,12),COLOR0000FF{XG51};
BB10:=((ATAN((AA10 - REF(AA10,1))) * 3.1416) * 10){XG51};
BB12:=((ATAN((AA12 - REF(AA12,1))) * 3.1416) * 10){XG51};
MA13:=MA(CLOSE,13){XG51};
DRAWBAND(AA10,RGB(150,50,50),AA12,RGB(0,100,50)){XG51};
X1:=(C+L+H)/3{XG51};
BB13:=ATAN(ema(X1,13)-REF(EMA(X1,13),1))*3.1416*10{XG51};
EMA8:=EMA(C,8){XG51};
DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),
EMA8,'∠45上升'),COLORRED{XG51};
压力:MA(REF(HHV(C,30),1),2),COLOR9DFFFF{XG51};
支撑:MA(REF(LLV(C,30),1),2),COLORABFF46{XG51};
AA1:=AMOUNT/V{XG51};
BB1:=L<AA1*0.9{XG51};
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2{XG51};
DD1:=L<MA(C,5)*0.921{XG51};
EE1:=V<MA(V,5)*1.5{XG51};
FF1:=BB1 AND CC1 AND DD1 AND EE1{XG51};
DRAWTEXT(FF1,(LOW* 0.99),'老鼠仓'),COLOR4080FF{XG51};
A51:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1){XG51};
黑马线:=EMA(A51,5){XG51};
A54:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100{XG51};
趋势线:=(MA(3*SMA(A54,6,1)-2*SMA(SMA(A54,5,1),5,1),2)){XG51};
DRAWTEXT(crOSS(趋势线,0)AND 黑马线<40,(HIGH* 0.97),'▲大黑马'),COLORBLUE{XG51};
LC:=REF(CLOSE,1){XG51};
rsi:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(Abs((CLOSE - LC)),3,1)) * 100){XG51};
FF:=EMA(CLOSE,3){XG51};
MA15:=EMA(CLOSE,21){XG51};
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'底背离'),COLORA6E500{XG51};
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'顶背离'),COLOR1880FF{XG51};
VAR2:=LLV(LOW,27){XG51};
VAR3:=HHV(HIGH,34){XG51};
VAR4:=EMA((CLOSE-VAR2)/(VAR3-VAR2)*4,4)*25{XG51};
注意买:=IF((VAR4<10),80,100){XG51};
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100{XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=3*K-2*D{XG51};
超跌:=IF(J<0,10,0){XG51};
BDDD:=LLV(J,2)=LLV(J,8){XG51};
买入:=IF(CROSS(J,REF(J+0.01,1)) AND BDDD AND J<20,30,0){XG51};
DRAWTEXT(买入 AND 注意买=100 AND 超跌=0,LOW,'短线'),COLOR8000FF{XG51};
mtm:=C-REF(C,1){XG51};
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6){XG51};
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0){XG51};
DRAWTEXT(FILTER(买=1,5),LOW-0.03,'拉升'),COLORFFDE00{XG51};
stICKLINE(CLOSE>OPEN,OPEN,LOW,0,0 ),COLOR0000FF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0,0 ),COLOR0000FF{XG51};
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0,0 ),COLOR00FF00{XG51};
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0,0 ),COLOR00FF00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLORFF8800{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLORFFAA00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLORFFCC00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLORFFEE00{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR000066{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR000088{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000AA{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLOR0000CC{XG51};
VAR9Q:=C=HHV(C,4) AND (REF(C,1)>=REF(C,2) OR REF(C,1)>=REF(C,3)) OR REF(C,1)=HHV(C,4) AND CLOSE>=REF(C,2) OR REF(C,2)=HHV
(C,4) AND REF(C,3)=LLV(C,4) AND C>=REF(C,1) OR REF(C,3)=HHV(C,4) AND C>=REF(C,1) AND C>=REF(C,2){XG51};
STICKLINE(VAR9Q,C,(O+C)/2,3,0),COLOR000066{XG51};
STICKLINE(VAR9Q,C,(O+C)/2,2,0),COLOR000088{XG51};
STICKLINE(VAR9Q,C,(O+C)/2,1,0),COLOR0000AA{XG51};
STICKLINE(VAR9Q,C,(O+C)/2,0,0),COLOR0000CC{XG51};
VARAQ:=C=HHV(C,4) AND REF(C,1)=LLV(C,4){XG51};
STICKLINE(VARAQ,C,(O+C)/2,3,0),COLORFF22FF{XG51};
STICKLINE(VARAQ,C,(O+C)/2,2,0),COLORFF44FF{XG51};
STICKLINE(VARAQ,C,(O+C)/2,1,0),COLORFF66FF{XG51};
STICKLINE(VARAQ,C,(O+C)/2,0,0),COLORFF88FF{XG51};
VARBQ:=C=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3)) OR REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4) AND
(REF(C,1)>HHV(C,4) OR REF(C,1)<HHV(C,4)) AND C<REF(C,1) OR REF(C,3)=LLV(C,4) AND C<REF(C,1) AND C<REF(C,2){XG51};
STICKLINE(VARBQ,C,(O+C)/2,3,0),COLOR444444{XG51};
STICKLINE(VARBQ,C,(O+C)/2,2,0),COLOR666666{XG51};
STICKLINE(VARBQ,C,(O+C)/2,1,0),COLOR888888{XG51};
STICKLINE(VARBQ,C,(O+C)/2,0,0),COLORAAAAAA{XG51};
VARCQ:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1){XG51};
STICKLINE(VARCQ,O,(O+C)/2,3,0),COLOR004400{XG51};
STICKLINE(VARCQ,O,(O+C)/2,2,0),COLOR006600{XG51};
STICKLINE(VARCQ,O,(O+C)/2,1,0),COLOR008800{XG51};
STICKLINE(VARCQ,O,(O+C)/2,0,0),COLOR00AA00{XG51};
VARDQ:=REF(C,1)=HHV(C,4) AND C<REF(C,2) OR (REF(C,2)=HHV(C,4) AND REF(C,1)>REF(C,3) OR REF(C,3)=HHV(C,4) AND REF(C,1)>REF
(C,2)) AND REF(C,2)>=REF(C,4) AND C<REF(C,1){XG51};
STICKLINE(VARDQ,O,(O+C)/2,3,0),COLORFF2200{XG51};
STICKLINE(VARDQ,O,(O+C)/2,2,0),COLORFF4400{XG51};
STICKLINE(VARDQ,O,(O+C)/2,1,0),COLORFF6600{XG51};
STICKLINE(VARDQ,O,(O+C)/2,0,0),COLORFF8800{XG51};
K_T1:=MA(H,5)*(1+5/100){XG51};
DRAWTEXT(CROSS(K_T1,C),H,'开盘就跑'),COLORFF8C00{XG51};
均价:=(3*C+H+L+O)/6{XG51};
VAR11:=(8*均价+7*REF(均价,1)+6*REF(均价,2)+5*REF(均价,3)+4*REF(均价,4)+3*REF(均价,5)+2*REF(均价,6)+REF(均价,8))/36{XG51};
TJ1:=vol=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR11{XG51};
立桩量:=FILTER(TJ1,5){XG51};
TJ2:=IF(BArslAST(立桩量)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(立桩量)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(立桩量)=3 AND
CLOSE>REF(HIGH,3),1,0))){XG51};
突破:=TJ2=1{XG51};
STICKLINE(CLOSE,REF(HIGH,BARSLAST(立桩量)),REF(HIGH,BARSLAST(立桩量)),1,0),COLORGREEN{XG51};
STICKLINE(CLOSE,REF(LOW,BARSLAST(立桩量)),REF(LOW,BARSLAST(立桩量)),1,0),COLORBLUE{XG51};
TJ3:=IF(BARSLAST(立桩量)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(立桩量)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(立桩量)=3 AND
CLOSE>REF(LOW,3),1,0))){XG51};
三天法则:=TJ3=1{XG51};
成立:=三天法则 AND 突破{XG51};
条件成立:=FILTER(成立,3){XG51};
DRAWTEXT(条件成立,L*0.99,'成立'),COLORBLUE{XG51};
VAR21:=EMA(CLOSE,5){XG51};
VAR22:=EMA(CLOSE,5){XG51};
VAR23:=EMA(SLOPE(CLOSE,21)*20+CLOSE,55){XG51};
DRAWTEXT(CROSS(VAR22,VAR23),LOW*0.96,'Ｂ'){X-G-5+1-C-N-{};

源码正文：

ma5:MA(CLOSE,5){XG51};
MA10:MA(CLOSE,10){XG51};
MA30:MA(CLOSE,30){XG51};
MA60:MA(CLOSE,60){XG51};
stICKLINE(C>REF(C,1),H,L,0,1),COLOR0000FF{XG51};
STICKLINE(C>REF(C,1),O,C,3.2,0),COLOR000055{XG51};
STICKLINE(C>REF(C,1),O,C,2.7,0),COLOR000077{XG51};
STICKLINE(C>REF(C,1),O,C,2.1,0),COLOR000099{XG51};
STICKLINE(C>REF(C,1),O,C,1.5,0),COLOR0000BB{XG51};
STICKLINE(C>REF(C,1),O,C,0.9,0),COLOR0000DD{XG51};
STICKLINE(C<REF(C,1),H,L,0,1),COLORFFFF00{XG51};
STICKLINE(C<REF(C,1),O,C,3.2,0),COLOR990000{XG51};
STICKLINE(C<REF(C,1),O,C,2.7,0),COLORCC0000{XG51};
STICKLINE(C<REF(C,1),O,C,2.1,0),COLORFF4400{XG51};
STICKLINE(C<REF(C,1),O,C,1.5,0),COLORFF8800{XG51};
STICKLINE(C<REF(C,1),O,C,0.9,0),COLORFFCC00{XG51};
STICKLINE(C=REF(C,1),H,L,0,1),COLORFFFFFF{XG51};
STICKLINE(C=REF(C,1),O,C,3.2,0),COLOR555555{XG51};
STICKLINE(C=REF(C,1),O,C,2.7,0),COLOR777777{XG51};
STICKLINE(C=REF(C,1),O,C,2.1,0),COLOR999999{XG51};
STICKLINE(C=REF(C,1),O,C,1.5,0),COLORBBBBBB{XG51};
STICKLINE(C=REF(C,1),O,C,0.9,0),COLORDDDDDD{XG51};
WCB2:=REF(C,1){XG51};
涨停:=IF((C-WCB2)*100/WCB2>=(10-0.01*100/WCB2),1,0){XG51};
STICKLINE(涨停,OPEN,CLOSE,4.2,0),COLORBLUE{XG51};
STICKLINE(涨停,H,L,2.7,0),COLORMAGENTA{XG51};
跌停:=IF((WCB2-C)*100/WCB2>=(10-0.01*100/WCB2),1,0){XG51};
STICKLINE(跌停,OPEN,CLOSE,4.2,0),COLORBLUE{XG51};
STICKLINE(跌停,H,L,2.7,0),COLORCYAN{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,9,1){XG51};
D:=SMA(K,9,1){XG51};
J:=3*K-2*D{XG51};
kd:=crOSS(K,D) AND CROSS(J,D){XG51};
X:=LLV(J,2)=LLV(J,8){XG51};
Y:=IF(CROSS(J,REF(J+0.01,1)) AND X AND J<20,30,0){XG51};
DRAWTEXT(CROSS(J,REF(J+0.01,1)) AND X AND J<20,LOW*0.98,'★进'),COLORMAGENTA{XG51};
JH9:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(Abs(C-REF(C,1)),5,1)*100{XG51};
DRAWTEXT(CROSS(84,JH9),H*1.02+0.4,'☆逃'),COLORCYAN{XG51};
N1:=7{XG51};
LC:=REF(CLOSE,1){XG51};
XD:=SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,COLORBLUE,LINETHICK1{XG51};
魔鬼:=DRAWLINE(XD>=HHV(XD,N1),XD,XD<=LLV(XD,N1),XD,1),COLOR00FF00{XG51};
魔王:=DRAWLINE(XD>=HHV(XD,N1),XD,XD<=LLV(XD,N1),1,XD),COLOR00FF00{XG51};
TJ0:=XD=魔王{XG51};
TJ1:=XD=魔鬼{XG51};
TJ2:=XD<REF(XD,1){XG51};
TJ3:=XD>REF(1,XD){XG51};
JRS1:=DRAWICON(TJ1 AND TJ2,XD,1){XG51};
JRS2:=DRAWICON(TJ0 AND TJ3,XD,2){XG51};
DRAWICON(FILTER(JRS1>0,1),L*0.97,1){XG51};
DRAWICON(FILTER(JRS2>0,1),H*1.02,2){XG51};
空:=ema(C,5){XG51};
均衡:=EMA(空,5){XG51};
中轨:=HHV(MA(H,13),13),LINETHICK2{XG51};
VAR55:=FILTER(均衡>REF(均衡,1)AND 中轨<REF(中轨,1)AND C>REF(C,1),11){XG51};
DRAWTEXT(VAR55,L*0.98,'♂追涨'),COLORBLUE{XG51};
HH0:=CONST(HHV(H,120))*1{XG51};
LL0:=CONST(LLV(L,120))*1{XG51};
MM0:=CONST((HH0+LL0)/2){XG51};
HH1:=IF(CONST(C)<MM0,LL0-(HH0-LL0)*0.4,LL0-(HH0-LL0)*0.4),COLORWHITE{XG51};
LL1:=LL0;HLMAX:=MAX(HH1,LL1){XG51};
HLMIN:=MIN(HH1,LL1){XG51};
HLMN1:=(HLMAX+HLMIN)/2{XG51};
HLMN2:=(HLMAX-HLMIN){XG51};
HLMN3:=HHV(V,250)/2{XG51};
HLMN4:=HHV(V,250){XG51};
VZ:=(V-HLMN3)*HLMN2/HLMN4+HLMN1{XG51};
STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2.5,0),COLORFF33BB{XG51};
STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,1.5,0),COLORFF55FF{XG51};
STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,0.3,0),COLORFF99FF{XG51};
STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2.5,0),COLORCC6600{XG51};
STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,1.5,0),COLORFF8800{XG51};
STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,0.3,0),COLORFFCC00{XG51};
(MA(V,5)-HLMN3)*HLMN2/HLMN4+HLMN1,COLORFFFFFF{XG51};
(MA(V,10)-HLMN3)*HLMN2/HLMN4+HLMN1,COLOR00FFFF{XG51};
T:=V=LLV(V,20){XG51};
STICKLINE(C/REF(C,1)>1.099,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORWHITE{XG51};
STICKLINE(C/REF(C,1)<0.901,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORCYAN{XG51};
VY:=(0-HLMN3)*HLMN2/HLMN4+HLMN1{XG51};
STICKLINE(V>=2*REF(V,1),VZ,VY,0.9,0),COLORCYAN{XG51};
STICKLINE(V>=3*REF(V,1),VZ,VY,0.6,0),COLOR3300CC{XG51};
MA13:=MA(C,3){XG51};
UU:=1,V<=LLV(V,13) AND MA13>REF(MA13,1){XG51};
TJ:=1,REF(V,1)<=LLV(V,13) AND MA13>REF(MA13,1),COLORWHITE,LINETHICK3{XG51};
地:=(0-HLMN3)*HLMN2/HLMN4+HLMN1-0.7,COLORBLacK{XG51};
天:=CONST(HHV(C,120))*1+0.7,COLORLIGRAY{XG51};
bias11:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100{XG51};
BIAS12:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100{XG51};
BIAS13:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100{XG51};
短跌BIAS:IF(BIAS11<=-6,0.6+地,地),COLORLIGRAY,LINETHICK2{XG51};
中跌BIAS:IF(BIAS12<=-10,0.6+地,地),COLORYELLOW,LINETHICK2{XG51};
长跌BIAS:IF(BIAS13<=-16,0.6+地,地),COLORWHITE,LINETHICK2{XG51};
短涨BIAS:IF(BIAS11>=6,天,天+0.6),COLORLIGRAY,LINETHICK2{XG51};
中涨BIAS:IF(BIAS12>=10,天,天+0.6),COLORYELLOW,LINETHICK2{XG51};
长涨BIAS:IF(BIAS13>=16,天,天+0.6),COLORWHITE,LINETHICK2{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};
DRAWTEXT(CROSS(BIAS,乖离) AND 乖离<-9,(V-HLMN3)*HLMN2/HLMN4+HLMN1+0.6,'底'),COLORWHITE{X_G*5~1_C_N_{};