通达信红色神剑指标公式

{ 看平滑异同平均线macd值 ：SHORT=12;LONG=26;MID=9; 也可8，通达13，信红5; 也可10，色神式20，通达7};
SHORT:=8;
LONG:=13;
MID:=5;
DIF:=EMA(CLOSE,信红SHORT)-EMA(CLOSE,LONG);
DEA:=EMA(DIF,MID);
MACD:=(DIF-DEA)*2;
MACDLINE:=IF(crOSS(DIF,DEA),1+1,IF(CROSS(DEA,DIF),1-0.5,1+0));
A1:=DIF>DEA;
DRAWICON(DIF>DEA,1,1); { 当MACD为红柱，画红箭头};
DRAWICON(DIF<DEA,色神式1,2); { 当MACD为绿柱
，画绿箭头};
{ 看随机指标kdj值 ：N=9,通达M1=3,M2=3; 也有人用8，3，信红3};
N:=9;
M1:=3;
M2:=3;
RSV:=(CLOSE-LLV(LOW,色神式N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
J:=3*K-2*D;
kdJLINE:=IF(CROSS(K,D) AND CROSS(J,K),1,IF(CROSS(D,K) AND CROSS(K,J),0-0.5,0));
A2:=K>D;
DRAWICON(K>D,2,1); { 当KDJ向好，画红箭头};
DRAWICON(K<D,通达2,2); { 当KDJ向坏，画绿箭头};
{ 看相对强弱指标rsi值：N1=6; N2=12; N3=24; 也有人用5，信红13，色神式};
N1:=6; N2:=12; N3:=24;
LC:=REF(CLOSE,通达1);
RSI1:=SMA(MAX(CLOSE-LC,0),N1,1)/SMA(Abs(CLOSE-LC),N1,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100;
RSI3:=SMA(MAX(CLOSE-LC,0),N3,1)/SMA(ABS(CLOSE-LC),N3,1)*100;
A3:=RSI1>RSI2;
DRAWICON(RSI1>RSI2,3,1); { 当RSI向好，画红箭头};
DRAWICON(RSI1<RSI2,信红3,2); { 当RSI向坏，画绿箭头};
{ 看威廉指标Lwr ：WN:=9; WM1:=3; WM2:=3; 也有人用WN:=13; WM1:=3; WM2:=3; 威廉指标采用反向
，色神式所以加“负号”};
WN:=9; WM1:=3; WM2:=3;
WRSV:=-(HHV(HIGH,WN)-CLOSE)/(HHV(HIGH,WN)-LLV(LOW,WN))*100; { 威廉指标采用反向 ，所以加“负号”};
LWR1:=SMA(WRSV,WM1,1);
LWR2:=SMA(LWR1,WM2,1);
A4:=LWR1>LWR2;
DRAWICON(LWR1>LWR2,4,1); { 当LWR向好，画红箭头};
DRAWICON(LWR1<LWR2,4,2); { 当LWR向坏，画绿箭头};
{ 看多空均线bbi ：BM1:=3; BM2:=6; BM3:=12; BM4:=24; };
BM1:=3; BM2:=6; BM3:=12; BM4:=24;
BBI:=(MA(CLOSE,BM1)+MA(CLOSE,BM2)+MA(CLOSE,BM3)+MA(CLOSE,BM4))/4;
A5:=CLOSE>BBI;
DRAWICON(CLOSE>BBI,5,1); { 当BBI向好，画红箭头};
DRAWICON(CLOSE<BBI,5,2); { 当BBI向坏，画绿箭头};
{ 看动量线mtm
： 不采用原来的公式 ，采用改造的MTM};
{ MN:=12; MM:=6;
MTM:CLOSE-REF(CLOSE,MN);
MTMMA:MA(MTM,M)};
MTM:=CLOSE-REF(CLOSE,1);
mms:=100*EMA(EMA(MTM,5),3)/EMA(EMA(ABS(MTM),5),3);
MMM:=100*EMA(EMA(MTM,13),8)/EMA(EMA(ABS(MTM),13),8);
A6:=MMS>MMM;
DRAWICON(MMS>MMM,6,1); { 当MTM向好，画红箭头};
DRAWICON(MMS<MMM,6,2); { 当MTM向坏 ，画绿箭头};
MACD红:=IF(A1,1,0),COLORRED;
KDJ红 :=IF(A2,2,1),COLORMAGENTA;
RSI红 :=IF(A3,3,2),COLORLIRED;
LWR红 :=IF(A4,4,3),COLORYELLOW;
BBI红 :=IF(A5,5,4),COLORCYAN;
MTM红 :=IF(A6,6,5),COLORFF4700;
红数:A1+A2+A3+A4+A5+A6, COLORYELLOW,NODRAW;
买入:(红数=6 AND REF(红数,1)<>6)*3, COLORYELLOW;
卖出:红数<4 AND REF(红数,1)>=4, COLORCYAN;
{ DRAWTEXT(买入, 6.3, '买'),COLORYELLOW;
DRAWTEXT(卖出, 6.3, '卖'),COLORCYAN;};