分享一个副图指标主力控盘指数

MAKE996 · 发表于 2020-3-29 21:37:48

本帖最后由 MAKE996 于 2020-3-31 18:40 编辑

指标源码：
DRAWGBK(C>0, RGB(0,10,10),RGB(00,0,0),0,'11',0);

{行业板块看盘幅图}

创业板:=INBLOCK('创业板');
中小企业:=INBLOCK('中小企业');
上证Ａ股:=INBLOCK('上证Ａ股');
深证Ａ股:=INBLOCK('深证Ａ股');
INDEH:=IF(中小企业=1,"399005$H",IF(创业板=1,"399006$H",IF(上证Ａ股=1,"999999$H","399001$H"))),NODRAW;
INDEO:=IF(中小企业=1,"399005$O",IF(创业板=1,"399006$O",IF(上证Ａ股=1,"999999$O","399001$O"))),NODRAW;
INDEL:=IF(中小企业=1,"399005$L",IF(创业板=1,"399006$L",IF(上证Ａ股=1,"999999$L","399001$L"))),NODRAW;
INDEC:=IF(中小企业=1,"399005$C",IF(创业板=1,"399006$C",IF(上证Ａ股=1,"999999$C","399001$C"))),NODRAW;
板块:=IF(中小企业=1,'中小企业指数',IF(创业板=1,'创业板指数',IF(上证Ａ股=1,'上证指数','深证指数')));
AA:=REF(INDEC,1);
指数涨幅:=IF(AA>0,(INDEC-AA)*100/AA,0);

CCC:=HY_INDEXC;
OOO:=HY_INDEXO;
LLL:=HY_INDEXL;
HHH:=HY_INDEXH;

A1:=REF(CCC,1);
ZF:=(C-REF(C,1))/REF(C,1)*100;
行业指数:=IF(A1>0,(CCC-A1)*100/A1,0);

DRAWTEXT_FIX(ISLASTBAR AND 指数涨幅<=行业指数,0.36,0.36,0,'板强'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND 指数涨幅>行业指数,0.36,0.36,0,'板弱'),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR AND ZF>=行业指数,0.39,0.36,0,'股强'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND ZF<行业指数,0.39,0.36,0,'股弱'),COLORCYAN;

总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');
全流通:=STRCAT(' 全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));
市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');
上市日期:=STRCAT(' 上市日期: ',CON2STR(FINANCE(42),0));
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市日期));
市盈率:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2));
市销率:=STRCAT(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));
市净率:=STRCAT(' 市净率: ',CON2STR(C/FINANCE(34),2));
净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
净利润率:=STRCAT(' 净利润率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率));
X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替};
X3:=FINANCE(23)/FINANCE(10)*3.3;
X4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}
X5:=FINANCE(20)/FINANCE(15)*0.999;
Z值:=X1+X2+X3+X4+X5;
预警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'轻警','无警'));
财务预警:=STRCAT('财务预警: ',STRCAT(预警,STRCAT('-Z值: ',CON2STR(Z值,3))));
优质资产率:=STRCAT(' 优质资产率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理论上越大越好但不同行业有不同标准};
现金负债比:=STRCAT(' 现金负债比: ',CON2STR(FINANCE(25)/FINANCE(15),3));{缺长期负债或负债总额，理论上越大越好但不同行业有不同标准};
财务系数:=STRCAT('风险系数: ',STRCAT(STRCAT(财务预警,优质资产率),现金负债比));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.01,0,财务系数),COLOR888888;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.06,0,当前业绩),COLOR888888;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.115,0,股本市值),COLOR888888;
{}

{盘面分析}
平均成本:=STRCAT(' 平均成本：',CON2STR(COST(50),2));
主力成本:=STRCAT(' 主力成本：',CON2STR(COST(4),2));
重心:=STRCAT(' 重心：',CON2STR((H+L+C)/3,2));
套牢盘%:=STRCAT('  【套牢概率】：',CON2STR((1-WINNER(C))*100,2));
获利盘%:=STRCAT('  【获利概率】：',CON2STR(100*WINNER(C),2));
筹码分析:=STRCAT('【筹码分析】',STRCAT(STRCAT(STRCAT(STRCAT(平均成本,主力成本),重心),套牢盘%),获利盘%));
{DRAWTEXT_FIX(ISLASTBAR,0,0,0,所属板块),COLORLIRED;}
DRAWTEXT_FIX(ISLASTBAR,0.0,0.18,0,筹码分析),COLORLIBLUE;

{========================额外==========================}
ZR1:=STRCAT(DYBLOCK,' ');
ZR2:=STRCAT(ZR1,HYBLOCK);
ZR3:=STRCAT(ZR2,' ');
ZR4:=STRCAT(ZR3,GNBLOCK);
ZR5:=STRCAT(ZR4,' ');
ZR6:=STRCAT(ZR5,FGBLOCK);
DRAWTEXT_FIX(ISLASTBAR,0.0,0.24,0,STRCAT(ZR6,ZHBLOCK)),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0,0.30,0,STRCAT('概念: ',GNBLOCK)),COLORWHITE;

DRAWTEXT_FIX(ISLASTBAR,0.93,0.00,0,STRCAT('涨家数: ',CON2STR(DYNAINFO(60),0))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.93,0.06,0,STRCAT('跌家数: ',CON2STR(DYNAINFO(61),0))),COLORGREEN;
总涨跌比:=DYNAINFO(60)/(DYNAINFO(60)+DYNAINFO(61))*100,COLORCYAN,NODRAW;
DRAWTEXT_FIX(ISLASTBAR,0.93,0.12,0,STRCAT('总涨跌比: ',CON2STR(总涨跌比,2))),COLORCYAN;
{涨停统计}
涨停A:=CLOSE/REF(CLOSE,1)>=1.095;
ZTCS:=COUNT(涨停A,BARSSINCE(涨停A)+1);
{DRAWNUMBER(涨停A,HIGH*1.04,ZTCS),COLORYELLOW;}
GZT1:=STRCAT('　共涨停: ',CON2STR(ZTCS,0));
GZT2:=STRCAT(GZT1,'次');
SSTS1:=STRCAT('　上市: ',CON2STR(FINANCE(42),0));
SSTS2:=STRCAT(SSTS1,'天');
NTZZT1:=STRCAT('　距今:',CON2STR(CONST(BARSLAST(涨停A)),0));
NTZZT2:=STRCAT(NTZZT1,'天有涨停');
ZTTJ1:=STRCAT(SSTS2,GZT2);
ZTTJ2:=STRCAT(ZTTJ1,NTZZT2);
ZTTJ:=STRCAT('涨停统计:',ZTTJ2);
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0.36,0,ZTTJ),COLORCYAN;
VABB3:=1;
TJ1AA:=HYBLOCK;
TJ2AA:=HORCALC(HYBLOCK,105,1,DRAWNULL);
TJ4AA:=STRCAT('在 ','             ');
DRAWTEXT_FIX(ISLASTBAR  AND VABB3=1,0.42,0.0,0,STRCAT(TJ4AA,STRCAT(' 排名  ',STRCAT(CON2STR(TJ2AA,0),'  名')))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR  AND VABB3=1,0.445,0.0,0,STRCAT('  ',TJ1AA)),COLORYELLOW;
{}
N:=24;
VAR1:= EMA(EMA(CLOSE,9),9);
控盘指数: (VAR1-REF(VAR1,1))/REF(VAR1,1)*1000,POINTDOT,COLORFFCCCC;
STICKLINE(控盘指数<0,控盘指数,0,2,0),COLORGRAY;
无庄控盘: 控盘指数<0,LINETHICK0,COLORGRAY;
STICKLINE(控盘指数>REF(控盘指数,1) AND 控盘指数>0 AND 控盘指数<3,控盘指数,0,2,1),COLORRED;
STICKLINE(控盘指数>REF(控盘指数,1) AND 控盘指数>0 AND 控盘指数>3,控盘指数,0,2,1),COLORRED;
STICKLINE(控盘指数>REF(控盘指数,1) AND 控盘指数>3,控盘指数,3,4,1),COLORFF00FF;
主力控盘: 控盘指数>REF(控盘指数,1) AND 控盘指数>0,LINETHICK0,COLORRED;
STICKLINE(控盘指数<REF(控盘指数,1) AND 控盘指数>0,控盘指数,0,2,0),COLOR00FF00;
控盘减弱: 控盘指数<REF(控盘指数,1) AND 控盘指数>0,LINETHICK0,COLOR00FF00;
VARA:= EMA(0.667*REF(控盘指数,1)+0.333*控盘指数,2);
{STICKLINE(控盘指数>VARA,控盘指数,VARA,2,0),COLORRED;}
B2:= 控盘指数>VARA;
{准备: B2>REF(B2,1) AND 控盘指数<(-2),COLORYELLOW;
DRAWTEXT(准备,3,'准备'),COLORYELLOW;}
B1:= (控盘指数>REF(控盘指数,1) AND 控盘指数>0)=1;
开始控盘:(B1>REF(B1,1))*5,COLORLICYAN,LINETHICK3;
有庄控盘:IF(控盘指数>REF(控盘指数,1) AND 控盘指数>0,控盘指数,0),COLORRED,NODRAW;
VAR2:=100*WINNER(CLOSE*0.95);
{STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘指数>0,控盘指数,0,1,0),COLORFF00FF;}
高度控盘:IF(VAR2>50 AND COST(85)<CLOSE AND 控盘指数>0,控盘指数,0),COLORFF00FF,NODRAW;
主力出货:IF(控盘指数<REF(控盘指数,1) AND 控盘指数>0,控盘指数,0),COLOR00FF00,NODRAW;
A:=(3*C+L+O+H)/6;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210;
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
CB:=EMA(X,13);
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
DRAWICON(FILTER(买=1,5),L*0.11,1);

DRAWTEXT_FIX(1,0.6,0.00,0,'解禁  :'),COLORMAGENTA;
DRAWTEXT_FIX(1,0.65,0.0,0,EXTERNSTR(0,902)),COLORYELLOW;
DRAWTEXT_FIX(1,0.6,0.1,0,'协同作战 :'),COLORMAGENTA;
DRAWTEXT_FIX(1,0.65,0.1,0,EXTERNSTR(0,1000)),COLORYELLOW;
DRAWTEXT_FIX(1,0.6,0.2,0,'概念风口 :'),COLORMAGENTA;
DRAWTEXT_FIX(1,0.65,0.2,0,EXTERNSTR(0,2000)),COLORYELLOW;

DRAWTEXT_FIX(1,0.0,0.48,0,'涨停综合 :'),COLORMAGENTA;
DRAWTEXT_FIX(1,0.05,0.48,0,EXTERNSTR(0,2008)),COLORYELLOW;
DRAWTEXT_FIX(1,0.0,0.42,0,'涨停揭秘 :'),COLORMAGENTA;
DRAWTEXT_FIX(1,0.05,0.42,0,EXTERNSTR(0,2001)),COLORYELLOW;