求赋值函数?

yk1234

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

nopain

只能修改当前周期的值，不能修改前一周期的值，
否则就变成了未来的数据会影响已经出现过的判断或趋势。

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 编辑 ]

nopain

1、不能像前赋值。所以MyVal[ i ] ==0;的写法是错误的。
2、函数的第一个参数应该是布尔型。

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摘自【证券混沌操作法——低风险获利指南】)

nopain

这样的想法不需要向前赋值，当(High[2] == highest(high,5))的条件满足后，您可以用变量Value1记录下High[2]的值，并且设置标志位。然后只要Close>Value1就买入。
大致代码如下：

1. Vars
   
2.      NumericSeries Value1;
   
3.      BoolSeries bBuyCon(false);
   
4. Begin
   
5.     If(CurrentBar >= 0)
   
6.     {
   
7.          Value1 = Value1[1];
   
8.          bBuyCon = bBuyCon[1];
   
9.     }
   
10. 
    
11.     If(bBuyCon && Value1!=InvalidNumeric && Close > Value1)
    
12.     {
    
13.           Buy(1,Close);
    
14.           bBuyCon = false;
    
15.     }
    
16. 
    
17.     If(High[2] == Highest(high,5))
    
18.     {
    
19.           Value1 = High[2];
    
20.           bBuyCon = True;
    
21.     }        
    
22. End

复制代码