通达信三背离主图源码及庄影追踪副图源码

三背离主图源码：（通达信）
A:=MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1));
B:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1);
分水岭:IF(MA(CLOSE,17) B,B,MA(CLOSE,17)),COLORFF00FF,LINETHICK2;
操作线:分水岭-(EMA(C,3)-分水岭),COLOR00FFFF,LINETHICK2;
PM:MA(C,5),COLORWHITE,LINETHICK2;
IF(PM REF(PM,1),PM,DRAWNULL),COLORRED,LINETHICK2;
IF(PM=REF(PM,1),PM,DRAWNULL),COLORRED;
IF(PM REF(PM,1),PM,DRAWNULL),COLORFF9900,LINETHICK2;
S:=(PM 操作线);
DD:=分水岭 REF(分水岭,1);
IF(DD,分水岭,DRAWNULL),COLOR00FF00,LINETHICK2;
IF(S,分水岭,DRAWNULL),COLOR00FF00,POINTDOT,LINETHICK4;
DRAWICON(CROSS(分水岭,操作线),分水岭-0.1,1);{买入红箭头}
A1:=BARSLAST(REF(CROSS( MACD.DIF , MACD.DEA ),1));
B1:=REF(C,A1+1) C AND REF( MACD.DIF ,A1+1) MACD.DIF AND CROSS( MACD.DIF , MACD.DEA
DRAWTEXT(B1 0,L-0.02,'★M'),COLOR00FFFF;{MACD底背离}
A2:=BARSLAST(REF(CROSS( KDJ.K , KDJ.D ),1));
B2:=REF(C,A2+1) C AND REF( KDJ.K ,A2+1) KDJ.K AND CROSS( KDJ.K , KDJ.D
DRAWTEXT(B2,L-0.10,'◎K'),COLORFF00FF;{KDJ底背离}
A3:=BARSLAST(REF(CROSS( RSI.RSI1 , RSI.RSI2 ),1));
B3:=REF(C,A3+1) C AND REF( RSI.RSI1 ,A3+1) RSI.RSI1 AND CROSS( RSI.RSI1 , RSI.RSI2
DRAWTEXT(B3 0,L-0.18,'◆R'),COLOR0000FF;{RSI底背离}
C1:=BARSLAST(REF(CROSS( MACD.DEA , MACD.DIF ),1));
D1:=REF(C,C1+1) C AND REF( MACD.DIF ,C1+1) MACD.DIF AND CROSS( MACD.DEA , MACD.DIF
DRAWTEXT(D1 0,H+0.16,'★M'),COLOR00FF00;{MACD顶背离}
C2:=BARSLAST(REF(CROSS( KDJ.D , KDJ.K ),1));
D2:=REF(C,C2+1) C AND REF( KDJ.K ,C2+1) KDJ.K AND CROSS( KDJ.D , KDJ.K
DRAWTEXT(D2 0,H+0.08,'◎K'),COLORFFFFCC;{KDJ顶背离}
C3:=BARSLAST(REF(CROSS( RSI.RSI2 , RSI.RSI1 ),1));
D3:=REF(C,C3+1) C AND REF( RSI.RSI1 ,C3+1) RSI.RSI1 AND CROSS( RSI.RSI2 , RSI.RSI1
DRAWTEXT(D3 0,H+0.04,'◆R'),COLORFF9900;{RSI顶背离};

庄影追踪副图源码：（通达信）
M:=55;
N:=34;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
DRAWTEXT(CROSS(85,RSI),75,'▼'),COLORGREEN;
VAR1:=IF(YEAR =2038 AND MONTH =1,0,1);
VAR2:=REF(LOW,1)*VAR1;
VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100*VAR1;
VAR4:=EMA(IF(CLOSE*1.3,VAR3*10,VAR3/10),3)*VAR1;
VAR5:=LLV(LOW,30)*VAR1;
VAR6:=HHV(VAR4,30)*VAR1;
VAR7:=IF(MA(CLOSE,58),1,0)*VAR1;
VAR8:=EMA(IF(LOW =VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7*VAR1;
吸筹:IF(VAR8 100,100,VAR8)*VAR1,COLORRED;
庄家吸筹:STICKLINE(吸筹 -150,0,吸筹,8,0),COLORRED;
散户: 100*(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M)),COLORFFFF00,LINETHICK2;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
庄家:EMA(J,6),COLORFF00FF,LINETHICK2;