查看: 196|回复: 1

峰值回撤转向 帮我看看怎么不能实现 [复制链接]

Rank: 1

精华
0
UID
274141
积分
9
帖子
7
主题
2
阅读权限
10
注册时间
2018-12-27
最后登录
2019-3-10
发表于 2019-1-10 15:59:59 |显示全部楼层
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

Rank: 1

精华
0
UID
274141
积分
9
帖子
7
主题
2
阅读权限
10
注册时间
2018-12-27
最后登录
2019-3-10
发表于 2019-1-10 16:05:44 |显示全部楼层
版主在吗 我想写个类似SAR的转向指标 总是有问题 帮我看看

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

bottom

静态版|手机版|联系我们|交易开拓者 ( 粤ICP备07044698   

GMT+8, 2019-3-24 23:24

Powered by Discuz! X2 LicensedChrome插件扩展

© 2011-2012 交易开拓者 Inc.

回顶部