很久没有摆弄指标,偶尔发现通达信新增加了一些数据功能函数;如下:
一、GPONEDAT(ID),ID为数据编号
二、GPJYONE(ID,N,Y,MMDD)
预期目标价:GPONEDAT(3),NODRAW,COLORRED;
X0:=0.055;
X1:=0.043;
X2:=0.608;
XA:=0.076;
XB:=0.078;
Y0:=0.01;
Y1:=0.25;
DRAWTEXT_FIX(ISLASTBAR,X0+XA*0,Y0+Y1*0,1,'预期数据'),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,X0+XA*1,Y0+Y1*0,1,'每股收益');
DRAWTEXT_FIX(ISLASTBAR,X0+XA*2,Y0+Y1*0,1,'净利润(万)');
DRAWTEXT_FIX(ISLASTBAR,X0+XA*3,Y0+Y1*0,1,'营业收入');
DRAWTEXT_FIX(ISLASTBAR,X0+XA*4,Y0+Y1*0,1,'营业利润');
DRAWTEXT_FIX(ISLASTBAR,X0+XA*5,Y0+Y1*0,1,'每股净资');
DRAWTEXT_FIX(ISLASTBAR,(X0+XA*6)-0.02,Y0+Y1*0,1,'ROE-%');
DRAWTEXT_FIX(ISLASTBAR,(X0+XA*7)-0.05,Y0+Y1*0,1,'PE');
{第1列}
DRAWTEXT_FIX(ISLASTBAR,X1+XB*0,Y0+Y1*1,1,CON2STR(GPONEDAT(4)+0,0)),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,X1+XB*0,Y0+Y1*2,1,CON2STR(GPONEDAT(4)+1,0)),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,X1+XB*0,Y0+Y1*3,1,CON2STR(GPONEDAT(4)+2,0)),COLORCYAN;
{第2列 EPS}
DRAWTEXT_FIX(ISLASTBAR,X1+XB*1,Y0+Y1*1,1,CON2STR(GPONEDAT(5),2)),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,X1+XB*1,Y0+Y1*2,1,CON2STR(GPONEDAT(6),2)),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,X1+XB*1,Y0+Y1*3,1,CON2STR(GPONEDAT(7),2)),COLORRED;
{第3列 净利润}
DRAWTEXT_FIX(ISLASTBAR,X1+XB*2,Y0+Y1*1,1,CON2STR(GPONEDAT(8),0)),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,X1+XB*2,Y0+Y1*2,1,CON2STR(GPONEDAT(9),0)),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,X1+XB*2,Y0+Y1*3,1,CON2STR(GPONEDAT(10),0)),COLORCYAN;
{第4列 营业收入}
DRAWTEXT_FIX(ISLASTBAR,X1+XB*3,Y0+Y1*1,1,CON2STR(GPONEDAT(11),0)),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,X1+XB*3,Y0+Y1*2,1,CON2STR(GPONEDAT(12),0)),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,X1+XB*3,Y0+Y1*3,1,CON2STR(GPONEDAT(13),0)),COLORMAGENTA;
{第5列 营业利润}
DRAWTEXT_FIX(ISLASTBAR,X1+XB*4,Y0+Y1*1,1,STRCAT(CON2STR(GPONEDAT(14)/10000,1),'亿')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,X1+XB*4,Y0+Y1*2,1,STRCAT(CON2STR(GPONEDAT(15)/10000,1),'亿')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,X1+XB*4,Y0+Y1*3,1,STRCAT(CON2STR(GPONEDAT(16)/10000,1),'亿')),COLORRED;
{第6列 每股净资}
DRAWTEXT_FIX(ISLASTBAR,(X1+XB*5)-0.01,Y0+Y1*1,1,CON2STR(GPONEDAT(17),2)),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,(X1+XB*5)-0.01,Y0+Y1*2,1,CON2STR(GPONEDAT(18),2)),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,(X1+XB*5)-0.01,Y0+Y1*3,1,CON2STR(GPONEDAT(19),2)),COLORCYAN;
{第7列 ROE}
DRAWTEXT_FIX(ISLASTBAR,(X1+XB*6)-0.03,Y0+Y1*1,1,CON2STR(GPONEDAT(20),2)),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,(X1+XB*6)-0.03,Y0+Y1*2,1,CON2STR(GPONEDAT(21),2)),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,(X1+XB*6)-0.03,Y0+Y1*3,1,CON2STR(GPONEDAT(22),2)),COLORMAGENTA;
{第8列 PE}
DRAWTEXT_FIX(ISLASTBAR,(X1+XB*7)-0.048,Y0+Y1*1,1,CON2STR(GPONEDAT(23),2)),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,(X1+XB*7)-0.048,Y0+Y1*2,1,CON2STR(GPONEDAT(24),2)),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,(X1+XB*7)-0.048,Y0+Y1*3,1,CON2STR(GPONEDAT(25),2)),COLORWHITE;
DRAWRECTREL(0,0,999,1,RGB(255,255,255));
DRAWRECTREL(550,0,550,999,RGB(255,255,255));
{第9列 解禁}
DRAWTEXT_FIX(ISLASTBAR,(X2+XA*0)+0.005,Y0+Y1*0,1,'最新解禁'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,X2+XB*0,Y0+Y1*1,1,CON2STR(GPONEDAT(26),0)),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,(X2+XA*0)+0.005,Y0+Y1*2,1,'解禁股数'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,X2+XB*0,Y0+Y1*3,1,CON2STR(GPONEDAT(27),0)),COLORWHITE;
{第10列 机构}
DRAWRECTREL(625,0,625,999,RGB(255,255,255));
DRAWTEXT_FIX(ISLASTBAR,(X2+XA*1)+0.005,Y0+Y1*0,1,'机构家数'),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,(X2+XB*1)+0.000,Y0+Y1*1,1,CON2STR(GPONEDAT(29),0)),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,(X2+XA*1)+0.005,Y0+Y1*2,1,'持股数量'),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,(X2+XB*1)+0.000,Y0+Y1*3,1,CON2STR(GPONEDAT(30),0)),COLORWHITE;
{第11列 基金}
DRAWRECTREL(700,0,700,999,RGB(255,255,255));
DRAWTEXT_FIX(ISLASTBAR,(X2+XA*2)+0.005,Y0+Y1*0,1,'基金家数'),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,(X2+XB*2)-0.005,Y0+Y1*1,1,CON2STR(GPONEDAT(31),0)),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,(X2+XA*2)+0.005,Y0+Y1*2,1,'基金持股'),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,(X2+XB*2)-0.005,Y0+Y1*3,1,CON2STR(GPONEDAT(32),0)),COLORWHITE;
{第12列 业绩预告}
DRAWRECTREL(775,0,775,999,RGB(255,255,255));
DRAWTEXT_FIX(ISLASTBAR,(X2+XA*3)+0.005,Y0+Y1*0,1,'业绩预告'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,(X2+XB*3)-0.010,Y0+Y1*1,1,CON2STR(GPONEDAT(35),0)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,(X2+XA*3)+0.005,Y0+Y1*2,1,'净利同比'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,(X2+XB*3)-0.010,Y0+Y1*3,1,CON2STR(GPONEDAT(38),2)),COLORYELLOW;
{第13列 大宗交易}
DRAWRECTREL(850,0,850,999,RGB(255,255,255));
DRAWTEXT_FIX(ISLASTBAR,(X2+XA*4)+0.005,Y0+Y1*0,1,'大宗单价'),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,(X2+XB*4)-0.010,Y0+Y1*1,1,CON2STR(GPJYONE(4,1,0,0),2)),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,(X2+XA*4)+0.005,Y0+Y1*2,1,'成交额(万)'),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,(X2+XB*4)-0.010,Y0+Y1*3,1,CON2STR(GPJYONE(4,2,0,0),1)),COLORWHITE;
{第14列 拟增减持}
DRAWRECTREL(925,0,925,999,RGB(255,255,255));
DRAWTEXT_FIX(ISLASTBAR,(X2+XA*5)+0.005,Y0+Y1*0,1,'拟增持(万)'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,(X2+XB*5)-0.010,Y0+Y1*1,1,CON2STR(GPJYONE(23,1,0,0),0)),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,(X2+XA*5)+0.005,Y0+Y1*2,1,'拟减持(万)'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,(X2+XB*5)-0.010,Y0+Y1*3,1,CON2STR(GPJYONE(23,2,0,0),0)),COLORGREEN;
联系客服