INPUT:W(30);hh:=h;ll:=l;
FOR N=DATACOUNT-1 DOWNTO DATACOUNT-WDO begin
FOR P=0TO DATACOUNT-(N+1) DO begin
IF HH[N]>HH[DATACOUNT-P] AND LL[N]<LL[DATACOUNT-P] then BREAK;
end;
IF HH[N]>HH[DATACOUNT-P] AND LL[N]<LL[DATACOUNT-P] then BREAK;
end;
长K线:N=BARPOS,LINETHICK,COLOR00FFFF ;//能向后包容的长K线
被包K线:DATACOUNT-P=BARPOS,LINETHICK,COLORFF55FF ;// 最后一个被包容的K线
PARTLINE(BARPOS>n,hh[n]) ;
PARTLINE(BARPOS>n,ll[n]);
STICKLINE(BARPOS=N,C,O,8,0),COLOR00FFFF ;
STICKLINE(DATACOUNT-P=BARPOS,C,O,8,0),COLORFF55FF ;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
