股票箱最好的箱体公式 飞狐箱体股票指标 源码

指标公式详细说明

股票箱

fh:=high;
fl:=low;
sell:=0*fh;
buy:=sell;
signal:=sell;
boxh:sell,linethick0;
boxl:sell,linethick0;
variable:hc=0,lc=0,bt=fh[1],bb=fh[1];
for i=1 to datacount do begin
if hc>1 then begin
if lc>2 and bt<=fh[i] then begin
buy[i]:=1;
for j=i-1 downto i-hc do begin
boxh[j]:=fh[i-hc],linethick0;
boxl[j]:=fl[i-lc],linethick0;
end;
hc:=0;
lc:=0;
end;
if bt>fh[i] then begin
if lc>2 then begin
if bb>=fl[i] then begin
sell[i]:=1;
for j=i-1 downto i-hc do begin
boxh[j]:=fh[i-hc],linethick0;
boxl[j]:=fl[i-lc],linethick0;
end;
hc:=-1;
lc:=0;
end;else begin
boxh[i]:=fh[i-hc],linethick0;
boxl[i]:=fl[i-lc],linethick0;
end;
end;
hc:=hc+1;
if lc>1 then begin
if bb<fl[i] then begin
lc:=lc+1;
if lc=3 then begin
signal[i-hc+1]:=1;
for j=i downto i-hc+1 do begin
boxh[j]:=fh[i-hc+1],linethick0;
boxl[j]:=fl[i-lc+1],linethick0;
end;
end;
end;else
lc:=0;
end;else
if lc=1 then begin
if bb<fl[i] then begin
lc:=lc+1;
end;else
lc:=0;
end;
if lc=0 and hc>1 then begin
bb:=fl[i];
lc:=lc+1;
end;
end;else begin
hc:=0;
lc:=0;
end;
end;else
if hc=1 then begin
if bt>fh[i] then
hc:=hc+1;else begin
hc:=0;
lc:=0;
end;
end;
if hc=0 then begin
bt:=fh[i];
hc:=hc+1;
end;
end;
partline(boxh and boxh=ref(boxh,1),boxh),pointdot,colorffff;
partline(boxl and boxl=ref(boxl,1),boxl),pointdot,colorffff;
partline(boxl and boxl=ref(boxl,1),(boxl+boxh)/2),pointdot,colorffff;
stickline((signal or refx(buy or sell,1)) and boxh,boxh,boxl,0.1,0),pointdot,colorffff;
drawicon(buy,low*0.98,4);
drawicon(sell,high*1.02,5);
boxhl:=(boxl+boxh)/2;
hac:=close;
variable:ha=1;
for i=2 to datacount do begin
if boxh[i-1]=0 and boxh[i]>0 and (boxh[i]<>boxh[i-1] or boxl[i]<>boxl[i-1]) then
hac[i]:=0;
if boxh[i-1]>0 and boxh[i]>0 and (boxh[i]<>boxh[i-1] or boxl[i]<>boxl[i-1]) then
hac[i]:=0;
if boxh[i-1]>0 and boxh[i]>0 and boxh[i]=boxh[i-1] and boxl[i]<>boxl[i-1] then
hac[i]:=0;
if boxh[i-1]>0 and boxh[i]>0 and boxh[i]=boxh[i-1] and boxl[i]=boxl[i-1] then
hac[i]:=ha;
if boxh[i-1]>0 and boxh[i]>0 and boxh[i]=boxh[i-1] and boxl[i]<>boxl[i-1] then
hac[i]:=ha;
if boxh[i-1]>0 and boxh[i]>0 and boxh[i]=boxh[i-1] and boxh[i-2]=boxh[i-1] then
hac[i]:=hac[i-1]+ha;
if boxh[i-1]>0 and boxh[i]=0 then
hac[i]:=0;
if boxh[i-1]=0 and boxh[i]=0 then
hac[i]:=0;
end;
nv:=hac;
kk:=hac[1];
ll:=hac[1];
llt:=hac[1];
mm:=hac[1];
mmt:=hac[1];
for i=2 to datacount do begin
if hac[i-1]=0 and hac[i]>0 then
kk:=i-1;
if hac[i-1]>0 and hac[i]>0 then
llt:=i-1;
if hac[i-1]>0 and hac[i]>0 then
for j=kk to llt do begin
nv[j]:=hac[i]+1;
end;
if hac[i-1]>0 and hac[i]=0 then
ll:=i-1;
if hac[i-1]>0 and hac[i]=0 then
for j=kk to ll do begin
nv[j]:=hac[i-1]+1;
end;
end;
xx:=nv;
bb25:=(boxh-boxl)/(nv-1)*if(islastbar,hac-1,hac)*(tan(-26.5659*3.14159/180))+boxh;
partline(ref(bb25,1)<>0 and boxh=ref(boxh,1) and bb25>0 and bb25>boxl-boxl*0.05,bb25),pointdot,linethick1,colorff00ff;
drawline(bb25>0 and bb25=boxh and barscount(close)>datacount-45,bb25,bb25>0 and bb25=boxl and barscount(close)>datacount-45,bb25,1),colorff00ff;
bb45:=(boxh-boxl)/(nv-1)*if(islastbar,hac-1,hac)*(tan(-45*3.14159/180))+boxh;
partline(ref(bb45,1)<>0 and boxh=ref(boxh,1) and bb45>0 and bb45>boxl-boxl*0.05,bb45),linethick1,colorff00ff;
drawline(bb45>0 and bb45=boxh and barscount(close)>datacount-45,bb45,bb45>0 and bb45=boxl and barscount(close)>datacount-45,bb45,1),colorff00ff;
bb66:=(boxh-boxl)/(nv-1)*if(islastbar,hac-1,hac)*(tan(-63.435*3.14159/180))+boxh;
partline(ref(bb66,1)<>0 and boxh=ref(boxh,1) and bb66>0 and bb66>boxl-boxl*0.025,bb66),pointdot,linethick1,colorff00ff;
xbb23:=(boxh-boxl)/(nv-1)*if(islastbar,hac-1,hac)*tan(26.5659*3.14159/180)+boxl;
partline(xbb23>0 and xbb23>boxl and xbb23<boxh+boxh*0.05,xbb23),pointdot,linethick1,colorff00;
drawline(xbb23>0 and xbb23=boxl and barscount(close)>datacount-45,xbb23,xbb23>0 and xbb23=boxh and barscount(close)>datacount-45,xbb23,1),colorff00;
xbb45:=(boxh-boxl)/(nv-1)*if(islastbar,hac-1,hac)*tan(45*3.14159/180)+boxl;
partline(xbb45>0 and xbb45>boxl and xbb45<boxh+boxh*0.05,xbb45),linethick1,colorff00;
drawline(xbb45>0 and xbb45=boxl and barscount(close)>datacount-45,xbb45,xbb45>0 and xbb45=boxh and barscount(close)>datacount-45,xbb45,1),colorff00;
xbb66:=(boxh-boxl)/(nv-1)*if(islastbar,hac-1,hac)*tan(63.435*3.14159/180)+boxl;
partline(xbb66>0 and xbb66>boxl and xbb66<boxh+boxh*0.025,xbb66),pointdot,linethick1,colorff00;
ac:=close;
ah:=high;
al:=low;
ao:=open;
stickline(ac>=ao,ah,ac,1,0),color8899;
stickline(ac>=ao,ah,ac,0,0),color77ffee;
stickline(ac>=ao,ao,al,1,0),color8899;
stickline(ac>=ao,ao,al,0,0),color77ffee;
stickline(ac>ao,ac,ao,8,0),color8899;
stickline(ac>ao,ac,ao,7,0),color1199aa;
stickline(ac>ao,ac,ao,6,0),color22aabb;
stickline(ac>ao,ac,ao,5,0),color33bbcc;
stickline(ac>ao,ac,ao,4,0),color44ccdd;
stickline(ac>ao,ac,ao,3,0),color55ddee;
stickline(ac>ao,ac,ao,2,0),color66eeee;
stickline(ac>ao,ac,ao,1,0),color77ffee;
stickline(ac<=ao,ah,ac,1,0),colorff8800;
stickline(ac<=ao,ah,ac,0,0),colorffff33;
stickline(ac<=ao,ao,al,1,0),colorff8800;
stickline(ac<=ao,ao,al,0,0),colorffff33;
stickline(ac<=ao,ac,ao,8,0),colorff8800;
stickline(ac<=ao,ac,ao,7,0),colorff9900;
stickline(ac<=ao,ac,ao,6,0),colorffaa11;
stickline(ac<=ao,ac,ao,5,0),colorffbb11;
stickline(ac<=ao,ac,ao,4,0),colorffcc22;
stickline(ac<=ao,ac,ao,3,0),colorffdd22;
stickline(ac<=ao,ac,ao,2,0),colorffee33;
stickline(ac<=ao,ac,ao,1,0),colorffff33;

指标公式下载地址

上一指标公式：大盘趋势副图公式 飞狐源码趋势指标 源码

下一指标公式：大底趋势主图公式 飞狐趋势主图指标 源码

相关飞狐公式推荐

指标公式下载注意

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

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

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

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

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

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

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

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

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

☉ 本文股票箱最好的箱体公式 飞狐箱体股票指标 源码仅供学习研究。