通达信MACD斐波那契周期指标(源码)

DRAWGBK(C>O,RGB(20,10,90),RGB(0,0,0),0,"1",0);
DIFF1:=EMA(CLOSE,12)-EMA(CLOSE,26),COLORFFFFFF;
DEA1:=EMA(DIFF1,9),COLORYELLOW;
MACD1:=2*(DIFF1-DEA1);
MACD2:=EMA(MACD1,5);
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,3,0),COLOR000055;
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,2.5,0),COLOR000077;
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,1.5,0),COLOR000099;
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,1,0),COLOR0000FF;
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,3,0),COLOR222222;
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,2.5,0),COLOR444444;
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,1.5,0),COLOR666666;
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,0,0),COLOR999999;
STICKLINE(MACD1<MACD2,0,MACD1,3,0),COLORA80000;
STICKLINE(MACD1<MACD2,0,MACD1,2.5,0),COLORB80000;
STICKLINE(MACD1<MACD2,0,MACD1,1.5,0),COLOREC1000;
STICKLINE(MACD1<MACD2,0,MACD1,1,0),COLORFF4600;
STICKLINE(MACD1<MACD2,0,MACD1,0,0),COLORFFAA00;
低位金叉:=CROSS(DIFF1,DEA1) AND DIFF1<-0.1;
STICKLINE(低位金叉,0,DIFF1,3,0),COLOR002222;
STICKLINE(低位金叉,0,DIFF1,2.5,0),COLOR006666;
STICKLINE(低位金叉,0,DIFF1,1.5,0),COLOR009999;
STICKLINE(低位金叉,0,DIFF1,1,0),COLOR00FFFF;
DRAWTEXT(低位金叉,0.2," 低位金叉"),COLOR00FF88;
JCCOUNT:=COUNT(CROSS(DIFF1,DEA1),BARSLAST(DEA1>=0));
二次金叉:=CROSS(DIFF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,MACD1,-0.01,3,0),COLOR440044;
STICKLINE(二次金叉,MACD1,-0.01,2.5,0),COLOR660066;
STICKLINE(二次金叉,MACD1,-0.01,1.5,0),COLOR990099;
STICKLINE(二次金叉,MACD1,-0.01,1,0),COLORFF00FF;
DRAWTEXT(二次金叉,DEA1*1.3," 二次金叉"),COLORYELLOW;
A1:=BARSLAST(REF(CROSS(DIFF1,DEA1),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF1>REF(DIFF1,A1+1) AND CROSS(DIFF1,DEA1);
STICKLINE(底背离,0,0.03,6,0),COLOR00FF00;
DRAWLINE(A1=0,DEA1,底背离,DEA1,0),COLORRED,LINETHICK1;
DRAWTEXT(底背离,0.03," 底背离"),COLORFF00FF;
A2:=BARSLAST(REF(CROSS(DEA1,DIFF1),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF1,A2+1)>DIFF1 AND CROSS(DEA1,DIFF1);
DRAWLINE(A2=0,DEA1,顶背离,DEA1,0),COLORFF8800,LINETHICK1;
DRAWTEXT(顶背离,-0.02," 顶背离"),COLORFFFF00;
DIFF:DIFF1,COLOR009922;
DEA:DEA1,COLORYELLOW;
ZT:=CROSS(DEA,DIFF);
LS0:=BARSLAST(ZT);
S1:=IF(1,LS0=1,ZT) AND IF(1,DIFF<DEA,0);
DRAWTEXT(S1 AND DIFF>0,DIFF*0.8,"1"),COLOR00FF00;
DRAWTEXT(S1 AND DIFF<0,DIFF*1.8,"1"),COLOR00FF00;
S3:=IF(3,LS0=3,ZT) AND IF(3,DIFF<DEA,0);
DRAWTEXT(S3 AND DIFF>0,DIFF*0.8,"3"),COLOR00FF00;
DRAWTEXT(S3 AND DIFF<0,DIFF*1.4,"3"),COLOR00FF00;
S5:=IF(5,LS0=5,ZT) AND IF(5,DIFF<DEA,0);
DRAWTEXT(S5 AND DIFF>0,DIFF*0.8,"5"),COLOR00FF00;
DRAWTEXT(S5 AND DIFF<0,DIFF*1.4,"5"),COLOR00FF00;
S8:=IF(8,LS0=8,ZT) AND IF(8,DIFF<DEA,0);
DRAWTEXT(S8 AND DIFF>0,DIFF*0.8,"8"),COLOR00FF00;
DRAWTEXT(S8 AND DIFF<0,DIFF*1.8,"8"),COLOR00FF00;
S13:=IF(13,LS0=13,ZT) AND IF(8,DIFF<DEA,0);
DRAWTEXT(S13 AND DIFF>0,DIFF*0.8,"13"),COLOR00FF00;
DRAWTEXT(S13 AND DIFF<0,DIFF*1.2,"13"),COLOR00FF00;
S21:=IF(21,LS0=21,ZT) AND IF(21,DIFF<DEA,0);
DRAWTEXT(S21 AND DIFF>0,DIFF*0.8,"21"),COLOR00FF00;
DRAWTEXT(S21 AND DIFF<0,DIFF*1.2,"21"),COLOR00FF00;
S26:=IF(26,LS0=26,ZT) AND IF(26,DIFF<DEA,0);
DRAWTEXT(S26 AND DIFF>0,DIFF*0.8,"26"),COLOR00FF00;
DRAWTEXT(S26 AND DIFF<0,DIFF*1.2,"26"),COLOR00FF00;
S29:=IF(29,LS0=29,ZT) AND IF(29,DIFF<DEA,0);
DRAWTEXT(S29 AND DIFF>0,DIFF*0.8,"29"),COLOR00FF00;
DRAWTEXT(S29 AND DIFF<0,DIFF*1.2,"29"),COLOR00FF00;
S34:=IF(34,LS0=34,ZT) AND IF(34,DIFF<DEA,0);
DRAWTEXT(S34 AND DIFF>0,DIFF*0.8,"34"),COLOR00FF00;
DRAWTEXT(S34 AND DIFF<0,DIFF*1.8,"34"),COLOR00FF00;
S55:=IF(55,LS0=55,ZT) AND IF(55,DIFF<DEA,0);
DRAWTEXT(S55 AND DIFF>0,DIFF*0.8,"55"),COLOR00FF00;
DRAWTEXT(S55 AND DIFF<0,DIFF*1.8,"55"),COLOR00FF00;
S68:=IF(68,LS0=68,ZT) AND IF(68,DIFF<DEA,0);
DRAWTEXT(S68 AND DIFF>0,DIFF*0.8,"68"),COLOR00FF00;
DRAWTEXT(S68 AND DIFF<0,DIFF*1.8,"68"),COLOR00FF00;
ZTJ:=CROSS(DIFF,DEA);
LSJ:=BARSLAST(ZTJ);
SJ1:=IF(1,LSJ=1,ZTJ) AND IF(1,DIFF>DEA,0);
DRAWTEXT(SJ1 AND DIFF>0,DIFF*1.2,"1"),COLORFFFFFF;
DRAWTEXT(SJ1 AND DIFF<0,DIFF*0.8,"1"),COLORFFFFFF;
SJ3:=IF(3,LSJ=3,LSJ) AND IF(3,DIFF>DEA,0);
DRAWTEXT(SJ3 AND DIFF>0,DIFF*1.2,"3"),COLORFFFFFF;
DRAWTEXT(SJ3 AND DIFF<0,DIFF*0.8,"3"),COLORFFFFFF;
SJ5:=IF(5,LSJ=5,ZTJ) AND IF(5,DIFF>DEA,0);
DRAWTEXT(SJ5 AND DIFF>0,DIFF*1.2,"5"),COLORFFFFFF;

[1] [2]  下一页