通达信主力与散户指标公式源码副图

DRAWGBK(CLOSE>0,RGB(0,108,108),RGB(88,0,0),0,5,0);DRAWGBK(C>0,RGB(0,0,55),RGB(0,0,0),0,'0',0);

K0:=0;K10:=10;K20:=20;K30:=30;K40:=40;K50:=50;K60:=60;K70:=70;K80:=80;K90:=90;

DDKP:=EMA((WINNER(CLOSE)*70),3);

WWKP:=EMA(((WINNER((CLOSE*1.1))-WINNER((CLOSE*0.9)))*80),3);

主力控盘:((DDKP/(DDKP+WWKP))*100),LINETHICK2,COLORWHITE;

DRAWTEXT(主力控盘<K20 AND 主力控盘>=K0 AND ISLASTBAR,主力控盘,'---散户盘'),COLORYELLOW;

DRAWTEXT(主力控盘<K30 AND 主力控盘>=K20 AND ISLASTBAR,主力控盘,' ←无庄控盘'),COLORCYAN;

DRAWTEXT(主力控盘<K40 AND 主力控盘>=K30 AND ISLASTBAR,主力控盘,' ←不控盘'),COLORFF9900;

DRAWTEXT(主力控盘<K50 AND 主力控盘>=K40 AND ISLASTBAR,主力控盘,' ←弱控盘'),COLORLIMAGENTA;

DRAWTEXT(主力控盘<K60 AND 主力控盘>=K50 AND ISLASTBAR,主力控盘,' ←控盘'),COLORMAGENTA;

DRAWTEXT(主力控盘<K70 AND 主力控盘>=K60 AND ISLASTBAR,主力控盘,' ←高控盘'),COLORLIMAGENTA;

DRAWTEXT(主力控盘<K80 AND 主力控盘>=K70 AND ISLASTBAR,主力控盘,' ←绝对控盘'),COLORRED;

DRAWTEXT(主力控盘<K90 AND 主力控盘>=K80 AND ISLASTBAR,主力控盘,' ←绝对控盘'),COLORGREEN;

{白柱}

STICKLINE(主力控盘,0,主力控盘,3.0,0),COLORBBBBBB;

STICKLINE(主力控盘,0,主力控盘,2.5,0),COLORCCCCCC;

STICKLINE(主力控盘,0,主力控盘,2.0,0),COLORDDDDDD;

STICKLINE(主力控盘,0,主力控盘,1.5,0),COLOREEEEEE;

STICKLINE(主力控盘,0,主力控盘,1.0,0),COLORFFFFFF;

STICKLINE(主力控盘,0,主力控盘,0.5,0),COLORWHITE;

{蓝柱}

STICKLINE(主力控盘 AND 主力控盘>20,20,主力控盘,3,0),COLORFF7700;

STICKLINE(主力控盘 AND 主力控盘>20,20,主力控盘,2.5,0),COLORFF8800;

STICKLINE(主力控盘 AND 主力控盘>20,20,主力控盘,2.0,0),COLORFF9900;

STICKLINE(主力控盘 AND 主力控盘>20,20,主力控盘,1.5,0),COLORFFAA00;

STICKLINE(主力控盘 AND 主力控盘>20,20,主力控盘,1.0,0),COLORFFBB00;

STICKLINE(主力控盘 AND 主力控盘>20,20,主力控盘,0.5,0),COLORFFCC00;

{黄柱}

STICKLINE(主力控盘 AND 主力控盘>40,40,主力控盘,3.0,0),COLOR00A6FF;

STICKLINE(主力控盘 AND 主力控盘>40,40,主力控盘,2.5,0),COLOR00B5FF;

STICKLINE(主力控盘 AND 主力控盘>40,40,主力控盘,2.0,0),COLOR00C4FF;

STICKLINE(主力控盘 AND 主力控盘>40,40,主力控盘,1.5,0),COLOR00D3FF;

STICKLINE(主力控盘 AND 主力控盘>40,40,主力控盘,1.0,0),COLOR00E2FF;

STICKLINE(主力控盘 AND 主力控盘>40,40,主力控盘,0.5,0),COLOR00FFFF;

{粉柱}

STICKLINE(主力控盘 AND 主力控盘>50,50,主力控盘,3.0,0),COLORFF00AA;

STICKLINE(主力控盘 AND 主力控盘>50,50,主力控盘,2.5,0),COLORFF00BB;

STICKLINE(主力控盘 AND 主力控盘>50,50,主力控盘,2.0,0),COLORFF00CC;

STICKLINE(主力控盘 AND 主力控盘>50,50,主力控盘,1.5,0),COLORFF00DD;

STICKLINE(主力控盘 AND 主力控盘>50,50,主力控盘,1.0,0),COLORFF00FF;

STICKLINE(主力控盘 AND 主力控盘>50,50,主力控盘,0.5,0),COLORMAGENTA;

{红柱}

STICKLINE(主力控盘 AND 主力控盘>60,60,主力控盘,3.0,0),COLOR0000BB;

STICKLINE(主力控盘 AND 主力控盘>60,60,主力控盘,2.5,0),COLOR0000CC;

STICKLINE(主力控盘 AND 主力控盘>60,60,主力控盘,2.0,0),COLOR0000CC;

STICKLINE(主力控盘 AND 主力控盘>60,60,主力控盘,1.5,0),COLOR0000DD;

STICKLINE(主力控盘 AND 主力控盘>60,60,主力控盘,1.0,0),COLOR0000EE;

STICKLINE(主力控盘 AND 主力控盘>60,60,主力控盘,0.5,0),COLOR0000FF;

{绿柱}

STICKLINE(主力控盘 AND 主力控盘>80,80,主力控盘,3.0,0),COLOR009900;

STICKLINE(主力控盘 AND 主力控盘>80,80,主力控盘,2.5,0),COLOR00BB00;

STICKLINE(主力控盘 AND 主力控盘>80,80,主力控盘,2.0,0),COLOR00CC00;

STICKLINE(主力控盘 AND 主力控盘>80,80,主力控盘,1.5,0),COLOR00DD00;

STICKLINE(主力控盘 AND 主力控盘>80,80,主力控盘,1.0,0),COLOR00EE00;

STICKLINE(主力控盘 AND 主力控盘>80,80,主力控盘,0.5,0),COLOR00FF00;

DRAWTEXT(CURRBARSCOUNT=10,83,'绝对控盘'),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=10,73,'绝对控盘'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=10,63,'高控盘'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=10,53,'控盘'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=10,43,'弱控盘'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=10,33,'不控盘'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=10,23,'无庄控盘'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=10,13,'散户盘'),COLORYELLOW;

DRAWICON(主力控盘>REF(主力控盘,1),2,1);

DRAWICON(主力控盘<REF(主力控盘,1),5,2);

{DRAWTEXT(crOSS(主力控盘,20),K10,'买入'),COLORBLUE;}

DRAWICON(CROSS(主力控盘,10),K10,11);

{DRAWTEXT(CROSS(主力控盘,50),K40,'买入'),COLORRED;

DRAWICON(CROSS(主力控盘,50),K40,23);}

获利盘:WINNER(C)*100,COLORYELLOW,NODRAW;

获利盘比例差:获利盘-REF(获利盘,1),COLORLIMAGENTA,NODRAW;

换手率:vol/CAPITAL*100,COLORWHITE,NODRAW;

{成交量解盘}

TT:=240/FROMOPEN;

比:=TT;

促进指数ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORRED;

AY2:=EMA(CLOSE,12)-EMA(CLOSE,26);

AZ2:=EMA(AY2,9);

LT2:=(AY2-AZ2);

L211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;

ZGD:=HHV(H,80)*0.99;

ZGD2:=CONST(ZGD);

ZDD:=LLV(L211,80);

ZDD2:=CONST(ZDD);

YYA4:=MA(CLOSE,20);

YYA5:=(CLOSE > MA(CLOSE,5));

YYA6:=(MA(CLOSE,5) > MA(CLOSE,10));

YYA7:=(CLOSE > MA(CLOSE,10));

YYA8:=(MA(CLOSE,5) > MA(CLOSE,20));

YYA9:=(CLOSE > MA(CLOSE,20));

YYA10:=REF(YYA4,1);

YYA11:=(YYA4 > YYA10);

YYAVX:=(((((IF(YYA5,10,(0 - 10)) + IF(YYA6,10,(0 - 10))) + IF(YYA7,10,(0 - 10))) + IF(YYA8,10,(0 - 10))) + IF(YYA9,10,(0 - 10))) + IF(YYA11,10,(0 - 10)));

DSLX:=(CLOSE / INDEXC);

DSLX1:=MA(DSLX,5);

DSLX2:=MA(DSLX,10);

YYV1:=MA(VOL,5);

YYV2:=MA(VOL,10);

J1:=CONST(IF( YYAVX > 0,200,100));

J2:=CONST(IF( YYAVX > 0,00,100));

J3:=CONST(IF( YYAVX > 0,100,100));

ZGD3:=ZGD2;

ZDD3:=ZDD2;

ZGD4:=ZGD2;

情况1:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)),NODRAW;

情况2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));

情况3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));

情况4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 <= YYV2)) AND (DSLX < DSLX1)),1,0));

情况5:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));

情况6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));

情况7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));

情况8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));

情况9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));

情况10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));

情况11:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;

情况12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));

情况13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));

情况14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));

情况15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));

情况16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));

大盘1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0));

 
源码未粘贴完......

原理解析：
填充背景(收盘价>0,RGB(0,108,108),RGB(88,0,0),0,5,0)
填充背景(C>0,RGB(0,0,55),RGB(0,0,0),0,'0',0)
K0赋值:0
K10赋值:10
K20赋值:20
K30赋值:30
K40赋值:40
K50赋值:50
K60赋值:60
K70赋值:70
K80赋值:80
K90赋值:90
DDKP赋值:EMA((收盘价计算的获利盘比例*70),3)
WWKP赋值:EMA((((收盘价*1.1计算的获利盘比例)-WINNER((收盘价*0.9)))*80),3)
输出主力控盘:((DDKP/(DDKP+WWKP))*100), 线宽为2,画白色
当满足条件主力控盘=K0 AND ISLASTBAR时,在主力控盘和'---散户盘'位置书写文字
当满足条件主力控盘=K20 AND ISLASTBAR时,在主力控盘和' ←无庄控盘'位置书写文字
当满足条件主力控盘=K30 AND ISLASTBAR时,在主力控盘和' ←不控盘'位置书写文字
当满足条件主力控盘=K40 AND ISLASTBAR时,在主力控盘和' ←弱控盘'位置书写文字
当满足条件主力控盘=K50 AND ISLASTBAR时,在主力控盘和' ←控盘'位置书写文字
当满足条件主力控盘=K60 AND ISLASTBAR时,在主力控盘和' ←高控盘'位置书写文字
当满足条件主力控盘=K70 AND ISLASTBAR时,在主力控盘和' ←绝对控盘'位置书写文字
当满足条件主力控盘=K80 AND ISLASTBAR时,在主力控盘和' ←绝对控盘'位置书写文字
当满足条件主力控盘时,在0和主力控盘之间画柱状线
当满足条件主力控盘时,在0和主力控盘之间画柱状线
当满足条件主力控盘时,在0和主力控盘之间画柱状线
当满足条件主力控盘时,在0和主力控盘之间画柱状线
当满足条件主力控盘时,在0和主力控盘之间画柱状线
当满足条件主力控盘时,在0和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>20时,在20和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>20时,在20和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>20时,在20和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>20时,在20和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>20时,在20和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>20时,在20和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>40时,在40和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>40时,在40和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>40时,在40和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>40时,在40和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>40时,在40和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>40时,在40和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>50时,在50和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>50时,在50和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>50时,在50和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>50时,在50和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>50时,在50和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>50时,在50和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>60时,在60和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>60时,在60和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>60时,在60和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>60时,在60和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>60时,在60和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>60时,在60和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>80时,在80和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>80时,在80和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>80时,在80和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>80时,在80和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>80时,在80和主力控盘之间画柱状线
当满足条件主力控盘 AND 主力控盘>80时,在80和主力控盘之间画柱状线
当满足条件 到最后交易的周期=10时,在83和'绝对控盘'位置书写文字
当满足条件 到最后交易的周期=10时,在73和'绝对控盘'位置书写文字
当满足条件 到最后交易的周期=10时,在63和'高控盘'位置书写文字
当满足条件 到最后交易的周期=10时,在53和'控盘'位置书写文字
当满足条件 到最后交易的周期=10时,在43和'弱控盘'位置书写文字
当满足条件 到最后交易的周期=10时,在33和'不控盘'位置书写文字
当满足条件 到最后交易的周期=10时,在23和'无庄控盘'位置书写文字
当满足条件 到最后交易的周期=10时,在13和'散户盘'位置书写文字
DRAWICON(主力控盘>1日前的主力控盘,2,1)
DRAWICON(主力控盘<1日前的主力控盘,5,2)
{DRAWTEXT(主力控盘上穿20,K10,'买入'), 画蓝色
}
DRAWICON(主力控盘上穿10,K10,11)
{DRAWTEXT(主力控盘上穿50,K40,'买入'),画红色
DRAWICON(主力控盘上穿50,K40,23)
输出}
获利盘:C计算的获利盘比例*100,画黄色,NODRAW
输出获利盘比例差:获利盘-1日前的获利盘,COLORLIMAGENTA,NODRAW
输出换手率:成交量/当前流通股本*100,画白色,NODRAW
{成交量解盘}
TT赋值:240/FROM开盘价
比赋值:TT
促进指数ＭＦＬ赋值:(最高价-最低价)*1000000/(成交量*比),画红色
AY2赋值:收盘价的12日指数移动平均-收盘价的26日指数移动平均
AZ2赋值:AY2的9日指数移动平均
LT2赋值:(AY2-AZ2)
L211赋值:IF(LT2,21日内L最低值,DRAWNULL),COLOR217158,CIRCLEDOT
ZGD赋值:80日内H最高值*0.99
ZGD2:=CONST(ZGD)
ZDD赋值:80日内L211最低值
ZDD2:=CONST(ZDD)
YYA4赋值:收盘价的20日简单移动平均
YYA5赋值:(收盘价 > 收盘价的5日简单移动平均)
YYA6赋值:(收盘价的5日简单移动平均 > 收盘价的10日简单移动平均)
YYA7赋值:(收盘价 > 收盘价的10日简单移动平均)
YYA8赋值:(收盘价的5日简单移动平均 > 收盘价的20日简单移动平均)
YYA9赋值:(收盘价 > 收盘价的20日简单移动平均)
YYA10赋值:1日前的YYA4
YYA11赋值:(YYA4 > YYA10)
YYAVX赋值:(((((IF(YYA5,10,(0 - 10)) + IF(YYA6,10,(0 - 10))) + IF(YYA7,10,(0 - 10))) + IF(YYA8,10,(0 - 10))) + IF(YYA9,10,(0 - 10))) + IF(YYA11,10,(0 - 10)))
DSLX赋值:(收盘价 / INDEXC)
DSLX1:=DSLX的5日简单移动平均
DSLX2:=DSLX的10日简单移动平均
YYV1赋值:成交量的5日简单移动平均
YYV2赋值:成交量的10日简单移动平均
如果 YYAVX > 0返回200否则返回100
如果 YYAVX > 0返回00否则返回100
如果 YYAVX > 0返回100否则返回100
ZGD3:=ZGD2
ZDD3:=ZDD2
ZGD4:=ZGD2
情况1赋值:CONST(IF(((YYAVX上穿1 AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)),NODRAW
情况2赋值:CONST(IF(((YYAVX上穿1 AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0))
情况3赋值:CONST(IF(((YYAVX上穿1 AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0))
情况4赋值:CONST(IF(((YYAVX上穿1 AND (YYV1 <= YYV2)) AND (DSLX < DSLX1)),1,0))
情况5赋值:CONST(IF(((1上穿YYAVX AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0))
情况6赋值:CONST(IF(((1上穿YYAVX AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0))
情况7赋值:CONST(IF(((1上穿YYAVX AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0))
情况8赋值:CONST(IF(((1上穿YYAVX AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0))
情况9赋值:CONST(IF(((((YYAVX >= 1) AND (1日前的YYAVX > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0))
情况10:=CONST(IF(((((YYAVX >= 1) AND (1日前的YYAVX > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0))
情况11:=CONST(IF(((((YYAVX >= 1) AND (1日前的YYAVX > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW
情况12:=CONST(IF(((((YYAVX >= 1) AND (1日前的YYAVX > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0))
情况13:=CONST(IF(((((YYAVX < 1) AND (1日前的YYAVX < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0))
情况14:=CONST(IF(((((YYAVX < 1) AND (1日前的YYAVX < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0))
情况15:=CONST(IF(((((YYAVX < 1) AND (1日前的YYAVX < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0))
情况16:=CONST(IF(((((YYAVX < 1) AND (1日前的YYAVX < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0))
大盘1赋值:CONST(IF((YYAVX上穿1 AND (YYV1 >= YYV2)),1,0))