通达信小玩昌九的源码主图贴图

小玩昌九的 通达信 源码 主图 贴图
 感谢昌九老师、………
本不想说什么，但还是交代一下核心(MACDG:=2*(DIFF-DEA);)你们自己解决做到主图上。
DRAWGBK(O>C,RGB(0,30,0),RGB(0,0,60),0,'01',0);
DRAWKLINE(H,O,L,C);
风险线:= MA(CLOSE,13);
止损线:= MA(CLOSE,27);
界:=MA(CLOSE,21);
DK:=MA(((SLOPE(C,5))+C),5);
STICKLINE(DK<=C AND CLOSE>=OPEN,HIGH,LOW,0.1,1),COLOR009AEE;
STICKLINE(DK<=C AND CLOSE>=OPEN,CLOSE,OPEN,2.8,1),COLOR009AEE;
STICKLINE(DK<=C AND CLOSE<OPEN,HIGH,LOW,0.1,0),COLOR009AEE;
STICKLINE(DK<=C AND CLOSE<OPEN,CLOSE,OPEN,2.8,0),COLOR009AEE;
STICKLINE(DK>C AND CLOSE>=OPEN,HIGH,LOW,0.1,1),COLOR7A7A7A;
STICKLINE(DK>C AND CLOSE>=OPEN,CLOSE,OPEN,2.8,1),COLOR7A7A7A;
STICKLINE(DK>C AND CLOSE<OPEN,HIGH,LOW,0.1,0),COLOR7A7A7A;
STICKLINE(DK>C AND CLOSE<OPEN,CLOSE,OPEN,2.8,0),COLOR7A7A7A;
DRAWTEXT(CROSS(C,DK),LOW*0.99,'★B'),COLORMAGENTA;
DRAWTEXT(CROSS(DK,C),H*1.01,'☆S'),COLORYELLOW;
DRAWTEXT(CROSS(MA(C,5),界),L*0.99,'◇底背离'),COLORWHITE;
DRAWTEXT(CROSS(C,止损线) AND 止损线>风险线,L*0.97,'主升浪'),COLORRED;
XX:=30;
高:=REFDATE(HHV(H,XX),DATE);
低:=REFDATE(LLV(L,XX),DATE);
H1:=高-(高-低)*0.191;
H2:=高-(高-低)*0.382;
H3:=高-(高-低)*0.5;
H4:=高-(高-低)*0.618;
H5:=高-(高-低)*0.809;
DRAWTEXT(CURRBARSCOUNT=1,高,'高位'),COLORRED;
DRAWTEXT(CURRBARSCOUNT=1,H1,'809'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,H2,'618'),COLORRED;
DRAWTEXT(CURRBARSCOUNT=1,H3,'050'),COLORLIMAGENTA;
DRAWTEXT(CURRBARSCOUNT=1,H4,'382'),COLORRED;
DRAWTEXT(CURRBARSCOUNT=1,H5,'191'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,低,'低位'),COLORRED;
STICKLINE(CURRBARSCOUNT=13,高,高,100,-1),COLORRED;
STICKLINE(CURRBARSCOUNT=13,H1,H1,100,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=13,H2,H2,100,-1),COLORRED;
STICKLINE(CURRBARSCOUNT=13,H3,H3,100,-1),COLORLIMAGENTA;
STICKLINE(CURRBARSCOUNT=13,H4,H4,100,-1),COLORRED;
STICKLINE(CURRBARSCOUNT=13,H5,H5,100,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=13,低,低,100,-1),COLORRED;
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;
MA5:=MA(CLOSE,5);
DIFF:=(EMA(J,8) - EMA(J,16));
DEA:=EMA(DIFF,5);
MACDG:=2*(DIFF-DEA);
卖:=CROSS((MA5<REF(MA5,1) AND MACDG<REF(MACDG,1) AND J<REF(J,1)),(MA5>REF(MA5,1) AND MACDG>REF(MACDG,1) AND J>REF(J,1)));
DRAWTEXT(FILTER(卖,5),H*1.05,'★卖'),COLOR00FF00;
STICKLINE(FILTER(卖,5),H*1.15,H,0,0),COLOR05FF00;
买:=CROSS((MA5>REF(MA5,1) AND MACDG>REF(MACDG,1) AND J>REF(J,1)),(MA5<REF(MA5,1) AND MACDG<REF(MACDG,1) AND J<REF(J,1)));
DRAWTEXT(FILTER(买,5),L*0.98,'★买'),COLOR0000FF;
STICKLINE(FILTER(买,5),L*0.8,L,0,0),COLOR0555FF;