喜迎2010年，祝所有会员新年快乐！明年都弄点钱玩玩
2010年元旦，我为大家准备了一套主副图指标，方便大家在2010年操作。
希望这套指标能帮上您的忙！同时也请大家注意并重视我下面这两句话：
指标是参考，决策在人脑！
主图是采用了我的多个选股指标做的，这里既有抄底的，也有逃顶的。
副图指标用财务数据做的，这样便于大家在选择股票时，及时了解这只个股的财务状况，免得踩上地雷。
时至年底，大家都为明年的利润空间做准备工作，那这个副图来的正是时候！
这套指标本来已经在‘千钧茶舍六’二楼发出，但许多会员也许不去那里，因此在主版区重发。
主图引用公式：
名称：千钧引用(飞狐)
源码：
zz:=(ref(hhv(h,3),1)+ref(llv(l,3),1))/2;
a:=if(c>zz,vol,0);
b:=if(c<zz,vol,0);
a1:=if(c>zz,INDEXA,0);
b1:=if(c<zz,INDEXA,0);
总0:IF(stktype=0,(a1-b1),(a-b));
主图源码(飞狐)：
【要求，你手中要有‘千钧引用’就是BBD用的那个引用，没有的，把上面的引用源码首先导入。财务数据是阳光飞狐最新的，<聚源资讯>F10】
OO:=if(DATATYPE=6,ma(O,22),if(DATATYPE=7,ma(O,10),ma(O,6)));j:=STKINDI('','kdj.j',0,6);
CC:=if(DATATYPE=6,ma(c,22),if(DATATYPE=7,ma(c,10),ma(c,6)));hs:=vol/CAPITAL*100;
jj:=(H+L+C)/3;qj0:=vol/IF(H=L,4,H-L);
qj1:=IF(CAPITAL=0,qj0*(jj-MIN(C,O)),qj0*(MIN(O,C)-L));
qj2:=IF(CAPITAL=0,qj0*(MIN(O,C)-L),qj0*(jj-MIN(C,O)));
qj3:=qj0*(H-MAX(O,C));qj4:=qj0*(MAX(C,O)-jj);
qj5:=qj1+qj2;qj6:=qj3+qj4;DD:=(qj5-qj6)/(qj5+qj6)*100;
DDX:=((qj1+qj2)-(qj3+qj4))/sum(vol,10)*100;DDZ:=DD*17;
DDY:=((qj2+qj4)-(qj1+qj3))/sum(vol,10)*100;
bb:=(cross(j,0)and ((ddx>0 and ddy>0) or DDZ>400));
主:=qj1+qj2;散:=qj3+qj4;T0:=VOL>REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1);
bbd:=EMA(STKINDI('','千钧引用.总0',0,7),2)/sum(IF(CAPITAL=0,ref(INDEXA,1),ref(vol,1)),5)*100;
XH1:=ref(bbd,1)<-15 and bbd>ref(bbd,1) and bbd>-10;
XH2:=ref(bbd,1)>=15 and bbd<ref(bbd,1) and bbd<10;P:=SYSPARAM(1);
Q6:=atan((MA(C,5)/ref(MA(C,5),1)-1)*100)*57.3;Q2:=atan((MA(C,13)/ref(MA(C,13),1)-1)*100)*57.3;
Q1:=atan((MA(C,23)/ref(MA(C,23),1)-1)*100)*57.3;Q:=atan((MA(C,34)/ref(MA(C,34),1)-1)*100)*57.3;
Q3:=atan((MA(C,68)/ref(MA(C,68),1)-1)*100)*57.3;Q5:=atan((MA(C,250)/ref(MA(C,250),1)-1)*100)*57.3;
T1:=VOL<REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1);T2:=VOL>REF(VOL,1) and MA(VOL,5)<REF(MA(VOL,5),1);
T3:=VOL<REF(VOL,1) and MA(VOL,5)<REF(MA(VOL,5),1);T4:=主>REF(主,1) and 主>散 and if(CAPITAL=0,hs>1.3,hs>5);
T5:=主<REF(主,1) and 主>散 and if(CAPITAL=0,hs>0.5 and hs<1.3,hs>3 and hs<=5);
T6:=主>REF(主,1) and 主<散 and if(CAPITAL=0,hs<1.3 and hs>0.5,hs<5 and hs>3);
T7:=主<REF(主,1) and 主<散 and if(CAPITAL=0,hs<1.3,hs<3 and hs>=1);
STICKLINE(C>=REF(c,1),H,L,0,0),COLOR0000FF;
STICKLINE(C>=REF(c,1),C,O,8,0),COLOR0000bb;
STICKLINE(C>=REF(c,1),C,O,5,0),COLOR0000dd;
STICKLINE(C>=REF(c,1),C,O,3,0),COLOR0000ee;
STICKLINE(C>=REF(c,1),C,O,1,0),COLOR0000ff;
STICKLINE(C<REF(c,1),H,L,0,0),COLORFFFF00;
STICKLINE(C<REF(c,1),C,O,8,0),COLOR999900;
STICKLINE(C<REF(c,1),C,O,5,0),COLORbbbb00;
STICKLINE(C<REF(c,1),C,O,3,0),COLORdddd00;
STICKLINE(C<REF(c,1),C,O,1,0),COLORFFFF00;
STICKLINE(bbd>0,CC,OO,8,0),COLORFF00FF;
STICKLINE(bbd<0,CC,OO,8,0),COLOR00FF00;
DRAWTEXTEX(CLOSE,1,0,100,'5 日线夹角: '+NUMTOSTR(Q6[P],2)+' 度'),COLOREEEEEE;
DRAWTEXTEX(CLOSE,1,220,100,'13日线夹角: '+NUMTOSTR(Q2[P],2)+' 度'),COLOR00DDEE;
DRAWTEXTEX(CLOSE,1,450,100,'22日线夹角: '+NUMTOSTR(Q1[P],2)+' 度'),COLOREE00EE;
DRAWTEXTEX(CLOSE,1,0,150,'34日线夹角: '+NUMTOSTR(Q[P],2)+' 度'),COLOR00EE00;
DRAWTEXTEX(CLOSE,1,220,150,'68日线夹角: '+NUMTOSTR(Q3[P],2)+' 度'),COLOREEDD00;
DRAWTEXTEX(CLOSE,1,450,150,'250日线夹角: '+NUMTOSTR(Q5[P],2)+' 度'),COLORFF8800;
DRAWICON(XH1,l*0.98,4);DRAWICON(XH2,h*1.02,5);
DRAWTEXT(bb,L*0.98,'弄\n点\n钱\n玩\n玩'),COLOR00FFFF;
DRAWTEXTEX(CLOSE,1,20,0,'上涨家数:'+NUMTOSTR(INDEXADV,0)+' 家'),COLOR0066FF;
DRAWTEXTEX(CLOSE,1,180,0,'下跌家数:'+NUMTOSTR(INDEXDEC,0)+' 家'),COLOR99FF99;
DRAWTEXTEX(CLOSE,1,340,0,'平盘家数:'+NUMTOSTR(PINGPAN,0)+' 家'),COLOREEEEEE;
DRAWTEXTEX(T0,1,500,0,'成交大于昨日,有继续增大趋势'),Color00FFFF;
DRAWTEXTEX(T1,1,500,0,'成交小于昨日,但有放大迹象'),Color00DDFF;
DRAWTEXTEX(T2,1,500,0,'成交大于昨日,但有缩小迹象'),ColorFFFF00;
DRAWTEXTEX(T3,1,500,0,'成交小于昨日,且有缩小迹象'),ColorFFbb00;
DRAWTEXTEX(T4,1,760,0,'资金比较活跃,大资金活动明显'),Color00FFff;
DRAWTEXTEX(T5,1,760,0,'资金开始积极,大资金温和进场'),Color00DDff;
DRAWTEXTEX(T6,1,760,0,'散乱资金积极,散户行为明显'),ColorFFDD00;
DRAWTEXTEX(T7,1,760,0,'交易频率上升,散户相当积极'),ColorFFFF00;
DRAWTEXTEX(CLOSE,1,20,50,STKLABEL+' '+STKNAME+' '+STRLEFT(BLKNAME,40)),ColorFFB060;
F10:=IF(F10FIND('万国测评制作',1)>0,1,IF(F10FIND('Wind资讯',1)>0,2,IF(F10FIND('----<聚源资讯>----',1)>0,3,IF(F10FIND('维赛特',1)>0,4,IF(F10FIND('☆ ◇港澳资讯',1)>0,5,0)))));
IF F10=0 THEN EXIT;
QSW:=IF(F10=2,F10FIND('【1:主力运作】',100),IF(F10=3,F10FIND('控盘情况:',1),IF(F10=4,F10FIND('（三）历年人均持股情况',1),IF(F10=5,F10FIND('【1.机构持股汇总】 ',1000),F10FIND('◆ 控盘情况 ◆',100)))));
QSW:=IF(F10=5,F10FIND('【2.股东户数',QSW),QSW);
IF QSW>0 THEN BEGIN
WZ1:=F10FIND('-',QSW)-4;
WZ2:=F10FIND('-',WZ1+IF(F10=1,10,IF(F10=4,60,20)))-4;
WZ3:=IF(F10=2,F10FIND('【2:机构持股】',WZ1),IF(F10=3,F10FIND('公司简况',WZ1),IF(F10=4,F10FIND('（四）QFII持股',WZ1),IF(F10=5,F10FIND('└--',WZ1),F10FIND('◆ 概念题材',WZ1)))));
T1:=F10TEXT(WZ1,10);
T2:=IF(WZ2<WZ3,F10TEXT(WZ2,10),'');
LS:=IF(F10=1,142,IF(F10=4,29,IF(F10=5,12,14)));//14;
HS1:=STRTONUM(F10TEXT(WZ1+LS,10));
HS2:=IF(WZ2<WZ3,STRTONUM(F10TEXT(WZ2+LS,10)),0);
END;
DRAWTEXTEX(c,1,660,880,' 报表日期:'+t1+' 账户总数:'+NUMTOSTR(hs1,0)+' 户');
DRAWTEXTEX(c,1,660,980,' 报表日期:'+t2+' 账户总数:'+NUMTOSTR(hs2,0)+' 户');
DRAWTEXTEX(hs1>hs2,1,760,930,'市场筹码较上期分散'),Color00FF00;
DRAWTEXTEX(hs1<hs2,1,760,930,'市场筹码较上期集中'),Color0000FF;
//
副图源码（飞狐）：
a:=F10FIND('主要指标:',1);c0:=F10FIND('各家评论',a);aa:=F10TEXT(c0,6600);e1:=F10FIND('每股现金净流量(元)',a);
y1:=F10FIND('指标名称',a);a2:=F10FIND('每股收益(元)',a);c1:=F10FIND('每股净资产(元)',a);
d1:=F10FIND('净资产收益率(％)',a);f1:=F10FIND('每股资本公积金(元)',a);i1:=F10FIND('净利润增长率(%)',a);
EXPLAIN(c,''+aa+''),COLOR00DDDD;b1:=F10FIND('主营业务利润率(%)',a);
DRAWTEXTEX(c,1,70,0,STKLABEL+' '+STKNAME+''),ColorFFEE00;
n1:=F10TEXT(y1+15,2);nn1:=F10TEXT(y1+18,2);nn2:=F10TEXT(y1+21,2);n2:=F10TEXT(y1+35,2);
n3:=F10TEXT(y1+45,2);n4:=F10TEXT(y1+55,2);aa1:=STRTONUM(F10TEXT(a2+20,10));
a01:=STRTONUM(F10TEXT(a2+30,10));aa2:=STRTONUM(F10TEXT(a2+40,10));
aa3:=STRTONUM(F10TEXT(a2+50,10));aa4:=STRTONUM(F10TEXT(a2+60,10));
bb1:=STRTONUM(F10TEXT(b1+20,10));bb2:=STRTONUM(F10TEXT(b1+40,10));
bb3:=STRTONUM(F10TEXT(b1+50,10));bb4:=STRTONUM(F10TEXT(b1+60,10));
cc1:=STRTONUM(F10TEXT(c1+20,10));cc2:=STRTONUM(F10TEXT(c1+40,10));
cc3:=STRTONUM(F10TEXT(c1+50,10));cc4:=STRTONUM(F10TEXT(c1+60,10));
dd1:=STRTONUM(F10TEXT(d1+20,10));dd2:=STRTONUM(F10TEXT(d1+40,10));
dd3:=STRTONUM(F10TEXT(d1+50,10));dd4:=STRTONUM(F10TEXT(d1+60,10));
ee1:=STRTONUM(F10TEXT(e1+20,10));ee2:=STRTONUM(F10TEXT(e1+40,10));
ee3:=STRTONUM(F10TEXT(e1+50,10));ee4:=STRTONUM(F10TEXT(e1+60,10));
ff1:=STRTONUM(F10TEXT(f1+20,10));ff2:=STRTONUM(F10TEXT(f1+40,10));
ff3:=STRTONUM(F10TEXT(f1+50,10));ff4:=STRTONUM(F10TEXT(f1+60,10));
ii1:=STRTONUM(F10TEXT(i1+20,10));ii2:=STRTONUM(F10TEXT(i1+628,10));
ii3:=STRTONUM(F10TEXT(i1+642,10));ii4:=STRTONUM(F10TEXT(i1+656,10));
STICKLINE(BARPOS=DATACOUNT-45,0,aa1,80,0),COLOR0099FF;
STICKLINE(BARPOS=DATACOUNT-35,0,a01,80,0),COLOR009900;
STICKLINE(BARPOS=DATACOUNT-25,0,aa2,80,0),COLOR000099;
STICKLINE(BARPOS=DATACOUNT-15,0,aa3,80,0),COLORBB00BB;
STICKLINE(BARPOS=DATACOUNT-5,0,aa4,80,0),COLORBB0000;
DRAWTEXTEX(c,1,10,120,'报告时间: '),coloryellow;
DRAWTEXTEX(c,1,90,120,''+n1+'-'+nn1+'-'+nn2+'季报'),coloryellow;
DRAWTEXTEX(c,1,220,120,'20'+n2+'年报'),coloryellow;
DRAWTEXTEX(c,1,320,120,'20'+n3+'年报'),coloryellow;
DRAWTEXTEX(c,1,420,120,'20'+n4+'年报'),coloryellow;
DRAWTEXTEX(c,1,10,240,'每股收益: '),Colorred;
DRAWTEXTEX(c,1,90,240,NUMTOSTR(aa1,3)),Colorred;
DRAWTEXTEX(c,1,220,240,NUMTOSTR(aa2,3)),Colorred;
DRAWTEXTEX(c,1,320,240,NUMTOSTR(aa3,3)),Colorred;
DRAWTEXTEX(c,1,420,240,NUMTOSTR(aa4,3)),Colorred;
DRAWTEXTEX(c,1,10,360,'主营利润: '),Color80DDFF;
DRAWTEXTEX(c,1,90,360,NUMTOSTR(bb1,3)),Color80DDFF;
DRAWTEXTEX(c,1,220,360,NUMTOSTR(bb2,3)),Color80DDFF;
DRAWTEXTEX(c,1,320,360,NUMTOSTR(bb3,3)),Color80DDFF;
DRAWTEXTEX(c,1,420,360,NUMTOSTR(bb4,3)),Color80DDFF;
DRAWTEXTEX(c,1,10,480,'每股净资: '),ColorFFFF80;
DRAWTEXTEX(c,1,90,480,NUMTOSTR(cc1,2)),ColorFFFF80;
DRAWTEXTEX(c,1,220,480,NUMTOSTR(cc2,2)),ColorFFFF80;
DRAWTEXTEX(c,1,320,480,NUMTOSTR(cc3,2)),ColorFFFF80;
DRAWTEXTEX(c,1,420,480,NUMTOSTR(cc4,2)),ColorFFFF80;
DRAWTEXTEX(c,1,10,600,'净资收益: '),Colorcccccc;
DRAWTEXTEX(c,1,90,600,NUMTOSTR(dd1,2)+'%'),Colorcccccc;
DRAWTEXTEX(c,1,220,600,NUMTOSTR(dd2,2)+'%'),Colorcccccc;
DRAWTEXTEX(c,1,320,600,NUMTOSTR(dd3,2)+'%'),Colorcccccc;
DRAWTEXTEX(c,1,420,600,NUMTOSTR(dd4,2)+'%'),Colorcccccc;
DRAWTEXTEX(c,1,10,720,'每股现金: '),ColorFF80FF;
DRAWTEXTEX(c,1,90,720,if(ee1=0,'',NUMTOSTR(ee1,3))),ColorFF80FF;
DRAWTEXTEX(c,1,220,720,if(ee2=0,'',NUMTOSTR(ee2,3))),ColorFF80FF;
DRAWTEXTEX(c,1,320,720,if(ee3=0,'',NUMTOSTR(ee3,3))),ColorFF80FF;
DRAWTEXTEX(c,1,420,720,if(ee4=0,'',NUMTOSTR(ee4,3))),ColorFF80FF;
DRAWTEXTEX(c,1,10,840,'每股公积: '),Color4080FF;
DRAWTEXTEX(c,1,90,840,NUMTOSTR(ff1,4)),Color4080FF;
DRAWTEXTEX(c,1,220,840,NUMTOSTR(ff2,4)),Color4080FF;
DRAWTEXTEX(c,1,320,840,NUMTOSTR(ff3,4)),Color4080FF;
DRAWTEXTEX(c,1,420,840,NUMTOSTR(ff4,4)),Color4080FF;
DRAWTEXTEX(c,1,10,960,'净利润率: '),ColorEEEEFF;
DRAWTEXTEX(c,1,90,960,NUMTOSTR(ii1,2)+'%'),ColorEEEEFF;
DRAWTEXTEX(c,1,220,960,NUMTOSTR(ii2,2)+'%'),ColorEEEEFF;
DRAWTEXTEX(c,1,320,960,NUMTOSTR(ii3,2)+'%'),ColorEEEEFF;
DRAWTEXTEX(c,1,420,960,NUMTOSTR(ii4,2)+'%'),ColorEEEEFF;
动态收益:(sum(aa1,4)-aa2)/3,PRECISION2,ColorFFFFFF,LINETHICK;
静态收益:aa2,Color00FFFF,PRECISION2,LINETHICK;
市净率:c/cc1,ColorFF00FF,PRECISION2,LINETHICK;
动态市盈率:C/动态收益,PRECISION2,ColorFFFFFF,LINETHICK;
静态市盈率:C/静态收益,PRECISION2,Color00FFFF,LINETHICK;
DRAWTEXTEX(aa1>a01,1,180,0,'业绩较同期增长'),Color0000FF;
DRAWTEXTEX(aa1<a01,1,180,0,'业绩较同期下滑'),Color00FF00;
DRAWTEXT(BARPOS=DATACOUNT-48,0,' 季报\n'+NUMTOSTR(aa1,3)),PXUP60,ColorFFFFFF;
DRAWTEXT(BARPOS=DATACOUNT-38,0,' 同期\n'+NUMTOSTR(a01,3)),PXUP60,ColorFFFFFF;
DRAWTEXT(BARPOS=DATACOUNT-28,0,' 年报\n'+NUMTOSTR(aa2,3)),PXUP60,ColorFFFFFF;
DRAWTEXT(BARPOS=DATACOUNT-18,0,' 上年\n'+NUMTOSTR(aa3,3)),PXUP60,ColorFFFFFF;
DRAWTEXT(BARPOS=DATACOUNT-8,0,' 前年\n'+NUMTOSTR(aa4,3)),PXUP60,ColorFFFFF;
 点击下载此文件{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
