延伸均线 {源码 主图 }

通达信版本需支持以下函数：REFX(引用若干周期后的数据) 与 DOTLINE(画虚线)!复制内容到剪贴板代码:
{[延伸均线] - 理想论坛 壹瓣杺埖 }
STICKLINE(8=8,H,L,4,1),COLOR000000;{隐藏K线[设置与背景色一样]}
CURR:=CURRBARSCOUNT;
DRAWKLINE(IF(CURR>3,REFX(H,3),DRAWNULL),IF(CURR>3,REFX(O,3),DRAWNULL),
IF(CURR>3,REFX(L,3),DRAWNULL),IF(CURR>3,REFX(C,3),DRAWNULL));
RM5:IF(CURR>3,REFX(MA(C,5),3),DRAWNULL),COLOR0000FF;
RM10:IF(CURR>3,REFX(MA(C,10),3),DRAWNULL),COLOR00FFFF;
RM20:IF(CURR>3,REFX(MA(C,20),3),DRAWNULL),COLORFF0000;
ABSM5:=CONST(IF(MA(C,5)-REF(MA(C,5),1)>0,ABS(MA(C,5)-REF(MA(C,5),1)),0-ABS(MA(C,5)-REF(MA(C,5),1))));
ABSM10:=CONST(IF(MA(C,10)-REF(MA(C,10),1)>0,ABS(MA(C,10)-REF(MA(C,10),1)),0-ABS(MA(C,10)-REF(MA(C,10),1))));
ABSM20:=CONST(IF(MA(C,20)-REF(MA(C,20),1)>0,ABS(MA(C,20)-REF(MA(C,20),1)),0-ABS(MA(C,20)-REF(MA(C,20),1))));
R2M5:=IF(CURR=3,CONST(MA(C,5))+ABSM5,DRAWNULL);
R2M10:=IF(CURR=3,CONST(MA(C,10))+ABSM10,DRAWNULL);
R2M20:=IF(CURR=3,CONST(MA(C,20))+ABSM20,DRAWNULL);
R1M5:=IF(CURR=2,CONST(MA(C,5))+2*ABSM5,DRAWNULL);
R1M10:=IF(CURR=2,CONST(MA(C,10))+2*ABSM10,DRAWNULL);
R1M20:=IF(CURR=2,CONST(MA(C,20))+2*ABSM20,DRAWNULL);
R0M10:=IF(ISLASTBAR,CONST(MA(C,10))+3*ABSM10,DRAWNULL);
R0M20:=IF(ISLASTBAR,CONST(MA(C,20))+3*ABSM20,DRAWNULL);
DRAWLINE(CURR=4,RM5,CURR=3,R2M5,0),COLOR0000FF,DOTLINE;
DRAWLINE(CURR=3,R2M5,CURR=2,R1M5,0),COLOR0000FF,DOTLINE;
DRAWLINE(CURR=4,RM10,CURR=3,R2M10,0),COLOR00FFFF,DOTLINE;
DRAWLINE(CURR=3,R2M10,CURR=2,R1M10,0),COLOR00FFFF,DOTLINE;
DRAWLINE(CURR=2,R1M10,ISLASTBAR,R0M10,0),COLOR00FFFF,DOTLINE;
DRAWLINE(CURR=4,RM20,CURR=3,R2M20,0),COLORFF0000,DOTLINE;
DRAWLINE(CURR=3,R2M20,CURR=2,R1M20,0),COLORFF0000,DOTLINE;
DRAWLINE(CURR=2,R1M20,ISLASTBAR,R0M20,0),COLORFF0000,DOTLINE;