相關標簽:

?

N:=9; P1:=3; P2:=3;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,P1,1);
D:SMA(K,P2,1);
J:3*K-2*D;
{KDJ日周月金叉死叉}
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
周J:="KDJ.J#WEEK"(9,3,3);
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
月J:="KDJ.J#MONTH"(9,3,3);
月金叉:=CROSS(月K,月D);
周金叉:=CROSS(周K,周D);
日金叉:=FILTER(CROSS(K,D) AND K<20,4);
DRAWTEXT(月金叉,月D-2,''),COLOR0022EE;
DRAWTEXT(月金叉,月D-2,'KD月金叉'),COLORYELLOW;
DRAWTEXT(周金叉,周D,''),COLOR0022EE;
DRAWTEXT(周金叉,周D,' KD周金叉'),COLORGREEN;{http://www.weiqiv.net.cn}
DRAWICON(日金叉,K,1);
DRAWTEXT(日金叉,D-6,'低位金叉'),COLOR00CCCC;
DRAWTEXT(CROSS(周D,周K),周D*1.2,'KD周死叉'),COLOR00DDBB;
DRAWTEXT(CROSS(月D,月K),月D,'KD月死叉'),COLORFFFFFF;
KDB:=BARSLAST(REF(CROSS(K,D),1));
KDDB:=REF(CLOSE,KDB+1)>CLOSE AND REF(K,KDB+1)<K AND CROSS(K,D);
K底背:=IF(FILTER(KDDB>0,5),1,0);
DRAWTEXT(K底背=1,D*0.98,'底背離'),COLORDDDDDD;
KDD:=BARSLAST(REF(CROSS(D,K),1));
K頂背:=REF(CLOSE,KDD+1)<CLOSE AND REF(K,KDD+1)>K AND CROSS(D,K);
DRAWTEXT(FILTER(K頂背>0,5),D+8,'頂背離'),COLORFFAA22;

/soft/UploadPic/2010-3/20103814383679361.png{程序化交易 www.weiqiv.net.cn }

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?