【原】通达信新庄家控盘指标公式

编程思路破译

VAR1赋值:(3*收盘价+开盘价+最高价+最低价)/6

MA12赋值:VAR1的12日指数移动平均

MA36赋值:VAR1的36日指数移动平均

MA108赋值:VAR1的108日指数移动平均

MA250赋值:VAR1的250日指数移动平均

输出控盘度:(VAR1的12日指数移动平均-1日前的VAR1的36日指数移动平均)/1日前的VAR1的36日指数移动平均*100+50,NODRAW

当满足条件控盘度>50时,在0和控盘度-20位置之间画柱状线,宽度为2.5,0不为0则画空心柱.,COLORFFFF00

当满足条件控盘度>=60时,在60和控盘度位置之间画柱状线,宽度为2.5,0不为0则画空心柱.,画红色

当满足条件控盘度>=80时,在80和控盘度位置之间画柱状线,宽度为2.5,0不为0则画空心柱.,画洋红色

输出低控盘:如果控盘度>=50,返回控盘度,否则返回0,画黄色,NODRAW

输出中控盘:如果控盘度>=60,返回控盘度,否则返回0,画红色,NODRAW

输出高控盘:如果控盘度>=80,返回控盘度,否则返回0,画洋红色,NODRAW

10,画白色,DOTLINE

CYC13赋值:0.01*成交额(元)的13日指数移动平均/成交量(手)的13日指数移动平均

输出强弱:50,画黄色,DOTLINE

输出高度控盘:(收盘价-CYC13)/CYC13*1000,NODRAW

当满足条件高度控盘>0AND控盘度>=60AND高度控盘<50时,在控盘度+20位置画23号图标

当满足条件高度控盘>0时,在0和高度控盘位置之间画柱状线,宽度为3,0不为0则画空心柱.,画红色

当满足条件高度控盘>0AND控盘度>=60时,在0和控盘度位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR00FFFF

当满足条件高度控盘<0时,在0和高度控盘位置之间画柱状线,宽度为3,0不为0则画空心柱.,画绿色

输出庄洗盘吸筹: 控盘度>=60 AND 高度控盘< 0,COLORC08080,NODRAW

当满足条件控盘度>=60AND高度控盘<0时,在0和控盘度位置之间画柱状线,宽度为2.5,0不为0则画空心柱.,COLORC08080

当满足条件高度控盘<-50时,在-50和高度控盘位置之间画柱状线,宽度为3,0不为0则画空心柱.,画淡蓝色

当满足条件高度控盘<-100时,在-100和高度控盘位置之间画柱状线,宽度为3,0不为0则画空心柱.,画黄色

当满足条件高度控盘>100时,在100和高度控盘位置之间画柱状线,宽度为3,0不为0则画空心柱.,画淡红色

当满足条件高度控盘>150时,在150和高度控盘位置之间画柱状线,宽度为3,0不为0则画空心柱.,画洋红色

换手赋值:成交量(手)/当前流通股本(手)*100

VAR5赋值:如果模糊匹配品种代码,返回0,否则返回1

VAR6赋值:获利盘为85%的成本分布

VAR7赋值:获利盘为15%的成本分布

VAR8赋值:VAR6-VAR7

VAR9赋值:(VAR6+VAR7)/2

筹码赋值:VAR8/VAR9*100< 30,线宽为0

BU1赋值:250日内最高价的最高值

BU2赋值:250日内最低价的最低值

BU3赋值:BU1-BU2

BU4赋值:(VAR9-BU2)

比例赋值:VAR9< (BU3*04+BU2),线宽为0

吸筹结束赋值:筹码 AND 比例

BU5赋值:收盘价/1日前的收盘价>1.04

主力持仓%赋值:100*(收盘价-30日内最低价的最低值)/(30日内最高价的最高值-30日内最低价的最低值)的3日指数移动平均

主力持仓赋值:主力持仓%>=75 AND 收盘价>0 AND 收阳线

输出强庄:主力持仓AND吸筹结束ANDBU4ANDWINNER(收盘价)>=0.90ANDBU5ANDC/1日前的收盘价>1.092ANDC=HANDC<40ANDVAR5AND换手<20的10日过滤,NODRAW

当满足条件强庄时,在控盘度和-10位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORFF0080

程序源码

VAR1:=(3*CLOSE+OPEN+HIGH+LOW)/6;

MA12:=EMA(VAR1,12);

MA36:=EMA(VAR1,36);

MA108:=EMA(VAR1,108);

MA250:=EMA(VAR1,250);

控盘度:(EMA(VAR1,12)-REF(EMA(VAR1,36),1))/REF(EMA(VAR1,36),1)*100+50,NODRAW;

STICKLINE( 控盘度>50,0,控盘度-20,2.5,0),COLORFFFF00;

STICKLINE( 控盘度>=60,60,控盘度,2.5,0),COLORRED;

STICKLINE( 控盘度>=80,80,控盘度,2.5,0),COLORMAGENTA;

低控盘:IF(控盘度>=50,控盘度,0),COLORYELLOW,NODRAW;

中控盘:IF(控盘度>=60,控盘度,0),COLORRED,NODRAW;

高控盘:IF(控盘度>=80,控盘度,0),COLORMAGENTA,NODRAW;

10,COLORWHITE,DOTLINE;

CYC13:=0.01*EMA(AMOUNT,13)/EMA(VOL,13);

强弱:50,COLORYELLOW,DOTLINE;

高度控盘:(CLOSE-CYC13)/CYC13*1000,NODRAW;

DRAWICON(高度控盘>0 AND 控盘度>=60 AND 高度控盘< 50,控盘度+20,23);

STICKLINE(高度控盘>0,0,高度控盘,3,0),COLORRED;

STICKLINE(高度控盘>0 AND 控盘度>=60,0,控盘度,3,0),COLOR00FFFF;

STICKLINE(高度控盘< 0,0,高度控盘,3,0),COLORGREEN;

庄洗盘吸筹: 控盘度>=60 AND 高度控盘< 0,COLORC08080,NODRAW;

STICKLINE( 控盘度>=60 AND 高度控盘< 0,0,控盘度,2.5,0),COLORC08080;

STICKLINE(高度控盘< -50,-50,高度控盘,3,0),COLORLIBLUE;

STICKLINE(高度控盘< -100,-100,高度控盘,3,0),COLORYELLOW;

STICKLINE(高度控盘>100,100,高度控盘,3,0),COLORLIRED;

STICKLINE(高度控盘>150,150,高度控盘,3,0),COLORMAGENTA;

换手:=VOL/CAPITAL*100;

VAR5:=IF(CODELIKE('688'),0,1);

VAR6:=COST(85);

VAR7:=COST(15);

VAR8:=VAR6-VAR7;

VAR9:=(VAR6+VAR7)/2;

筹码:=VAR8/VAR9*100< 30,LINETHICK0;

BU1:=HHV(HIGH,250);

BU2:=LLV(LOW,250);

BU3:=BU1-BU2;

BU4:=(VAR9-BU2);

比例:=VAR9< (BU3*04+BU2),LINETHICK0;

吸筹结束:=筹码 AND 比例;

BU5:=C/REF(C,1)>1.04;

主力持仓%:=EMA(100*(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30)),3);

主力持仓:=主力持仓%>=75 AND C>0 AND CLOSE>OPEN;

强庄:FILTER(主力持仓 AND 吸筹结束 AND BU4 AND WINNER(C)>=0.90 AND BU5 AND C/REF(C,1)>1.092 AND C=H AND C< 40 AND VAR5 AND 换手< 20 ,10),NODRAW;

STICKLINE(强庄,控盘度,-10,1,0),COLORFF0080;

该公式包含未来函数:WINNER
未发现:LWINNER...
未发现:PWINNER...
该公式包含未来函数:COST
该公式包含未来函数:CAPITAL

注：

       馆内各种公式为学习编程而保存，实战使用前一定要看其中是否有未来函数并自己亲自测试成功率，决不能依据公式名称的描述和形容去投资，据此入市造成投资损失由投资者自己承担。

       发文不易，如获益，欢迎赞赏，赞赏必复！