峰值回撤转向 帮我看看怎么不能实现

554570285

Params
        //此处添加参数

Vars
        NumericSeries SB;
        NumericSeries XB;

        NumericSeries SSB;
        NumericSeries XXB;
        NumericSeries O1;
        NumericSeries O2;
        NumericSeries DYC1;
        NumericSeries GYC1;
        Numeric BLZ;
        NumericSeries TB;
        NumericSeries DYC;
        NumericSeries GYC;

       
Begin

                SSB = GetGlobalVar(0);
                XXB = GetGlobalVar(1);
                SB = GetGlobalVar(3);
                XB = GetGlobalVar(4);
               
                IF(BarStatus==0)
                {
                        TB=1;
                }
                IF(TB==1)
                {
                        SB=MAX(H,O);
                        SetGlobalVar(3,SB);
                        IF(MAX(H,O) >= SB[1])
                        {
                                SB = MAX(H,O);
                                SetGlobalVar(3,SB);
                        }
                        Else
                        {
                                SB = SB[1];
                                SetGlobalVar(3,SB);
                        }       
                       
                        XB=MIN(O,L);
                        SetGlobalVar(4,XB);
                        IF(MIN(O,L)<=XB[1] )
                        {
                                XB = MIN(O,L);
                                SetGlobalVar(4,XB);
                        }
                        Else
                        {
                                XB = XB[1];
                                SetGlobalVar(4,XB);
                        }
       
                SSB =IntPart(SB*0.98);
                XXB =IntPart(XB*1.02);
                SetGlobalVar(0,SSB);
                SetGlobalVar(1,XXB);
                }


               
               
                PlotNumeric("GYC",GYC);
                PlotNumeric("DYC",DYC);
       
                O1 = MAX(O,H);
                O2 = MIN(O,L);
                GYC = NthCon(O1<=XXB,1);
                DYC = NthCon(O2>=SSB,1);
               
                IF(GYC==0)
                {
                        DYC=-1;
                        TB=0;
                        SB=MAX(O,XXB);
                        SSB=IntPart(SB*0.98);
                        XXB=0;
                        XB=0;
                        SetGlobalVar(0,SSB);
                        SetGlobalVar(3,SB);
                        SetGlobalVar(1,XXB);
                        SetGlobalVar(4,XB);
                }
               
                IF(GYC>0)
                {
                        DYC=-1;
                        TB=0;
                        SB=C;
                        IF(MAX(H,O) >= SB[1])
                        {
                                SB = MAX(H,O);
                                SetGlobalVar(3,SB);
                        }
                        Else
                        {
                                SB = SB[1];
                                SetGlobalVar(3,SB);
                        }       
                       
                        SSB=IntPart(SB*0.98);
                        XXB=0;
                        XB=0;
                        SetGlobalVar(1,XXB);
                        SetGlobalVar(0,SSB);
                        SetGlobalVar(4,XB);
                }
               
               
                IF(DYC==0)
                {
                        GYC=-1;
                        TB=0;
                        XB=MIN(O,SSB);
                        XXB=IntPart(XB*1.02);
                        SSB=99999;
                        SB=99999;
                        SetGlobalVar(1,XXB);
                        SetGlobalVar(4,XB);
                        SetGlobalVar(0,SSB);
                        SetGlobalVar(3,SB);
                }
               
                IF(DYC>0)
                {
                        GYC=-1;
                        TB=0;
                        XB=C;
                        IF(MIN(O,L)<=XB[1])
                        {
                                XB = MIN(O,L);
                                SetGlobalVar(4,XB);
                        }
                        Else
                        {
                                XB = XB[1];
                                SetGlobalVar(4,XB);
                        }

                        XXB=IntPart(XB*1.02);
                        SSB=99999;
                        SB=99999;
                        SetGlobalVar(1,XXB);
                        SetGlobalVar(0,SSB);
                        SetGlobalVar(3,SB);
                       
                }
end

554570285

版主在吗 我想写个类似SAR的转向指标 总是有问题 帮我看看