立體ＭＡＣＤ KDJ金叉（源碼）

禁忌石 2006-08-27

展開全文

DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26));
DEA:=EMA(DIFF,9);
MACD:2*(DIFF-DEA),COLORSTICK;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,8,0 ),COLOR00aaff;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,6.6,0 ),COLOR00bbff;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,4.4,0 ),COLOR00ccff;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,3.3,0 ),COLOR00ddff;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,2.2,0 ),COLOR00eeff;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,1.1,0 ),COLOR00ffff;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,8 ,0 ),COLOR0000aa;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,6.6 ,0 ),COLOR0011bb;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,4.4,0 ),COLOr0022cc;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,3.3 ,0 ),COLOR0033dd;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,2.2 ,0 ),COLOR0044ee;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,1.1 ,0 ),COLOR0055ff;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,8,0 ),COLOraa00bb;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,6.6 ,0 ),COLORbb11bb;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,4.4,0 ),COLOrcc22bb;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,3.3,0 ),COLORdd33bb;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,2.2 ,0 ),COLORee44bb;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,1.1 ,0 ),COLORff55bb;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,8,0 ),COLOrffaa00;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,6.6 ,0 ),COLORffbb11;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,4.4,0 ),COLOrffcc22;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,3.3 ,0 ),COLORffdd33;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,2.2 ,0 ),COLORffee44;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,1.1 ,0 ),COLORffff55;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
周Ｋ:=MA("KDJ.K#WEEK"(9,3,3) ,5);
周Ｄ:=MA("KDJ.D#WEEK"(9,3,3) ,5);
周Ｊ:=MA("KDJ.J#WEEK"(9,3,3) ,5);
DRAWICON(k<20 and cross(k,d),MACD,1),align2;
周金:DRAWTEXT(CROSS("KDJ.K#WEEK"(9,3,3),"KDJ.D#WEEK"(9,3,3)) ,MACD,‘▲‘),align2,COLORred;
周死:DRAWTEXT(CROSS("KDJ.d#WEEK"(9,3,3),"KDJ.k#WEEK"(9,3,3)) ,macd*1.5,‘▼‘),align2,COLORgreen;
月金:DRAWTEXT(CROSS("KDJ.K#MONTH"(9,3,3),"KDJ.D#MONTH"(9,3,3)) ,MACD,‘▲‘),align2,COLORMAGENTA;
月死:DRAWTEXT(CROSS("KDJ.D#MONTH"(9,3,3),"KDJ.K#MONTH"(9,3,3)) ,macd*1.5,‘▼‘),align2,COLORYELLOW;
DIFF:(EMA(CLOSE,12) - EMA(CLOSE,26)),COLORWHITE;
DEA:EMA(DIFF,9),COLORWHITE;
partline(dea,c>ma(c,15) and diff>=dea ,rgb(255,0,255)),linethick2;
partline(diff,c>ma(c,15) and diff>=dea ,rgb(255,0,0)),linethick2;
partline(dea,c<ma(c,15),rgb(0,255,0)),linethick2;
partline(diff,c<ma(c,15),rgb(0,255,0)),linethick2;