鬼变脸宝塔线

sensitivy:=o; towero:=o; towerc:=c; fc:=c;   

i:=2;   

while i<=datacount do begin   

  towero[i]:=towerc[i-1];   

  towerc[i]:=fc[i];   

  sensitivy[i]:=towero[i-1];   

  if (towerc[i-1]-towero[i-1])*(towerc[i-1]-sensitivy[i-1])<=0 then    

    begin    

      towero[i]:=towero[i-1];   

      sensitivy[i]:=towerc[i-1];   

    end    

  else if between(sensitivy[i-1],towero[i-1],towerc[i-1]) then sensitivy[i]:=sensitivy[i-1];   

  i:=i+1;   

end;   

  

tj:=(sensitivy-towero)*(sensitivy-towerc)<=0 and sensitivy<>towerc;   

stickline(tj,max(towero,towerc),sensitivy,7,1), colorred;   

stickline(tj,min(towero,towerc),sensitivy,7,0), color006600;   

stickline(sensitivy<=min(towero,towerc) and not(tj),towero,towerc,7,1), colorred;   

stickline(sensitivy>=max(towero,towerc) and not(tj),towero,towerc,7,0), color006600;   

  

今开盘:TOWERO,LINETHICK0;   

今收盘:TOWERC,LINETHICK0;   

今敏感:sensitivy,LINETHICK0;   

  

三平底翻红: min(towero,towerc)=ref(min(towero,towerc),1) and min(towero,towerc)=ref(min(towero,towerc),2) and max(towero,towerc)>sensitivy,LINETHICK,COLORRED;   

三平顶翻绿: max(towero,towerc)=ref(max(towero,towerc),1) and max(towero,towerc)=ref(max(towero,towerc),2) and min(towero,towerc)

if k=0 then exit;   

DRAWICON(三平底翻红,min(towero,towerc)*0.98,4);DRAWICON(三平顶翻绿,max(towero,towerc)*1.02,5);