机构K线(鬼变脸)原码

sensitivy:=-c;
 direction:=c;
 towero:=o;
 towerc:=c;
 fc:=c;
 i:=2;
 while i<=datacount do begin
   if towerc[i]>towero[i] and not(between(sensitivy[i],towero[i],towerc[i])) then
     direction[i]:=1;
   else if towerc[i]<towero[i] and not(between(sensitivy[i],towero[i],towerc[i])) then
          direction[i]:=0;
        else direction[i]:=direction[i-1];
   if not(between(sensitivy[i-1],towero[i-1],towerc[i-1])) then begin
     towero[i]:=towerc[i-1];towerc[i]:=fc[i];
     sensitivy[i]:=towero[i-1];
   end else begin
     towero[i]:=towerc[i-1];towerc[i]:=fc[i];
     sensitivy[i]:=sensitivy[i-1];
   end;
   i:=i+1;
 end;

今开盘:TOWERO,LINETHICK0;
今收盘:TOWERC,LINETHICK0;
敏感位:sensitivy,LINETHICK0;{上面的三句是我加的朋友们不喜欢可以自己删除}

tj:=between(sensitivy,towero,towerc);
 stickline(tj,max(towero,towerc),sensitivy,7,0), colorred;
 stickline(tj,min(towero,towerc),sensitivy,7,0), colorgreen;
 stickline(sensitivy<towerc and not(tj),towero,towerc,7,0), colorred;
 stickline(sensitivy>towerc and not(tj),towero,towerc,7,0), colorgreen;
 stickline((towerc=towero or sensitivy=towerc) and direction=0,towero,towerc,7,0),colorgreen;
 stickline((towerc=towero or sensitivy=towerc) and direction=1,towero,towerc,7,0),colorred;