|
寻找？不寻找？---不必如此麻烦，无论如何也要把算法代码真诚奉上。 第一位，视频《算法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))<CONST(TROUGHBARS(2,BFB,1));{TJ 条件} 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)); 这样的算法建立，值得珍藏，正如扇动中的蝴蝶的那双美丽的翅膀，既遥远又那么的微不足道，而它面向未来的效应却胜过难以抵挡的飓风。。。 写在文末：江丰鱼的文章只在今日头条首发；文中代码均可运行。 |
|
|
