大智慧的〖自动涨幅〗指标转编为通达信版自动识别波段高低点源码
近期，我参考了一位坛友分享的大智慧“自动涨幅”指标源码，在此基础上自行编写了“涨跌幅预测”指标。该指标的核心思路是自动识别波段的高低点，并在转向发生时，按百分比算法标出股价在各涨跌幅区间的对应位置，以及该波段的起止日期，总计设置了十五档。
随后，我又按照大智慧的算法思路，将费氏黄金分割比例作为关键系数，编写了“黄金涨跌幅”指标。这个版本只设置了九档，但在多数场景下已经足够使用（详见附图）。
现在，我将这两个指标合并整理为一份，统一发出来，供各位坛友参考交流。
KG1:=20;
F1:=10;
A1:=IF(PERIOD<=3,1,IF(PERIOD=4,5,IF(PERIOD=5,10,KG1)));
A2:=IF(PERIOD<=2,1,IF(PERIOD=3,3,IF(PERIOD=4,5,F1)));
PB:=PEAKBARS(1,A1,1);
TB:=TROUGHBARS(2,A1,1);
ISPEAK:=PB<TB;
ISTROUGH:=TB<PB;
CC:=IF(ISPEAK,PEAK(1,A1,1),TROUGH(2,A1,1));
A6:=CROSS(PEAK(1,A1,1)*0.98,CC);
A7:=CROSS(CC,TROUGH(2,A1,1)*1.02);
A8:=A2/40;
A9:=IF(ISPEAK,A8,-A8);
A10:=ISPEAK OR ISTROUGH;
A11:=TOTALBARSCOUNT-CURRBARSCOUNT+1;
A12:=HHV(HHV(H,A11),A11);
A13:=LLV(LLV(L,A11),A11);
H1:=REF(CC*(1-A9*0.382),BARSLAST(A10));
H2:=REF(CC*(1-A9*0.618),BARSLAST(A10));
H3:=REF(CC*(1-A9*0.809),BARSLAST(A10));
H4:=REF(CC*(1-A9*1.000),BARSLAST(A10));
H5:=REF(CC*(1-A9*1.191),BARSLAST(A10));
H6:=REF(CC*(1-A9*1.382),BARSLAST(A10));
H7:=REF(CC*(1-A9*1.618),BARSLAST(A10));
H8:=REF(CC*(1-A9*1.809),BARSLAST(A10));
H9:=REF(CC*(1-A9*2.000),BARSLAST(A10));
A14:=IF((PERIOD = 12),1.00005,(IF((PERIOD < 3),1.0005,1.002)));
STICKLINE(CC>=A13 AND CC<=A12, CC, CC*A14, 5, 0), COLORRED;
STICKLINE(1,H1,H1,1,0),COLORGRAY;
STICKLINE(1,H2,H2,1,0),COLORGRAY;
STICKLINE(1,H3,H3,1,0),COLORGRAY;
STICKLINE(1,H4,H4,1,0),COLORGRAY;
STICKLINE(1,H5,H5,1,0),COLORGRAY;
STICKLINE(1,H6,H6,1,0),COLORGRAY;
STICKLINE(1,H7,H7,1,0),COLORGRAY;
STICKLINE(1,H8,H8,1,0),COLORGRAY;
STICKLINE(1,H9,H9,1,0),COLORGRAY;
DRAWTEXT(PB=0 AND H1>A13 AND H1<A12, H1, VARCAT('0.382=',VAR2STR(H1,2))), COLORLIGREEN;
DRAWTEXT(PB=0 AND H2>A13 AND H2<A12, H2, VARCAT('0.618=',VAR2STR(H2,2))), COLORLIGREEN;
DRAWTEXT(PB=0 AND H3>A13 AND H3<A12, H3, VARCAT('0.809=',VAR2STR(H3,2))), COLORLIGREEN;
DRAWTEXT(PB=0 AND H4>A13 AND H4<A12, H4, VARCAT('1.000=',VAR2STR(H4,2))), COLORLIGREEN;
DRAWTEXT(PB=0 AND H5>A13 AND H5<A12, H5, VARCAT('1.191=',VAR2STR(H5,2))), COLORLIGREEN;
DRAWTEXT(PB=0 AND H6>A13 AND H6<A12, H6, VARCAT('1.382=',VAR2STR(H6,2))), COLORLIGREEN;
DRAWTEXT(PB=0 AND H7>A13 AND H7<A12, H7, VARCAT('1.618=',VAR2STR(H7,2))), COLORLIGREEN;
DRAWTEXT(PB=0 AND H8>A13 AND H8<A12, H8, VARCAT('1.809=',VAR2STR(H8,2))), COLORLIGREEN;
DRAWTEXT(PB=0 AND H9>A13 AND H9<A12, H9, VARCAT('2.000=',VAR2STR(H9,2))), COLORLIGREEN;
DRAWTEXT(TB=0 AND H1>A13 AND H1<A12, H1, VARCAT('0.382=',VAR2STR(H1,2))), COLORLIRED;
DRAWTEXT(TB=0 AND H2>A13 AND H2<A12, H2, VARCAT('0.618=',VAR2STR(H2,2))), COLORLIRED;
DRAWTEXT(TB=0 AND H3>A13 AND H3<A12, H3, VARCAT('0.809=',VAR2STR(H3,2))), COLORLIRED;
DRAWTEXT(TB=0 AND H4>A13 AND H4<A12, H4, VARCAT('1.000=',VAR2STR(H4,2))), COLORLIRED;
DRAWTEXT(TB=0 AND H5>A13 AND H5<A12, H5, VARCAT('1.191=',VAR2STR(H5,2))), COLORLIRED;
DRAWTEXT(TB=0 AND H6>A13 AND H6<A12, H6, VARCAT('1.382=',VAR2STR(H6,2))), COLORLIRED;
DRAWTEXT(TB=0 AND H7>A13 AND H7<A12, H7, VARCAT('1.618=',VAR2STR(H7,2))), COLORLIRED;
DRAWTEXT(TB=0 AND H8>A13 AND H8<A12, H8, VARCAT('1.809=',VAR2STR(H8,2))), COLORLIRED;
DRAWTEXT(TB=0 AND H9>A13 AND H9<A12, H9, VARCAT('2.000=',VAR2STR(H9,2))), COLORLIRED;
A19:=IF(PERIOD=8,'天',IF(PERIOD=9,'周',IF(PERIOD=10,'月','天')));
DRAWTEXT(PB=0, CC*1.01, VARCAT(VAR2STR(TB+1,0), A19)), COLORMAGENTA;
DRAWTEXT(TB=0, CC*0.99, VARCAT(VAR2STR(PB+1,0), A19)), COLORYELLOW;
DRAWTEXT(PB=0, CC*1.025, VARCAT('(高位价)',VAR2STR(CC,2))),COLORMAGENTA;
DRAWTEXT(TB=0, CC*0.97, VARCAT('(低位价)',VAR2STR(CC,2))),COLORYELLOW;
未来函数检测结果如下：
该公式包含未来函数:PEAK
该公式包含未来函数:PEAKBARS
该公式包含未来函数:TROUGH
该公式包含未来函数:TROUGHBARS
定制指标公式、软件请联系QQ或微信同号：88652583
KG1赋值:20
F1赋值:10
A1赋值:如果周期类型<=3,返回1,否则返回如果周期类型=4,返回5,否则返回如果周期类型=5,返回10,否则返回KG1
A2赋值:如果周期类型<=2,返回1,否则返回如果周期类型=3,返回3,否则返回如果周期类型=4,返回5,否则返回F1
PB赋值:最高价A1%之字转向的前1个波峰位置
TB赋值:最低价A1%之字转向的前1个波谷位置
ISPEAK赋值:PBISTROUGH赋值:TBCC赋值:如果ISPEAK,返回最高价A1%之字转向的前1个波峰值,否则返回最低价A1%之字转向的前1个波谷值
A6赋值:最高价A1%之字转向的前1个波峰值*0.98上穿CC
A7赋值:CC上穿最低价A1%之字转向的前1个波谷值*1.02
A8赋值:A2/40
A9赋值:如果ISPEAK,返回A8,否则返回-A8
A10赋值:ISPEAK OR ISTROUGH
A11赋值:总的周期数-到最后交易的周期+1
A12赋值:A11日内A11日内最高价的最高值的最高值
A13赋值:A11日内A11日内最低价的最低值的最低值
H1赋值:上次A10距今天数日前的CC*(1-A9*0.382)
H2赋值:上次A10距今天数日前的CC*(1-A9*0.618)
H3赋值:上次A10距今天数日前的CC*(1-A9*0.809)
H4赋值:上次A10距今天数日前的CC*(1-A9*1.000)
H5赋值:上次A10距今天数日前的CC*(1-A9*1.191)
H6赋值:上次A10距今天数日前的CC*(1-A9*1.382)
H7赋值:上次A10距今天数日前的CC*(1-A9*1.618)
H8赋值:上次A10距今天数日前的CC*(1-A9*1.809)
H9赋值:上次A10距今天数日前的CC*(1-A9*2.000)
A14赋值:如果(周期类型=12),返回1.00005,否则返回(如果(周期类型<3),返回1.0005,否则返回1.002)
当满足条件CC>=A13ANDCC<=A12时,在CC和CC*A14位置之间画柱状线,宽度为5,0不为0则画空心柱., 画红色
当满足条件1时,在H1和H1位置之间画柱状线,宽度为1,0不为0则画空心柱.,画深灰色
当满足条件1时,在H2和H2位置之间画柱状线,宽度为1,0不为0则画空心柱.,画深灰色
当满足条件1时,在H3和H3位置之间画柱状线,宽度为1,0不为0则画空心柱.,画深灰色
当满足条件1时,在H4和H4位置之间画柱状线,宽度为1,0不为0则画空心柱.,画深灰色
当满足条件1时,在H5和H5位置之间画柱状线,宽度为1,0不为0则画空心柱.,画深灰色
当满足条件1时,在H6和H6位置之间画柱状线,宽度为1,0不为0则画空心柱.,画深灰色
当满足条件1时,在H7和H7位置之间画柱状线,宽度为1,0不为0则画空心柱.,画深灰色
当满足条件1时,在H8和H8位置之间画柱状线,宽度为1,0不为0则画空心柱.,画深灰色
当满足条件1时,在H9和H9位置之间画柱状线,宽度为1,0不为0则画空心柱.,画深灰色
当满足条件PB=0ANDH1>A13ANDH1当满足条件PB=0ANDH2>A13ANDH2当满足条件PB=0ANDH3>A13ANDH3当满足条件PB=0ANDH4>A13ANDH4当满足条件PB=0ANDH5>A13ANDH5当满足条件PB=0ANDH6>A13ANDH6当满足条件PB=0ANDH7>A13ANDH7当满足条件PB=0ANDH8>A13ANDH8当满足条件PB=0ANDH9>A13ANDH9当满足条件TB=0ANDH1>A13ANDH1当满足条件TB=0ANDH2>A13ANDH2当满足条件TB=0ANDH3>A13ANDH3当满足条件TB=0ANDH4>A13ANDH4当满足条件TB=0ANDH5>A13ANDH5当满足条件TB=0ANDH6>A13ANDH6当满足条件TB=0ANDH7>A13ANDH7当满足条件TB=0ANDH8>A13ANDH8当满足条件TB=0ANDH9>A13ANDH9A19赋值:如果周期类型=8,返回'天',否则返回如果周期类型=9,返回'周',否则返回如果周期类型=10,返回'月',否则返回'天'
当满足条件PB=0时,在CC*1.01位置书写文字, 画洋红色
当满足条件TB=0时,在CC*0.99位置书写文字, 画黄色
当满足条件PB=0时,在CC*1.025位置书写文字,画洋红色
当满足条件TB=0时,在CC*0.97位置书写文字,画黄色
- QQ：88652583
- 邮箱：88652583@qq.com
- 工作时间：7:30-21:00
- 微信：88652583或扫描如下二维码
sitemap站点地图
