通达信最好的黄金分割比例自动画线优化版主图指标公式源码分享

相关简介:通达信最好的黄金分割比例自动画线优化版主图指标公式源码分享

     通达信指标公式源码概况：

　　指标类别：通达信指标公式

　　授权方式：免费版

　　指标评级：★★★★★

　　指标分类：策略

　　画线方法：副图

   核心使用说明：

   这套黄金分割与量价背离公式主要是将前期高点和低点进行黄金分割后，我们在回踩不破黄金分割318位置且MACD和回踩幅度都与前期形成背离，出信号是在满足这些条件后再形成底分型介入。

   主图的天差表示上次进入中枢和本次出中枢相差天数。

   背离指数表示MACD的DIFDEAMACD与上次低点形成背离的参数

   止损价设在底分型的最低点，可以根据个人喜好调整。设置在底分型最低点主要保证安全。但有时候可以观望一下，不要急于止损。可以减仓观望，不要全部割肉。

   市场变数太多，一切尊重市场，做好止损，争取亏小赚大。

   选股公式可以作为实盘预警。激进者可以实盘小试牛刀。

   因为有画线未来函数所以不能进行历史选股以及评测。可以实盘预警和尾盘或盘后选股

   这套公式参考前高前低进行黄金分割，结合缠论背驰原理，具体详情附件中有说明。

   主图窗口位置包括止损价位背离指数。

通达信指标公式源码：

    周期:=30;{是可见的周期数,设为参数N(30,480,240),自己调}
    高1:=CONST(HHV(H,周期));低1:=CONST(LLV(L,周期));
    H_L:=高1-低1;HH:=H+H_L*0.1;LL:=L-H_L*0.1;
    {操盘线}
    MA6:MA(C,6),COLORGREEN;{178448_WEN98编写}
    MA6_:IF(MA6>=REF(MA6,1),MA6,DRAWNULL),COLORMAGENTA;
    H0:高1,COLORRED,POINTDOT;
    H0809:IF(低1<高1*(0.809),高1*(0.809),DRAWNULL),COLORLIMAGENTA,POINTDOT;
    H0618:IF(低1<高1*(0.618),高1*(0.618),DRAWNULL),COLORLIMAGENTA,POINTDOT;
    H0500:IF(低1<高1*(0.500),高1*(0.500),DRAWNULL),COLORLIMAGENTA,POINTDOT;
    H0382:IF(低1<高1*(0.382),高1*(0.382),DRAWNULL),COLORLIMAGENTA,POINTDOT;
    H0191:IF(低1<高1*(0.191),高1*(0.191),DRAWNULL),COLORLIMAGENTA,POINTDOT;
    L2618:IF(高1>低1*(2.618),低1*(2.618),DRAWNULL),COLORGREEN,POINTDOT;
    L2383:IF(高1>低1*(2.382),低1*(2.382),DRAWNULL),COLORGREEN,POINTDOT;
    L2000:IF(高1>低1*(2.000),低1*(2.000),DRAWNULL),COLORGREEN,POINTDOT;
    L1809:IF(高1>低1*(1.809),低1*(1.809),DRAWNULL),COLORGREEN,POINTDOT;
    L1618:IF(高1>低1*(1.618),低1*(1.618),DRAWNULL),COLORGREEN,POINTDOT;
    L1500:IF(高1>低1*(1.500),低1*(1.500),DRAWNULL),COLORGREEN,POINTDOT;
    L1382:IF(高1>低1*(1.382),低1*(1.382),DRAWNULL),COLORGREEN,POINTDOT;
    L1191:IF(高1>低1*(1.191),低1*(1.191),DRAWNULL),COLORGREEN,POINTDOT;
    L0:低1,COLORGREEN,POINTDOT;
    N:=8;
    XA1:=REF(H,N)=HHV(H,2*N+1);
    XB1:=FILTER(XA1,N);
    XC1:=BacKSET(XB1,N);
    XD1:=FILTER(XC1,N);
    A2:=REF(L,N)=LLV(L,2*N+1);
    B2:=FILTER(A2,N);
    C2:=BACKSET(B2,N+1);
    D2:=FILTER(C2,N);
    E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2;
    E2:=(H+L)/2;
    XH1:=(XD1ANDNOT(D2ANDE1>=E2))ORBARstATUS=2ORBARSCOUNT(C)=1;
    XL1:=(D2ANDNOT(XD1ANDE1<E2));
    XH2:=(XD1ANDNOT(D2ANDE1>=E2));
    XX1:=REF(BArslAST(XH1),1)+1;
    F1:=BACKSET(XH1ANDCOUNT(XL1,XX1)>0,LLVBARS(IF(XL1,L,10000),XX1));
    G1:=F1>REF(F1,1);
    I1:=BACKSET(G1,2);
    LD:=I1>REF(I1,1);
    XL2:=LDORBARSTATUS=2ORBARSCOUNT(C)=1;
    XX2:=REF(BARSLAST(XL2),1)+1;
    F2:=BACKSET(XL2ANDCOUNT(XH2,XX2)>0,HHVBARS(IF(XH2,H,0),XX2));
    G2:=F2>REF(F2,1);
    I2:=BACKSET(G2,2);
    HD:=I2>REF(I2,1);
    R1:=BACKSET(BARSTATUS=2,BARSLAST(HD)+1);
    XS1:=R1>REF(R1,1);
    T1:=BACKSET(BARSTATUS=2,BARSLAST(LD)+1);
    U1:=T1>REF(T1,1);
    R2:=BACKSET(XS1,REF(BARSLAST(HD),1)+2);
    XS2:=R2>REF(R2,1);
    T2:=BACKSET(U1,REF(BARSLAST(LD),1)+2);
    U2:=T2>REF(T2,1);
    T3:=BACKSET(U2,REF(BARSLAST(LD),1)+2);
    U3:=T3>REF(T3,1);
    R3:=BACKSET(XS2,REF(BARSLAST(HD),1)+2);
    XS3:=R3>REF(R3,1);
    短压:DRAWLINE(XS2,H,XS1,H,1),LINETHICK2;
    短撑:DRAWLINE(U2,L,U1,L,1),LINETHICK2;
    DRAWTEXT(XS2,H*1.02,NUMTOSTR(H)),COLORmaGENTA;
    DRAWTEXT(XS1,H*1.02,NUMTOSTR(H)),COLORMAGENTA;
    DRAWTEXT(XS3,H*1.02,NUMTOSTR(H)),COLORMAGENTA;
    DRAWTEXT(U1,L*0.98,NUMTOSTR(L)),COLORCYAN;
    DRAWTEXT(U2,L*0.98,NUMTOSTR(L)),COLORCYAN;
    DRAWTEXT(U3,L*0.98,NUMTOSTR(L)),COLORCYAN;

[源码注释]通达信公式动态翻译结果

   周期赋值:30

   高1赋值:周期日内最高价的最高值的最后一日取值设为常数

   低1赋值:周期日内最低价的最低值的最后一日取值设为常数

   H_L赋值:高1-低1

   HH赋值:最高价+H_L*0.1

   LL赋值:最低价-H_L*0.1

   输出MA6:收盘价的6日简单移动平均,画绿色

   输出MA6_:如果MA6>,返回?,否则返回?

   =1日前的MA6,MA6,无效数),画洋红色

   输出H0:高1,画红色,POINTDOT

   输出H0809:如果低1<,返回?,否则返回?

   高1*(0.809),高1*(0.809),无效数),画淡洋红色,POINTDOT

   输出H0618:如果低1<,返回?,否则返回?

   高1*(0.618),高1*(0.618),无效数),画淡洋红色,POINTDOT

   输出H0500:如果低1<,返回?,否则返回?

   高1*(0.500),高1*(0.500),无效数),画淡洋红色,POINTDOT

   输出H0382:如果低1<,返回?,否则返回?

   高1*(0.382),高1*(0.382),无效数),画淡洋红色,POINTDOT

   输出H0191:如果低1<,返回?,否则返回?

   高1*(0.191),高1*(0.191),无效数),画淡洋红色,POINTDOT

   输出L2618:如果高1>,返回?,否则返回?

   低1*(2.618),低1*(2.618),无效数),画绿色,POINTDOT

   输出L2383:如果高1>,返回?,否则返回?

   低1*(2.382),低1*(2.382),无效数),画绿色,POINTDOT

   输出L2000:如果高1>,返回?,否则返回?

   低1*(2.000),低1*(2.000),无效数),画绿色,POINTDOT

   输出L1809:如果高1>,返回?,否则返回?

   低1*(1.809),低1*(1.809),无效数),画绿色,POINTDOT

   输出L1618:如果高1>,返回?,否则返回?

   低1*(1.618),低1*(1.618),无效数),画绿色,POINTDOT

   输出L1500:如果高1>,返回?,否则返回?

   低1*(1.500),低1*(1.500),无效数),画绿色,POINTDOT

   输出L1382:如果高1>,返回?,否则返回?

   低1*(1.382),低1*(1.382),无效数),画绿色,POINTDOT

   输出L1191:如果高1>,返回?,否则返回?

   低1*(1.191),低1*(1.191),无效数),画绿色,POINTDOT

   输出L0:低1,画绿色,POINTDOT

   N赋值:8

   XA1赋值:N日前的最高价=2*N+1日内最高价的最高值

   XB1赋值:XA1的N日过滤

   XC1赋值:若XB1则将最近N周期置为1

   XD1赋值:XC1的N日过滤

   A2赋值:N日前的最低价=2*N+1日内最低价的最低值

   B2赋值:A2的N日过滤

   C2赋值:若B2则将最近N+1周期置为1

   D2赋值:C2的N日过滤

   E1赋值:(1日前的2*N日内最低价的最低值+1日前的2*N日内最高价的最高值)/2

   E2赋值:(最高价+最低价)/2

   XH1赋值:(XD1ANDNOT(D2ANDE1>=E2))ORBARSTATUS=2ORBARSCOUNT(收盘价)=1

   XL1赋值:(D2ANDNOT(XD1ANDE1<E2))

   XH2赋值:(XD1ANDNOT(D2ANDE1>=E2))

   XX1赋值:1日前的上次XH1距今天数+1

   F1赋值:若XH1ANDCOUNT(XL1,XX1)>0则将最近XX1日内如果XL1,返回最低价,否则返回10000距今天数周期置为1

   G1赋值:F1>1日前的F1

   I1赋值:若G1则将最近2周期置为1

   LD赋值:I1>1日前的I1

   XL2赋值:LDORBARSTATUS=2ORBARSCOUNT(收盘价)=1

   XX2赋值:1日前的上次XL2距今天数+1

   F2赋值:若XL2ANDCOUNT(XH2,XX2)>0则将最近XX2日内如果XH2,返回最高价,否则返回0距今天数周期置为1

   G2赋值:F2>1日前的F2

   I2赋值:若G2则将最近2周期置为1

   HD赋值:I2>1日前的I2

   R1赋值:若数据位置状态=2则将最近上次HD距今天数+1周期置为1

   XS1赋值:R1>1日前的R1

   T1赋值:若数据位置状态=2则将最近上次LD距今天数+1周期置为1

   U1赋值:T1>1日前的T1

   R2赋值:若XS1则将最近1日前的上次HD距今天数+2周期置为1

   XS2赋值:R2>1日前的R2

   T2赋值:若U1则将最近1日前的上次LD距今天数+2周期置为1

   U2赋值:T2>1日前的T2

   T3赋值:若U2则将最近1日前的上次LD距今天数+2周期置为1

   U3赋值:T3>1日前的T3

   R3赋值:若XS2则将最近1日前的上次HD距今天数+2周期置为1

   XS3赋值:R3>1日前的R3

   输出短压:当满足条件XS2时,在最高价位置画直线起点，当满足条件XS1时,在最高价位置画直线终点,1表示是否延长.,线宽为2

   输出短撑:当满足条件U2时,在最低价位置画直线起点，当满足条件U1时,在最低价位置画直线终点,1表示是否延长.,线宽为2

   当满足条件XS2时,在最高价*1.02位置书写文字,画洋红色

   当满足条件XS1时,在最高价*1.02位置书写文字,画洋红色

   当满足条件XS3时,在最高价*1.02位置书写文字,画洋红色

   当满足条件U1时,在最低价*0.98位置书写文字,画青色

   当满足条件U2时,在最低价*0.98位置书写文字,画青色

   当满足条件U3时,在最低价*0.98位置书写文字,画青色