软件名称：[B]上证大盘平均市盈率[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2011-11-14 06:54:16
软件简介:
上证平均市盈率与上证指数的关系一般大家都知道，下面一段文字可见描述：
A股市盈率历史数据显示，上证指数1996年1月19日处于512点的历史底部时，当时A股平均市盈率为17倍；随后股指大涨，至1997年5月12日高点1510点时，市盈率水平为55.87倍，至2001年6月14日顶部2245点时市盈率为62.27倍；经过几年调整后，2005年6月6日股指跌至998点底部，对应市盈率为17.93倍。随着2006年开始进入新一轮牛市周期，股价的走高也逐步推高了市场整体市盈率水平，到2007年10月16日见顶6124点，市盈率水平最高达到了70倍附近。之后，股指跳水，A股市盈率水平也急速下滑，到2008年11月上旬1700点时市盈率水平回落到14 倍附近。2009年7月31日股指反弹到3412点，对应市盈率29.47倍。近期市盈率在15倍左右。
从历史底部和顶部的市盈率数据看，A股市盈率水平20倍以下是低风险的底部价区，50倍或60倍以上是高风险区，可见，股市总是围绕着低市盈率价区到高市盈率价区之间来回波动。
以前常见的是用excel表来作平均市盈率与上证指数图，这里要用软件自带函数功能把它“画”出来，先上图：
月线
日线（源码这里未发，原因是算法与设置比较复杂，精度还有待提高
VARIABLE:A[datacount+1]=0;
REFLINE:10,80;
A[98]:=34.03; A[99]:=34.03; A[100]:=34.30;A[101]:=34.39;A[102]:=35.30;A[103]:=45.37;
A[104]:=43.93;A[105]:=43.89;A[106]:=42.52;A[107]:=40.84;A[108]:=40.09;A[109]:=38.14;
A[110]:=42.82;A[111]:=47.99;A[112]:=49.92;A[113]:=51.13;A[114]:=54.02;A[115]:=55.22;
A[116]:=58.21;A[117]:=58.13;A[118]:=54.83;A[119]:=56.31;A[120]:=59.89;A[121]:=59.14;
A[122]:=59.39;A[123]:=56.82;A[124]:=60.88;A[125]:=60.99;A[126]:=55.92;A[127]:=56.55;
A[128]:=49.26;A[129]:=42.14;A[130]:=40.61;A[131]:=38.84;A[132]:=40.08;A[133]:=37.59;
A[134]:=34.31;A[135]:=35.11;A[136]:=37.16;A[137]:=39.08;A[138]:=38.75;A[139]:=44.47;
A[140]:=42.40;A[141]:=43.02;A[142]:=40.40;A[143]:=38.23;A[144]:=36.46;A[145]:=34.50;
A[146]:=37.92;A[147]:=38.20;A[148]:=38.20;A[149]:=38.54;A[150]:=38.28;A[151]:=36.11;
A[152]:=35.78;A[153]:=34.37;A[154]:=32.97;A[155]:=32.51;A[156]:=34.00;A[157]:=36.64;
A[158]:=38.91;A[159]:=40.89;A[160]:=42.49;A[161]:=38.95;A[162]:=28.73;A[163]:=26.65;
A[164]:=26.49;A[165]:=25.68;A[166]:=26.75;A[167]:=25.34;A[168]:=25.69;A[169]:=24.29;
A[170]:=22.87;A[171]:=24.99;A[172]:=22.63;A[173]:=22.28;A[174]:=15.66;A[175]:=15.98;
A[176]:=16.05;A[177]:=16.92;A[178]:=16.78;A[179]:=15.72;A[180]:=15.63;A[181]:=16.38;
A[182]:=17.61;A[183]:=18.00;A[184]:=17.72;A[185]:=19.42;A[186]:=19.69;A[187]:=19.91;
A[188]:=20.03;A[189]:=20.38;A[190]:=21.41;A[191]:=22.86;A[192]:=26.13;A[193]:=33.38;
A[194]:=38.36;A[195]:=39.62;A[196]:=44.36;A[197]:=53.33;A[198]:=43.42;A[199]:=42.74;
A[200]:=50.59;A[201]:=59.24;A[202]:=63.74;A[203]:=69.64;A[204]:=53.79;A[205]:=59.24;
A[206]:=49.40;A[207]:=49.21;A[208]:=39.45;A[209]:=42.06;A[210]:=25.89;A[211]:=20.64;
A[212]:=20.93;A[213]:=18.13;A[214]:=18.68;A[215]:=14.09;A[216]:=15.23;A[217]:=14.86;
A[218]:=16.26;A[219]:=17.01;A[220]:=19.37;A[221]:=20.21;A[222]:=22.47;A[223]:=25.36;
A[224]:=29.47;A[225]:=23.04;A[226]:=24.12;A[227]:=26.03;A[228]:=27.93;A[229]:=28.78;
A[230]:=26.24;A[231]:=26.91;A[232]:=27.54;A[233]:=25.42;A[234]:=19.93;A[235]:=18.47;
A[236]:=19.86;A[237]:=19.85;A[238]:=20.00;A[239]:=22.61;A[240]:=21.51;A[241]:=21.60;
A[242]:=21.63;A[243]:=22.56;A[244]:=22.77;A[245]:=22.74;A[246]:=16.34;A[247]:=16.49;
A[248]:=16.14;A[249]:=15.42;A[250]:=14.19;A[251]:=14.96;A[252]:=15.32;A[253]:=15.32;
su:=0;bar:=barpos;
for i=1 to datacount do begin
if bar[i]=i and bar[i]>=98 then
su[i]:=A[i];
end;
if STRCMP(STKNAME,'上证指数')=0 and DATATYPE=8 then begin
DRAWGBK(C>0,COLORRGB(229,200,150),COLORRGB(255,255,255),1);
DRAWTEXTEX(1,1,350,10,'上证指数平均市盈率'),COLOR2D4045,LINETHICK5;
DRAWTEXTEX(1,1,350,300,'高风险区域'),COLOR2D4045;
DRAWTEXTEX(1,1,350,900,'低风险区域'),COLOR2D4045;
DRAWTEXTEX(1,1,0,130,'70'),COLOR2D4045;DRAWTEXTEX(1,1,0,270,'60'),COLOR2D4045;
DRAWTEXTEX(1,1,0,412,'50'),COLOR2D4045;DRAWTEXTEX(1,1,0,558,'40'),COLOR2D4045;
DRAWTEXTEX(1,1,0,700,'30'),COLOR2D4045;DRAWTEXTEX(1,1,0,840,'20'),COLOR2D4045;
DRAWTEXTEX(1,1,0,966,'10'),COLOR2D4045;DRAWTEXTEX(1,1,968,130,'6000'),COLOR2D4045;
DRAWTEXTEX(1,1,968,270,'5000'),COLOR2D4045;DRAWTEXTEX(1,1,968,412,'4000'),COLOR2D4045;
DRAWTEXTEX(1,1,968,558,'3000'),COLOR2D4045;DRAWTEXTEX(1,1,968,700,'2000'),COLOR2D4045;
DRAWTEXTEX(1,1,968,840,'1000'),COLOR2D4045;DRAWTEXTEX(1,1,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;
上证指数:C,COLOR8BA68C,LINETHICK0;
POLYLINE(C,C/100+10),COLOR81AC91,LINETHICK2,PRECISION02;
DRAWTEXT(ISLASTBAR,C/100+10,'上证指数'),COLOR81AC91;
DRAWTEXT(ISLASTBAR,su,'平均市盈率'),COLORD87922;
DRAWTEXT(SU=A[203],SU,'←69.64'),COLORD87922;
DRAWTEXT(SU=14.09,SU,'←14.09'),COLORD87922;
平均市盈率:su,COLORD87922,LINETHICK2;
平均PE:MA(SU,barpos-97),LINETHICK0,PRECISION02;
end;
[url=http://www.70822.com/soft/sort013/sort02/down-40930.html]上证大盘平均市盈率[/url]