通达信牛起点分时T分时副图源码
该公式通过计算股价短期与长期指数移动平均的差值，衡量主力控盘力度。
- 无庄控盘：控盘值为负，显示绿色柱线。
- 有庄控盘：控盘值上升且为正，显示红色柱线。
- 高度控盘：控盘值上升且获利盘超50%，显示青色柱线。
- 主力出货：控盘值下降但为正，显示黄色柱线。
- 洗盘：控盘值先降后升，显示紫色柱线。
- 买卖信号：基于8日与20日均线金叉/死叉，在控盘柱线上方显示“买”或“卖”文字及图标。
N:=16;
VAR1:=EMA(EMA(CLOSE,13),13);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
无庄控盘:=控盘<0;
STICKLINE(控盘<0,控盘,0,1,0),COLOR00AA00;
有庄控盘:=控盘>REF(控盘,1) AND 控盘>0;
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(有庄控盘,0,控盘,1,0),COLOR0000FF;
高度控盘:=控盘>REF(控盘,1) AND 控盘>0 AND VAR2>50;
STICKLINE(高度控盘,0,控盘,1,0),COLOR00FFFF;
主力出货:=控盘>0 AND 控盘<REF(控盘,1);
STICKLINE(主力出货,0,控盘,1,0),COLORFFFF00;
洗盘:=REF(控盘,2)>REF(控盘,1) AND 控盘>REF(控盘,1) AND 控盘>0;
STICKLINE(洗盘,0,控盘,1,0),COLORFF00FF;
VAR3:=EMA(CLOSE,8);
VAR4:=EMA(CLOSE,20);
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,0,控盘,1,0),COLOR00FF00;
VAR5:=CROSS(VAR3,VAR4);
VAR6:=CROSS(VAR4,VAR3);
DRAWICON(VAR5 AND COUNT(VAR5,30)=1,控盘*1.1,1);
DRAWICON(VAR6 AND COUNT(VAR6,30)=1,控盘*1.1,2);
VAR7:=BARSLAST(VAR5);
VAR8:=BARSLAST(VAR6);
VAR9:=IF(VAR7<VAR8,1,2);
VARA:=IF(VAR9=1,VAR7,VAR8);
VARB:=IF(VAR9=1,VAR8,VAR7);
VARC:=IF(VAR9=1,VAR5,VAR6);
VARD:=IF(VAR9=1,VAR6,VAR5);
VARE:=IF(VARB<11 AND VARC AND VARA>3,1,0);
VARF:=IF(VARB<11 AND VARD AND VARA>3,1,0);
STICKLINE(VARE,控盘*1.1,控盘*1.05,4,0),COLOR0000FF;
STICKLINE(VARF,控盘*1.1,控盘*1.05,4,0),COLOR00FF00;
DRAWTEXT(VARE,控盘*1.15,'买'),COLOR0000FF;
DRAWTEXT(VARF,控盘*1.15,'卖'),COLOR00FF00;
未来函数检测结果如下：
该公式包含未来函数:WINNER
定制指标公式、软件请联系QQ或微信同号：88652583
N赋值:16
VAR1赋值:收盘价的13日指数移动平均的13日指数移动平均
控盘赋值:(VAR1-1日前的VAR1)/1日前的VAR1*1000
无庄控盘赋值:控盘<0
当满足条件控盘<0时,在控盘和0位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR00AA00
有庄控盘赋值:控盘>1日前的控盘 AND 控盘>0
VAR2赋值:100*以收盘价*0.95计算的获利盘比例
当满足条件有庄控盘时,在0和控盘位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR0000FF
高度控盘赋值:控盘>1日前的控盘 AND 控盘>0 AND VAR2>50
当满足条件高度控盘时,在0和控盘位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR00FFFF
主力出货赋值:控盘>0 AND 控盘<1日前的控盘
当满足条件主力出货时,在0和控盘位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORFFFF00
洗盘赋值:2日前的控盘>1日前的控盘 AND 控盘>1日前的控盘 AND 控盘>0
当满足条件洗盘时,在0和控盘位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORFF00FF
VAR3赋值:收盘价的8日指数移动平均
VAR4赋值:收盘价的20日指数移动平均
当满足条件控盘<1日前的控盘AND控盘>0时,在0和控盘位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR00FF00
VAR5赋值:VAR3上穿VAR4
VAR6赋值:VAR4上穿VAR3
当满足条件VAR5ANDCOUNT(VAR5,30)=1时,在控盘*1.1位置画1号图标
当满足条件VAR6ANDCOUNT(VAR6,30)=1时,在控盘*1.1位置画2号图标
VAR7赋值:上次VAR5距今天数
VAR8赋值:上次VAR6距今天数
VAR9赋值:如果VAR7VARA赋值:如果VAR9=1,返回VAR7,否则返回VAR8
VARB赋值:如果VAR9=1,返回VAR8,否则返回VAR7
VARC赋值:如果VAR9=1,返回VAR5,否则返回VAR6
VARD赋值:如果VAR9=1,返回VAR6,否则返回VAR5
VARE赋值:如果VARB<11ANDVARCANDVARA>3,返回1,否则返回0
VARF赋值:如果VARB<11ANDVARDANDVARA>3,返回1,否则返回0
当满足条件VARE时,在控盘*1.1和控盘*1.05位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLOR0000FF
当满足条件VARF时,在控盘*1.1和控盘*1.05位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLOR00FF00
当满足条件VARE时,在控盘*1.15位置书写文字,COLOR0000FF
当满足条件VARF时,在控盘*1.15位置书写文字,COLOR00FF00
