向各位高手紧急求助一个编程问题，在线等，急！

jeckforlete

我是想写一个四周法则的程序
突破前5天的最高价平空做多，突破前5天的最低价平多做空
写完了虽然通过语法测试却显示没有交易过程
可是这是一个一直在市的系统啊
是哪里编错了呢？
请各位高手指点啊！急用！

Params
        Numeric Length1(5);
        Numeric Length2(6);
Vars
        Bool Condition1;
        Bool Condition2;
        NumericSeries HighestValue;
        NumericSeries LowestValue;
Begin
        HighestValue = Highest(High,Length1);
        LowestValue = Lowest(Low,Length2);
        Condition1 = Close>HighestValue;
        Condition2 = LowestValue>Close;
        if (Condition1)
        {
                Buy(1,Close);
        }
        if (Condition2)
        {
                Sell(1,Close);
        }
End

jeckforlete

还有一个问题

系统的测试报告在计算盈利的时候算杠杆系数了吗？

nopain

原帖由 jeckforlete 于 2007-9-20 20:01 发表
还有一个问题

系统的测试报告在计算盈利的时候算杠杆系数了吗？

已经考虑保证金比例。

nopain

原帖由 jeckforlete 于 2007-9-20 19:37 发表
我是想写一个四周法则的程序
突破前5天的最高价平空做多，突破前5天的最低价平多做空
写完了虽然通过语法测试却显示没有交易过程
可是这是一个一直在市的系统啊
是哪里编错了呢？
请各位高手指点啊！急用！

Params
        Numeri ...

公式的条件写的有点问题
HighestValue是最近5个周期的最高值，肯定会>=Close。
您的意思应该是
condition1 = (Close > HighestValue[1])吧.

jeckforlete

原帖由 nopain 于 2007-9-20 20:59 发表


公式的条件写的有点问题
HighestValue是最近5个周期的最高值，肯定会>=Close。
您的意思应该是
condition1 = (Close > HighestValue[1])吧.

对的，是这个意思！应该是当天的价格超过前几天的最高价做多
我改成了这样：

Params
        Numeric Length1(2);
        Numeric Length2(19);
Vars
        Bool Condition1;
        Bool Condition2;
        NumericSeries HighestValue;
        NumericSeries LowestValue;
Begin
        HighestValue = Highest(High[1],Length1);
        LowestValue = Lowest(Low[1],Length2);
        Condition1 = Close>HighestValue;
        Condition2 = LowestValue>Close;
        if (Condition1)
        {
                Buy(1,Close);
        }
        if (Condition2)
        {
                Sell(1,Close);
        }
End



您帮忙看看表达出来是这个意思吗？

jeckforlete

还有一个问题

我想请教一下波峰波谷的值怎么取呢？代码应该怎么写？

nopain

原帖由 jeckforlete 于 2007-9-20 21:18 发表
还有一个问题

我想请教一下波峰波谷的值怎么取呢？代码应该怎么写？

参看帮助文件中用户函数Extremes的帮助！ 您也可以看看Highest和Lowest的代码

jeckforlete

好的！我去看看
谢谢老大！

jeckforlete

老大，不好意思，太复杂了，老板急着要，我看一时半会我是做不出来了，老大能给帮帮忙吗？

我找到一段大智慧的源码


ma6:ma(c,6),colorwhite,linethick2;
ma18:ma(c,18),color0099ff,linethick2;
ma55:ma(c,55),colorff00FF;
ma125:ma(c,125),colorffcc66;
ma250:ma(c,250),colorblue;
TY:=C;
A1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(A1,10); C1:=BACKSET(B1,10+1); HD:=FILTER(C1,10);
A2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(A2,10); C2:=BACKSET(B2,10+1); LD:=FILTER(C2,10);
A:=REF(C,BARSLAST(HD)); B:=REF(C,BARSLAST(LD));
t1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
t2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波峰:IF(t1,A,A),ColorFF00FF,POINTDOT;
STICKLINE(t1,A,A,9,0),ColorFF00FF;
波谷:IF(t2,B,B),Color80FF00,POINTDOT;
STICKLINE(t2,B,B,9,0),Color80FF00;
买进价:=((c-ref(ma6,1))/6+ma6)*1.004;
买进条件:=cross(c,买进价) and 买进价>ref(买进价,1);
白K买进:IF(买进条件,l,h),COLORWHITE,POINTDOT;
STICKLINE(买进条件,h,l,0,1),colorwhite,linethick2;
STICKLINE(买进条件,o,c,4,1),colorwhite,linethick2;
加码价:=((c-ref(ma18,1))/18+ma18)*1.004;
加码条件:=cross(c,加码价) and 加码价>ref(加码价,1);
黄K加码:IF(加码条件,l,h),coloryellow,POINTDOT;
STICKLINE(加码条件,h,l,0,1),coloryellow,linethick2;
STICKLINE(加码条件,o,c,4,1),coloryellow,linethick2;

jeckforlete

老大一定要帮忙啊！