{通達(dá)信主圖自動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); 有包含關(guān)系下0:=RANGE(MA1K昨,-2,2) AND 包K AND H>=REF(下包K1H,1) AND L<=REF(下包K1L,1); 有包含關(guān)系下00:=RANGE(MA1K昨,-2,2) AND 包K AND H<=REF(下包K1H,1) AND L>=REF(下包K1L,1); 有包含關(guān)系下:=有包含關(guān)系下0 OR 有包含關(guān)系下00; 雙下包外:STICKLINE(有包含關(guān)系下0 AND 昨3非包含 AND REF(下包K1H,1)<=REF(H,3),REF(下包K1H,1),L,1,0)COLOR408000; 雙下包內(nèi):STICKLINE(有包含關(guān)系下00 AND 昨3非包含 AND REF(下包K1H,1)<=REF(H,3),H,REF(下包K1L,1),1,0)COLOR408000; 三下包外:STICKLINE(有包含關(guān)系下0 AND 昨2包含 AND REF(下包K1H,1)<=REF(下包K1H,2),REF(下包K1H,1),L,1,0)COLORBLUE; 三下包內(nèi):STICKLINE(有包含關(guān)系下00 AND 昨2包含 AND REF(下包K1H,1)<=REF(下包K1H,2),H,REF(下包K1L,1),1,0)COLORBLUE; 有包含關(guān)系上0:=RANGE(MA1K昨,-2,2) AND 包K AND H>=REF(上包K1H,1) AND L<=REF(上包K1L,1); 有包含關(guān)系上00:=RANGE(MA1K昨,-2,2) AND 包K AND H<=REF(上包K1H,1) AND L>=REF(上包K1L,1); 有包含關(guān)系上:=有包含關(guān)系上0 OR 有包含關(guān)系上00; 雙上包外K2:STICKLINE(有包含關(guān)系上0 AND 昨3非包含 AND REF(上包K1H,1)>=REF(H,3),H,REF(上包K1L,1),1,0)COLORFF33FF; 雙上包內(nèi)K02:STICKLINE(有包含關(guān)系上00 AND 昨3非包含 AND REF(上包K1H,1)>=REF(上包K1H,2),REF(上包K1H,1),L,1,0)COLORFF33FF; 三上包外K2:STICKLINE(有包含關(guān)系上0 AND 昨2包含 AND REF(上包K1H,1)>=REF(上包K1H,2),H,REF(上包K1L,1),1,0)COLORFF00FF; 三上包內(nèi)K02:STICKLINE(有包含關(guān)系上00 AND 昨2包含 AND REF(上包K1H,1)>=REF(上包K1H,2),REF(上包K1H,1),L,1,0)COLORFF00FF;
|
|
|
