新手,编了一个禅师的顶底分型公式。有很多可以改进的地方,如果那位高手能改进,请指出,感谢至极。
图中晶红色表示底分型成立,绿色表示底分型成立。
这个的特点就是按禅师的原意写的(我是这么认为的,o(∩_∩)o~)
l1:=ref(l,1);l2:=ref(l,2);h1:=ref(h,1);h2:=ref(h,2);
f2:=if(h>h1 and l>l1,1,if(h<h1 and l<l1,-1,0));{上1,下-1.包含0}
ff:=c;
hh:=h;
ll:=l;
variable:x=0,k=2,kk=0,kkk=0,a=f2;
while x=0 do
if f2[k]=0 then
begin
x:=x+f2[k+1];
k:=k+1;
end;
else
break;
kk:=k;
kkk:=datacount-1;
for i=kk to kkk do
begin
f2[k+1]:=if(hh[k+1]>hh[k] and ll[k+1]>ll[k],1,if(hh[k+1]<hh[k] and ll[k+1]<ll[k],-1,0));{上1,下-1.包含0}
if f2[k+1]=0 then
if f2[k]>0
then
begin
hh[k+1]:=max(hh[k+1],hh[k]);
ll[k+1]:=max(ll[k+1],ll[k]);
f2[k+1]:=0.5;
k:=k+1;
end;
else
begin
hh[k+1]:=min(hh[k+1],hh[k]);
ll[k+1]:=min(ll[k+1],ll[k]);
f2[k+1]:=-0.5;
k:=k+1;
end;
else
k:=k+1;
end;
aa:=setlbound(ff,kk+1);
for i=kk+1 to datacount do
ff[i]:=if(f2[i-1]>0 and f2[i]<0,-1,if(f2[i-1]<0 and f2[i]>0,1,0));
stickline(ff=1,l,h,2,0),colormagenta;
stickline(ff=-1,l,h,2,0),colorgreen;
上一指标公式:顺势买卖版本公式下载 飞狐顺势公式指标 源码
下一指标公式:网上找来的特别好的换手率公式下载 飞狐很好公式指标 源码
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文按禅师原意写的顶底分型公式下载 飞狐公式源码指标 源码仅供学习研究。