为什么简单程序却没有答案? [复制链接]

yxb0001

高级散户

Rank: 4

精华: 0
UID: 1656
积分: 273
帖子: 36
主题: 14
阅读权限: 50
注册时间: 2008-5-24
最后登录: 2019-3-31

电梯直达

1^#

发表于 2008-7-3 17:06:06 |只看该作者 |倒序浏览

为什么简单程序却求不出序列变量aa、bb的值?
Vars
NumericSeries numbar;
NumericSeries aa;
NumericSeries bb;
Begin
If(CurrentBar==0)
{
      If(close>open)
      {
            aa=1;
            bb=0;
      }
      Else
      If(close<open)
      {
            bb=1;
            aa=0;
      }
      numbar=1;
}
Else
numbar=numbar[1]+1;
If(Close>Open)
{
      aa=aa[1]+1;
      bb=bb[1];
}
Else
If(close<open)
{
      bb=bb[1]+1;
      aa=aa[1];
}
FileAppend("c:\\a.log","aa="+Text(aa));
FileAppend("c:\\a.log","bb="+Text(bb));
FileAppend("c:\\a.log","numbar="+Text(numbar));
End

收藏0

使用道具举报

nopain

管理员

Rank: 10

精华: 20
UID: 4
积分: 22709
帖子: 4802
主题: 64
阅读权限: 255
注册时间: 2007-7-20
最后登录: 2024-1-15

2^#

发表于 2008-7-3 18:28:15 |只看该作者

Vars
NumericSeries numbar;
NumericSeries aa;
NumericSeries bb;
Begin
If(CurrentBar==0)
{
      If(close>open)
      {
            aa=1;
            bb=0;
      }
      Else
      If(close<open)
      {
            bb=1;
            aa=0;
      }
      numbar=1;
}
Else
{
numbar=numbar[1]+1;
If(Close>Open)
{
      aa=aa[1]+1;
      bb=bb[1];
}
Else
If(close<open)
{
      bb=bb[1]+1;
      aa=aa[1];
}
FileAppend("c:\\a.log","aa="+Text(aa));
FileAppend("c:\\a.log","bb="+Text(bb));
FileAppend("c:\\a.log","numbar="+Text(numbar));

}

End