易得程序化----六脉神剑 通达信副图，源码

DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIFF,5);

DRAWICON(DIFF>DEA,1,7);

DRAWICON(DIFF< DEA,1,8);

B1:=DIFF>DEA;

MACD金叉:IF(B1,1,0),COLORRED;

RSV1:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100;

K:=SMA(RSV1,3,1);

D:=SMA(K,3,1);

DRAWICON(K>D,2,7);

DRAWICON(K< D,2,8);

{DRAWTEXT(ISLASTBAR=1,2,'.KDJ'),COLORFFFFFF;}

B2:=K>D;

KDJ金叉:IF(B2,2,0),COLORRED;

LC:=REF(CLOSE,1);

RSI1:=(SMA(MAX(CLOSE-LC,0),5,1))/(SMA(ABS(CLOSE-LC),5,1))*100;

RSI2:=(SMA(MAX(CLOSE-LC,0),13,1))/(SMA(ABS(CLOSE-LC),13,1))*100;

DRAWICON(RSI1>RSI2,3,7);

DRAWICON(RSI1< RSI2,3,8);

{//DRAWTEXT(ISLASTBAR=1,3,'.RSI'),COLORFFFFFF;}

B3:=RSI1>RSI2;

RSI金叉:IF(B3,3,0),COLORRED;

RSV:=-1*(HHV(HIGH,13)-CLOSE)/(HHV(HIGH,13)-LLV(LOW,13))*100;

LWR1:=SMA(RSV,3,1);

LWR2:=SMA(LWR1,3,1);

DRAWICON(LWR1>LWR2,4,7);

DRAWICON(LWR1< LWR2,4,8);

{//DRAWTEXT(ISLASTBAR=1,4,'.LWR'),COLORFFFFFF;}

B4:=LWR1>LWR2;

LWR金叉:IF(B4,4,0),COLORRED;

BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;

DRAWICON(CLOSE>BBI,5,7);

DRAWICON(CLOSE< BBI,5,8);

{DRAWTEXT(ISLASTBAR=1,5,'.BBI'),COLORFFFFFF;}

B5:=CLOSE>BBI;

BBI金叉:IF(B5,5,0),COLORRED;

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);

DRAWICON(MMS>MMM,6,7);

DRAWICON(MMS< MMM,6,8);

{DRAWTEXT(ISLASTBAR=1,6,'.MTM'),COLORFFFFFF;}

B6:=MMS>MMM;

MTM金叉:IF(B6,6,0),COLORRED;

涨买入:IF((B1 AND B2 AND B3 AND B4 AND B5 AND B6) AND REF(B1 AND B2 AND B3 AND B4 AND B5 AND B6,1)=0,7,0),COLORYELLOW,LINETHICK2;

上涨:IF(B1 AND B2 AND B3 AND B4 AND B5 AND B6,7,0),COLORYELLOW,LINETHICK2;

晴天:BARSLASTCOUNT(B1 AND B2 AND B3 AND B4 AND B5 AND B6),LINETHICK0;

雨天:BARSLASTCOUNT(MACD金叉+KDJ金叉+RSI金叉+LWR金叉+BBI金叉+MTM金叉>0 AND MACD金叉+KDJ金叉+RSI金叉+LWR金叉+BBI金叉+MTM金叉< 21 ),LINETHICK0;

雪天:BARSLASTCOUNT(MACD金叉+KDJ金叉+RSI金叉+LWR金叉+BBI金叉+MTM金叉=0),LINETHICK0;

红箭个数:(B1 + B2 + B3 + B4 + B5 + B6),NODRAW,COLORRED;

ZT:=C=IF(CODELIKE('30'),ZTPRICE(REF(CLOSE,1),0.2),ZTPRICE(REF(CLOSE,1),0.1));

DRAWTEXT(FILTER(REF(ZT,5),30),8,'免费全推，易得六脉神剑 公式平台，公式源码http://www.gspt.com'),COLOR666666;