朝天龙2011的个股热度非常好

白雪诗 2022-05-15

展开全文

发表于 2022-5-11 14:05

JJZF1:=AS1 AND AF1;

竞价总量:=DYNAINFO(15)/O/100,COLORCYAN,NODRAW;
DRAWTEXT_FIX(1,0.88,0.06,0,'【竞价总量】')COLORCYAN;
DRAWTEXT_FIX(1,0.95,0.06,0,CON2STR(竞价总量,0))COLORMAGENTA;
竞价量比:=DYNAINFO(15)/DYNAINFO(4)/100/DYNAINFO(16),NODRAW;
DRAWTEXT_FIX(1,0.88,0.1,0,'【竞价量比】')COLORRED;
DRAWTEXT_FIX(1,0.95,0.1,0,CON2STR(竞价量比,2))COLORWHITE;
竞价金额:=DYNAINFO(15)/10000,COLORYELLOW,NODRAW;
DRAWTEXT_FIX(1,0.88,0.15,0,'【竞价金额】')COLORYELLOW;
DRAWTEXT_FIX(1,0.95,0.15,0,CON2STR(竞价金额,0))COLORRED;
竞价换手:=DYNAINFO(15)/O/FINANCE(46)*100,COLORMAGENTA,NODRAW;
DRAWTEXT_FIX(1,0.88,0.2,0,'【竞价换手】')COLORMAGENTA;
DRAWTEXT_FIX(1,0.95,0.2,0,CON2STR(竞价换手,2))COLORCYAN;
MA5:=MA(CLOSE,5);
MA20:=MA(CLOSE,20);
MA54:=MA(CLOSE,54);
MA120:=MA(CLOSE,120);
个股热度:=50/((MA5+MA10+MA20+MA30+MA60+MA120)/6/C)/10,COLORRED,NODRAW;
DRAWTEXT_FIX(1,0.88,0.25,0,'【个股热度】')COLORRED;
DRAWTEXT_FIX(1,0.95,0.25,0,CON2STR(个股热度,2))COLORYELLOW;

每股净资产:=FINANCE(34),NODRAW,COLORRED;
每股公积金:=FINANCE(18),NODRAW,COLORGREEN;
未分配利润:=FINANCE(32),NODRAW,COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR=1,0.37,0,0,STRCAT(STRCAT('每股净资产： ',CON2STR(每股净资产,2)),'元')),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR=1,0.5,0,0,STRCAT(STRCAT('每股公积金： ',CON2STR(每股公积金,2)),'元')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR=1,0.63,0,0,STRCAT(STRCAT('未分配利润： ',CON2STR(未分配利润,2)),'元')),COLORYELLOW;
{题材数据}
DRAWTEXT_FIX(ISLASTBAR,0,0,0,CODE),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.05,0,0,STKNAME),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.1,0,0,HYBLOCK),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.15,0,0,DYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0,0.05,0,GNBLOCK),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0,0.14,0,FGBLOCK),COLORWHITE;
GP:=0;
满足返回:=TESTSKIP(PERIOD!=5);
总股本:=STRCAT(CON2STR(FINANCE(1)/100000000,2),' 亿');流通盘:=CON2STR(FINANCE(7)/100000000,2);
OUTSJ:=STRCAT(STRCAT(STRCAT(IF(DYBLOCK=DRAWNULL,' ',DYBLOCK),STRCAT(' 总股本: ',IF(STRCMP(总股本,' ')=0,总股本,' '))),STRCAT(' ',IF(STRCMP(流通盘,' ')=0,STRCAT('流通盘: ',流通盘),''))),STRCAT(' ','亿'));
DRAWTEXT_FIX(GP=0,00,0.1,0,OUTSJ);

{时间}
N1:=STRCAT(CON2STR(YEAR,0),' 年 ');
Y1:=STRCAT(CON2STR(MONTH,0),' 月 ');
R:=STRCAT(CON2STR(DAY,0),' 日 ');
SJ:=STRCAT(STRCAT(N1,Y1), R);
DRAWTEXT_FIX(C>0,0.88,0,0,SJ),COLORYELLOW;