通达信F10主图_木头人骑木马

http://blog.sina.com.cn/u/3097099432

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

通达信F10主图

(2025-11-24 19:24:15)

分类：通达信公式

Z1:=STRCAT(HYBLOCK,' ');

Z2:=STRCAT(Z1,FGBLOCK);

Z3:=STRCAT(Z2,DYBLOCK);

Z4:=STRCAT(Z3,' ');

DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z4,GNBLOCK)),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(总股本,流通盘),全流通),市值),上市日期));

DRAWTEXT_FIX(ISLASTBAR,0.0,0.08,0,股本市值),COLORYELLOW;

DRAWTEXT_FIX(1,0.0,0.15,0,STRCAT('自定板块：',ZDBLOCK)),COLORYELLOW;

获利%:WINNER(CLOSE)*100,NODRAW,COLORRED;

DRAWTEXT_FIX(1,0.0,0.22,0,STRCAT('获利%：',CON2STR(获利%,2))),COLORCYAN;

HSL:=100*VOL/(FINANCE(7)/100);

换手:=STRCAT(STRCAT('换手: ',CON2STR(HSL,2)),'%');

DRAWTEXT_FIX(ISLASTBAR,0.0,0.30,0,换手),COLORYELLOW;

CJA:=DYNAINFO(10)/100000000;

成交:=STRCAT(STRCAT('成交: ',CON2STR(CJA,2)),'亿');

DRAWTEXT_FIX(ISLASTBAR,0.0,0.36,0,成交),COLORCYAN;

{控盘系数}

ZLCM:=EMA(WINNER(CLOSE)*70,3);{//主力筹码估算}

SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{//散户筹码估算}

ZZLKP:=ZLCM/(ZLCM+SHCM)*100;{//主力控盘筹码比率}

控盘系数%:=INTPART(ZZLKP),NODRAW;

高度控盘:=CROSS(控盘系数%,50);

DRAWTEXT_FIX(1,0.0,0.42,0,STRCAT('控盘系数%：',CON2STR(控盘系数%,2))),COLORYELLOW;

活跃度:=IF(DATE>1000101,(MA(VOL,11)+MA(VOL,11*2)+MA(VOL,11*3)+MA(VOL,11*4))/4/CAPITAL*1000,1),NODRAW;

DRAWTEXT_FIX(1,0.0,0.50,0,'活跃度：'),COLORFFFF00;

DRAWNUMBER_FIX(1,0.05,0.50,0,CONST(活跃度)),COLORFFFFFF;

DRAWTEXT_FIX(1,0.1,0.50,0,'( 活跃股大于20 )'),COLORYELLOW;

{数字显示涨跌停K线天数}

A1000:=REF(C,1);

涨停A:=IF((C-A1000)*100/A1000>=(10-0.01*100/A1000),1,0);

跌停A:=IF((A1000-C)*100/A1000>=(10-0.01*100/A1000),1,0);

涨停次数:=COUNT(涨停A,BARSSINCE(涨停A)+1);

跌停次数:=COUNT(跌停A,BARSSINCE(跌停A)+1);

DRAWNUMBER(涨停A,HIGH*1.04,涨停次数),COLORYELLOW;

DRAWNUMBER(跌停A,HIGH*1.04,跌停次数),COLORCYAN;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.60,0.95,0,涨停次数),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.70,0.95,0,跌停次数),COLORCYAN;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.52,0.95,0,'上市以来共涨停:'),COLORYELLOW;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.63,0.95,0,'上市以来共跌停:'),COLORCYAN;

涨停K线:=IF((C-A1000)*100/A1000>=(10-0.01*100/A1000),1,0);

跌停K线:=IF((A1000-C)*100/A1000>=(10-0.01*100/A1000),1,0);

{风险系数}

XA1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;

XA2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替}

XA3:=FINANCE(23)/FINANCE(10)*3.3;

XA4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}

XA5:=FINANCE(20)/FINANCE(15)*0.999;

Z值:=XA1+XA2+XA3+XA4+XA5;

DRAWTEXT_FIX(1,0.70,0.20,1,'财务预警：'),COLORYELLOW;

DRAWTEXT_FIX(Z值<1.2,0.75,0.20,1,' 重警'),COLORFF00FF;

DRAWTEXT_FIX( BETWEEN(Z值,1.2,2.6),0.75,0.20,1,' 轻警'),COLORRED;

DRAWTEXT_FIX(Z值>2.6,0.75,0.20,1,' 无警'),COLORGREEN;

VARQ3:=LLV(HIGH,240);

VARQ4:=100*(CLOSE-VARQ3)/VARQ3;

VARQ5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;

VARQ6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;

VARQ7:=0;

VARQ8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;

VARQ9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;

VARQ10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);

VARQ11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);

VARQ12:=ZIG(3,6)=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);

VARQ13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);

VARQ14:=ZIG(3,22)=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);

VARQ15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);

VARQ16:=ZIG(3,51)=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);

VARQ17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);

VARQ18:=ZIG(3,72)=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);

VARQ19:=EMA(CLOSE,2)-EMA(CLOSE,150);

买１:=VARQ10;

买２:=(VARQ11+VARQ13+VARQ15+VARQ17);

卖１:=(VARQ12+VARQ14+VARQ16+VARQ18);

买点:IF(买１>0 OR 买２>0,LOW*0.95,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;

DRAWTEXT(买１>0 OR 买２>0,LOW*0.93,' 买'),COLORYELLOW;

卖点:IF(卖１>0,HIGH*1.03,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN;

DRAWTEXT(卖１>0,HIGH*1.05,'卖'),COLORGREEN;

高点位:=REFDATE(HHV(H,350),DATE);

低点位:=REFDATE(LLV(L,350),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,'﹪');

DRAWTEXT_FIX(ISLASTBAR,0,0.98,0,ZFG),COLORYELLOW;

成交额:=V*C/100,NODRAW;{万元}

AA2:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);

AA3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);

AA4:=SUM((IF(((成交额/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);

AA5:=SUM((IF(((成交额/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);

AA6:=((AA2+AA3)+AA4)+AA5;

DD1:=1;

AAA1:=STRCAT(STRCAT('机构持有',CON2STR((100*AA2)/AA6,0)),'%');

AAA2:=STRCAT(STRCAT('散户持有',CON2STR((100*AA3)/AA6,0)),'%');

DRAWTEXT_FIX(DD1=1,0.75,0.85,0,AAA1),COLORYELLOW;

DRAWTEXT_FIX(DD1=1,0.75,0.99,0,AAA2),COLORGREEN;

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：通达信二十日K线变色

新浪BLOG意见反馈留言板　欢迎批评指正