前两天看一位老师做的大盘市盈率源码根据媒体报道大盘市盈率数值输入一段不同的数据的指标得到启发，于是自己在原来基础上重新做了一个，究竟大盘的市盈率是多少没有真正的数值，个人觉得指标公式不会错：市盈率=股价/每股收益；所以自己做自定义数据：所有股票的平均股价和平均收益，做了大盘的市盈率附图。
源码如下：
DRAWGBKLAST(C>1,STRIP(RGB(255,150,200),RGB(255,255,255),0));
DRAWTEXTREL(400,50,'上证指数平均市盈率'),COLOR000000,LINETHICK2;
DRAWTEXTREL(350,200,'高风险区域'),COLOR2D4045;
DRAWTEXTREL(350,900,'低风险区域'),COLOR8EAD7A;
DRAWTEXTREL(0,130,'70'),COLOR2D4045;DRAWTEXTREL(0,270,'60'),COLOR2D4045;
DRAWTEXTREL(0,412,'50'),COLOR2D4045;DRAWTEXTREL(0,558,'40'),COLOR2D4045;
DRAWTEXTREL(0,700,'30'),COLOR2D4045;DRAWTEXTREL(0,840,'20'),COLOR2D4045;
DRAWTEXTREL(0,966,'10'),COLOR2D4045;DRAWTEXTREL(968,130,'6000'),COLOR2D4045;
DRAWTEXTREL(968,270,'5000'),COLOR2D4045;DRAWTEXTREL(968,412,'4000'),COLOR2D4045;
DRAWTEXTREL(968,558,'3000'),COLOR2D4045;DRAWTEXTREL(968,700,'2000'),COLOR2D4045;
DRAWTEXTREL(968,840,'1000'),COLOR2D4045;DRAWTEXTREL(968,966,'0'),COLOR2D4045;
POLYLINE(C,10),COLOR9BBECC;POLYLINE(C,20),COLOR8EAD7A,LINETHICK2;
POLYLINE(C,30),COLOR9BBECC;POLYLINE(C,40),COLOR9BBECC;
POLYLINE(C,50),COLOR798FC3,LINETHICK2;POLYLINE(C,60),COLOR9BBECC;
POLYLINE(C,70),COLOR9BBECC;
上证指数:INDEXC,COLOR8BA68C,LINETHICK0,PRECIS2;
POLYLINE(C,C/100+10),COLORff0000,LINETHICK2;
流通市值:selfdata('流通市值'),linethick0;
总市值:selfdata('总市值'),linethick0;
平均股价:selfdata('平均股价'),linethick0;
平均收益:selfdata('平均收益'),linethick0;
大盘市盈率:平均股价/平均收益,linethick1 ,color199633;
DRAWTEXTREL(50,70,'平均市盈率: '+NUMTOSTRN(大盘市盈率,2)),COLOR199633;
 |
