同舟共舞(通达信)

源码正文：

difF := ema(CLOSE,12) - Ema(CLOSE,26){XG51};
DEA :=EMA(DIFF,9){XG51};
macd :=1000* (2*(DIFF-DEA))/EMA(C,30){XG51};
VARA:=EMA(REF(CLOSE,1),4){XG51};
色彩峰:=(SMA(MAX(CLOSE-VARA,0),6,1)/SMA(Abs(CLOSE-VARA),6,1)*100){XG51};
准备:=色彩峰<3.5,COLORDBDBDB{XG51};
出航:=FILTER(MacD<0 AND MACD>REF(MACD,1) AND 色彩峰<20,5), COLORGRAY{XG51};
飞燕:=crOSS(色彩峰,90),COLOR00FF00{XG51};
回归:=CROSS(色彩峰,90),COLORDBDBDB{XG51};
stICKLINE(色彩峰,0,120,10,0),COLOR8BA400{XG51};
STICKLINE(色彩峰,0,90,10,0),COLOR8BA433{XG51};
STICKLINE(色彩峰,0,75,10,0),COLOR8BA466{XG51};
STICKLINE(色彩峰,0,60,10,0),COLOR8BA488{XG51};
STICKLINE(色彩峰,0,50,10,0),COLOR8BA4AA{XG51};
STICKLINE(色彩峰,0,40,10,0),COLOR8BA4BB{XG51};
STICKLINE(色彩峰,0,35,10,0),COLOR8BA4CC{XG51};
STICKLINE(色彩峰,0,25,10,0),COLOR8BA4EE{XG51};
STICKLINE(色彩峰,0,15,10,0),COLOR8BA5FF{XG51};
STICKLINE(色彩峰,0,-50,10,0),COLOR8BA433{XG51};
STICKLINE(色彩峰,0,-30,10,0),COLOR8BA444{XG51};
STICKLINE(色彩峰,0,-10,10,0),COLOR8BA455{XG51};
STICKLINE(色彩峰,0,-5,10,0),COLOR8BA466{XG51};
STICKLINE(色彩峰>0,0,色彩峰,10,0),COLOR66FF00{XG51};
STICKLINE(色彩峰>0,0,色彩峰*0.9,10,0),COLOR66EE00{XG51};
STICKLINE(色彩峰>0,0,色彩峰*0.8,10,0),COLOR66CC00{XG51};
STICKLINE(色彩峰>0,0,色彩峰*0.7,10,0),COLOR66AA00{XG51};
STICKLINE(色彩峰>0,0,色彩峰*0.6,10,0),COLOR668800{XG51};
STICKLINE(色彩峰>0,0,色彩峰*0.5,10,0),COLOR666600{XG51};
STICKLINE(色彩峰>0,0,色彩峰*0.4,10,0),COLOR664400{XG51};
STICKLINE(色彩峰>0,0,色彩峰*0.3,10,0),COLOR662200{XG51};
STICKLINE(色彩峰,0,-色彩峰*0.2,10,0),COLOR324D00{XG51};
RSV:= (CLOSE-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100{XG51};
FASTK:=SMA(RSV,3,1){XG51};
龙Ｋ:=SMA(FASTK,2,1){XG51};
龙Ｄ:=SMA(龙Ｋ,5,1){XG51};
狗:=LLV(LOW,10){XG51};
年:=HHV(H,25){XG51};
到来:=EMA((C-狗)/(年-狗)*4,4){XG51};
恭喜:STICKLINE(CROSS(到来,0.3),-50,-30,3,0), COLOR00AAFF,LINETHICK1{XG51};
STICKLINE(CROSS(到来,0.3),-40,-30,3,0),COLORWHITE,LINETHICK1{XG51};
发财:STICKLINE(CROSS(3.5,到来),100,120,2,0), COLORWHITE,LINETHICK2{XG51};
STICKLINE(CROSS(3.5,到来),110,120,2,0),COLORBLUE,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),LINETHICK0{XG51};
双起双飞:IF(龙行凤影<=10,-30,-50),COLOR0000FF,LINETHICK2{XG51};
DD:=IF(MACD>=0,MACD,DRAWNULL){XG51};
LL:=IF(MACD<0,-MACD,DRAWNULL){XG51};
STICKLINE(DD,0,DD,3.8,0),COLOREAEAEA{XG51};
STICKLINE(DD AND DD>REF(DD,1),DD*0.1,DD*0.9,2.5.0,0),COLOR666666{XG51};
STICKLINE(DD AND DD>=15 AND DD>REF(DD,1),DD*0.7,DD*0.7,2.5,1),COLOREAEAEA{XG51};
STICKLINE(DD AND DD>=15 AND DD>REF(DD,1),DD*0.5,DD*0.5,2.5,1),COLOREAEAEA{XG51};
STICKLINE(DD AND DD>=15 AND DD>REF(DD,1),DD*0.3,DD*0.3,2.5,1),COLOREAEAEA{XG51};
STICKLINE(DD AND DD<REF(DD,1),DD*0.1,DD*0.9,2.8,1),COLOR57E000{XG51};
STICKLINE(DD AND DD>=15 AND DD<REF(DD,1),DD*0.7,DD*0.7,2.5,1),COLOR666666{XG51};
STICKLINE(DD AND DD>=15 AND DD<REF(DD,1),DD*0.5,DD*0.5,2.5,1),COLOR666666{XG51};
STICKLINE(DD AND DD>=15 AND DD<REF(DD,1),DD*0.3,DD*0.3,2.5,1),COLOR666666{XG51};
STICKLINE(LL AND LL<REF(LL,1),0,LL,0,0),COLOREAEAEA{XG51};
STICKLINE(龙Ｋ>=龙Ｄ,龙Ｄ,龙Ｋ,3,0),COLOR000085{XG51};
STICKLINE(龙Ｋ<龙Ｄ,龙Ｄ,龙Ｋ,3,0),COLOR324800{XG51};
DRAWTEXT(准备,-10,'转钱'),COLORDBDBDB{XG51};
DRAWTEXT(准备,-10,'︼'),COLOR688EC1{XG51};
DRAWTEXT(CROSS( 0,MACD)AND 色彩峰>75,110,'☆好高'),COLORFFFFFF{XG51};
DRAWTEXT(飞燕,70,'小心'),COLORF33A0A{XG51};
DRAWTEXT(出航,-10,'舟+B'), COLORGRAY{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){XG51};
IF(CROSS(红红的天,2),70,-50),COLOR0000FF{XG51};
有心就有:IF(CROSS(红红的天,2),70,DRAWNULL),CROSSDOT,LINETHICK6,COLORFF77FF{XG51};
好运！:IF(CROSS(红红的天,2),70,DRAWNULL),POINTDOT,LINETHICK4,COLOR00CCFF{XG51};
L1:=(CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11))*200-60{XG51};
凤Ｋ:SMA(L1,3,1),COLORAACCAA{XG51};
凤Ｄ:SMA(凤Ｋ,3,1),COLOR00CC0A{XG51};
DRAWTEXT(CROSS(凤Ｄ,凤Ｋ)AND 凤Ｋ>78,100,'快卖'){X^G*5.1^C^N^{};

源码正文：

stICKLINE(C,50,20,10,0),COLOR996600{XG51};
STICKLINE(C,80,50,10,0),COLOR996600{XG51};
STICKLINE(C,100,100,10,0),COLOR996600{XG51};
STICKLINE(C,0,0,10,0),COLOR996600{XG51};
STICKLINE(C,50,50,10,0),COLOR000000{XG51};
系数:=N/1000{XG51};
B1:=(HHV(H,9)-C)/(HHV(H,9)-LLV(LOW,9))*100- 70{XG51};
B2:=SMA(B1,9,1)+100{XG51};
B3:=(C-LLV(L,9))/(HHV(H,9)- LLV(L,9))*100{XG51};
B4:=Sma(B3,3,1){XG51};
B5:=SMA(B4,3,1)+100{XG51};
B6:=B5-B2{XG51};
B7:=IF(B6>60,B6-60,0){XG51};
difF:ema(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2,NODRAW{XG51};
DEA1:=EMA(DIFF,9){XG51};
macd:2*(DIFF-DEA1)*60,LINETHICK0,NODRAW{XG51};
S1:=MacD<REF(MACD,1)AND MACD>0,COLORYELLOW{XG51};
S2:=MACD<REF(MACD,1) AND MACD<0{XG51};
STICKLINE(MACD>=0,MACD*系数,0,8,1),COLORWHITE{XG51};
STICKLINE(S1,0,MACD*系数,8,1),COLOR00FFFF{XG51};
STICKLINE(MACD<0,MACD*系数,0,8,1),COLOR996600{XG51};
STICKLINE(S2,0,MACD*系数,8,1),COLOR00AA00{XG51};
长RSV:=(((CLOSE - LLV(LOW,90)) / (HHV(HIGH,90) - LLV(LOW,90))) * 100){XG51};
长K:=SMA(长RSV,12,1),COLORRED,POINTDOT,LINETHICK4{XG51};
长D:SMA(长K,12,1),COLORBLUE,POINTDOT,LINETHICK4,NODRAW{XG51};
长J:((3 * 长K) - (2 *长D)),COLORWHITE,POINTDOT,LINETHICK4{XG51};
STICKLINE(crOSS(长D,80),108,115,4,0),COLOR33FF33{XG51};
STICKLINE(CROSS(长D,15),0,10,4,0),COLOR3333AA{XG51};
RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100){XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=((3 * K) - (2 * D)){XG51};
DRAWICON(FILTER(CROSS(K,D)AND K<50,1),0,1){XG51};
STICKLINE(CROSS(90,J),108,115,4,0),COLORCYAN{XG51};
DRAWTEXT(CROSS(90,J),105,'抛'),COLORCYAN{XG51};
STICKLINE(CROSS(J,(0 - 5)),0,10,4,0),COLORGREEN{XG51};
DRAWTEXT(CROSS(J,(0 - 5)),(0 - 4),'吸'),COLORGREEN{XG51};
AA2:=BArslAST(REF(CROSS(K,D),1)){XG51};
BB2:=REF(C,AA2+1)>C AND REF(K,AA2+1)<K AND CROSS(K,D){XG51};
kdj底背离:STICKLINE(FILTER(BB2>0,5),0,1,3,0),COLORBLUE{XG51};
DRAWTEXT(FILTER(BB2>0,5),-8,'底背离'),COLORBLUE{XG51};
CC2:=BARSLAST(REF(CROSS(D,K),1)){XG51};
DD2:=REF(C,CC2+1)<C AND REF(K,CC2+1)>K AND CROSS(D,K){XG51};
DRAWTEXT(FILTER(DD2>0,5),-8,'顶背离'),COLORCYAN{XG51};
STICKLINE(REF(B7,1)<B7,J,REF(J,1),5,0),COLOR0090FF{XG51};
短K:K,COLORRED,LINETHICK2{XG51};
短D:D,COLORBLUE,LINETHICK2{XG51};
短J:J,COLORLIMAGENTA,LINETHICK2{XG51};
金叉D:IF((K > D),D,DRAWNULL),COLORBLUE,LINETHICK4{X_G=5?1_C_N_{};