通达信延伸均线主图 源码
通达信延伸均线主图 源码
{股海网提供：www.guhai.com.cn}
复制内容到剪贴板
- 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;
