求赋值函数?

yk1234

If (Condition)
   {
     将该周期及前一周期数值设为1
   } Esle
   {
    为0
   }

yk1234

//------------------------------------------------------------------------
// 简称: Backset
// 名称: 向前赋值
// 类别: 用户函数
// 类型: 用户函数
// 输出: 数值型
//------------------------------------------------------------------------

Params
    NumericSeries Price(1);
    Numeric Length(2);
Vars
        NumericSeries MyVal;
        Numeric  i;
Begin
        For  i=0 To Length-1
         {
           If(Price>Price[1] )
        {
                        MyVal==1;
                 }Else
                {
                        MyVal[ i ] ==0;
                 }
      }
        Return    MyVal;
End

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

编译通过,但调用通不行.

Params
    Numeric Length(3);
Vars
    NumericSeries  Num1;
    NumericSeries  Num2;       
Begin
    Num1=Backset(High[2]==Highest(High,5),Length);
       

End

[ 本帖最后由 nopain 于 2007-12-23 22:07 编辑 ]

yk1234

原帖由 yk1234 于 2007-12-23 20:38 发表
//------------------------------------------------------------------------
// 简称: Backset
// 名称: 向前赋值
// 类别: 用户函数
// 类型: 用户函数
// 输出: 数值型
//------------------------------------ ...

向前赋值函数以条件作为参数,该如何编写?

yk1234

原帖由 nopain 于 2007-12-23 22:08 发表
1、不能像前赋值。所以MyVal[ i ] ==0;的写法是错误的。
2、函数的第一个参数应该是布尔型。

编写向前赋值函数的目的是为了判断High[2]==Highest(High,5)是否成立,若条件成立,只要以后的价格Close>High[2]就可视为买入的条件.
请版主参看附件,该如何编写?(L摘自【证券混沌操作法——低风险获利指南】)