自动K线处理（通达信公式 主图 源码 测试图）

 {自动K线处理}

{K线方向划定}

MA1K高:=IF(H>REF(H,1),1,IF(H=REF(H,1),0,IF(H<REF(H,1),-1,0)));

MA1K低:=IF(L>REF(L,1),1,IF(L=REF(L,1),0,IF(L<REF(L,1),-1,0)));

MA1K:=MA1K高+MA1K低;{双向上行=2,双下行=-2,双齐平=0; 单向上=1, 单向下=-1, 前包后或后包前=0}

MA1K昨:=REF(MA1K,1);

上:STICKLINE(MA1K=2,H,L,1.8,0)COLOR0000BD;

下:STICKLINE(MA1K=-2,H,L,1.8,0)COLOR008000;

包:STICKLINE(RANGE(MA1K,-2,2),H,L,2.5,1)COLORFF8000;

平上:STICKLINE(MA1K=1,H,L,2.5,1)COLORFF0000;

平下:STICKLINE(MA1K=-1,H,L,2.5,1)COLORFF0000;

平包:STICKLINE(MA1K=0 AND H=REF(H,1) AND L=REF(L,1),H,L,2.5,1)COLOR979700;

{STICKLINE(O<=C,H,L,0,0)COLOR0000FF;STICKLINE(O>C,H,L,0,0)COLORCYAN;

STICKLINE(O<=C,O,C,1,0)COLOR0000CB;STICKLINE(O>C,O,C,1,0)COLORBABA00;}

昨上H:=IF(MA1K昨=2 AND REF(H,1),REF(H,1),DRAWNULL);昨上L:=IF(MA1K昨=2 AND REF(L,1),REF(L,1),DRAWNULL);

昨下H:=IF(MA1K昨=-2 AND REF(H,1),REF(H,1),DRAWNULL);昨下L:=IF(MA1K昨=-2 AND REF(L,1),REF(L,1),DRAWNULL);

{STICKLINE(昨H=REF(H,1) AND 昨L=REF(L,1),昨H,昨L,2,1)COLORBLUE;}

 

包K:=RANGE(MA1K,-2,2);

包K上:STICKLINE(包K AND 昨上H=REF(H,1) AND 昨上L=REF(L,1) AND 昨上H>=REF(H,2),HHV(H,2),HHV(L,2),1,0)COLORMAGENTA;

包K下:STICKLINE(包K AND 昨下H=REF(H,1) AND 昨下L=REF(L,1) AND 昨下L<=REF(L,2),LLV(L,2),LLV(H,2),1,0)COLORGREEN;

 

上包K1H:=IF(包K AND MA1K昨=2 AND 昨上H=REF(H,1) AND 昨上L=REF(L,1) AND 昨上H>=REF(H,2),HHV(H,2),DRAWNULL);

上包K1L:=IF(包K AND MA1K昨=2 AND 昨上H=REF(H,1) AND 昨上L=REF(L,1) AND 昨上H>=REF(H,2),HHV(L,2),DRAWNULL);

包K1上:STICKLINE(MA1K昨=2 AND 上包K1H AND 上包K1L, 上包K1H,上包K1L,1,0)COLORFF24FF;

 

下包K1H:=IF(包K AND MA1K昨=-2 AND 昨下H=REF(H,1) AND 昨下L=REF(L,1) AND 昨下L<=REF(L,2),LLV(H,2),DRAWNULL);

下包K1L:=IF(包K AND MA1K昨=-2 AND 昨下H=REF(H,1) AND 昨下L=REF(L,1) AND 昨下L<=REF(L,2),LLV(L,2),DRAWNULL);

包K1下:STICKLINE(MA1K昨=-2 AND 下包K1H AND 下包K1L, 下包K1H,下包K1L,1,0)COLOR00FF00;

 

MA1K昨3:=REF(MA1K,3); 昨3非包含:=MA1K昨3=-2 OR MA1K昨3=2;

MA1K昨2:=REF(MA1K,2); 昨2包含:=RANGE(MA1K昨2,-2,2);

 

有包含关系下0:=RANGE(MA1K昨,-2,2) AND 包K AND H>=REF(下包K1H,1) AND L<=REF(下包K1L,1);

有包含关系下00:=RANGE(MA1K昨,-2,2) AND 包K AND H<=REF(下包K1H,1) AND L>=REF(下包K1L,1);

有包含关系下:=有包含关系下0 OR 有包含关系下00;

双下包外:STICKLINE(有包含关系下0 AND 昨3非包含 AND REF(下包K1H,1)<=REF(H,3),REF(下包K1H,1),L,1,0)COLOR408000;

双下包内:STICKLINE(有包含关系下00 AND 昨3非包含 AND REF(下包K1H,1)<=REF(H,3),H,REF(下包K1L,1),1,0)COLOR408000;

三下包外:STICKLINE(有包含关系下0 AND 昨2包含  AND REF(下包K1H,1)<=REF(下包K1H,2),REF(下包K1H,1),L,1,0)COLORBLUE;

三下包内:STICKLINE(有包含关系下00 AND 昨2包含  AND REF(下包K1H,1)<=REF(下包K1H,2),H,REF(下包K1L,1),1,0)COLORBLUE;

 

有包含关系上0:=RANGE(MA1K昨,-2,2) AND 包K AND H>=REF(上包K1H,1) AND L<=REF(上包K1L,1);

有包含关系上00:=RANGE(MA1K昨,-2,2) AND 包K AND H<=REF(上包K1H,1) AND L>=REF(上包K1L,1);

有包含关系上:=有包含关系上0 OR 有包含关系上00;

双上包外K2:STICKLINE(有包含关系上0 AND 昨3非包含 AND REF(上包K1H,1)>=REF(H,3),H,REF(上包K1L,1),1,0)COLORFF33FF;

双上包内K02:STICKLINE(有包含关系上00 AND 昨3非包含 AND REF(上包K1H,1)>=REF(上包K1H,2),REF(上包K1H,1),L,1,0)COLORFF33FF;

三上包外K2:STICKLINE(有包含关系上0 AND 昨2包含 AND REF(上包K1H,1)>=REF(上包K1H,2),H,REF(上包K1L,1),1,0)COLORFF00FF;

三上包内K02:STICKLINE(有包含关系上00 AND 昨2包含  AND REF(上包K1H,1)>=REF(上包K1H,2),REF(上包K1H,1),L,1,0)COLORFF00FF;

 

p20198300293782859.jpg