通达信主力控盘主图源码
通达信主力控盘主图源码
C/C++ Code复制内容到剪贴板
- VAR1:=EMA(EMA(CLOSE,3),1);
- VAR2:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100);
- VAR3:=(((CLOSE - MA(CLOSE,12)) / MA(CLOSE,12)) * 100);
- VAR4:=(((CLOSE - MA(CLOSE,33)) / MA(CLOSE,33)) * 100);
- VAR5:=(((VAR2 + (2 * VAR3)) + (3 * VAR4)) / 6);
- VAR6:=MA(VAR5,3);
- 开始控盘:=STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3.5,0),COLOR00AAFF;
- STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3.5,0),COLOR0044FF;
- STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),2.5,0),COLOR0088FF;
- STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3,0),COLOR00AAFF;
- 控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
- STICKLINE(控盘<0,控盘,0,3.5,0),COLORFFAA00;
- STICKLINE(控盘<0,控盘,0,3.5.2,0),COLORFF4400;
- STICKLINE(控盘<0,控盘,0,2.5,0),COLORFF8800;
- STICKLINE(控盘<0,控盘,0,0,0),COLORFFAA00;
- 主力出货:0,COLORFFAA00;
- STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,3.5,0),COLOR000088;
- STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,2.5,0),COLOR0000AA;
- STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,1.5,0),COLOR0000CC;
- STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,1,0),COLOR0000EE;
- 主力吸货:0,COLOR0000FF;
- STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,3.5,0),COLOR008800;
- STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,2.5,0),COLOR00AA00;
- STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,1.5,0),COLOR00CC00;
- STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,1,0),COLOR00EE00;
- STICKLINE(DDX<0,0,DDX,3.5,0),COLOR008800;
- STICKLINE(DDX<0,0,DDX,2.5,0),COLOR00AA00;
- STICKLINE(DDX<0,0,DDX,1.5,0),COLOR00CC00;
- STICKLINE(DDX<0,0,DDX,1,0),COLOR00EE00;
- 对倒出货洗盘:0,COLOR00FF00;
- 黄色底部吸货:0,COLORYELLOW;
- DRAWTEXT(CROSS(控盘,0),0-3,'买追'),COLORFF00FF;
- DRAWTEXT(CROSS(0,控盘),0-0,'卖'),COLORGREEN;
- DATA:=5;
- {多头买入} DRAWICON(ZIG(3,DATA)>REF(ZIG(3,DATA),1)
- AND REF(ZIG(3,DATA),1)<=REF(ZIG(3,DATA),2)
- AND REF(ZIG(3,DATA),2)<=REF(ZIG(3,DATA),3),L*0.98,1);
- {多头卖出} DRAWICON(ZIG(3,DATA)<REF(ZIG(3,DATA),1)
- AND REF(ZIG(3,DATA),1)>=REF(ZIG(3,DATA),2)
- AND REF(ZIG(3,DATA),2)>=REF(ZIG(3,DATA),3),H*1.02,2);
{公式在线提供：www.gszx.com.cn}
