测试无法通过，不知道怎么编译
{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;
VAR1:=TDXDLL5(1,H,L,C);
VAR2:=TDXDLL5(2,H,L,笔类型);
DRAWLINE(VAR2=1 ,H,VAR2=-1,L,0),COLORRED;
DRAWLINE(VAR2=-1,L,VAR2=1,H,0),COLORGREEN;
顶底分型:=1;
DRAWICON(VAR1=1 && 顶底分型 ,H, 2);
DRAWICON(VAR1=-1 && 顶底分型,L,1);
DRAWRECTREL(0,965,130,999,RGB(0,0,1)),NOFRAME;
DRAWTEXT_FIX(1,0,1,0,'公式源于教您炒股123社区WWW.JNCG123.COM'),COLOR999999;
谢谢，就是说还是无法实现像通达信那样的，缠论自动画笔
