通达信懒人必备副图指标公式

安装后如下图，友情提示（指标只是辅助，不作建议） 所有程序均为免费分享。

不会安装点击  安装指南  步骤操作

所属板块:=STRCAT('所属板块: ',STRCAT(STRCAT(STRCAT('[行业]-',HYBLOCK),STRCAT(' [地域]-',DYBLOCK)),STRCAT(' [概念]-',GNBLOCK)));
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,3)),'亿股');
流通盘:=STRCAT(STRCAT('流通盘: ',CON2STR(CAPITAL/1000000,3)),'亿股');
每股收益:=STRCAT(STRCAT('每股收益: ',CON2STR(FINANCE(29)/FINANCE(1),2)),'元');
每股未分配:=STRCAT(STRCAT('每股未分配: ',CON2STR(FINANCE(32),2)),'元');
每股公积金:=STRCAT(STRCAT('每股公积金: ',CON2STR(FINANCE(18),2)),'元');
每股净资产:=STRCAT(STRCAT('每股净资产: ',CON2STR(FINANCE(34),2)),'元');
总市值:=STRCAT(STRCAT('总市值: ',CON2STR(FINANCE(1)*C/100000000,3)),'亿元');
市值:=STRCAT(STRCAT('流通值: ',CON2STR((CAPITAL/1000000)*C,3)),'亿元');
SHI:INTPART(DATE+19000000),NODRAW;
上市日期:=STRCAT(' 上市日:',CON2STR(SHI,0));
收入同比增长:=STRCAT(STRCAT('收入同比增长: ',CON2STR(FINANCE(44),2)),'%');
市盈率:=STRCAT('市盈率: ',CON2STR(DYNAINFO(39),2));
主营毛利润率:=STRCAT(STRCAT('主营毛利润率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2)),'%');
主营净利润率:=STRCAT(STRCAT('主营净利润率: ',CON2STR(FINANCE(30)/FINANCE(20)*100,2)),'%');
主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
净利同比增长:=STRCAT(STRCAT('净利同比增长: ',CON2STR(FINANCE(43),2)),'%');
DRAWTEXT_FIX(ISLASTBAR,0.002,0,0,'上市日期:'),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.037,0,0,SHI),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.002,0.05,0,所属板块),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.002,0.10,0,总股本),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.127,0.10,0,收入同比增长),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.257,0.10,0,每股收益),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.002,0.15,0,流通盘),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.127,0.15,0,主营毛利润率),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.257,0.15,0,每股净资产),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.002,0.20,0,总市值),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.127,0.20,0,主营净利润率),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.257,0.20,0,每股未分配),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.002,0.25,0,市值),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.127,0.25,0,净利同比增长),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.257,0.25,0,每股公积金),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.002,0.25,0,市盈率),COLORCYAN;
HSL:=100*VOL/(FINANCE(7)/100);
换手:=STRCAT(STRCAT('换手: ',CON2STR(HSL,2)),'%');
DRAWTEXT_FIX(ISLASTBAR,0.002,0.30,0,换手),COLORMAGENTA;
CJ:=DYNAINFO(10)/100000000;
成交:=STRCAT(STRCAT('成交: ',CON2STR(CJ,2)),'亿');
DRAWTEXT_FIX(ISLASTBAR,0.127,0.30,0,成交),COLORMAGENTA;
DRAWTEXT_FIX(CURRBARSCOUNT=120,0.4,0.01,0,''),COLORGREEN;
LC:=REF(CLOSE,1);
WRSI:=SMA(MAX(CLOSE-LC,0),5,1)/SMA(ABS(CLOSE-LC),5,1)*100;
获利筹码:=CONST(WINNER(C)*100);
SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
量能饱和:=(IF(SAT>1,1,SAT)*100);
WR10:=(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3))*100;
活跃:=(WRSI-WR10);{程序化指标 WWW.HONGHAIE.COM}
活跃度比:=IF(活跃>=0,(活跃+100)/2,100-ABS((活跃-100)/2));
DRAWTEXT_FIX(ISLASTBAR=1,0.83,0.25,1,STRCAT(STRCAT('量能饱和： ',CON2STR(量能饱和,2)),'％')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR=1,0.83,0.52,1,STRCAT(STRCAT('活跃度比： ',CON2STR(活跃度比,2)),'％')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR=1,0.83,0.75,1,STRCAT(STRCAT('获利筹码： ',CON2STR(获利筹码,2)),'％')),COLORYELLOW;
DRAWRECTREL(950,470,630,365,RGB(150,10,250));
DRAWRECTREL(950,710,630,610,RGB(150,10,250));
DRAWRECTREL(950,855,630,955,RGB(150,10,250));
DRAWRECTREL(950,470,630+CONST(量能饱和*(950-630)/100),365,RGB(0,100,0));
DRAWRECTREL(790,470,790,365,RGB(0,0,10));
DRAWRECTREL(950,710,630+CONST(活跃度比*(950-630)/100),610,RGB(0,100,0));
DRAWRECTREL(790,710,790,610,RGB(0,0,10));
DRAWRECTREL(950,855,630+CONST(获利筹码*(950-630)/100),955,RGB(0,100,0));
DRAWRECTREL(790,855,790,955,RGB(0,0,10));
总涨幅周期:=350;
高点位:=REFDATE(HHV(H,总涨幅周期),DATE); 
低点位:=REFDATE(LLV(L,总涨幅周期),DATE);
低位价:=REF(L,BARSLAST(低点位=L)),COLORGREEN,NODRAW;
高位价:=REF(H,BARSLAST(高点位=H)),COLORRED,NODRAW;
曾最大涨幅:=(高位价-低位价)/低位价*100;
当前涨幅:=(C-低位价)/低位价*100;
ZFA:=CON2STR(CONST(曾最大涨幅),2);
ZFB:=CON2STR(CONST(当前涨幅),2);
ZFC:=STRCAT('【曾最大涨幅】：',ZFA);
ZFD:=STRCAT(ZFC,'％');
ZFE:=STRCAT(ZFD,'【当前总涨幅】：');
ZFF:=STRCAT(ZFE,ZFB);
ZFG:=STRCAT(ZFF,'％');
AA1X:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-
VOL/CAPITAL*100,0)),0)};
成交额:=V*C/100,NODRAW;{万元}
AA2X:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
AA3X:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);
AA4X:=SUM((IF(((成交额/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
AA5X:=SUM((IF(((成交额/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);
AA6X:=((AA2X+AA3X)+AA4X)+AA5X;
DD1X:=1;
AAA1:=STRCAT(STRCAT('机构持有',CON2STR((100*AA2X)/AA6X,0)),'%');
AAA2:=STRCAT(STRCAT('散户持有',CON2STR((100*AA3X)/AA6X,0)),'%');
DRAWTEXT_FIX(1,0.83,0,1,'《★筹码分析★》'),COLORRED;
DRAWTEXT_FIX(DD1X=1,0.63,0,0,AAA1),COLORMAGENTA;
DRAWTEXT_FIX(DD1X=1,0.89,0,0,AAA2),COLORGREEN;
VARA5:=CONST(AA2X/AA6X*100);
DRAWRECTREL(950,220,630,115,RGB(150,10,250));
DRAWRECTREL(950,220,630+CONST(VARA5*(950-630)/100),115,RGB(0,100,0));
DRAWRECTREL(790,220,790,115,RGB(0,0,10));