当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：自动K线处理（通达信公式 主图 源码 测试图）
软件名称：[B]自动K线处理（通达信公式 主图 源码 测试图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2020-01-04 17:35:11
软件简介:
{自动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;
[url=http://www.70822.com/soft/sort013/sort05/down-140227.html]自动K线处理（通达信公式 主图 源码 测试图）[/url]