飞狐变色MACD叠加K线副图指标

源码

short:=12;long:=26;M:=9;

DIFF : (EMA(CLOSE,SHORT) - EMA(CLOSE,LONG)),linethick2,colorgreen;
DEA  : EMA(DIFF,M),colorcyan;
MACD:2*(DIFF-DEA), COLORSTICK;
tj:=(diff>dea);
tj1:=(diff>0);
PARTLINE(tj,diff),colormagenta,linethick2;

partline(tj1 and tj,diff),colorred,linethick2;
tj2:=diff<-1 and diff<-1;
partline(tj2,diff),colorblue,linethick2;
B1:=LLV(MACD,999999);
B2:=HHV(MACD,999999);
B3:=(B2-B1);
C1:=LLV(low,999999);
C2:=HHV(high,999999);
C3:=(C2-C1);
D:=B3/C3;

STICKLINE(open>=close ,(close-C1)*D+B1 ,(open-C1)*D+B1,9,0 ),COLORaaaaaa;
STICKLINE(open>=close ,(close-C1)*D+B1 ,(open-C1)*D+B1,6,0 ),COLORbbbbbb;
STICKLINE(open>=close ,(close-C1)*D+B1 ,(open-C1)*D+B1,2.4,0 ),COLORcccccc;
STICKLINE(open>=close ,(close-C1)*D+B1 ,(open-C1)*D+B1,1.1,0 ),COLORdddddd;

STICKLINE(close>open,(close-C1)*D+B1,(open-C1)*D+B1,9,0 ),COLOr6666cc;
STICKLINE(close>open,(close-C1)*D+B1,(open-C1)*D+B1,6 ,0 ),COLOR7777dd;
STICKLINE(close>open,(close-C1)*D+B1,(open-C1)*D+B1,2.4 ,0 ),COLOR8888ee;
STICKLINE(close>open,(close-C1)*D+B1,(open-C1)*D+B1,1.1 ,0 ),COLOR9999ff;

STICKLINE(close>open,(open-C1)*D+B1,(low-C1)*D+B1,0.5,0 ),COLOR1199ff;
STICKLINE(close>open,(close-C1)*D+B1,(HIGH-C1)*D+B1,0.5 ,0 ),COLOR1199ff;
STICKLINE(open>=close,(close-C1)*D+B1,(low-C1)*D+B1,0.5 ,0 ),COLORcccccc;
STICKLINE(open>=close,(open-C1)*D+B1,(HIGH-C1)*D+B1,0.5 ,0 ),COLORccccc;