精品算法的代码汇编（二）

寻找？不寻找？---不必如此麻烦，无论如何也要把算法代码真诚奉上。

第一位，视频《算法0041数据的叠加显示②》里的内容，实现的是在日线周期叠加周线的基本数据的情况。

“计算出人意料”不是一句空话，当你实现了在日线周期叠加周线的基本数据之后，那么，在日线显示所有使用了周线基本数据的计算输出，。将成为可能！！

意外？是的，意料之外的收获。难道不是？---这也许就是初心计算之外的礼物吧：虽然这个算法让我们看到的只是周K线在日线界面里左右移来移去，

但是，这绝不是算法的结束，恰恰相反，基础工作的后续是一切的刚刚开始。。。

代码流程

日线周期叠加周线

完整代码

{参数在这里用了中文}

中轴位置:=CONST(WEEKDAY+ROUND(5/2)+前一根周线*5);

HH:=H#WEEK;

OO:=O#WEEK;

LL:=L#WEEK;

CC:=C#WEEK;

STICKLINE(CURRBARSCOUNT=中轴位置 AND CC<=OO,HH,LL,1,0),COLORLIBLUE;

STICKLINE(CURRBARSCOUNT=中轴位置 AND CC<=OO,OO,CC,4*5,0),COLORLIBLUE;

STICKLINE(CURRBARSCOUNT=中轴位置 AND CC>=OO,HH,LL,1,0),COLORLIRED;

STICKLINE(CURRBARSCOUNT=中轴位置 AND CC>=OO,OO,CC,4*5,0),COLORLIRED;

周H:IF(CURRBARSCOUNT<=中轴位置,CONST(REF(HH,中轴位置)),DRAWNULL),COLORWHITE;

周L:IF(CURRBARSCOUNT<=中轴位置,CONST(REF(LL,中轴位置)),DRAWNULL),COLORWHITE;

DRAWNUMBER(ISLASTBAR,周H,周H),COLORWHITE;

DRAWNUMBER(ISLASTBAR,周L,周L),COLORWHITE;

DRAWKLINE(H,O,L,C);

第二位，昨天文章《九转算法之初步（二）》

这一算法的意料之外，却是只用两个语句的重复完成当前CLOSE低于4日前的CLOSE的标注方法，简单且单纯。

代码流程

完整代码

D1C:=CONST(BARSSINCEN(C=LLV(C,4),CONST(PEAKBARS(1,BFB,1))));{D1C 第1次}

D2C:=CONST(BARSSINCEN(C=LLV(C,4),D1C));{D2C 第2次}

D3C:=CONST(BARSSINCEN(C=LLV(C,4),D2C));{D3C 第3次}

D4C:=CONST(BARSSINCEN(C=LLV(C,4),D3C));{D4C 第4次}

D5C:=CONST(BARSSINCEN(C=LLV(C,4),D4C));{D5C 第5次}

D6C:=CONST(BARSSINCEN(C=LLV(C,4),D5C));{D6C 第6次}

D7C:=CONST(BARSSINCEN(C=LLV(C,4),D6C));{D7C 第7次}

D8C:=CONST(BARSSINCEN(C=LLV(C,4),D7C));{D8C 第8次}

D9C:=CONST(BARSSINCEN(C=LLV(C,4),D8C));{D9C 第9次}

D10C:=CONST(BARSSINCEN(C=LLV(C,4),D9C));{D10C 第10次}

DRAWNUMBER(CURRBARSCOUNT=D1C+1,(H+L)/2,1),COLORMAGENTA;

DRAWNUMBER(CURRBARSCOUNT=D2C+1,(H+L)/2,2),COLORMAGENTA;

DRAWNUMBER(CURRBARSCOUNT=D3C+1,(H+L)/2,3),COLORMAGENTA;

DRAWNUMBER(CURRBARSCOUNT=D4C+1,(H+L)/2,4),COLORMAGENTA;

DRAWNUMBER(CURRBARSCOUNT=D5C+1,(H+L)/2,5),COLORMAGENTA;

DRAWNUMBER(CURRBARSCOUNT=D6C+1,(H+L)/2,6),COLORMAGENTA;

DRAWNUMBER(CURRBARSCOUNT=D7C+1,(H+L)/2,7),COLORMAGENTA;

DRAWNUMBER(CURRBARSCOUNT=D8C+1,(H+L)/2,8),COLORMAGENTA;

DRAWNUMBER(CURRBARSCOUNT=D9C+1,(H+L)/2,9),COLORMAGENTA;

DRAWNUMBER(CURRBARSCOUNT=D10C+1,(H+L)/2,1),COLORMAGENTA;

除了保留前述的 参数BFB 其余的变通方法如下

代码流程

完整代码

TJ:=CONST(PEAKBARS(1,BFB,1))

DQD:=CONST(PEAKBARS(1,BFB,1));{DQD 跌起点}

DXH:=DQD-CURRBARSCOUNT+1;{DXH 跌序号}

DXH0:=IF(MOD(DXH,9)=0,9,MOD(DXH,9));

DRAWNUMBER(CURRBARSCOUNT<=DQD,(H+L)/2,DXH0),COLORMAGENTA;

DRAWICON(CURRBARSCOUNT<=DQD AND C=LLV(C,4),L*0.997,85);

如果有什么不适宜的感觉，请记得调整参数BFB哟~

第三位，威力爆裂的《头肩顶头肩底》算法

代码流程

头肩顶头肩底算法

完整代码

{DJG 第几个}

GW:=CONST(TROUGHBARS(2,1,DJG));{GW 俗位}

DRAWICON(CURRBARSCOUNT=GW+1,L*0.999,85);

CONST(REF(PEAK(1,1,1),GW));

YFW:=CONST(BARSSINCEN(H=PEAK(1,1,1),GW));{YFW 右峰位}

DRAWICON(CURRBARSCOUNT=YFW+1,H*1.008,12);

CONST(REF(H,YFW));

FW:=CONST(PEAKBARS(1,1,DJG));{FW 峰位}

DRAWICON(CURRBARSCOUNT=FW+1,H*1.008,86);

CONST(REF(TROUGH(2,1,1),FW));

YGW:=CONST(BARSSINCEN(L=TROUGH(2,1,1),FW));{YGW 右谷位}

DRAWICON(CURRBARSCOUNT=YGW+1,L*0.999,11);

CONST(REF(L,YGW));

这样的算法建立，值得珍藏，正如扇动中的蝴蝶的那双美丽的翅膀，既遥远又那么的微不足道，而它面向未来的效应却胜过难以抵挡的飓风。。。

写在文末：江丰鱼的文章只在今日头条首发；文中代码均可运行。

---原创不易，你的赞赏，是我继续为你提供精品算法的动力。