禅师缠论顶底分型公式[其他软件公式]

相关标签:顶底分型主图指标公式 、 通达信顶底分型公式 、 顶底分型选股公式 、 60分顶底指标公式 、 缠论顶底分型指标 、 缠论顶底分型公式 、 顶分型和底分型的确认 、 底分型和顶分型结构 、 波段顶底指标公式 、 通达信顶底指标公式 、 趋势顶底指标公式 、 分时底顶指标公式 、 大盘顶底指标公式 、 现货顶底指标公式 、 顶底分型主图公式 、

禅师的顶底分型公式编了一个禅师的顶底分型公式。有很多可以改进的地方，如果那位高手能改进，请指出，感谢至极。
昨天请教了一个问题，感谢回答的那个兄弟。
图中晶红色表示底分型成立，绿色表示顶分型成立。
这个的特点就是按禅师的原意写的源码

原理解析：
L1赋值:1日前的最低价 L2赋值:2日前的最低价 H1赋值:1日前的最高价 H2赋值:2日前的最高价 F2赋值:如果最高价>H1ANDL>L1,返回1,否则返回如果最高价<H1ANDL<L1,返回-1,否则返回0 FF赋值:收盘价 HH赋值:最高价 LL赋值:最低价 输出VARIABLE:X=0,K=2,KK=0,KKK=0,A=F2 THENBEGINX赋值:X+F2[K+1] K赋值:K+1 END ELSEBREAK KK赋值:K KKK赋值:DATACOUNT-1 赋值:如果HH[K+1]>HH[K]ANDLL[K+1]>LL[K],返回1,否则返回如果HH[K+1]<HH[K]ANDLL[K+1]<LL[K],返回-1,否则返回0 赋值:HH[K+1]和HH[K]的较大值 赋值:LL[K+1]和LL[K]的较大值 赋值:0.5 K赋值:K+1 END 赋值:HH[K+1]和HH[K]的较小值 赋值:LL[K+1]和LL[K]的较小值 赋值:-0.5 K赋值:K+1 END ELSEK赋值:K+1 END AA赋值:SETLBOUND(FF,KK+1) 赋值:如果F2[I-1]>0ANDF2[I]<0,返回-1,否则返回如果F2[I-1]<0ANDF2[I]>0,返回1,否则返回0 当满足条件FF=1时,在最低价和最高价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画洋红色

源码：

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.cxh99.com }

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】