禅师的顶底分型公式 EA

禅师的顶底分型公式

rn

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

rn

源码

rn

L1:=ref(L,1);L2:=ref(L,2);H1:=ref(H,1);H2:=ref(H,2);
rnF2:=IF(H>H1 AND L>L1,1,IF(H<H1 AND L<L1,-1,0));{上1，下-1.包含0}
rnFF:=c;
rnHH:=h;
rnLL:=l;
rnvariable:x=0,k=2,kk=0,kkk=0,a=F2;
rnwhile x=0 do
rn  if F2[k]=0 then
rn    begin
rn    x:=x+F2[k+1];
rn    k:=k+1;
rn    end;
rn  else
rn    break;
rnkk:=k;
rnkkk:=datacount-1;
rnfor i=kk to kkk do
rn  begin
rn  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}
rn    if F2[k+1]=0 then
rn      if F2[k]>0
rn        then
rn          begin
rn          HH[k+1]:=max(HH[k+1],HH[k]);
rn          LL[k+1]:=max(LL[k+1],LL[k]);
rn          F2[k+1]:=0.5;
rn          k:=k+1;
rn          end;
rn      else
rn          begin
rn          HH[k+1]:=min(HH[k+1],HH[k]);
rn          LL[k+1]:=min(LL[k+1],LL[k]);
rn          F2[k+1]:=-0.5;
rn          k:=k+1;
rn          end;
rn    else
rn  k:=k+1;
rn  end;
rnaa:=setlbound(FF,kk+1);
rnfor i=kk+1 to datacount do
rn  FF[i]:=if(F2[i-1]>0 and F2[i]<0,-1,if(F2[i-1]<0 and F2[i]>0,1,0));
rnstickline(FF=1,l,h,2,0),COLORMAGENTA;
rnstickline(FF=-1,l,h,2,0),COLORGREEN;

rn