返回列表 发帖
speed_fj

Rank: 6Rank: 6
1# 跳转到 » 倒序看帖
打印
tT
发表于 2010-7-21 17:18 | 只看该作者

有朋友能提供分形和顾比倒数线现成的TB指标吗？

有朋友能提供分形和顾比倒数线现成的TB指标吗？
懒得去写了。
收藏 分享

khseaman

Rank: 4
2#
发表于 2010-7-21 17:36 | 只看该作者

顾比倒数线指标代码

Params
        Numeric N(5);
                //Numeric minus(2);
Vars
        Numeric a;
                Numeric b;
                Numeric P1;
                Numeric P2;
                Numeric P3;
                Numeric P4;
                Numeric P5;
                Numeric P6;
                Numeric P7;
                Numeric P8;
                Numeric P9;
                Numeric P10;
                Numeric AA;
                Numeric pp1;
                Numeric pp2;
                Numeric pp3;
                Numeric pp4;
                Numeric pp5;
                Numeric pp6;
                Numeric pp7;
                Numeric pp8;
                Numeric pp9;
                Numeric pp10;
                Numeric AAA1;
                Numeric AAA;
                NumericSeries C1;
                Numeric T1;
                Numeric T2;
                Numeric T3;
                Numeric T4;
                Numeric T5;
                Numeric T6;
                Numeric T7;
                Numeric T8;
                Numeric T9;
                Numeric T10;
                Numeric TT1;
                Numeric TT2;
                Numeric TT3;
                Numeric TT4;
                Numeric TT5;
                Numeric TT6;
                Numeric TT7;
                Numeric TT8;
                Numeric TT9;
                Numeric TT10;
                Numeric BB;
                Numeric BBB1;
                Numeric BBB;
                NumericSeries D1;
                NumericSeries UD;
                NumericSeries KK;
                NumericSeries GG;
               
               
               
Begin
     if(High>=Highest(high,N))
             a=Low;
         Else
             a=0;
     if(Low<=Lowest(Low,N))
             b=High;
         Else
             b=888888;         
     if(a>low[1])
           p1=low[1];
         Else
           p1=0;
     if(a>low[2]&&A<=low[1])
           p2=low[2];
         Else
           p2=0;
     if(a>low[3]&&A<=low[1]&&A<=low[2])
           p3=low[3];
         Else
           p3=0;
     if(a>low[4]&&A<=low[1]&&A<=low[2]&&A<=low[3])
           p4=low[4];
         Else
           p4=0;
     if(a>low[5]&&A<=low[1]&&A<=low[2]&&A<=low[3]&&A<=low[4])
           p5=low[5];
         Else
           p5=0;
         if(a>low[6]&&A<=low[1]&&A<=low[2]&&A<=low[3]&&A<=low[4]&&A<=low[5])
           p6=low[6];
         Else
           p6=0;
         if(a>low[7]&&A<=low[1]&&A<=low[2]&&A<=low[3]&&A<=low[4]&&A<=low[5]&&A<=low[6])
           p7=low[7];
         Else
           p7=0;
         if(a>low[8]&&A<=low[1]&&A<=low[2]&&A<=low[3]&&A<=low[4]&&A<=low[5]&&A<=low[6]&&A<=low[7])
           p8=low[8];
         Else
           p8=0;
         if(a>low[9]&&A<=low[1]&&A<=low[2]&&A<=low[3]&&A<=low[4]&&A<=low[5]&&A<=low[6]&&A<=low[7]&&A<=low[8])
           p9=low[9];
         Else
           p9=0;
         if(a>low[10]&&A<=low[1]&&A<=low[2]&&A<=low[3]&&A<=low[4]&&A<=low[5]&&A<=low[6]&&A<=low[7]&&A<=low[8]&&A<=low[9])
           p10=low[10];
         Else
           p10=0;
     AA=P1+P2+P3+P4+P5+P6+P7+P8+P9+P10;
        if(AA>low[1])
           PP1=low[1];
         Else
           PP1=0;
        if(AA>low[2]&&AA<=low[1])
           PP2=low[2];
         Else
           PP2=0;
        if(AA>low[3]&&AA<=low[1]&&AA<=low[2])
           PP3=low[3];
         Else
           PP3=0;
        if(AA>low[4]&&AA<=low[1]&&AA<=low[2]&&AA<=low[3])
           PP4=low[4];
         Else
           PP4=0;
        if(AA>low[5]&&AA<=low[1]&&AA<=low[2]&&AA<=low[3]&&AA<=low[4])
           PP5=low[5];
         Else
           PP5=0;
        if(AA>low[6]&&AA<=low[1]&&AA<=low[2]&&AA<=low[3]&&AA<=low[4]&&AA<=low[5])
           PP6=low[6];
         Else
           PP6=0;
        if(AA>low[7]&&AA<=low[1]&&AA<=low[2]&&AA<=low[3]&&AA<=low[4]&&AA<=low[5]&&AA<=low[6])
           PP7=low[7];
         Else
           PP7=0;
        if(AA>low[8]&&AA<=low[1]&&AA<=low[2]&&AA<=low[3]&&AA<=low[4]&&AA<=low[5]&&AA<=low[6]&&AA<=low[7])
           PP8=low[8];
         Else
           PP8=0;
        if(AA>low[9]&&AA<=low[1]&&AA<=low[2]&&AA<=low[3]&&AA<=low[4]&&AA<=low[5]&&AA<=low[6]&&AA<=low[7]&&AA<=low[8])
           PP9=low[9];
         Else
           PP9=0;
        if(AA>low[10]&&AA<=low[1]&&AA<=low[2]&&AA<=low[3]&&AA<=low[4]&&AA<=low[5]&&AA<=low[6]&&AA<=low[7]&&AA<=low[8]&&AA<=low[9])
           PP10=low[10];
         Else
           PP10=0;
     AAA1=PP1+PP2+PP3+PP4+PP5+PP6+PP7+PP8+PP9+PP10;
    if(Time<0.0901)
           AAA=low;
        Else
           AAA=AAA1;
        if(AAA>0)
           C1=AAA;
        Else
           C1=C1[1];
    if(B<High[1])
           T1=High[1];
        Else
           T1=0;
    if(B<High[2]&&B>=High[1])
           T2=High[2];
        Else
           T2=0;
    if(B<High[3]&&B>=High[1]&&B>=High[2])
           T3=High[3];
        Else
           T3=0;
    if(B<High[4]&&B>=High[1]&&B>=High[2]&&B>=High[3])
           T4=High[4];
        Else
           T4=0;
    if(B<High[5]&&B>=High[1]&&B>=High[2]&&B>=High[3]&&B>=High[4])
           T5=High[5];
        Else
           T5=0;
        if(B<High[6]&&B>=High[1]&&B>=High[2]&&B>=High[3]&&B>=High[4]&&B>=High[5])
           T6=High[6];
        Else
           T6=0;
    if(B<High[7]&&B>=High[1]&&B>=High[2]&&B>=High[3]&&B>=High[4]&&B>=High[5]&&B>=High[6])
           T7=High[7];
        Else
           T7=0;
    if(B<High[8]&&B>=High[1]&&B>=High[2]&&B>=High[3]&&B>=High[4]&&B>=High[5]&&B>=High[6]&&B>=High[7])
           T8=High[8];
        Else
           T8=0;
    if(B<High[9]&&B>=High[1]&&B>=High[2]&&B>=High[3]&&B>=High[4]&&B>=High[5]&&B>=High[6]&&B>=High[7]&&B>=High[8])
           T9=High[9];
        Else
           T9=0;
    if(B<High[10]&&B>=High[1]&&B>=High[2]&&B>=High[3]&&B>=High[4]&&B>=High[5]&&B>=High[6]&&B>=High[7]&&B>=High[8]&&B>=High[9])
           T10=High[10];
        Else
           T10=0;
    if(T1+T2+T3+T4+T5+T6+T7+T8+T9+T10==0)
           BB=888888;
        Else
          BB=T1+T2+T3+T4+T5+T6+T7+T8+T9+T10;
        if(BB<High[1])
           TT1=High[1];
        Else
           TT1=0;
        if(BB<High[2]&&BB>=High[1])
           TT2=High[2];
        Else
           TT2=0;
        if(BB<High[3]&&BB>=High[1]&&BB>=High[2])
           TT3=High[3];
        Else
           TT3=0;
        if(BB<High[4]&&BB>=High[1]&&BB>=High[2]&&BB>=High[3])
           TT4=High[4];
        Else
           TT4=0;
        if(BB<High[5]&&BB>=High[1]&&BB>=High[2]&&BB>=High[3]&&BB>=High[4])
           TT5=High[5];
        Else
           TT5=0;
        if(BB<High[6]&&BB>=High[1]&&BB>=High[2]&&BB>=High[3]&&BB>=High[4]&&BB>=High[5])
           TT6=High[6];
        Else
           TT6=0;
        if(BB<High[7]&&BB>=High[1]&&BB>=High[2]&&BB>=High[3]&&BB>=High[4]&&BB>=High[5]&&BB>=High[6])
           TT7=High[7];
        Else
           TT7=0;
        if(BB<High[8]&&BB>=High[1]&&BB>=High[2]&&BB>=High[3]&&BB>=High[4]&&BB>=High[5]&&BB>=High[6]&&BB>=High[7])
           TT8=High[8];
        Else
           TT8=0;
        if(BB<High[9]&&BB>=High[1]&&BB>=High[2]&&BB>=High[3]&&BB>=High[4]&&BB>=High[5]&&BB>=High[6]&&BB>=High[7]&&BB>=High[8])
           TT9=High[9];
        Else
           TT9=0;
        if(BB<High[10]&&BB>=High[1]&&BB>=High[2]&&BB>=High[3]&&BB>=High[4]&&BB>=High[5]&&BB>=High[6]&&BB>=High[7]&&BB>=High[8]&&BB>=High[9])
           TT10=High[10];
        Else
           TT10=0;
    BBB1=TT1+TT2+TT3+TT4+TT5+TT6+TT7+TT8+TT9+TT10;
        if(Time<0.0901)
          BBB=High;
        Else
          BBB=BBB1;
        if(BBB>0)
          D1=BBB;
    Else
          D1=D1[1];
        if(CLOSE>D1&&CLOSE[1]<=D1)
          UD=1;
        Else
           If(CLOSE<C1&&CLOSE[1]>=C1)
               UD=-3;
           Else
               UD=0;
        if(UD<>0)
           Kk=UD;
        Else
           Kk=Kk[1];
        if(Kk==1)
           GG=C1;
        Else
           GG=D1;
   // PlotNumeric("CBL倒数线+1",GG+minus);
   // PlotNumeric("CBL倒数线-1",GG-minus);
   PlotNumeric("CBL倒数线",GG);
        //        PlotNumeric("C1",C1);
//        PlotNumeric("D1",D1);
        
                If(KK==1)
        {
                PlotNumeric("Open",Min(Open,Close));
                PlotNumeric("Close",Max(Open,Close));
        }Else
        {
               
               
                        PlotNumeric("Open",Max(Open,Close));
                        PlotNumeric("Close",Min(Open,Close));
                }
        PlotNumeric("High",High);
        PlotNumeric("Low",Low);        
End

TOP

dengwu

Rank: 5Rank: 5
3#
发表于 2011-4-17 13:43 | 只看该作者
仔细看了下  ，这个顾比不错，但是也有点缺陷，有的时候
输出PlotNumeric("CBL倒数线",GG)为无效。

TOP

蔡宛宏

Rank: 5Rank: 5
4#
发表于 2011-12-20 10:02 | 只看该作者
这个技术指标没啥用处啊
若能一切随它去，便世间自在人。
　　　　　　－－－Derivatives

TOP

返回列表