K線包含關(guān)系的順序原則：先用第1、2根K線的包含關(guān)系確認(rèn)新的K線，然后用新的K線去和第3根比，如果有包含關(guān)系，繼續(xù)用包含關(guān)系的法則結(jié)合成新的K線；如果沒(méi)有，就按正常K線去處理。

    程序代碼：

runmode:1;//序列模式；

i:=BARPOS;

variable:up1=0;//定義一個(gè)數(shù)組用來(lái)存放向上包含的k線高點(diǎn)；

variable:up2=0;//定義一個(gè)數(shù)組用來(lái)存放向上包含的k線低點(diǎn)；

variable:dn1=0;//定義一個(gè)數(shù)組用來(lái)存放向下包含的k線高點(diǎn)；

variable:dn2=0;//定義一個(gè)數(shù)組用來(lái)存放向下包含的k線低點(diǎn)；

beforehigh:=high[2];

beforelow:=low[2];

thishigh:=high[3];  

thislow:=low[3];

upordn:=BARPOS;

aa:=setlbound(high,2);//設(shè)置序列變量high的下界為2，起始有效變量從第2根k線開(kāi)始；

bb:=setlbound(low,2);//設(shè)置序列變量low的下界為2，起始有效變量從第2根k線開(kāi)始；

for i=3 to BARPOS do//循環(huán)開(kāi)始

begin

    upordn:=i;

    if up1[i-1]>0 then 

      begin

            beforehigh=up1[i-1];

            beforelow=up2[i-1];

            upordn=1;

             end

    if dn1[i-1]>0 then

      begin

            beforehigh=dn1[i-1]; 

            beforelow=dn2[i-1];

            upordn=-1;

              end

    else begin

            beforehigh=high[i-1];

            beforelow=low[i-1];

              end                 //通過(guò)該循環(huán)對(duì)向上/向下數(shù)組循環(huán)賦值（將最近的up和dn數(shù)組值賦值給前一k線的高低點(diǎn)以便于和最新的k線高低點(diǎn)進(jìn)行比較）

         thishigh=high[i];

         thislow=low[i];

   if ((ThisHigh>=BeforeHigh) AND (ThisLow<=BeforeLow)) OR ((ThisHigh<=BeforeHigh) AND (ThisLow>=BeforeLow)) //循環(huán)開(kāi)始，開(kāi)始判斷包含關(guān)系；

      then begin 

        if upordn=1 then //向上包含

          Up1[i] = MAX(ThisHigh, BeforeHigh);

          Up2[i] = MAX(ThisLow, BeforeLow);

          up1[i-1]=up1[i];

          up2[i-1]=up2[i];

        if upordn=-1 then //向下包含

           dn1[i]=MIN(thishigh,beforehigh);

           dn2[i]=MIN(thislow,beforelow);

           dn1[i-1]=dn1[i];

           dn2[i-1]=dn2[i];

      end;

     else  //沒(méi)有包含關(guān)系

          if thishigh>beforehigh  then  begin//向上

             up1[i]=thishigh;

             up2[i]=thislow;            end;

          if thislow<beforelow then begin//向下

               dn1[i]=thishigh;

               dn2[i]=thislow;         end;

cc:=stickline(up1[i]>up2[i],up1[i],up2[i],8,1,colorblue);  //該語(yǔ)句參數(shù)需要調(diào)整確認(rèn)

dd:=stickline(dn1[i]<dn2[i],dn1[i],dn2[i],8,1,colorred);  //該語(yǔ)句參數(shù)需要調(diào)整確認(rèn)

 end；

系統(tǒng)在剛進(jìn)入循環(huán)，if up1[i-1]>0 then  語(yǔ)句處，提醒說(shuō) 數(shù)組越界操作； 盼請(qǐng)各位大拿開(kāi)藥方診斷~！！！