发新话题
打印

[源码] 散户版机构公式

散户版机构公式

散户版机构公式

论坛上常常见到一些自称或被称为机构、机构专用的公式,大多都是说着玩而已,通常机构看盘不需要专用指标。今天我在论坛上看到了一组公式,它的编制思路体现了机构选股的一些模式,可谓“散户版机构公式”。这里我把它推荐给大家看看,希望于你大有裨益!感谢作者和改编的朋友!

飞狐公式
网有战事主图
1.股价在低线之下,一般来讲股价比较低了.
2.股价在中线附近,一般来讲股价比较适中。
3.股价在高线之上,一般来讲股价比较高了,要警惕了!
一、用10周线来判断。当股价在10周线以下时,买股票是危险的:10周线以下是死股,10周线以上是活股股价在10周均线下是死股,对这样的股票你看都不要去看它。他是不可能成为大牛股的。要成为大牛股,股价至少也要站在庄家成本(估算)之上。
二、用60周线来判断。60周以上有可能产生牛股:一般来说,当股价在低位上60周线的股票,是主力要大做的股票。因为60周线,是趋势的转折点,股价在60周线上的,是上升通。股价在60周线下的,还是下降通道。

//DRAWBKBMP(C>0 ,'指标背景'),ALIGN4;
{低位密集}
hhh:=hhv(h,288);
lll:=llv(l,288);
zh:=hhh[DATACOUNT];
zl:=lll[DATACOUNT];
q:=(zh-zl)/5;
c90%:=(cost(95)-cost(5))/(cost(95)+cost(5))*100;
集中度:=IF(c90%<=18{集中度} and c<zh-4*q,100,0);
{庄家成本}
Zcb1:=SUMBARS(VOL ,CAPITAL*1);{累计换手=100%的周期}
Zcb2:=SUM(COST(10),Zcb1)/Zcb1;{在A周期里获利10%的平均价}
Zcb3:=SUM(COST(20),Zcb1)/Zcb1;{在A周期里获利20%的平均价}
Zcb4:=SUM(COST(30),Zcb1)/Zcb1;{在A周期里获利30%的平均价}
Zcb5:=SUM(COST(40),Zcb1)/Zcb1;{在A周期里获利40%的平均价}
Zcb6:=SUM(COST(50),Zcb1)/Zcb1;{在A周期里获利50%的平均价}
庄本:(5*Zcb2+4*Zcb3+3*Zcb4+2*Zcb5+Zcb6)/15,PRECISION2,LINETHICK3,COLORGRAY;{求出庄家成本}
{低位密集}
PARTLINE(集中度>0,庄本),COLORCYAN,linethick3;//低密集:
{阶梯线}
x1:=(C+L+H)/3;
x2:=EMA(x1,6);
x3:=EMA(x2,5);
STICKLINE(x2>=x3,x2,x3,10,1),Color00A6F6;//橙
STICKLINE(x2<x3,x2,x3,10,0),COLORBLUE;//蓝
{黄金分割}
n1:=sysparam(3);
nn:=n1-sysparam(2)+1;
hh:=hhv(H,nn);
ll:=llv(L,nn);
最高:=hh[n1];
最低:=ll[n1];
低:=(最低+(最高-最低)*0.191);
PARTLINE(C,低),POINTDOT,ColorFF8900;
中:=最低+(最高-最低)*0.5;
PARTLINE(C,中),POINTDOT,COLORMAGENTA;
高:=最低+(最高-最低)*0.809;
PARTLINE(C,高),POINTDOT,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),低*0.99,'低: '+NUMTOSTR(低,2)),ColorFF8900;
DRAWTEXT(BARPOS=SYSPARAM(2),中*0.99,'中: '+NUMTOSTR(中,2)),COLORMAGENTA;
DRAWTEXT(BARPOS=SYSPARAM(2),高*0.99,'高: '+NUMTOSTR(高,2)),COLORRED;
{K线}
aa1:=wma(c,2);
bb1:=ema(aa1,2);
a0:=ma(bb1,3);
aa2:=wma((h+c+o)/3,18);
dd3:=a0>=aa2 and c>aa2;
dd4:=a0<aa2 ;
dd5:=a0>aa2 ;
cc1:=((c-ref(ma(c,6),1))/6+ma(c,6))*1.004;
cc2:=cross(c,cc1) and cc1>ref(cc1,1);
STICKLINE((dd4 or dd5) and o<=c ,h,l,0.5,0),Color00cc99;//跌势阳线
STICKLINE((dd4 or dd5) and o<=c ,c,o,7,0),Color00cc99;//跌势阳线
STICKLINE((dd4 or dd5) and o>=c ,h,l,0.5,0),Color3F8C3A;//跌势阴线
STICKLINE((dd4 or dd5) and o>=c ,c,o,7,0),Color3F8C3A;//跌势阴线
STICKLINE((dd3 or c>aa2) and o<=c,c,o,7,0),Colorred;//涨势阳线
STICKLINE((dd3 or c>aa2) and o<=c,h,l,0.5,0),Colorred;//涨势阳线
STICKLINE((dd3 or c>aa2) and o>=c,c,o,7,0),Colorff33ff;//涨势阴线
STICKLINE((dd3 or c>aa2) and o>=c,h,l,0.5,0),Colorff33ff;//涨势阴线
STICKLINE(cc2,h,l,0.5,0),colorwhite;//白
STICKLINE(cc2,o,c,7,0),colorwhite;//白
STICKLINE(MA(C,13)>O and C>MA(C,13) and O<c,O,C,8,0),coloryellow;//黄
STICKLINE(MA(C,13)>O and C>MA(C,13),H,L,0.5,0),coloryellow;//黄
{均线}
ZMA10:ema(C,50),PRECISION2,COLORWHITE;
ZMA55:ema(C,240),PRECISION2,COLORGREEN;
乖离:(C-ZMA10)/ZMA10*100,LINETHICK,PRECISION2,COLORCYAN;//要小于20%—15%
附件: 您所在的用户组无法下载或查看附件
本帖最近评分记录
  • ahfyxl 热心 +2 谢谢老斑竹推广,这是我受“网有战事”老 . 2006-11-19 11:53
  • 欣儿 积分 +25 2006-11-16 09:57
愿朋友们在交流中提高, 在实战中获利!

          你的朋友yngs

TOP

网有战事---蓝筹

{表格横线}
PARTLINE(c,0),colorgray;PARTLINE(c,30),colorgray;
PARTLINE(c,60),colorgray;
PARTLINE(c,90),colorgray;PARTLINE(c,120),colorgray;
{表格竖线}
x:=SYSPARAM(2)=BARPOS;
k:=(SYSPARAM(3)-SYSPARAM(2))/110;
x1:=SYSPARAM(2)+ROUND(26*k)=BARPOS;
x2:=SYSPARAM(2)+ROUND(55*k)=BARPOS;
x3:=SYSPARAM(2)+ROUND(86*k)=BARPOS;
x4:=SYSPARAM(2)+ROUND(110*k)=BARPOS;
VERTLINE(x or x1 or x2 or x3 or x4),colorgray;

正收益率:=if(FINANCE(33)>0.01,FINANCE(33)*6,0);
市盈率:=if(FINANCE(33)>0,DYNAINFO(39),0);
蓝筹系数:(正收益率*市盈率)/2,PRECISION2,LINETHICK0,COLORGREEN;
{使用蓝筹系数排序时,别忘了引入F10资料啊}
DRAWTEXT(x2,113,' 动态市盈率(%) = '+NUMTOSTR(市盈率,2)),COLORYELLOW;
股净资:=FINANCE(34);
DRAWTEXT(x1,22,' 净资产(股) = '+NUMTOSTR(股净资,2)+'元' ),COLORWHITE;
净资产收益率:=FINANCE(37);
DRAWTEXT(x2,83,' 净资产收益率(%) = '+NUMTOSTR(净资产收益率,2)),ColorFF6835;
股收益:=FINANCE(33);
DRAWTEXT(x,83,' 收益(股): '+NUMTOSTR(股收益,2)+'元' ),COLORYELLOW;
股公积:=FINANCE(18);
DRAWTEXT(x,52,' 公积(股): '+NUMTOSTR(股公积,2)+'元' ),COLORGREEN;
股未分:=FINANCE(32);
DRAWTEXT(x,22,' 未分(股): '+NUMTOSTR(股未分,2)+'元' ),COLORMAGENTA;
含金量:=(股净资+股未分+股公积+股收益)-C,LINETHICK,PRECISION2{,Color000000};
A5:=含金量[SYSPARAM(1)];
RA5:=含金量[SYSPARAM(1)-1];
jt5:=if(A5>RA5,'↑','↓');
DRAWTEXT(x,113,' 含金量(股)'+NUMTOSTR(含金量,2)+'元'+jt5 ),COLORRED;
现金流量:=((FINANCE(38)+FINANCE(41)+FINANCE(44))-(FINANCE(39)+FINANCE(42)+FINANCE(45)))/FINANCE(1);
DRAWTEXT(x1,52,' 现金净流量(股):'+NUMTOSTR(现金流量,2)+'元'),Color0098FF;
主营业务增长率:=FINANCE(53);
DRAWTEXT(x1,83,' 主营业务增长率(%):'+NUMTOSTR(主营业务增长率,2)),COLORGREEN;
税后利润增长率:=FINANCE(54);
DRAWTEXT(x2,52,' 税后利润增长率(%):'+NUMTOSTR(税后利润增长率,2)),Color0098FF;
总股本:=FINANCE(1)/10000,PRECISION2,LINETHICK1;
DRAWTEXT(x3,113,' 总股本(亿):'+NUMTOSTR(总股本,3)),Color0098FF;
B股:=FINANCE(5)/10000;
DRAWTEXT(x3,52,' B股(亿):'+NUMTOSTR(B股,3)),ColorFF6835;
H股:=FINANCE(6)/10000;
DRAWTEXT(x3,22,' H股(亿):'+NUMTOSTR(H股,3)),COLORCYAN;
选择:=IF(STRLEFT(STKNAME,1)='G'or STRLEFT(STKLABEL,3)='002',1,0);
流通股数:=IF(选择,FINANCE(1),FINANCE(7));
DRAWTEXT(x3,83,' 流通股(亿):'+NUMTOSTR(流通股数/10000,3)),COLORGREEN;
户均持股:=流通股数*10000/FINANCE(50),PRECISION0;
DRAWTEXT(x2,22,' 户均持股(股):'+NUMTOSTR(户均持股,0)),COLORMAGENTA;
xx1:=if(FINANCE(33)>0,DYNAINFO(39),0),LINETHICK;
xx2:=FINANCE(37),LINETHICK;
比值:=xx1/xx2,LINETHICK;//小于1比较多,则认为价格很便宜.
DRAWTEXT(x1,113,' 比值:'+NUMTOSTR(比值,2)+' (<1,越小越好)' ),COLORWHITE;
本帖最近评分记录
  • 大庆老杨 热心 +1 不错,谢谢提供! 2006-11-16 07:08
愿朋友们在交流中提高, 在实战中获利!

          你的朋友yngs

TOP

网有战事估值

{鹏搏资讯F10资料--取参数}
GDT1:=F10FIND('主要指标',100);
GDT2:=F10TEXT(GDT1+177,9);
GDT3:=F10TEXT(GDT1+180,6);
XXx:=STRTONUM(GDT3);
N:=MAX(MAX(IF(XXx=3,12/3,0),IF(XXx=6, 12/6,0)),MAX(IF(XXx=9,12/9,0),IF(XXx=12,12/12,0)));
{股东增减}
x1:=F10FIND('总户数',500);
x2:=F10FIND('占流通A股比例',500);
x3:=F10FIND('200',x1+40);
x4:=F10FIND('200',x3+40);
大股东本期占:=STRTONUM(STRRIGHT(F10TEXT(x2,20),6));
大股东上期占:=STRTONUM(STRRIGHT(F10TEXT(F10FIND('占流通A股比例',x2+20),20),6));
十大股东增减:=大股东本期占 - 大股东上期占;
//////////{网有战事估值}/////////
净资产:FINANCE(34),PRECISION2,LINETHICK,COLORWHITE;//净资产
净资率:FINANCE(37),PRECISION2,LINETHICK,COLORGREEN;//净资产收益率
NJSL:=净资率*n;//估计年净资产收益率
收益率倍数:IF(NJSL>=36 ,5.65,IF(NJSL>=35 and NJSL<36,5.5,IF(NJSL>=34 and NJSL<35,5.34,
IF(NJSL>=33 and NJSL<34,5.18,IF(NJSL>=32 and NJSL<33,5.02,IF(NJSL>=31 and NJSL<32,4.87,
IF(NJSL>=30 and NJSL<31,4.71,IF(NJSL>=29 and NJSL<30,4.55,IF(NJSL>=28 and NJSL<29,4.4,
IF(NJSL>=27 and NJSL<28,4.24,IF(NJSL>=26 and NJSL<27,4.09,IF(NJSL>=25 and NJSL<26,3.92,
IF(NJSL>=24 and NJSL<25,3.77,IF(NJSL>=23 and NJSL<24,3.61,IF(NJSL>=22 and NJSL<23,3.45,
IF(NJSL>=21 and NJSL<22,3.3,IF(NJSL>=20 and NJSL<21,3.14,IF(NJSL>=19 and NJSL<20,2.98,
IF(NJSL>=18 and NJSL<19,2.83,IF(NJSL>=17 and NJSL<18,2.67,IF(NJSL>=16 and NJSL<17,2.51,
IF(NJSL>=15 and NJSL<16,2.35,IF(NJSL>=14 and NJSL<15,2.2,IF(NJSL>=13 and NJSL<14,2.04,
IF(NJSL>=12 and NJSL<13,1.89,IF(NJSL>=11 and NJSL<12,1.73,IF(NJSL>=10 and NJSL<11,1.57,
IF(NJSL>=9 and NJSL<10,1.41,IF(NJSL>=8 and NJSL<9,1.26,IF(NJSL>=7 and NJSL<8,1.1,
IF(NJSL>=6 and NJSL<7,0.94,IF(NJSL>=5 and NJSL<6,0.74,IF(NJSL>=4 and NJSL<5,0.62,
IF(NJSL>=3 and NJSL<4,0.47,IF(NJSL>=2 and NJSL<3,0.31,0.31)
)))))))))))))))))))))))))))))))))),LINETHICK,COLORYELLOW;
壳子参数:IF(NJSL,1,0),LINETHICK,COLORWHITE;//根据中国的实际情况,7%以下加一元壳子钱.
流通盘:=FINANCE(7){流通A股},LINETHICK,COLORMAGENTA;
小盘倍数:=IF(流通盘<=3000,0.7,IF(流通盘<5000 and 流通盘>3000,0.6,
IF(流通盘<6000 and 流通盘>=5000,0.5,IF(流通盘<7000 and 流通盘>=6000,0.4,
IF(流通盘<8000 and 流通盘>=7000,0.3,IF(流通盘<8000 and 流通盘>=7000,0.3,
IF(流通盘<9000 and 流通盘>=8000,0.2,IF(流通盘>9000,0.1,0.1)))))))),LINETHICK,COLORWHITE;
{流通盘大小的壳子参数}
估值:=(净资产*收益率倍数 + 壳子参数 + 净资产*小盘倍数);
潜力排序:估值-C,PRECISION2,LINETHICK,COLORRED;//估价潜力排序
DRAWTEXT(BARPOS=SYSPARAM(2)+2,c,'该股估值: = '+NUMTOSTR(估值,2)+'元'),ALIGN4,COLORCYAN;
DRAWTEXT(BARPOS=SYSPARAM(2)+2,c,'                       流通盘: = '+NUMTOSTR(流通盘,2)+'万股'
+'   小盘倍数'+NUMTOSTR(小盘倍数,2)),ALIGN4,COLORMAGENTA;
DRAWTEXT(BARPOS=SYSPARAM(2)+2,c,' \n \n时间参数: = '+NUMTOSTR(N,0)),ALIGN4,COLORGREEN;
DRAWTEXT(barpos=SYSPARAM(2),10,' \n \n                         取数据日期(报表):'+GDT2),ALIGN4,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(2)+2,c,' \n \n  \n \n十大股东增减: = '+NUMTOSTR(十大股东增减,2)+'%'),ALIGN4,COLORYELLOW;
本帖最近评分记录
  • ahfyxl 热心 +2 谢谢!! 2006-11-19 11:54
  • 大庆老杨 热心 +1 我很赞同 2006-11-16 07:07
愿朋友们在交流中提高, 在实战中获利!

          你的朋友yngs

TOP

不错,谢谢提供!

TOP

谢谢提供!

TOP

谢谢 !

TOP

不错,谢谢提供!
☆☆   天空已没有翅膀痕迹,而我已经飞过...... ☆☆

TOP

谢谢提供分享

TOP

谢谢提供分享

TOP

谢谢

TOP

顶!
平平凡凡人,快快乐乐心。

TOP

谢谢提供!!

TOP

谢谢............

TOP

xiexie!

TOP

谢谢提供分享

TOP

麻烦做一个win 资讯提取公式的.

TOP

谢谢

TOP

谢谢提供分享

TOP

谢谢提供分享!!

TOP

那个x1还要定义?没法用,求教

TOP

谢谢提供!

TOP

发新话题