请教nopain版主,这个语句用TradeBlazer如何简单表述?

richard_liu

N1:=IF(REF(H,N1)>=REF(H,N1+1) AND REF(L,N1)>=REF(L,N1+1),1,IF(REF(H,N1)>=REF(H,N1+2) AND REF(L,N1)>=REF(L,N1+2),2,
    IF(REF(H,N1)>=REF(H,N1+3) AND REF(L,N1)>=REF(L,N1+3),3,IF(REF(H,N1)>=REF(H,N1+4) AND REF(L,N1)>=REF(L,N1+4),4,
    IF(REF(H,N1)>=REF(H,N1+5) AND REF(L,N1)>=REF(L,N1+5),5,IF(REF(H,N1)>=REF(H,N1+6) AND REF(L,N1)>=REF(L,N1+6),6,
    IF(REF(H,N1)>=REF(H,N1+7) AND REF(L,N1)>=REF(L,N1+7),7,IF(REF(H,N1)>=REF(H,N1+8) AND REF(L,N1)>=REF(L,N1+8),8,
    IF(REF(H,N1)>=REF(H,N1+9) AND REF(L,N1)>=REF(L,N1+9),9,IF(REF(H,N1)>=REF(H,N1+10) AND REF(L,N1)>=REF(L,N1+10),10,0))))))))))

nopain

原帖由 richard_liu 于 2007-7-29 10:09 发表
N1:=IF(REF(H,N1)>=REF(H,N1+1) AND REF(L,N1)>=REF(L,N1+1),1,IF(REF(H,N1)>=REF(H,N1+2) AND REF(L,N1)>=REF(L,N1+2),2,
    IF(REF(H,N1)>=REF(H,N1+3) AND REF(L,N1)>=REF(L,N1+3),3,IF(REF(H,N1)>=REF(H,N1+4)  ...

您把REF(H,1)这样的方式改为High[1]就可以拉

richard_liu

谢谢nopain版主!  但感觉有更好的编写方法, 如利用循环语句, 但我不熟, 有请高手.

nopain

原帖由 richard_liu 于 2007-7-29 10:16 发表
谢谢nopain版主!  但感觉有更好的编写方法, 如利用循环语句, 但我不熟, 有请高手.

是的，类分析家的语法只能实现这种罗列的条件组合。
TB可以用循环函数来实现，更重要的是代码看起来很清晰。
看着这样一大排的AND我就眼晕。

richard_liu

上述语句, 我试写了一下

Params
    Numeric Length(10);
    Numeric N1(10);
Vars
    Numeric NValue(0);
    Numeric i;
Begin
    for i = N1  to N1+Length - 1
    {
    IF (High>=High[i+1] AND LOW>=LOW[i+1])
         NValue = NValue + i ;
    }
    Return NValue;
End

保存公式时, 报错:
C0122 --------Return语句的返回值类型与公式定义的返回值类型不符



请教nopain版主, 如何改动?

skywalker

原帖由 richard_liu 于 2007-7-29 11:37 发表
上述语句, 我试写了一下

Params
    Numeric Length(10);
    Numeric N1(10);
Vars
    Numeric NValue(0);
    Numeric i;
Begin
    for i = N1  to N1+Length - 1
    {
    IF (High>=High AND LOW>=LOW)
     ...

你在新建立公式函数的时候，曾经跳出来过一个窗口，该窗口要求你填写函数名称、简称和返回值类型。如果你在窗口中声明公式将返回BOOL值，而象你目前这样实际却返回了一个数值类型，则就会给出那个警告了。

在那个窗口中你其实定义的是函数原型，在编辑器中你其实是在写函数体。函数原型的声明和函数体的具体实现必须互相匹配才行。

xiaoshansanzhi

回复 1# richard_liu


    虚心学习，积沙成塔

evaner

回复 2# nopain

请教一下nopain，当根k线结束前2分钟，这个怎么表达？
貌似论坛里头也没有这个的解释帖，感谢！