2008年最佳原创之八：●分割角度■量●买卖不会错公式 飞狐角度指标指标 源码

指标公式详细说明

●分割角度①
input:n(13,1,999),n1(2,1,3),上角(11,0,500),下角(11,0,500);
drawgbk(close,colorrgb(50,100,120),0,1);
drawtext(sysparam(2)=barpos,close,'板块:'+blkname),color0095bc,align4;
u1:=sysparam(3);
u:=u1-sysparam(2)+1;
hh:=hhv(high,u);
ll:=llv(low,u);
最高:hh[u1],colorc0c0c0;
最低:ll[u1],colorc0c0c0;
partline(close and n1<>3,最低),colorred;
partline(close and n1=1,最低+(最高-最低)*0.191),linedot,colorwhite;
partline(close and n1=1,最低+(最高-最低)*0.382),linedot,colorwhite;
partline(close and n1<>3,最低+(最高-最低)*0.5),colorff8200;
partline(close and n1=1,最低+(最高-最低)*0.618),linedot,colorwhite;
partline(close and n1=1,最低+(最高-最低)*0.809),linedot,colorwhite;
drawtext(barscount(close)=sysparam(3) and n1<>3,ref(最低,barslast(barscount(close)=sysparam(2))),'最低↓'),align2,colorred;
drawtext(barscount(close)=sysparam(3) and n1<>3,ref(最高,barslast(barscount(close)=sysparam(2))),'最高↑'),align2,coloryellow;
drawtext(barpos=sysparam(2) and n1=1,ref((最低+(最高-最低)*0.191)*0.996,barslast(barscount(close)=sysparam(2))),'黄金 0.191↑'+numtostr(最低+(最高-最低)*0.191,2)),colorwhite;
drawtext(barpos=sysparam(2) and n1=1,ref((最低+(最高-最低)*0.382)*0.996,barslast(barscount(close)=sysparam(2))),'黄金 0.382↑'+numtostr(最低+(最高-最低)*0.382,2)),colorwhite;
drawtext(barpos=sysparam(2) and n1<>3,ref((最低+(最高-最低)*0.5)*0.996,barslast(barscount(close)=sysparam (2))),' 50%↑'+numtostr(最低+(最高-最低)*0.5,2)),colorff8200;
drawtext(barpos=sysparam(2) and n1=1,ref((最低+(最高-最低)*0.618)*0.996,barslast(barscount(close)=sysparam(2))),'黄金 0.618↑'+numtostr(最低+(最高-最低)*0.618,2)),colorwhite;
drawtext(barpos=sysparam(2) and n1=1,ref((最低+(最高-最低)*0.809)*0.996,barslast(barscount(close)=sysparam(2))),'黄金 0.809↑'+numtostr(最低+(最高-最低)*0.809,2)),colorwhite;
partline(close and n1=2,最低+(最高-最低)*1/8),linedot,color0095bc;
partline(close and n1=2,最低+(最高-最低)*1/4),linedot,color0095bc;
partline(close and n1=2,最低+(最高-最低)*3/8),linedot,color0095bc;
partline(close and n1=2,最低+(最高-最低)*5/8),linedot,color0095bc;
partline(close and n1=2,最低+(最高-最低)*7/8),linedot,color0095bc;
partline(close and n1=2,最低+(最高-最低)*3/4),linedot,color0095bc;
k3:=close>open or close=open and close>ref(close,1);
stickline(k3,high,low,0.1,0),colorred;
stickline(k3,open,close,7,1),colorred;
stickline(not(k3),high,low,0.1,0),colorcyan;
stickline(not(k3),close,open,7,0),colorcyan;
n日:=n*10;
p1:=close-ref(close,1);p2:=sum(abs(p1),0); p3:=count(close>0,0);
k1:=p2/p3/上角*10;k2:=p2/p3/下角*10;
drawsl(filter(backset(islastbar,hhvbars(high,n日)+1),n日),high,-0.5*k2,0,0),color33ffcc,pointdot;
drawsl(filter(backset(islastbar,hhvbars(high,n日)+1),n日),high, -k2,0,0),color33ffcc,pointdot;
drawsl(filter(backset(islastbar,hhvbars(high,n日)+1),n日),high,-2*k2,0,0),color33ffcc;
drawsl(filter(backset(islastbar,hhvbars(high,n日)+1),n日),high,-4*k2,0,0),color33ffcc,pointdot;
drawsl(filter(backset(islastbar,hhvbars(high,n日)+1),n日),high,-8*k2,0,0),color33ffcc,pointdot;
drawsl(filter(backset(islastbar,llvbars(low,n日)+1),n日),low,0.5*k1,0,0),colorffccff,pointdot;
drawsl(filter(backset(islastbar,llvbars(low,n日)+1),n日),low,
k1,0,0),colorffccff,pointdot;
drawsl(filter(backset(islastbar,llvbars(low,n日)+1),n日),low,2*k1,0,0),colorffccff;
drawsl(filter(backset(islastbar,llvbars(low,n日)+1),n日),low,4*k1,0,0),colorffccff,pointdot;
drawsl(filter(backset(islastbar,llvbars(low,n日)+1),n日),low,8*k1,0,0),colorffccff,pointdot;





●分割角度②
input:n(13,1,999),n1(2,1,3),上角(11,0,500),下角(11,0,500);
drawgbk(close,colorrgb(50,100,120),0,1);
dd0:=ref(day,(barscount(close) - 1));
■上市日期:ref(year,(barscount(close) - 1)),linethick0,colorc0c0c0;
年:ref(month,(barscount(close) - 1)),linethick0,colorc0c0c0;
月:ref(day,(barscount(close) - 1)),linethick0,colorc0c0c0;
日:0,linethick0,colorc0c0c0;
drawtext(sysparam(2)=barpos,close,'板块:'+blkname),color0095bc,align4;
u1:=sysparam(3);
u:=u1-sysparam(2)+1;
hh:=hhv(high,u);
ll:=llv(low,u);
最高:hh[u1],coloryellow,colorc0c0c0;
最低:ll[u1],colorred,colorc0c0c0;
partline(close and n1<>3,最低),colorred;
partline(close and n1=1,最低+(最高-最低)*0.191),linedot,colorwhite;
partline(close and n1=1,最低+(最高-最低)*0.382),linedot,colorwhite;
partline(close and n1<>3,最低+(最高-最低)*0.5),colorff8200;
partline(close and n1=1,最低+(最高-最低)*0.618),linedot,colorwhite;
partline(close and n1=1,最低+(最高-最低)*0.809),linedot,colorwhite;
drawtext(barscount(close)=sysparam(3) and n1<>3,ref(最低,barslast(barscount(close)=sysparam(2))),'最低↓'),align2,colorred;
drawtext(barscount(close)=sysparam(3) and n1<>3,ref(最高,barslast(barscount(close)=sysparam(2))),'最高↑'),align2,coloryellow;
drawtext(barpos=sysparam(2) and n1=1,ref((最低+(最高-最低)*0.191)*0.996,barslast(barscount(close)=sysparam(2))),'黄金 0.191↑'+numtostr(最低+(最高-最低)*0.191,2)),colorwhite;
drawtext(barpos=sysparam(2) and n1=1,ref((最低+(最高-最低)*0.382)*0.996,barslast(barscount(close)=sysparam(2))),'黄金 0.382↑'+numtostr(最低+(最高-最低)*0.382,2)),colorwhite;
drawtext(barpos=sysparam(2) and n1<>3,ref((最低+(最高-最低)*0.5)*0.996,barslast(barscount(close)=sysparam (2))),' 50%↑'+numtostr(最低+(最高-最低)*0.5,2)),colorff8200;
drawtext(barpos=sysparam(2) and n1=1,ref((最低+(最高-最低)*0.618)*0.996,barslast(barscount(close)=sysparam(2))),'黄金 0.618↑'+numtostr(最低+(最高-最低)*0.618,2)),colorwhite;
drawtext(barpos=sysparam(2) and n1=1,ref((最低+(最高-最低)*0.809)*0.996,barslast(barscount(close)=sysparam(2))),'黄金 0.809↑'+numtostr(最低+(最高-最低)*0.809,2)),colorwhite;
partline(close and n1=2,最低+(最高-最低)*1/8),linedot,color0095bc;
partline(close and n1=2,最低+(最高-最低)*1/4),linedot,color0095bc;
partline(close and n1=2,最低+(最高-最低)*3/8),linedot,color0095bc;
partline(close and n1=2,最低+(最高-最低)*5/8),linedot,color0095bc;
partline(close and n1=2,最低+(最高-最低)*7/8),linedot,color0095bc;
partline(close and n1=2,最低+(最高-最低)*3/4),linedot,color0095bc;
k3:=close>open or close=open and close>ref(close,1);
stickline(k3,high,low,0.1,0),colorred;
stickline(k3,open,close,7,1),colorred;
stickline(not(k3),high,low,0.1,0),colorcyan;
stickline(not(k3),close,open,7,0),colorcyan;
drawtext(barpos=sysparam(2) and n1=2,ref((最低+(最高-最低)*1/8)*0.996,barslast(barscount(close)=sysparam(2))),'江恩 1/8↑'+numtostr(最低+(最高-最低)*1/8,2)),color0095bc;
drawtext(barpos=sysparam(2) and n1=2,ref((最低+(最高-最低)*1/4)*0.996,barslast(barscount(close)=sysparam(2))),'江恩 1/4↑'+numtostr(最低+(最高-最低)*1/4,2)),color0095bc;
drawtext(barpos=sysparam(2) and n1=2,ref((最低+(最高-最低)*3/8)*0.996,barslast(barscount(close)=sysparam(2))),'江恩 3/8↑'+numtostr(最低+(最高-最低)*3/8,2)),color0095bc;
drawtext(barpos=sysparam(2) and n1=2,ref((最低+(最高-最低)*5/8)*0.996,barslast(barscount(close)=sysparam(2))),'江恩 5/8↑'+numtostr(最低+(最高-最低)*5/8,2)),color0095bc;
drawtext(barpos=sysparam(2) and n1=2,ref((最低+(最高-最低)*7/8)*0.996,barslast(barscount(close)=sysparam(2))),'江恩 7/8↑'+numtostr(最低+(最高-最低)*7/8,2)),color0095bc;
drawtext(barpos=sysparam(2) and n1=2,ref((最低+(最高-最低)*3/4)*0.996,barslast(barscount(close)=sysparam(2))),'江恩 3/4↑'+numtostr(最低+(最高-最低)*3/4,2)),color0095bc;
yb:=sysparam(2);
a:=sysparam(3);
p:=(a - yb);
s4:=sysparam(4);
s5:=sysparam(5);
hh:=hhvbars(high,(p + 1));
ll:=llvbars(low,(p + 1));
z:=(barpos = (a - hh[a]));
y:=(barpos = (a - ll[a]));
k:=((s4 - s5) / (a - yb));
drawsl(z,high,(0 - ((15 * k) / 60)),0,0),pointdot,colorffff00;
drawsl(z,high,(0 - ((30 * k) / 60)),0,0),pointdot,colorffff00;
drawsl(z,high,(0 - ((45 * k) / 60)),0,0),pointdot,colorffff00;
drawsl(z,high,(0 - ((60 * k) / 60)),0,0),colorffff00;
drawsl(z,high,(0 - ((85 * k) / 60)),0,0),pointdot,colorffff00;
drawsl(z,high,(0 - ((120 * k) / 60)),0,0),pointdot,colorffff00;
drawsl(z,high,(0 - ((165 * k) / 60)),0,0),pointdot,colorffff00;
drawsl(z,high,(0 - ((240 * k) / 60)),0,0),pointdot,colorffff00;
drawsl(z,high,(0 - ((360 * k) / 60)),0,0),pointdot,colorffff00;
drawsl(z,high,(0 - ((600 * k) / 60)),0,0),pointdot,colorffff00;
drawsl(y,low,((10 * k) / 60),0,0),pointdot,colorff00ff;
drawsl(y,low,((30 * k) / 60),0,0),pointdot,colorff00ff;
drawsl(y,low,((60 * k) / 60),0,0),pointdot,colorff00ff;
drawsl(y,low,((90 * k) / 60),0,0),pointdot,colorff00ff;
drawsl(y,low,((120 * k) / 60),0,0),colorff00ff;
drawsl(y,low,((180 * k) / 60),0,0),pointdot,colorff00ff;
drawsl(y,low,((300 * k) / 60),0,0),pointdot,colorff00ff;
drawsl(y,low,((540 * k) / 60),0,0),pointdot,colorff00ff;
drawsl(y,low,((1020 * k) / 60),0,0),pointdot,colorff00ff;
a:=sysparam(1);
vertline(barpos=a),pointdot,color0095bc,shift13;
vertline(barpos=a),pointdot,color0095bc,shift21;
vertline(barpos=a),pointdot,color0095bc,shift34;
vertline(barpos=a),pointdot,color0095bc,shift55;
vertline(barpos=a),pointdot,color0095bc,shift89;
vertline(barpos=a),pointdot,color0095bc,shift144;
drawtext(barpos=a,sysparam(5),'天数'),color0095bc,align2;
drawtext(barpos=a,sysparam(5),'13'),color0095bc,shift13;
drawtext(barpos=a,sysparam(5),'21'),color0095bc,shift21;
drawtext(barpos=a,sysparam(5),'34'),color0095bc,shift34;
drawtext(barpos=a,sysparam(5),'55'),color0095bc,shift55;
drawtext(barpos=a,sysparam(5),'89'),color0095bc,shift89;
drawtext(barpos=a,sysparam(5),'144'),color0095bc,shift144;




■量
drawgbk(close,colorrgb(50,100,120),0,1);
var1:=vol/((high-low)*2-abs(close-open));
□主买□:if(close>open,var1*(high-low),if(close<open,var1*((high-open)+(close-low)),vol/2)),color0000ff,linethick0;
□主卖□:if(close>open,0-var1*((high-close)+(open-low)),if(close<open,0-var1*(high-low),0-vol/2)),colorffff00,linethick0;
□量比□:if(barpos=datacount,dynainfo(17),vol/ref(ma(vol,5),1)),colorff80ff,linethick0;
stickline(□量比□,+□量比□,0,10,8),colorff80ff,pointdot,linethick2;;
主买:=if(close>open,var1*(high-low),if(close<open,var1*((high-open)+(close-low)),vol/2));
主卖:=if(close>open,0-var1*((high-close)+(open-low)),if(close<open,0-var1*(high-low),0-vol/2));
stickline(vol>0,vol,0,6,1),colorgray;
stickline(主买>0,0,主买,5,0),colorred;
stickline(主卖<0,0,主卖,7,1)colorgray;
stickline(主卖<0,0,主卖,5,0),colorffff00;
vol/capital*100,linethick0;
((high-low)/low)*100,linethick0;
vol/dynainfo(38),linethick0,colorffff00;
stickline(close<ma(close,2),0,vol,6,0),colorffff00;
stickline(vol>ma(vol,5)*1.5,vol,vol+vol*0.03,10,0),coloryellow;
zz:=(close-llv(low,45))/(hhv(high,45)-llv(low,45))*100;
周k:=ema(zz,3);
周d:=ema(周k,3);
ab:=intpart(周k);
cd:=intpart(周d);
tf:=ab+cd;
tg:=(tf-ref(tf,1))*0.1;
enterlong:= tg ;
drawicon(tg>=0,close,10) ,align4;

再补源码感谢大家!

●主图
input:n(6,0,9999),m(18,0,9999);
drawgbk(close,colorrgb(50,100,120),0,1);
rsv:=(close-llv(low,13))/(hhv(high,13)-llv(low,13))*100;
k:=sma(rsv,3,1);
d:=sma(k,3,1);
j:=3*k-2*d;
rsv12:=(close-llv(low,34))/(hhv(high,34)-llv(low,34))*100;
k12:=sma(rsv12,3,1);
d12:=sma(k12,3,1);
j12:=3*k12-2*d12;
rsv24:=(close-llv(low,55))/(hhv(high,55)-llv(low,55))*100;
k24:=sma(rsv24,3,1);
d24:=sma(k24,3,1);
j24:=3*k24-2*d24;
压力位:if(cross(j24,j),high,ref(high,barslast(cross(j24,j)))),colorffffff,linethick1;
支撑位:if(cross(j,j24),low,ref(low,barslast(cross(j,j24)))),color0000ff,,linethick1;
ma3:=ma(close,n);
ma30:=ma(close,m);
k3:=close>open or close=open and close>ref(close,1);
stickline(k3,high,low,0.1,0),colorred;
stickline(k3,open,close,7,1),colorred;
stickline(not(k3),high,low,0.1,0),colorcyan;
stickline(not(k3),close,open,7,0),colorcyan;
drawline(low=sysparam(5),low,barpos=sysparam(3)-1,low,1),colorgreen;
drawline(high=sysparam(4),high,barpos=sysparam(3)-1,high,1),coloryellow;
stickline((barstatus = 2),(ma30 * 1.004),(ma30 * 1.004),10,0),colorff00ff;
stickline((barstatus = 2),(ma30 * 1.004),(ma30 * 1.004),10,0),shift1,colorff00ff;
stickline((barstatus = 2),(ma30 * 1.004),(ma30 * 1.004),10,0),shift2,colorff00ff;
drawnumber(((barstatus = 2) and between(close,(ma30 * 0.95),(ma30 * 1.05))
),(ma30 * 1.004),(ma30 * 1.004),2),align1;
aa:=ref(high,5)=hhv(high,2*5+1);
bb:=backset(aa,5+1);
cc:=filter(bb,5) and high=hhv(high,5+1);
drawicon(cc and barstatus=2,high*1.01,10);
aa2:=ref(low,5)=llv(low,2*5+1);
bb2:=backset(aa2,5+1);
cc2:=filter(bb2,5) and low=llv(low,5+1);
drawicon(cc2 and barstatus=2,low*0.998,11);
gg:=barstatus=2 and ref(cc,barslast(cc));
hh:=backset(gg,barslast(cc)+1);
ii:=hh>ref(hh,1);
jj:=ref(barslast(cc),1);
kk:=backset(ii,jj+2);
ll:=kk>ref(kk,1);
drawline(ll,high,ii,high,1),pointdot;
gg2:=barstatus=2 and ref(cc2,barslast(cc2));
hh2:=backset(gg2,barslast(cc2)+1);
ii2:=hh2>ref(hh2,1);
jj2:=ref(barslast(cc2),1);
kk2:=backset(ii2,jj2+2);
ll2:=kk2>ref(kk2,1);
drawline(ll2,low,ii2,low,1),pointdot;
hh:=sysparam(4);
ll:=sysparam(5);
q809:=ll+(hh-ll)*0.809;
q618:=ll+(hh-ll)*0.618;
q500:=ll+(hh-ll)*0.5;
q382:=ll+(hh-ll)*0.382;
q191:=ll+(hh-ll)*0.191;
qqqq:=close>0;
nnl:=islastbar;
partline(qqqq,hh),color000099,pointdot;
partline(qqqq,q191),color000099,pointdot;
partline(qqqq,q382),color000099,pointdot;
partline(qqqq,q500),color000099;
partline(qqqq,q618),color000099,pointdot;
partline(qqqq,q809),color000099,pointdot;
partline(qqqq,ll),color000099,pointdot;
drawtext(nnl,hh*0.998,'最高价'),align2,colorc0c0c0;
drawtext(nnl,q809,'19.1%'),align2,colorc0c0c0;
drawtext(nnl,q618,'38.2%'),align2,colorc0c0c0;
drawtext(nnl,q500,'50%'),align2,colorc0c0c0;
drawtext(nnl,q382,'61.8%'),align2,colorc0c0c0;
drawtext(nnl,q191,'80.9%'),align2,colorc0c0c0;
drawtext(nnl,ll*1.01,'最低价'),align2,colorc0c0c0;

流通:=finance(37)/10000;
市盈率:=dynainfo(39);
f111:=cost(5 );j111:=cost(95 );
m111:=cost(15 );x111:=cost(85 );
f112:=(j111-f111)/(f111+j111)*100;m112:=(x111-m111)/(x111+m111)*100;
获利盘:=winner(close)*100;
套牢盘:=100*(1-winner(close));
集中度90:=f112;
集中度70:=m112;
收益:=finance(3);
浮筹比:=(winner(close*1.1)-winner(close*0.9))/winner(hhv(high,0))*100;
aa3:=sumbars(vol,capital);
换手成本:=if(capital>0,sum(amount,aa3)/sum(vol,aa3)/100,ema(close,120));{100%换手平均成本线};
当日换手率:=sum(100*vol/capital,1);
五日换手率:=sum(100*vol/capital,5);
十日换手率:=sum(vol,10)*100/capital;
drawtext(sysparam(2)=barpos,close,'代码: '+stklabel+':'+ ' 名称:'+stkname+':'+'板块:'+blkname+'\n浮筹比:'+numtostr(浮筹比,0)+'% '+'
总股本:'+numtostr(finance(1),2)+'万股'+'流通a股:'+numtostr(finance( 7),0)+' 市盈率: '+numtostr(市盈率,2)+'\n集中度70:'+numtostr(集中度70,0)+'
集中度90:'+numtostr(集中度90,0)+'获利盘:'+numtostr(获利盘,2)+'% '+'套牢盘:'+numtostr(套牢盘,2)+'% '+'
每股收益:'+numtostr(finance(33),3)+'元 '+'\n净资产:'+numtostr(finance(34),2)+'元'+'换手成本:'+numtostr(换手成本,2)+'
5日换手率:'+numtostr(五日换手率,2)+'%'+'10日换手率:'+numtostr(十日换手率,2)+'%'),coloryellow,align4,colorffeebb;



●买卖不会错

drawgbk(close,colorrgb(50,100,120),0,1);
dc:=ref(close,1);
aa:=abs(high-dc);
bb:=abs(low-dc);
cc:=abs(high-ref(low,1));
dd:=abs(dc-ref(open,1));
r:=if(aa>bb and aa>cc,aa+bb/2+dd/4,if(bb>cc and bb>aa,bb+aa/2+dd/4,cc+dd/4));
e:=(close-dc+(close-open)/2+dc-ref(open,1));
si:=13*e/r*max(aa,bb);
买:sum(si,0),colorff00ff;
卖:ma(买,2),colorffff00;
a3:= 3*si-2*买;
stickline(卖>买,卖,买,10,0),colorffff00;
stickline(买>卖,买,卖,10,0),colorff00ff;
买入:= cross(买,卖);
vertline(买入),pointdot,colorff00ff;
卖岀:= cross(卖,买);
vertline(卖岀),pointdot,colorffff00;







{千钧老师财务主图}

■阻力支撑源碼

input:wn(3,1,255),p1(1,1,255);
drawgbk(close,colorrgb(50,100,120),0,1);
dd0:=ref(day,(barscount(close) - 1));
■上市日期:ref(year,(barscount(close) - 1)),linethick0,colorc0c0c0;
年:ref(month,(barscount(close) - 1)),linethick0,colorc0c0c0;
月:ref(day,(barscount(close) - 1)),linethick0,colorc0c0c0;
日:0,linethick0,colorc0c0c0;
u1:=sysparam(3);
u:=u1-sysparam(2)+1;
hh:=hhv(high,u);
ll:=llv(low,u);
最高:hh[u1],colorc0c0c0;
最低:ll[u1],colorc0c0c0;
wa1:=ref(high,wn)=hhv(high,2*wn+1); wb1:=filter(wa1,wn);
wc1:=backset(wb1,wn+1);
wd1:=filter(wc1,wn);{高点}
wa2:=ref(low,wn)=llv(low,2*wn+1);
wb2:=filter(wa2,wn); wc2:=backset(wb2,wn+1);
wd2:=filter(wc2,wn);{低点}
we1:=(ref(llv(low,2*wn),1)+ref(hhv(high,2*wn),1))/2;
we2:=(high+low)/2;
wh1:=(wd1 and not(wd2 and we1>=we2)) or barstatus=2 or barscount(close)=1;
wl1:=(wd2 and not(wd1 and we1<we2));
wh2:=wd1 and not(wd2 and we1>=we2);
wx1:=ref(barslast(wh1),1)+1; wf1:=backset(wh1 and count(wl1,wx1)>0,llvbars(if(wl1,low,10000),wx1));
wg1:=wf1>ref(wf1,1); wi1:=backset(wg1,2);
wld:=wi1>ref(wi1,1);
wl2:=wld or barstatus=2 or barscount(close)=1;
wx2:=ref(barslast(wl2),1)+1;
wf2:=backset(wl2 and count(wh2,wx2)>0,hhvbars(if(wh2,high,0),wx2));
wg2:=wf2>ref(wf2,1); wi2:=backset(wg2,2);
whd:=wi2>ref(wi2,1);
wr1:=backset(barstatus=2,barslast(whd)+1);
ws1:=wr1>ref(wr1,1);
wt1:=backset(barstatus=2,barslast(wld)+1); wu1:=wt1>ref(wt1,1); {前一低}
wr2:=backset(ws1,ref(barslast(whd),1)+2); ws2:=wr2>ref(wr2,1); {前二高}
wt2:=backset(wu1,ref(barslast(wld),1)+2); wu2:=wt2>ref(wt2,1); {前二低}
wt3:=backset(wu2,ref(barslast(wld),1)+2); wu3:=wt3>ref(wt3,1); {前三低}
wt4:=backset(wu3,ref(barslast(wld),1)+2); wu4:=wt4>ref(wt4,1); {前四低}
wr3:=backset(ws2,ref(barslast(whd),1)+2); ws3:=wr3>ref(wr3,1); {前三高}
wr4:=backset(ws3,ref(barslast(whd),1)+2); ws4:=wr4>ref(wr4,1); {前四高}
drawline(ws2,high,ws1,high,1),color008888;
drawline(wu2,low,wu1,low,1),pointdot,color008888;
drawline(ws3,high,ws2,high,1),color888000;
drawline(wu3,low,wu2,low,1),pointdot,color888000;
drawline(ws4,high,ws3,high,1),color0000cc;
drawline(wu4,low,wu3,low,1),pointdot,color0000cc;
a:=ema(close,3);
b:=ema(close,5);
z:=ema(close,15);
d:=ref(hhv(a,b),z);
aa:=a;
ab:=ma(aa,5);
z:=ma(z,7);
高:=hhv(high,0);
低:=llv(low,0);
dcfl:=cost(95);
scfl:=cost(55);
jcfl:=cost(15);
ch:=cost(5);
di:=cost(0.38);
m:=58;
x:=3;
p:=sysparam(1);
ws:=barpos;
ws1:=if(ws<m,ws,m);
wsp:=p-ws1+1;
wsp1:=ws1-1;
h1:=hhv(high,ws1);
l1:=llv(low,ws1);
hp:=h1[p];
lp:=l1[p];
hlpx:=(hp-lp)/x;
if ws1[p]>1 then begin
drawsl(ws=wsp[p],hp,0,wsp1[p],3),linedot,color008888;
drawsl(ws=wsp[p],lp,0,wsp1[p],3),linedot,color008888;
drawsl(ws=wsp[p],lp+hlpx,0,wsp1[p],3),linedot,color008888;
drawsl(ws=wsp[p],lp+hlpx*2,0,wsp1[p],3),linedot,color008888;
drawnumber(ws=wsp[p],hp,hp,2),shift38,color008888;
drawnumber(ws=wsp[p],lp,lp,2),shift38,color008888;
drawnumber(ws=wsp[p],lp+hlpx,lp+hlpx,2),shift38,color008888;
drawnumber(ws=wsp[p],lp+hlpx*2,lp+hlpx*2,2),shift38,color008888;
end;
k3:=close>open or close=open and close>ref(close,1);
stickline(k3,high,low,0.1,0),colorred;
stickline(k3,open,close,7,1),colorred;
stickline(not(k3),high,low,0.1,0),colorcyan;
stickline(not(k3),close,open,7,0),colorcyan;
市值:=close*capital*volunit/100000000;
股本:=finance(1)/10000;
流通:=finance(7)/10000;
股东总数:=finance(50);
主营业务增长率:=finance(53);
税后利润增长率:=finance(54);
净利润增长率:=finance(55);
人均持股:=(finance( 7)/finance(50))*10000;
市盈率:=dynainfo(39);
市净率:=close/finance(34);
f:=cost(5 );j:=cost(95 );
m:=cost(15 );n:=cost(85 );
f1:=(j-f)/(f+j)*100;m1:=(n-m)/(n+m)*100;
成本集中度:=f1;
莸利比例:=winner(close )*100;
日换手率:=vol/capital*100;
净资产:=finance(34);
净资收益率:=finance(37);
最新收益:=finance(33);
每股未分配:=finance(32);
毛利润率:=finance(21)/finance(20)*100;
净利润率:=finance(30)/finance(20)*100;
股东权益比:=finance(19)/finance(50);
总资产增长率:=finance(56);
每股公积金:=finance(18);
drawtextex(close,1,10,13,'市值:'),linethick1,colorff0000;
drawtextex(close,1,80,13,numtostr(市值,2)+'亿元'),colorff0000;
drawtextex(close,1,220,13,'股本:'),linethick1,colorff0000;
drawtextex(close,1,290,13,numtostr(股本,2)+'亿股'),colorff0000;
drawtextex(close,1,430,13,'流通:'),linethick1,colorff0000;
drawtextex(close,1,500,13,numtostr(流通,2)+'亿股'),colorff0000;
drawtextex(close,1,620,13,'市盈率:'),linethick1,colorff0000;
drawtextex(close,1,720,13,numtostr(市盈率,2)+''),colorff0000;
drawtextex(close,1,830,13,'市净率:'),linethick1,colorff0000;
drawtextex(close,1,920,13,numtostr(市净率,2)+''),colorff0000;
drawtextex(close,1,10,85,'成本集中度:'),linethick2,colorafff00;
drawtextex(close,1,160,85,numtostr(成本集中度,2)+'%'),colorafff00;
drawtextex(close,1,300,85,'莸利比例:'),linethick2,colorafff00;
drawtextex(close,1,410,85,numtostr(莸利比例,2)+'%'),colorafff00;
drawtextex(close,1,620,85,'日换手率:'),linethick2,colorafff00;
drawtextex(close,1,730,85,numtostr(日换手率,2)+'%'),colorafff00;
drawtextex(close,1,830,85,'净资产:'),linethick2,colorafff00;
drawtextex(close,1,920,85,numtostr(净资产,2)+''),colorafff00;
drawtextex(close,1,10,585,'净资收益率:'),linethick2,color00ffff;
drawtextex(close,1,160,585,numtostr(净资收益率,2)+'%'),color00ffff;
drawtextex(close,1,10,157,'最新收益:'),linethick2,color00ffff;
drawtextex(close,1,160,157,numtostr(最新收益,2)+''),color00ffff;
drawtextex(close,1,10,375,'每股未分配:'),linethick2,colorff0080;
drawtextex(close,1,160,375,numtostr(每股未分配,2)+''),colorff0080;
drawtextex(close,1,10,445,'毛利润率:'),linethick2,colorffeebb;
drawtextex(close,1,160,445,numtostr(毛利润率,2)+'%'),colorffeebb;
drawtextex(close,1,10,515,'净利润率:'),linethick2,color007dff;
drawtextex(close,1,160,515,numtostr(净利润率,2)+''),color007dff;
drawtextex(close,1,10,229,'股东权益比:'),linethick2,color00ffff;
drawtextex(close,1,160,229,numtostr(股东权益比,2)+'%'),color00ffff;
drawtextex(close,1,10,301,'每股公积金:'),linethick2,colorffff00;
drawtextex(close,1,160,301,numtostr(每股公积金,2)+''),colorffff00;
drawtextex(close,1,10,655,'股东总数:'),linethick2,colorff80ff;
drawtextex(close,1,160,655,numtostr(股东总数,0)+''),colorff80ff;
drawtextex(close,1,10,725,'人均持股:'),linethick2,colorffffff;
drawtextex(close,1,160,725,numtostr(人均持股,0)+''),colorffffff;
drawtextex(close,1,300,157,'主营业务增长率:'),linethick2,color00ffff;
drawtextex(close,1,490,157,numtostr(主营业务增长率,2)+'%'),color00ffff;
drawtextex(close,1,620,157,'净利润增长率:'),linethick2,color00ffff;
drawtextex(close,1,780,157,numtostr(净利润增长率,2)+'%'),color00ffff;
drawtextex(close,1,300,227,'税后利润增长率:'),linethick2,color00ffff;
drawtextex(close,1,490,227,numtostr(税后利润增长率,2)+'%'),color00ffff;
drawtextex(close,1,620,227,'总资产增长率:'),linethick2,color00ffff;
drawtextex(close,1,780,227,numtostr(总资产增长率,2)+'%'),color00ffff;

指标公式下载地址

上一指标公式：2008年最佳原创之十一：界文粉丝大智慧L2通达信公式 飞狐大智慧粉丝指标 源码

下一指标公式：强选股--天天双飞75.30%公式 飞狐公式指标 源码

相关飞狐公式推荐

指标公式下载注意

☉ 好公式网发布的指标公式主要用于软件技术面分析，仅供参考，勿用于实际操作，据此操作风险自负！

☉ 解压密码：www.goodgongshi.com 就是好公式网域名，希望大家看清楚，切勿输错。

☉ tnc和tni格式指标公式，仅可以用通达信软件引入使用，例如可以用通达信软件引入使用指标公式；

☉ tne格式指标公式，仅可以用通达信软件公式编辑器5.0版导入，高版本兼容低版本；

☉ fnc格式指标公式，可以用大智慧软件新一代高速行情分析系统股票软件使用，少部分可以用分析家软件引入使用；

☉ alg格式指标公式，仅仅可以用飞狐交易师软件引入使用；exp格式指标公式，仅可以用大智慧经典版软件引入使用；

☉ hxf格式指标公式，仅可以用同花顺软件引入使用。

☉ 如果您发现下载软件链接错误，请联系管理员报告错误。

☉ 好公式网欢迎各位网友帮忙宣传转发本站网址，有您的支持，我们会做得更好！

☉ 本文2008年最佳原创之八：●分割角度■量●买卖不会错公式 飞狐角度指标指标 源码仅供学习研究。