分享

通达信十大股东市值等数据附图显示一目了然

 天高云又淡 2019-10-12
AM:=AMOUNT/100000000;
总额亿:AM,VOLSTICK,COLORRED;
流通市值换手:AMOUNT/(FINANCE(40)-C*FINONE(244,0,0))*100,NODRAW,COLORRED;
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,1)),'亿股');
流通股:=STRCAT(STRCAT('流通股: ',CON2STR(CAPITAL/1000000,1)),'亿股');
总市值:=STRCAT(STRCAT('总市值: ',CON2STR(FINANCE(1)*C/100000000,1)),'亿元');
流通市值:=STRCAT(STRCAT('流通市值: ',CON2STR((CAPITAL/1000000)*C,1)),'亿元');
DRAWTEXT_FIX(ISLASTBAR,0.00,0.001,0,总股本),COLORC08080;
DRAWTEXT_FIX(ISLASTBAR,0.12,0.001,0,流通股),COLORC08080;
DRAWTEXT_FIX(ISLASTBAR,0.25,0.001,0,总市值),COLORC08080;
DRAWTEXT_FIX(ISLASTBAR,0.37,0.001,0,流通市值),COLORRED;
倍额:=IF(AM/REF(AM,1)>1.9 AND C>REF(C,1),1,0);
高额:=IF(AM=HHV(AM,20),3,2);
地额:=IF(AM=LLV(AM,20),9,8);
DRAWTEXT(倍额>0,总额亿*0.88,'B');
DRAWTEXT(高额>2,总额亿*0.68,'G');
DRAWTEXT(地额>8,总额亿*1.01,'D');
十大股东:=FINONE(245,0,0),NODRAW;
十大流通:=FINONE(244,0,0),NODRAW;
第一股东:=FINONE(243,0,0),NODRAW;
十大股东市值:=STRCAT(STRCAT('十大股东市值: ',CON2STR(FINONE(245,0,0)*C/100000000,1)),'亿元');
DRAWTEXT_FIX(ISLASTBAR,0.50,0.001,0,十大股东市值),COLORRED;
十大流通市值:=STRCAT(STRCAT('十大流通市值: ',CON2STR(FINONE(244,0,0)*C/100000000,1)),'亿元');
DRAWTEXT_FIX(ISLASTBAR,0.65,0.001,0,十大流通市值),COLORRED;
第一股东市值:=STRCAT(STRCAT('第一股东市值: ',CON2STR(FINONE(243,0,0)*C/100000000,1)),'亿元');
DRAWTEXT_FIX(ISLASTBAR,0.80,0.001,0,第一股东市值),COLORRED;

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约