尝试编写程序 [复制链接]

yk1234

高级大户

Rank: 7 Rank: 7 Rank: 7

精华: 1
UID: 387
积分: 2724
帖子: 167
主题: 33
阅读权限: 80
注册时间: 2007-9-21
最后登录: 2020-2-24

电梯直达

1^#

发表于 2008-1-17 20:11:29 |只看该作者 |倒序浏览

改编顾比倒数线(Guppy Count Back Line)
原码见[url=http://www.tradeblazer.net/forum/thread-1396-1-2.html]

//------------------------------------------------------------------------
// 简称: ZjYkCBL
// 名称: 顾比倒数
// 类别: 技术指标
// 类型: 趋势类
// 输出:
//------------------------------------------------------------------------
Params
      Numeric Length(15);
Vars
      Numeric i;
      NumericSeries CBLHi;
      NumericSeries CBLLo;
      Numeric       MyBAR;

Begin

If(High < Highest(High,Length))
      {
               CBLHi = CBLHi[1];
      }Else
      {
         i=1;
         While(i<=Length&&Low>=Low)          //求第一次Low小于当前Low
               {
                     i=i+1;
               }
                                 MyBAR=i;
               i=i+1;
         While(i<=Length&&Low>=Low[MyBAR])    //求第二次Low小于当前Low
               {
                     i=i+1;
               }
               If(i<=Length&&Low<Low[MyBAR])
               {
                        CBLHi=Low;
               }Else
               {
                     CBLHi = CBLHi[1];
               }
      }
      If(Low>Lowest(Low,length))
      {
         CBLLo=CBLLo[1];
      }Else
      {
               i=1;
               While(i<=Length&&High<=High)
               {
                              i=i+1;
               }
               MyBAR=i;
               i=i+1;
               While(i<=Length&&High<=High[MyBAR])
               {
               i=i+1;
                  }
               If(i<=Length&&High>High[MyBAR])
                  {
                           CBLLo=High;
                  }Else
                     {
                     CBLLo=CBLLo[1];
                  }
      }
         If(CBLHi < Close)
      {
            PlotNumeric("CBLHi",CBLHi,Yellow);
            PlotNumeric("CBLLo",InvalidNumeric);

            PlotNumeric("Open",Min(Open,Close));
            PlotNumeric("Close",Max(Open,Close));
      }Else
      {
            PlotNumeric("CBLHi",InvalidNumeric);
            If(CBLLo > Close)
            {
                     PlotNumeric("CBLLo",CBLLo,Magenta);
                     PlotNumeric("Open",Max(Open,Close));
                     PlotNumeric("Close",Min(Open,Close));
            }Else
            {
                     PlotNumeric("CBLLo",InvalidNumeric);
                     PlotNumeric("Open",Close);
                     PlotNumeric("Close",Close);
            }
      }
      PlotNumeric("High",High);
      PlotNumeric("Low",Low);


End
//------------------------------------------------------------------------
// 编译版本       GS2004.06.12
// 用户版本       2008/01/23 12:09
// 版权所有       yk1234
// 更改声明       TradeBlazer Software保留对TradeBlazer平台
// 每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

[ 本帖最后由 yk1234 于 2008-3-17 11:53 编辑 ]

附件: 你需要登录才可以下载或查看附件。没有帐号？注册

收藏0