喜迎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));
|