程序结构语法与算法（算法汇编三）

周末的评论区总是很热闹，看一看网友的留言，来完成周末的作业：

第一题：

第一道作业题

意思是说，怎样表示昨日最大成交量。

思路步骤第一，输出成交量；第二，时间区间范围的界定；第三，应用FIND函数；

第四，输出昨天最大量值线。

算法建立：1. 输出成交量

VOLUME:VOL,VOLSTICK;

2. 时间区间范围的界定

FROMOPEN) 240

3.应用FIND函数

FINDHIGH(V,CONST(FROMOPEN),240,1)

4. 输出昨天最大量值线

F(CURRBARSCOUNT<=CONST(FROMOPEN) 240,CONST(FINDHIGH(V,CONST(FROMOPEN),240,1)),DRAWNULL)

效果示意：

效果示意图

完整代码：

{昨日最高量 副图指标}

VOLUME:VOL,VOLSTICK;

ZVH:IF(CURRBARSCOUNT<=CONST(FROMOPEN) 240,CONST(FINDHIGH(V,CONST(FROMOPEN),240,1)),DRAWNULL);{昨量峰}

第二题：

第二道作业题

意思是说，建立“5日新高率",即5个交易日内创出历史新高的股票数与所有A股总数的比例，做成副图算法。

思路步骤第一，建立5日新高为历史新高的算法；第二，因为没有A股品种总数的函数，所以，变通为进行全部A股的数据筛选操作，窗口里就在占比数值显示。

算法建立1. 当前5日创历史新高

HHV(HIGH,5)=HHV(HIGH,0) AND BARSCOUNT(CLOSE)>=5;

数据筛选

比例显示方法

图片中的“2”可以达成网友的需要。

第三题：

第三道作业题

意思是说，均线连续5日是向上的趋势，如何表达。

思路步骤

1. 当前大于前一日为逻辑判断；
2. 当前小于前一日为逻辑判断；
3. 应用持续函数EVERY进行条件链接。

算法建立

1.持续向上趋势

MA(C,M)>REF(MA(C,M),1)

2.持续向下趋势

MA(C,M)<REF(MA(C,M),1)

3. 应用持续函数EVERY进行条件链接

EVERY(MA(C,M)>REF(MA(C,M),1),N)

两个参数与完整代码

EVERY(MA(C,M)>REF(MA(C,M),1),N);

第四题：

第四道作业题

意思是说，在阶段最高点向右向下画70度固定的角度线。

思路步骤：

1. 确定峰值与峰位；
2. 使用函数TAN计算直线的终点；
3. 以RE为起点，绘制连接与终点的直线。

算法建立：

1. 确定峰值与峰位

TE:=CONST(PEAKBARS(1,转向比/10,第几个));

RE:=CONST(PEAK(1,转向比/10,第几个));

1. 使用函数TAN计算直线的终点

ZD:=RE-TAN(角度值)*TE;{终点}

1. 以RE为起点，绘制连接终点的固定角度直线

DRAWLINE(CURRBARSCOUNT=TE 1,H,ISLASTBAR,ZD,1);

三个参数与完整代码：

参数与代码

TE:=CONST(PEAKBARS(1,转向比/10,第几个));

RE:=CONST(PEAK(1,转向比/10,第几个));

ZD:=RE-TAN(角度值)*TE;{终点}

DRAWLINE(CURRBARSCOUNT=TE 1,H,ISLASTBAR,ZD,1);

效果示意

第五题：

请建立1个月内的最近一次跳空缺口的数据筛选算法。

思路步骤

1. 空间关系，右侧数据最低价高于左侧数据最高价；
2. 空间关系，右侧数据最高价低于左侧数据最低价；
3. 应用BARSLAST函数完成时间区间的限定，并用OR函数进行条件连接。

算法建立

1. 右侧数据最低价高于左侧数据最高价

LOW>REF(HIGH,1) 0.01

2. 右侧数据最高价低于左侧数据最低价

HIGH<REF(LOW,1)-0.01

3. 应用BARSLAST函数完成时间区间的限定

CONST(BARSLAST(HIGH<(REF(LOW,1)-0.01)))<=20 OR CONST(BARSLAST(LOW>(REF(HIGH,1) 0.001)))<=20

完整代码

第五道作业题

CONST(BARSLAST(HIGH<(REF(LOW,1)-0.01)))<=20 OR CONST(BARSLAST(LOW>(REF(HIGH,1) 0.001)))<=20;

第六题：

第六道作业题

留言的需求是，今日开盘价低于昨日最低价，今日最高价高于昨日K线实体一半，今日收盘价高于昨日收盘价，今日K线下标记B（红色），20日均线为上涨趋势。

思路步骤

1. 方向---基本数据的空间关系表达；
2. 今日开盘价低于昨日最低价；
3. 今日最高价高于昨日K线实体的1/2；
4. 今日收盘价高于昨日收盘价；
5. 20日均线为上涨趋势；
6. 今日K线下标记B（红色）。

算法建立

1. 今日开盘价低于昨日最低价

O<REF(L,1);

2. 今日最高价高于昨日K线实体的1/2

H>(REF(O,1) REF(C,1))/2

3. 今日收盘价高于昨日收盘价

C>REF(C,1)

1. 20日均线为上涨趋势

EVERY(MA(C,20)>REF(MA(C,20),1),10);{10个数据的范围可以自定义}

5. 今日K线下标记B（红色）

DRAWTEXT(上述4个条件俱备时,L*0.995,'B')COLORRED;

主图标注

江丰鱼的代码

MA20:MA(C,20);

TJ:=O<REF(L,1) AND H>(REF(O,1) REF(C,1))/2 AND C>REF(C,1) AND EVERY(MA(C,20)>REF(MA(C,20),1),10);

DRAWTEXT(TJ,L*0.995,'B')COLORRED;

数据筛选

江丰鱼的代码

O<REF(L,1) AND H>(REF(O,1) REF(C,1))/2 AND C>REF(C,1) AND EVERY(MA(C,20)>REF(MA(C,20),1),10);

计算创造价值，分享助你成功。文中代码均可运行。

江丰鱼的文章只在今日头条首发；未经授权禁止引用或者转载。

,