古力兄你提到将主图解盘也放到分时图中的想法太好了 :*19*: :*19*:
我试着写了写 :
由于在DZH2中提取自定义函数SELFDATA(N)只能用于日线,
对于在分时图中提取主力数据需采用其他数据, 方法还没找到,
如果哪位师兄知道请告之 :
现先在分时图中显示基本信息和换手率
公式分成两个: 一个为日线的解盘公式, 另一个为分时的解盘公式
如下:
{日线解盘}
流通股:=CAPITAL; {单位:手(百股)}
{显示基础资料}
DRAWTEXTABS(10,10,'基础资料:'),COLORgreen;
DRAWTEXTABS(70,10,'基础资料:所属板块:'+BKNAME),COLORwhite;
DRAWTEXTABS(70,25,'流通盘大小:'+capital/10000+'亿'
+' 市盈率:'+dynainfo(39)
+' 销售毛利率:'+FINANCE2(12)+'%'
+' 主营收入增长:'+FINANCE2(11)+'%'
+' 净利润增长:'+FINANCE2(10)+'%'
+' 每股收益:'+NUMTOSTRN(FINANCE2(3),2)+'元'
+' 净资收益率:'+NUMTOSTRN(FINANCE2(5),2)+'%'),LINETHICK1,colorwhite;
{DRAWTEXTABS(10,145,'股东人数:'+pfstr(5253,0)+' 报告期:'+FINANCE2(1)),LINETHICK1,colorwhite; }
{DRAWTEXTABS(10,145,'股东人数:'+f10text(f10find('股东人数',1),20)+' 报告期:'+FINANCE2(1)),LINETHICK1,colorwhite; }
{换手情况}
当日换手率:=sum(100*v/capital,1);
三日换手率:=sum(100*v/capital,3);
五日换手率:=sum(100*v/capital,5);
十日换手率:=sum(100*v/capital,10);
DRAWTEXTABS(10,45,'换手情况: '),colorgreen,LINETHICK1;
DRAWTEXTABS(70,45,'当日换手:'+NUMTOSTRN(当日换手率,2)
+'% 三日换手:'+NUMTOSTRN(三日换手率,2)
+'% 五日换手:'+NUMTOSTRN(五日换手率,2)
+'% 十日换手:'+NUMTOSTRN(十日换手率,2)
+'% 获利盘 '+NUMTOSTRN(winner(c)*100,0)+'%'),colorwhite,LINETHICK1;
{主力情况}
{
ss:=STKLABEL;
if STRCMP(TYPESTR ,'指数' )=0 and STRCMP(ss,'000002')=0 then
begin
大买:=SELFDATA('全部A股大买量');
大卖:=SELFDATA('全部A股大卖量');
end
else
begin
大买:=SELFDATA('大买量');
大卖:=SELFDATA('大卖量');
end
}
大买:=SELFDATA('大买量');
大卖:=SELFDATA('大卖量');
主力增减:(大买-大卖),LINETHICK0,COLORred;
主力仓量:sum(主力增减,0),linethick0,COLORwhite;
主力持仓率:主力仓量/流通股,LINETHICK0,COLORred;
当日增减:主力增减/流通股*100,LINETHICK0,COLORgreen;
三天增减:(主力仓量-ref(主力仓量,3))/流通股*100,LINETHICK0,colorwhite;
五天增减:(主力仓量-ref(主力仓量,5))/流通股*100,LINETHICK0,colorred;
十天增减:(主力仓量-ref(主力仓量,10))/流通股*100,LINETHICK0,colorgreen;
廿天增减:(主力仓量-ref(主力仓量,20))/流通股*100,LINETHICK0,colorwhite;
DRAWTEXTABS(10,65,'控盘情况:'),LINETHICK1,colorgreen;
DRAWTEXTABS(70,65,'主力总持仓率:'+主力持仓率+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(220,65,'当日增仓率:'+当日增减+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(350,65,'三日增仓率:'+三天增减+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(480,65,'五日增仓率:'+五天增减+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(610,65,'十日增仓率:'+十天增减+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(740,65,'廿日增仓率:'+廿天增减+'%'),LINETHICK1,colorwhite;
{机构持仓情况}
机构日增减:=SELFDATA('机构增仓');
机构仓量:=sum(机构日增减,0);
机构总持仓率:=机构仓量/流通股*100;
DRAWTEXTABS(70,80,'机构总持仓率:'+机构总持仓率+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(220,80,'当日增仓率:'+机构日增减/流通股*100+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(350,80,'三日增仓率:'+(机构仓量-ref(机构仓量,3))/流通股*100+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(480,80,'五日增仓率:'+(机构仓量-ref(机构仓量,5))/流通股*100+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(610,80,'十日增仓率:'+(机构仓量-ref(机构仓量,10))/流通股*100+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(740,80,'廿日增仓率:'+(机构仓量-ref(机构仓量,20))/流通股*100+'%'),LINETHICK1,colorwhite;
{游资持仓情况 20W大单买卖量}
游资大买:=SELFDATA('20W大单买入量');
游资大卖:=SELFDATA('20W大单卖出量');
游资日增减:=大买-大卖;
游资仓量:=sum(游资日增减,0);
游资总持仓率:=游资仓量/流通股*100;
DRAWTEXTABS(70,95,'游资总持仓率:'+游资总持仓率+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(220,95,'当日增仓率:'+游资日增减/流通股*100+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(350,95,'三日增仓率:'+(游资仓量-ref(游资仓量,3))/流通股*100+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(480,95,'五日增仓率:'+(游资仓量-ref(游资仓量,5))/流通股*100+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(610,95,'十日增仓率:'+(游资仓量-ref(游资仓量,10))/流通股*100+'%'),LINETHICK1,colorwhite;
DRAWTEXTABS(740,95,'廿日增仓率:'+(游资仓量-ref(游资仓量,20))/流通股*100+'%'),LINETHICK1,colorwhite;
{欧奈尔排名}
欧奈尔排名:=selfdata('欧奈尔排名');
seq:=extdata(3);
欧奈尔排名1:=ref(欧奈尔排名,0);
欧奈尔排名2:=ref(欧奈尔排名,1);
欧奈尔排名3:=ref(欧奈尔排名,2);
欧奈尔排名4:=ref(欧奈尔排名,3);
欧奈尔排名5:=ref(欧奈尔排名,4);
DRAWTEXTABS(10,115,'欧式排名: '),colorgreen,LINETHICK1;
DRAWTEXTABS(70,115,'最近5天奈尔排名:'+欧奈尔排名1+欧奈尔排名2+','+欧奈尔排名3+','+欧奈尔排名4+','+欧奈尔排名5
+' 最近3天平均排名:'+NUMTOSTRN((欧奈尔排名1+欧奈尔排名2+欧奈尔排名3)/3,0)),LINETHICK1,colorwhite;
{135均线}
ema13:ema(c,13),colorblue,linethick2;
ema17:ema(c,17),colorred,linethick2;
ema34:ema(c,34),colorgreen;
ema55:ema(c,55),colorff00ff;
ema120:=ema(c,120);
ar1:=ema55>ema34 and ema34>ema13;
ar2:=BARSLAST((c-ema13)/ema13*100<-6);
ar3:=ema13>=ref(ema13,2);
ar4:=count(cross(c,ema13),ar2)=1;
ar5:=ar1 and ar2 and ar3 and ar4;
ar6:=ar5 and filter(ar5,10);
drawtext(ar6,l-0.09,'红杏出墙'),coloryellow;
stickline(ar6,h,l,0.5,1),coloryellow;
stickline(ar6,o,c,6,1),linethick2,coloryellow;
br1:=count(BETWEEN((c-ref(c,1))/ref(c,1)*100,0,5) ,5)=5;
br2:=abs((ema13-ema34)+(ema34-ema55))/c<0.2;
br3:=c>ema55 and (ref(c,1)<REF(EMA55,1) ref(c,5)<ref(ema55,5));
br4:=br1 and br2 and br3;
drawtext(br4 and filter(br4,10),l-0.09,'蚂蚁上树'),color00C5FF;
stickline(br4 and filter(br4,10),h,l,0.5,1),color00C5FF;
stickline(br4 and filter(br4,10),o,c,6,1),linethick2,color00C5FF;
cr1:=(c-ref(c,1))/ref(c,1)*100>0.5;
cr2:=v>ma(v,5)*0.6;
cr3:=count(cross(ema13,ema55),3)=1;
cr4:=abs(ema34-ema55)/ema55<0.03;
cr5:=ema55<=ema120 and ema55>=ref(ema55,1);
cr6:=FILTER(cr1 and cr2 and cr3 and cr4 and cr5,2);
stickline(cr6,h,l,0.5,1),colorf00ff0;
stickline(cr6,o,c,6,1),linethick2,colorf00ff0;
drawtext(cr6,l-0.09,'红衣侠女'),colorf00ff0;
dr1:=ema13>ema34 and ema34<EMA55;
dr2:=BARSLAST(cross(c,ema55) );
dr3:=h=hhv(h,dr2);
dr4:=BARSLAST(dr3);
dr5:=count(o>c and cema55 and BETWEEN((c-ema55)/ema55,0,0.02),dr4)=1;
dr6:=c>ref(c,1) ;
dr7:= dr1 and dr5 and dr6 ;
dr8:=dr7 and FILTER(dr7 ,10);
drawtext(dr8,l-0.09,'黑客点击'),colord6ba63;
stickline(dr8,h,l,0.5,1),colord6ba63;
stickline(dr8,o,c,6,1),linethick2,colord6ba63;
er:=barslast(ref(cross(ema55,ema34),1)) and cross(ema34,ema55);
DRAWTEXT(er,l-0.09,'均线互换'),color0099ff;
stickline(er,h,l,0.5,1),color0099ff;
stickline(er,o,c,6,1),linethick2,color0099ff;
fr:=barslast(ref(cross(ema34,ema13),1)) and cross(ema13,ema34);
DRAWTEXT(fr,l-0.09,'梅开二度'),colorwhite;
stickline(fr,h,l,0.5,1),colorwhite;
stickline(fr,o,c,6,1),linethick2,colorwhite;
gr1:=BARSLAST(BETWEEN("bias.bias2"(6,13,24),0,5) );
gr2:=ema13>ema34 and ema34>ema55 and ema13>ref(ema13,1);
gr3:=count("bias.bias2"(6,13,24)>10 and h=hhv(h,gr1),gr1);
gr4:=h=hhv(h,gr1);
gr5:="macd.macd"(12,26,9)<REF("MACD.MACD"(12,26,9),1);
gr6:=gr2 and gr3 and gr4;
gr7:=gr2 and gr3 and gr4 and gr5;
drawtext(gr6 and gr7,h+0.13,'*'),color00ff00;
stickline(gr6 and gr7,h,h+0.09,4,0),color00ff00;
hr2:=ema13>=ref(ema13,3) and ema34>=ref(ema34,1) and ema55>=ref(ema55,1) and cross(c,ema13) and cross(c,ema34) and cross(c,ema55);
DRAWTEXT(hr2 and filter(hr2,10),l-0.09,'三线推进'),colorFFC8FF;
stickline(hr2 and filter(hr2,10),h,l,0.5,1),colorFFC8FF;
stickline(hr2 and filter(hr2,10),o,c,6,1),linethick2,colorFFC8FF;
{布林带}
MID : MA(CLOSE,26),colorgreen,POINTDOT;
UPPER: MID + 2*STD(CLOSE,26),colorgreen,POINTDOT;
LOWER: MID - 2*STD(CLOSE,26),colorgreen,POINTDOT;
分时解盘公式:
{分时解盘}
{显示基础资料}
DRAWTEXTABS(10,10,'基础资料:'),COLORgreen;
DRAWTEXTABS(70,10,'基础资料:所属板块:'+BKNAME),COLORwhite;
DRAWTEXTABS(70,25,'流通盘大小:'+capital/10000+'亿'
+' 市盈率:'+dynainfo(39)
+' 销售毛利率:'+FINANCE2(12)+'%'
+' 主营收入增长:'+FINANCE2(11)+'%'
+' 净利润增长:'+FINANCE2(10)+'%'
+' 每股收益:'+NUMTOSTRN(FINANCE2(3),2)+'元'
+' 净资收益率:'+NUMTOSTRN(FINANCE2(5),2)+'%'),LINETHICK1,colorwhite;
{DRAWTEXTABS(10,145,'股东人数:'+pfstr(5253,0)+' 报告期:'+FINANCE2(1)),LINETHICK1,colorwhite; }
{DRAWTEXTABS(10,145,'股东人数:'+f10text(f10find('股东人数',1),20)+' 报告期:'+FINANCE2(1)),LINETHICK1,colorwhite; }
{换手情况}
当日换手率:=sum(100*v/capital,1);
三日换手率:=sum(100*v/capital,3);
五日换手率:=sum(100*v/capital,5);
十日换手率:=sum(100*v/capital,10);
DRAWTEXTABS(10,45,'换手情况: '),colorgreen,LINETHICK1;
DRAWTEXTABS(70,45,'当日换手:'+NUMTOSTRN(当日换手率,2)
+'% 三日换手:'+NUMTOSTRN(三日换手率,2)
+'% 五日换手:'+NUMTOSTRN(五日换手率,2)
+'% 十日换手:'+NUMTOSTRN(十日换手率,2)
+'% 获利盘 '+NUMTOSTRN(winner(c)*100,0)+'%'),colorwhite,LINETHICK1;
效果图如下: |