打印本文
關(guān)閉窗口
K線包含關(guān)系的順序原則：先用第1、2根K線的包含關(guān)系確認(rèn)新的K線，然后用新的K線去和第3根比，如果有包含關(guān)系，繼續(xù)用包含關(guān)系的法則結(jié)合成新的K線；如果沒有，就按正常K線去處理。
程序代碼：
runmode:1;//序列模式；
i:=BARPOS;
variable:up1=0;//定義一個數(shù)組用來存放向上包含的k線高點；
variable:up2=0;//定義一個數(shù)組用來存放向上包含的k線低點；
variable:dn1=0;//定義一個數(shù)組用來存放向下包含的k線高點；
variable:dn2=0;//定義一個數(shù)組用來存放向下包含的k線低點；
beforehigh:=high[2];
beforelow:=low[2];
thishigh:=high[3];
thislow:=low[3];
upordn:=BARPOS;
aa:=setlbound(high,2);//設(shè)置序列變量high的下界為2，起始有效變量從第2根k線開始；
bb:=setlbound(low,2);//設(shè)置序列變量low的下界為2，起始有效變量從第2根k線開始；
for i=3 to BARPOS do//循環(huán)開始
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 //通過該循環(huán)對向上/向下數(shù)組循環(huán)賦值（將最近的up和dn數(shù)組值賦值給前一k線的高低點以便于和最新的k線高低點進(jìn)行比較）
thishigh=high[i];
thislow=low[i];
if ((ThisHigh>=BeforeHigh) AND (ThisLow<=BeforeLow)) OR ((ThisHigh<=BeforeHigh) AND (ThisLow>=BeforeLow)) //循環(huán)開始，開始判斷包含關(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 //沒有包含關(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); //該語句參數(shù)需要調(diào)整確認(rèn)
dd:=stickline(dn1[i]<dn2[i],dn1[i],dn2[i],8,1,colorred); //該語句參數(shù)需要調(diào)整確認(rèn)
end；
系統(tǒng)在剛進(jìn)入循環(huán)，if up1[i-1]>0 then 語句處，提醒說 數(shù)組越界操作； 盼請各位大拿開藥方診斷~！！！