估值体系主图 源码 注释

揭示股价涨跌秘密－（估值体系指标-估值体系主图 行业概念 黑码图辅助）

估值体系--（通达信主图-源码）
注释------------
估值的确是很复杂的事情，现金流折现估值法由于其参数的不确定性在这里被摒弃，而我用的是乘数估值法。
目前成熟市场上不同行业最常用的估值乘数分别为：
（以下摘自网络论文 ）
行业下属行业最常使用的乘数
汽车制造P/S
零部件P/CE的相对指标，P/S
银行　P/BV
基本原材料造纸P/BV
化学制品EV/EBITDA，EV/S，P/CE
金属和矿物P/LFCF，EV/EBITDA
建筑　P/LFCF，EV/FCF，P/S，EV/EBITDA
商业服务　EV/EBITDA，ROCE，P/LFCF，P/S，（P/S）/GROWTH
资本性产品工程制造P/S，EV/EBITDA，EV/S
国防P/S，EV/EBITDA，EV/S
食品、饮料和烟草食品生产EV/EBITDA，EV/CE
啤酒生产和酒吧ROCE，（P/S）/GROWTH，P/S的相对指标
酒精饮料EV/EBITDA
烟草ROCE
保健　P/S的相对指标/S&P；EV/EBITDA
保险　P/AV
休闲　EV/EBITDA
传媒　P/S的相对指标；EV/EBITDA
石油天然气综合油气公*P/S，EV/CV
房地产　P/FAD，EV/EBITDA，P/NAV
零售和消费品服装与市场和部门比较的P/S，EV/EBITDA
食品P/S的相对指标
奢侈品P/S，（P/S）/GROWTH，EV/S，（EV/E）/EBITDA的增长率
技术软件，设备和半导体P/S，P/S的相对指标
电讯　（EV/E）/EBITDA的增长率，EV/S，P/CUSTOMER
交通航空EV/EBITDA
公路客运P/S
公用事业　P/S，P/CE
要做到对不同行业的精确估值是困难的，我的想法是拿股价与对应的资产比、与市场预期比、与存银行比，因此就产生了多个不同的估值区间，见图：
图中的蓝区是市场估值区、红区是资产估值区、紫线是与银行存款比较，对于虚拟资产过大的股票似也可反应。国有银行因安全起见，证券化程度有限，故此法并不适用。

{估值体系主图}
VAR1:=1080531;
【回】:FINANCE(35)*(1+FINANCE(30)/FINANCE(19)*100*0.33),NODRAW;
【盈】:(FINANCE(21)/FINANCE(20)+0.038)*FINANCE(33)*100,COLORWHITE,NODRAW;
STICKLINE(DATE>VAR1,【回】,【盈】,7,0),COLOR6A0000;
估:=(【回】+【盈】)/2,NODRAW;
IF(DATE>VAR1,估,DRAWNULL),COLOREE8000;
绝S:=FINANCE(10)/FINANCE(1)*1.1;
绝X:=FINANCE(10)/FINANCE(1)*0.9;
STICKLINE(C>0,绝S,绝X,7,0),COLOR00005F;
资:FINANCE(10)/FINANCE(1), LINETHICK1,COLOR9E00EF;
银:FINANCE(29)/FINANCE(1)/3.87*100, LINETHICK2,COLORFF00EE;
LL:=BARSSINCE(FINANCE(42));
均:SUM(C,LL)/(LL+1),CIRCLEDOT,COLORRED;
权比:FINANCE(19)/(FINANCE(15)+FINANCE(16)),COLOR00FFCC,NODRAW;
P／EG:(C/FINANCE(33))/(FINANCE(21)/FINANCE(20)+0.038)/100,COLOR00FFCC,NODRAW;
ROE:FINANCE(30)/FINANCE(19)*100,COLOR00FFCC,NODRAW;
毛利率:FINANCE(21)/FINANCE(20)*100,COLOR00FFCC,NODRAW;
红息率:=FINANCE(29)/FINANCE(1)/C*100,COLOR00FFCC,NODRAW;
净资:FINANCE(35),COLOR00FFCC,NODRAW;
市净率:C/FINANCE(35),COLOR00FFCC,NODRAW;
市盈率:C/FINANCE(33),COLOR00FFCC,NODRAW;
收益:FINANCE(33),COLOR00FFCC,NODRAW;
公积金:=FINANCE(18),COLOR00FFCC,NODRAW;
WZ:=30=CURRBARSCOUNT;
DRAWTEXT(WZ=1 AND 估>=10*资,估*0.85,'虚拟过大'),COLORYELLOW;
DRAWKLINE(H,O,L,C);

这些指标都有未来函数，仅供参考，希望大家辅助其他指标。

（行业概念）辅助参考
注释：
对应指数开盘、盘中最高、盘中最低、收盘点位，指的是大盘。
MACD指的是当前版面股票。
行业概念指数分析,简单型【指数分析 短线买卖】
无时间限制版
大客出租制作。
K:=(DATE<1341230);
XD1:=INDEXO;
XD2:=INDEXH;
XD3:=INDEXL;
XD4:=INDEXC;
对应指数开:INDEXO,COLOR0000FF,NODRAW;
{盘:INDEXO,COLOR0000FF,NODRAW;}
盘中最高:INDEXH,NODRAW;
盘中最低:INDEXL,NODRAW;
收盘点:INDEXC,NODRAW;
{位:INDEXC,NODRAW;}
大盘资金增减:(100*((INDEXV/REF(INDEXV,1))-1)),COLORFFFF00,NODRAW;
JJ:=(XD4+XD2+XD3)/3;
A:=EMA(JJ,10);
B:=REF(A,1);
{买卖}
决策点位:B,COLORFFFFFD,NODRAW;
当日换:SUM(100*V/CAPITAL,1),NODRAW;
五日换:SUM(100*V/CAPITAL,5),NODRAW;
{短线MACD}
VAR1:=EMA(CLOSE,12)-EMA(CLOSE,26);
VAR2:=EMA(VAR1,50);
VAR3:=2*(VAR1-VAR2);
FD:=2*(VAR2-VAR1);
MACD渐弱:IF(VAR3<REF(VAR3,1)&&VAR3>0,VAR3,0),COLORYELLOW,LINETHICK4,STICK;
MACD强势:IF(VAR3>=REF(VAR3,1) AND VAR3>0,VAR3,0),COLORRED,LINETHICK4,STICK;
MACD走强:IF(VAR3>REF(VAR3,1) AND VAR3<0,VAR3,0),COLORFFC8FF,LINETHICK4,STICK;
MACD走弱:IF(VAR3<=REF(VAR3,1) AND VAR3<0,VAR3,0),COLORFFCC66,LINETHICK4,STICK;
{STICKLINE(VAR3<REF(VAR3,1) AND VAR3>0,0,VAR3,2,1),COLORYELLOW;
STICKLINE(VAR3>=REF(VAR3,1) AND VAR3>0,0,VAR3,2,1),COLORRED;
STICKLINE(VAR3>REF(VAR3,1) AND VAR3<0,0,VAR3,2,1),COLORFFC8FF;
STICKLINE(VAR3<=REF(VAR3,1) AND VAR3<0,0,VAR3,2,1),COLORFFCC66;}
短趋:EMA(CLOSE,12)-EMA(CLOSE,26),COLORGREEN;
长趋:EMA(短趋,50),COLORFF00FF;
{简单基本面信息}
流通盘大小:=FINANCE(7)/1000000*100,NODRAW;{
销售毛利率:=FINANCE2(12);
净利润同比增长:=FINANCE2(10);}
吸筹:=BARSLAST(FILTER(CROSS("KD.K","KD.D") AND "KD.D"<30,13));
主力吸筹区:=IF(吸筹>0 AND 吸筹<61,吸筹,0);
介入时机:IF(VAR2<0.8&&CROSS(0,FD),-0.3,DRAWNULL),COLORFF00FF,LINETHICK3,CROSSDOT;

{黑码图辅助 参考}
{注释：个股与大盘对照}
个股:EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3),COLOR1010FF;
大盘:EMA(100*(INDEXC-LLV(INDEXL,34))/(HHV(INDEXH,34)-LLV(INDEXL,34)),3),COLORE67010,LINETHICK2;
STICKLINE(个股>=大盘,个股,大盘,1,0),COLORRED;
STICKLINE(个股<大盘,个股,大盘,1,0),COLORBLUE;
STICKLINE(个股>=大盘,0,大盘,6,0),COLORYELLOW;
STICKLINE(个股<大盘,0,个股,6,0),COLORYELLOW;
短线反弹:IF(CROSS(个股,9),50,0),STICK,LINETHICK3,COLOR00FF00;
DRAWTEXT(CROSS(个股,9),40,'短线反弹！'),COLOR00FF00;
VAR1:=EMA(CLOSE,3);
VAR2:=EMA(CLOSE,21);
VAR3:=BARSLAST(CROSS(VAR2,VAR1))>15;
VAR4:=VOL>MA(VOL,5)*2 AND VOL<MA(VOL,5)*5;
VAR5:=CROSS(VAR1,VAR2) AND VAR4 AND VAR3;
黑码:IF(VAR5,80,0),STICK,LINETHICK4,COLORF00FF0;
DRAWTEXT(VAR5,70,'黑码！'),COLORF00FF0;