【原】通达信持仓增减副图指标公式（附源码破译、测评和源码）

编程思路破译

X_1赋值:1

X_2赋值:(以收盘价计算的获利盘比例-1日前的以收盘价计算的获利盘比例)/1日前的以收盘价计算的获利盘比例

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

X_4赋值:X_2/X_3

X_5赋值:1-以收盘价计算的获利盘比例

X_6赋值:(X_5-1日前的X_5)/1日前的X_5

X_7赋值:X_6/X_3

输出机构筹码:如果X_4=1日前的X_4,返回0,否则返回X_4的历史累和,NODRAW,画黄色

X_8赋值:如果X_7=1日前的X_7,返回0,否则返回X_7的历史累和

输出昨天机构筹码:1日前的机构筹码,NODRAW,画绿色

输出机构筹码增减:机构筹码-昨天机构筹码,NODRAW,画黄色

输出散户筹码增减:X_8-1日前的X_8,NODRAW,画青色

X_9赋值:1日前的机构筹码和2日前的机构筹码的较小值

X_10赋值:3日前的机构筹码和4日前的机构筹码的较小值

X_11赋值:5日前的机构筹码和6日前的机构筹码的较小值

X_12赋值:7日前的机构筹码和8日前的机构筹码的较小值

X_13赋值:9日前的机构筹码和10日前的机构筹码的较小值

X_14赋值:11日前的机构筹码和12日前的机构筹码的较小值

X_15赋值:13日前的机构筹码和14日前的机构筹码的较小值

X_16赋值:15日前的机构筹码和16日前的机构筹码的较小值

X_17赋值:X_9和X_10的较小值和X_11和X_12的较小值的较小值

X_18赋值:X_13和X_14的较小值和X_15和X_16的较小值的较小值

X_19赋值:X_17和X_18的较小值

X_20赋值:X_19*X_1

当满足条件机构筹码>X_20时,在1日前的机构筹码和机构筹码位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR005555

当满足条件机构筹码>X_20时,在1日前的机构筹码和机构筹码位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR007777

当满足条件机构筹码>X_20时,在1日前的机构筹码和机构筹码位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR009999

当满足条件机构筹码>X_20时,在1日前的机构筹码和机构筹码位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR00CCCC

当满足条件机构筹码<=X_20时,在1日前的机构筹码和机构筹码位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR005500

当满足条件机构筹码<=X_20时,在1日前的机构筹码和机构筹码位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR007700

当满足条件机构筹码<=X_20时,在1日前的机构筹码和机构筹码位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR009900

当满足条件机构筹码<=X_20时,在1日前的机构筹码和机构筹码位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR00CC00

当满足条件机构筹码<1日前的机构筹码AND机构筹码<=X_20时,在1日前的机构筹码和机构筹码位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR555500

当满足条件机构筹码<1日前的机构筹码AND机构筹码<=X_20时,在1日前的机构筹码和机构筹码位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR777700

当满足条件机构筹码<1日前的机构筹码AND机构筹码<=X_20时,在1日前的机构筹码和机构筹码位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR999900

当满足条件机构筹码<1日前的机构筹码AND机构筹码<=X_20时,在1日前的机构筹码和机构筹码位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORCCCC00

X_21赋值:1日前的机构筹码和2日前的机构筹码的较大值

X_22赋值:3日前的机构筹码和4日前的机构筹码的较大值

X_23赋值:5日前的机构筹码和6日前的机构筹码的较大值

X_24赋值:7日前的机构筹码和8日前的机构筹码的较大值

X_25赋值:9日前的机构筹码和10日前的机构筹码的较大值

X_26赋值:11日前的机构筹码和12日前的机构筹码的较大值

X_27赋值:13日前的机构筹码和14日前的机构筹码的较大值

X_28赋值:15日前的机构筹码和16日前的机构筹码的较大值

X_29赋值:X_21和X_22的较小值和X_23和X_24的较小值的较大值

X_30赋值:X_25和X_26的较小值和X_27和X_28的较小值的较大值

X_31赋值:X_29和X_30的较大值

X_32赋值:X_31*X_1

当满足条件机构筹码>=X_32时,在机构筹码和1日前的机构筹码位置之间画柱状线,宽度为2.6,0不为0则画空心柱.,COLOR990099

当满足条件机构筹码>=X_32时,在机构筹码和1日前的机构筹码位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLORAA00AA

当满足条件机构筹码>=X_32时,在机构筹码和1日前的机构筹码位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORDD00DD

当满足条件机构筹码>=X_32时,在机构筹码和1日前的机构筹码位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORFF33DD

当满足条件机构筹码>=1日前的机构筹码AND机构筹码>=X_32时,在机构筹码和1日前的机构筹码位置之间画柱状线,宽度为2.6,0不为0则画空心柱.,COLOR000099

当满足条件机构筹码>=1日前的机构筹码AND机构筹码>=X_32时,在机构筹码和1日前的机构筹码位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR0000AA

当满足条件机构筹码>=1日前的机构筹码AND机构筹码>=X_32时,在机构筹码和1日前的机构筹码位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR0000DD

当满足条件机构筹码>=1日前的机构筹码AND机构筹码>=X_32时,在机构筹码和1日前的机构筹码位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORAA33DD

当满足条件1时,在横轴0纵轴0位置书写文字,画青色

当满足条件1时,在横轴0纵轴0.06位置书写文字,画绿色

当满足条件1时,在横轴0纵轴0.12位置书写文字,画黄色

当满足条件1时,在横轴0纵轴0.18位置书写文字,画洋红色

当满足条件1时,在横轴0纵轴0.24位置书写文字,画红色

程序源码

X_1:=1;

X_2:=(WINNER(CLOSE)-REF(WINNER(CLOSE),1))/REF(WINNER(CLOSE),1);

X_3:=VOL/CAPITAL;

X_4:=X_2/X_3;

X_5:=1-WINNER(CLOSE);

X_6:=(X_5-REF(X_5,1))/REF(X_5,1);

X_7:=X_6/X_3;

机构筹码:SUM(IF(X_4=REF(X_4,1),0,X_4),0),NODRAW,COLORYELLOW;

X_8:=SUM(IF(X_7=REF(X_7,1),0,X_7),0);

昨天机构筹码:REF(机构筹码,1),NODRAW,COLORGREEN;

机构筹码增减:机构筹码-昨天机构筹码,NODRAW,COLORYELLOW;

散户筹码增减:X_8-REF(X_8,1),NODRAW,COLORCYAN;

X_9:=MIN(REF(机构筹码,1),REF(机构筹码,2));

X_10:=MIN(REF(机构筹码,3),REF(机构筹码,4));

X_11:=MIN(REF(机构筹码,5),REF(机构筹码,6));

X_12:=MIN(REF(机构筹码,7),REF(机构筹码,8));

X_13:=MIN(REF(机构筹码,9),REF(机构筹码,10));

X_14:=MIN(REF(机构筹码,11),REF(机构筹码,12));

X_15:=MIN(REF(机构筹码,13),REF(机构筹码,14));

X_16:=MIN(REF(机构筹码,15),REF(机构筹码,16));

X_17:=MIN(MIN(X_9,X_10),MIN(X_11,X_12));

X_18:=MIN(MIN(X_13,X_14),MIN(X_15,X_16));

X_19:=MIN(X_17,X_18);

X_20:=X_19*X_1;

STICKLINE(机构筹码>X_20,REF(机构筹码,1),机构筹码,3,0),COLOR005555;

STICKLINE(机构筹码>X_20,REF(机构筹码,1),机构筹码,2,0),COLOR007777;

STICKLINE(机构筹码>X_20,REF(机构筹码,1),机构筹码,1,0),COLOR009999;

STICKLINE(机构筹码>X_20,REF(机构筹码,1),机构筹码,0,0),COLOR00CCCC;

STICKLINE(机构筹码<=X_20,REF(机构筹码,1),机构筹码,3,0),COLOR005500;

STICKLINE(机构筹码<=X_20,REF(机构筹码,1),机构筹码,2,0),COLOR007700;

STICKLINE(机构筹码<=X_20,REF(机构筹码,1),机构筹码,1,0),COLOR009900;

STICKLINE(机构筹码<=X_20,REF(机构筹码,1),机构筹码,0,0),COLOR00CC00;

STICKLINE(机构筹码<REF(机构筹码,1) AND 机构筹码<=X_20,REF(机构筹码,1),机构筹码,3,0),COLOR555500;

STICKLINE(机构筹码<REF(机构筹码,1) AND 机构筹码<=X_20,REF(机构筹码,1),机构筹码,2,0),COLOR777700;

STICKLINE(机构筹码<REF(机构筹码,1) AND 机构筹码<=X_20,REF(机构筹码,1),机构筹码,1,0),COLOR999900;

STICKLINE(机构筹码<REF(机构筹码,1) AND 机构筹码<=X_20,REF(机构筹码,1),机构筹码,0,0),COLORCCCC00;

X_21:=MAX(REF(机构筹码,1),REF(机构筹码,2));

X_22:=MAX(REF(机构筹码,3),REF(机构筹码,4));

X_23:=MAX(REF(机构筹码,5),REF(机构筹码,6));

X_24:=MAX(REF(机构筹码,7),REF(机构筹码,8));

X_25:=MAX(REF(机构筹码,9),REF(机构筹码,10));

X_26:=MAX(REF(机构筹码,11),REF(机构筹码,12));

X_27:=MAX(REF(机构筹码,13),REF(机构筹码,14));

X_28:=MAX(REF(机构筹码,15),REF(机构筹码,16));

X_29:=MAX(MIN(X_21,X_22),MIN(X_23,X_24));

X_30:=MAX(MIN(X_25,X_26),MIN(X_27,X_28));

X_31:=MAX(X_29,X_30);

X_32:=X_31*X_1;

STICKLINE(机构筹码>=X_32,机构筹码,REF(机构筹码,1),2.6,0),COLOR990099;

STICKLINE(机构筹码>=X_32,机构筹码,REF(机构筹码,1),2,0),COLORAA00AA;

STICKLINE(机构筹码>=X_32,机构筹码,REF(机构筹码,1),1,0),COLORDD00DD;

STICKLINE(机构筹码>=X_32,机构筹码,REF(机构筹码,1),0,0),COLORFF33DD;

STICKLINE(机构筹码>=REF(机构筹码,1) AND 机构筹码>=X_32,机构筹码,REF(机构筹码,1),2.6,0),COLOR000099;

STICKLINE(机构筹码>=REF(机构筹码,1) AND 机构筹码>=X_32,机构筹码,REF(机构筹码,1),2,0),COLOR0000AA;

STICKLINE(机构筹码>=REF(机构筹码,1) AND 机构筹码>=X_32,机构筹码,REF(机构筹码,1),1,0),COLOR0000DD;

STICKLINE(机构筹码>=REF(机构筹码,1) AND 机构筹码>=X_32,机构筹码,REF(机构筹码,1),0,0),COLORAA33DD;

DRAWTEXT_FIX(1,0,0,0,'青芯-机构低位深度洗盘或高位出货坚决'),COLORCYAN;

DRAWTEXT_FIX(1,0,0.06,0,'绿芯-机构在做高抛低吸或低吸高抛'),COLORGREEN;

DRAWTEXT_FIX(1,0,0.12,0,'黄芯-机构洗盘'),COLORYELLOW;

DRAWTEXT_FIX(1,0,0.18,0,'粉芯-机构吸筹进货'),COLORMAGENTA;

DRAWTEXT_FIX(1,0,0.24,0,'红芯-机构吸筹进货积极主动'),COLORRED;

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

注：

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

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