3分钟等距线

下图是评论区网友的留言截图：

本文的算法包含了两个方面的内容：

一、3分钟周期的第一根K线标示显著颜色；

二、对3分钟周期的第一根K线做纵向等距画线—阳线向上画水平线；阴线向下画水平线。

（一）、思路步骤：

1.应用BARSLAST函数对当前日的分钟周期的第一个数据的位置进行确定；

2.限定首根数据的位置条件并计算其基本数据；

3.首根数据的上涨变色条件及满足条件下的颜色标识；

4.首根数据的下跌变色条件及满足条件下的颜色标识；

5.首根数据的最大振幅；

6. 首根数据的上涨条件以及输出等距水平画线—

重点是应用IF函数的条件切换功能，实现了向下水平画线与向上的水平画线。

（二）、算法的建立过程：

1. 当前日的分钟周期的第一个数据的位置

WZ:=CONST(BARSLAST(DAY!=REF(DAY,1)));

2. 首根数据的位置条件及其基本数据

WZTJ:=CURRBARSCOUNT<=WZ+1;

WZH:IF(WZTJ,CONST(REF(H,WZ)),DRAWNULL);

WZO:=IF(WZTJ,CONST(REF(O,WZ)),DRAWNULL);

WZL:IF(WZTJ,CONST(REF(L,WZ)),DRAWNULL);

WZC:=IF(WZTJ,CONST(REF(C,WZ)),DRAWNULL);

3. 首根数据的上涨变色条件及满足条件下的颜色标识

ZTJ:=WZC>=WZO AND CURRBARSCOUNT=WZ+1; {涨条件}

STICKLINE(ZTJ,WZH,WZL,0,0),COLOR0000FF;

STICKLINE(ZTJ,WZC,WZO,3,0),COLOR000099;

STICKLINE(ZTJ,WZC,WZO,2,0),COLOR0000BB;

STICKLINE(ZTJ,WZC,WZO,1,0),COLOR0000DD;

STICKLINE(ZTJ,WZC,WZO,0.3,0),COLOR0000FF;

4. 首根数据的下跌变色条件及满足条件下的颜色标识

DTJ:=WZC<WZO AND CURRBARSCOUNT=WZ+1;

STICKLINE(DTJ,WZH,WZL,0,0),COLOR00FF00;

STICKLINE(DTJ,WZC,WZO,3,0),COLOR009900;

STICKLINE(DTJ,WZC,WZO,2,0),COLOR00BB00;

STICKLINE(DTJ,WZC,WZO,1,0),COLOR00DD00;

STICKLINE(DTJ,WZH,WZL,0,1),COLORGREEN;

STICKLINE(DTJ,WZC,WZO,3.2,0),COLOR006600;

STICKLINE(DTJ,WZC,WZO,2.6,0),COLOR008800;

STICKLINE(DTJ,WZC,WZO,1.9,0),COLOR00AA00;

STICKLINE(DTJ,WZC,WZO,1.1,0),COLOR00CC00;

STICKLINE(DTJ,WZC,WZO,0.3,0),COLOR00FF00;

5. 首根数据的最大振幅

JJ:=WZH-WZL;{间距}

6.首根数据的上涨条件2以及输出等距水平画线，重点是IF函数的条件切换，实现了向下水平画线与向上的水平画线

ZTJ2:=WZC>=WZO;{涨条件2}

IF(ZTJ2,WZH+JJ*(1+M),WZL-JJ*(1+M));

IF(ZTJ2,WZH+JJ*(2+M),WZL-JJ*(2+M));

IF(ZTJ2,WZH+JJ*(3+M),WZL-JJ*(3+M));

IF(ZTJ2,WZH+JJ*(4+M),WZL-JJ*(4+M));

IF(ZTJ2,WZH+JJ*(5+M),WZL-JJ*(5+M));

IF(ZTJ2,WZH+JJ*(6+M),WZL-JJ*(6+M));

（三）、主图标注算法的完整代码：

WZ:=CONST(BARSLAST(DAY!=REF(DAY,1)));

WZTJ:=CURRBARSCOUNT<=WZ+1;

WZH:IF(WZTJ,CONST(REF(H,WZ)),DRAWNULL);

WZO:=IF(WZTJ,CONST(REF(O,WZ)),DRAWNULL);

WZL:IF(WZTJ,CONST(REF(L,WZ)),DRAWNULL);

WZC:=IF(WZTJ,CONST(REF(C,WZ)),DRAWNULL);

ZTJ:=WZC>=WZO AND CURRBARSCOUNT=WZ+1; {涨条件}

STICKLINE(ZTJ,WZH,WZL,0,0),COLOR0000FF;

STICKLINE(ZTJ,WZC,WZO,3,0),COLOR000099;

STICKLINE(ZTJ,WZC,WZO,2,0),COLOR0000BB;

STICKLINE(ZTJ,WZC,WZO,1,0),COLOR0000DD;

STICKLINE(ZTJ,WZC,WZO,0.3,0),COLOR0000FF;

DTJ:=WZC<WZO AND CURRBARSCOUNT=WZ+1;

STICKLINE(DTJ,WZH,WZL,0,0),COLOR00FF00;

STICKLINE(DTJ,WZC,WZO,3,0),COLOR009900;

STICKLINE(DTJ,WZC,WZO,2,0),COLOR00BB00;

STICKLINE(DTJ,WZC,WZO,1,0),COLOR00DD00;

STICKLINE(DTJ,WZH,WZL,0,1),COLORGREEN;

STICKLINE(DTJ,WZC,WZO,3.2,0),COLOR006600;

STICKLINE(DTJ,WZC,WZO,2.6,0),COLOR008800;

STICKLINE(DTJ,WZC,WZO,1.9,0),COLOR00AA00;

STICKLINE(DTJ,WZC,WZO,1.1,0),COLOR00CC00;

STICKLINE(DTJ,WZC,WZO,0.3,0),COLOR00FF00;

JJ:=WZH-WZL;{间距}

ZTJ2:=WZC>=WZO;{涨条件2}

IF(ZTJ2,WZH+JJ*(1+M),WZL-JJ*(1+M));

IF(ZTJ2,WZH+JJ*(2+M),WZL-JJ*(2+M));

IF(ZTJ2,WZH+JJ*(3+M),WZL-JJ*(3+M));

IF(ZTJ2,WZH+JJ*(4+M),WZL-JJ*(4+M));

IF(ZTJ2,WZH+JJ*(5+M),WZL-JJ*(5+M));

IF(ZTJ2,WZH+JJ*(6+M),WZL-JJ*(6+M));