彩云追月(通达信)

源码正文：

AVEC:=(2*C+H+L)/4{XG51};
MID:=(3*CLOSE+LOW+OPEN+HIGH)/6{XG51};
dkx:=(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+
16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+
13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+
10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+
7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+
4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210{XG51};
AA05:=ma(C,5){XG51};
AA13:=MA(C,13){XG51};
AacP:=DKX{XG51};
AA21:=MA(C,21){XG51};
AA34:=MA(C,34){XG51};
AADK:=(MA(AVEC,5)+MA(AVEC,10)+MA(AVEC,20)+MA(AVEC,60))/4{XG51};
五日乖离率:=(C-AA05)/AA05*100{XG51};
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416{XG51};
BBCP:=ATAN((AACP/REF(AACP,1)-1)*100)*180/3.1416{XG51};
BB21:=ATAN((AA21/REF(AA21,1)-1)*100)*180/3.1416{XG51};
BB34:=ATAN((AA34/REF(AA34,1)-1)*100)*180/3.1416{XG51};
bbdK:=ATAN((AADK/REF(AADK,1)-1)*100)*180/3.1416{XG51};
速度5:=SMA(ema((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1){XG51};
加速度5:=EMA((速度5-REF(速度5,1)),3){XG51};
MCP:=DKX{XG51};
操盘线:DKX,COLORRED,LINETHICK2{XG51};
M5:MA(C,5),COLOR00FF00{XG51};
M34:MA(C,34),COLORFF33CC{XG51};
多空线: (MA(AVEC,5)+MA(AVEC,10)+MA(AVEC,20)+MA(AVEC,60))/4,POINTDOT,COLOR0044FF,LINETHICK4{XG51};
stICKLINE(BB05>30 AND AA05>REF(AA05,1), AA05,REF(AA05,1),8,1),COLORBLUE{XG51};
STICKLINE(BB05<0 AND AA05<REF(AA05,1), AA05,REF(AA05,1),8,1),COLOR00FF00{XG51};
三拾日乖离率:=(C-AA34)/AA34*100{XG51};
bias5%:(C-MA(C,5))/MA(C,5)*100,NODRAW{XG51};
BIASCP%:(C-MCP)/MCP*100,NODRAW{XG51};
BIAS34%:(C-MA(C,34))/MA(C,34)*100,NODRAW{XG51};
B5度:BB05,NODRAW{XG51};
BCP度:BBCP,NODRAW{XG51};
B21度:BB21,NODRAW{XG51};
B34度:BB34,NODRAW{XG51};
BDK度:BBDK,NODRAW{XG51};
VAR1:=(AA21-AA34)>REF((AA21-AA34),1) AND AA21>REF(AA21,1) AND AA34>REF(AA34,1){XG51};
VAR2:=(AA34-AA21)<REF((AA34-AA21),1) AND AA21<REF(AA21,1) AND AA34<REF(AA34,1){XG51};
STICKLINE(BB34>15 AND AA34>REF(AA34,1), AA34,REF(AA34,1),8,1),COLORFF33CC{XG51};
强势狙击:=FILTER(BB34>30 AND BBCP>45 AND crOSS(BB05,60),10){XG51};
加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND AA05>REF(AA05,1) AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA13>REF(AA13,1)
AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1) ,10) {XG51};
清仓:=FILTER(COUNT(CROSS(30,BB05),5)>=1 AND (C>AA34 OR O>AA34) AND AA05<REF(AA05,1) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA13<REF(AA13,1),10){XG51};
DRAWTEXT(加仓 ,LOW*0.98,'←加仓'),COLORWHITE{XG51};
JC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA13>REF(AA13,1) {XG51};
减仓:=FILTER(JC,10){XG51};
MR:=COUNT(CROSS(五日乖离率,0),3)>=1 AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA05>REF(AA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<AA34{XG51};
买入:=FILTER(MR,10){XG51};
DRAWTEXT(减仓,HIGH*1.02,'←减仓'),COLORGREEN{XG51};
DRAWTEXT(买入,LOW*0.98,'★买入'),COLORBLUE{XG51};
DRAWTEXT(清仓 ,HIGH*1.02,'★清仓'),COLORCYAN{XG51};
DRAWTEXT(强势狙击,LOW*0.98,'←强势狙击'),COLORBLUE{XG51};
VAR21:=MAX(Abs(HIGH-AMOUNT/vol/100),ABS(AMOUNT/VOL/100-LOW)){XG51};
VAR3:=ABS((OPEN+CLOSE)/2-AMOUNT/VOL/100){XG51};
MV:=(VAR21+VAR3)/AMOUNT*VOL*100*50{XG51};
DRAWTEXT(MV>6 AND L<=LLV(L,10),L*0.95,'←异动'),COLORGREEN{X?G*5_1?C?N?{};

源码正文：

VAR0:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100{XG51};
VAR3:=SMA(VAR0,3,1){XG51};
VAR1:Sma(VAR3,4,1)-10{XG51};
VAR4:=(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))*100{XG51};
VAR5:=SMA(VAR4,3,1){XG51};
VAR2:=SMA(VAR5,4,1)-90{XG51};
stICKLINE(REF(VAR1,1)<VAR1,VAR1,REF(VAR1,1),10,0),COLOR0000FF{XG51};
STICKLINE(REF(VAR1,1)>VAR1,VAR1,REF(VAR1,1),5,0),COLOR00FF00{XG51};
STICKLINE(REF(VAR2,1)>VAR2,VAR2,REF(VAR2,1),10,0),COLOR0000FF{XG51};
STICKLINE(REF(VAR2,1)<VAR2,VAR2,REF(VAR2,1),5,0),COLOR00FF00{XG51};
0,COLOR0000FF{XG51};
M:=IF(REF(VAR1,1)<VAR1,10,0),COLORBLUE{XG51};
买:IF(M=10 AND REF(M,1)=0 AND VAR1<10,48,0),,COLORFFFF00,STICK {XG51};
买2:IF(M=10 AND REF(M,1)=0 AND VAR1>10 AND VAR1<55,88,0),,COLORBLUE,STICK {XG51};
RSV:=(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100{XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=3*K-2*D{XG51};
起动:=ema(J,6),COLORWHITE{XG51};
VAR11:=REF(CLOSE,2){XG51};
专用:=SMA(MAX(CLOSE-VAR11,0),7,1)/SMA(Abs(CLOSE- VAR11),7,1)*100,COLORFFAA66{XG51};
VAR12:=REF(CLOSE,1){XG51};
VAR13:=SMA(MAX(CLOSE-VAR12,0),7,1)/SMA(ABS(CLOSE-VAR12),7,1)*100{XG51};
专用逃: IF(专用< REF(专用,1) AND 专用>79,-48,0),STICK,LINETHICK1,COLOR00FF00{XG51};
DRAWTEXT(专用逃 ,70 ,'逃'),COLORBLUE,LINETHICK1{XG51};
VAR111:=((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100){XG51};
VAR112:=SMA(VAR11,9,1){XG51};
A:=SMA(VAR112,5,1),COLOR00FFFF{XG51};
B:=SMA(A,3,1),COLORFF00FF{XG51};
F:=(3)*(A)-(2)*(B),COLOR00FF00{XG51};
观察区:=IF(F>=A AND A>=B,16,0),COLOR00FF00{XG51};
V1:=(C*2+H+L)/4*10{XG51};
V2:=EMA(V1,13)-EMA(V1,34){XG51};
V3:=EMA(V2,5){XG51};
V4:=2*(V2-V3)*5.5{XG51};
庄撤:=IF(V4<=0,V4,0){XG51};
庄进:=IF(V4>=0,V4,0){XG51};
V8:=(INDEXC*2+INDEXH+INDEXL)/4{XG51};
V9:=EMA(V8,13)-EMA(V8,34){XG51};
VA:=EMA(V9,3){XG51};
VB:=(V9-VA)/2{XG51};
大筹金进:=IF(VB>=0,VB,0){XG51};
观察区1:=IF(庄进>0 ,6,0),COLORFFFF00{XG51};
Q2:=(CLOSE-LLV(LOW, 18))/(HHV(HIGH, 18)-LLV(LOW, 18))*100{XG51};
Q3:=SMA(Q2, 9, 1){XG51};
Q4:=SMA(Q3, 3, 1){XG51};
长趋势:=3*Q3-2*Q4{XG51};
趋势线:=EMA(Q3, 3){XG51};
观察区2:=IF(长趋势>趋势线 ,-8,0),COLORFFFF00{XG51};
VAR1D:=EMA(CLOSE,2)-EMA(CLOSE,89){XG51};
VAR1E:=EMA(VAR1D,30){XG51};
VAR1F:=2*(VAR1D-VAR1E)*10{XG51};
VAR20:=POW(VAR1F,3)*0.1+POW(VAR1F,2){XG51};
VAR25:=IF(VAR1F>0.015,VAR20,0)/45{XG51};
拉线:=VAR25,COLORBLUE {XG51};
拉线区:IF(拉线>0, 38,0), COLOR00FF00{XG51};
拉线买点:IF(拉线>0 AND REF(拉线,1)=0,28,0), COLORFFFF00,STICK {XG51};
注意:IF(REF(拉线,1)>120 AND 拉线<=REF(拉线,1)*0.85,-17,0), COLORWHITE{XG51};
VAR1P:=(CLOSE-LLV(LOW,60.135))/(HHV(HIGH,60.135)-LLV(LOW,60))*80{XG51};
VAR2P:=SMA(VAR1P,7,1){XG51};
VAR3P:=SMA(VAR2P,5,1){XG51};
预警:IF(crOSS(VAR2P,VAR3P) AND VAR2P<20,85,0),LINETHICK1, COLOR000999{XG51};
VAR6:=4*SMA((CLOSE-LLV(LOW,25))/(HHV(HIGH,25)-LLV(LOW,25))*100,5,1)-
3*SMA(SMA((CLOSE-LLV(LOW,25))/(HHV(HIGH,25)-LLV(LOW,25))*100,5,1),3,1){XG51};
VAR7:=8{XG51};
准备: IF(VAR6<=8,30,0),STICK,COLORRED,LINETHICK2{XG51};
买入: IF(CROSS(VAR6,VAR7),80,0),STICK,COLORCYAN,LINETHICK2{XG51};
difF:=(EMA(CLOSE,12) - EMA(CLOSE,26)){XG51};
DEA:=EMA(DIFF,9),COLORFF00FF,LINETHICK1{XG51};
CD:=2*(DIFF-DEA),COLORSTICK,LINETHICK1{XG51};
低位起涨:IF(DIFF<0,30,0),COLORFFFF00,LINETHICK1{XG51};
VARV:=(2*C+H+L)/4{XG51};
VARU:=LLV(LOW,30){XG51};
VARA1:=HHV(HIGH,30){XG51};
B1:=EMA(B,5){XG51};
LC:=REF(CLOSE,1){XG51};
rsi:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100{XG51};
低吸:IF(CROSS(RSI,11),70,0),COLORRED,POINTDOT{XG51};
STICKLINE(低吸,30,0,4,0),COLORRED{XG51};
趋势:=(5)*(SMA(((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))* (100),5,1))-(3)*(SMA(SMA(((CLOSE-LLV(LOW,27))
/(HHV(HIGH,27)-LLV(LOW,27)))*(100),5,1),3,1))-SMA(SMA(SMA(((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100),5,1),3,1),2,1){XG51};
DRAWTEXT(CROSS((趋势),5),15,'★'),COLOR00FFFF{XG51};
DRAWTEXT(CROSS(趋势,5),2,'★'),COLORWHITE{XG51};
DRAWTEXT(CROSS(趋势,5),20,'★'),COLORCYAN{XG51};
趋势1:=(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};
探底:IF((趋势<=5),50,0),COLORFF00FF{X_G_5=1_C_N_{};