以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  [求助]跪求高手把简单移动平均线算法改成固定时间间隔  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=54287)

--  作者:正版勇往直前
--  发布时间:2013/7/25 8:26:12
--  [求助]跪求高手把简单移动平均线算法改成固定时间间隔
我是刚买标准版的用户(最新测试版功能比较强大)。现在运行的是逐K线模式,改了好多次固定时间间隔都不成功,今天早晨5点起来都没有改成。 跪求高手帮忙,我现在着急啊,买了不会用。请高手再帮忙改成可以发邮件的的万分感谢。

//声明参数           
  INPUT:N1(10,1,1000,1);
  INPUT:N2(20,1,1000,1); 
  INPUT:POSNUM(1,1,20,1); 
  
//准备需要计算的变量
  A1:MA(C,N1);                   
  A2:MA(C,N2);
  
//计算变量
  COND1:=CROSS(A1,A2);                  
  COND2:=CROSS(A2,A1);

//仓位管理
//平多
  IF COND2 THEN  BEGIN  MYEXITPRICE:=IF(OPEN>COND2+MINDIFF,OPEN,COND2+MINDIFF);    SELL(1,POSNUM,LIMITR,MYEXITPRICE),ORDERQUEUE;END
//开空
  IF COND2 THEN  BEGIN  MYENTRYPRICE:=IF(OPEN>COND2+MINDIFF,OPEN,COND2+MINDIFF);  BUYSHORT(1,POSNUM,LIMITR,MYENTRYPRICE),ORDERQUEUE;END
//平空
  IF COND1 THEN  BEGIN  MYEXITPRICE:=IF(OPEN>COND1+MINDIFF,OPEN,COND1+MINDIFF);        SELLSHORT(1,POSNUM,LIMITR,MYEXITPRICE),ORDERQUEUE;END
//开多
  IF COND1 THEN  BEGIN  MYENTRYPRICE:=IF(OPEN>COND1+MINDIFF,OPEN,COND1+MINDIFF);  
  BUY(1,POSNUM ,LIMITR,MYENTRYPRICE),ORDERQUEUE;END

--  作者:jinzhe
--  发布时间:2013/7/25 9:12:54
--  
固定时间间隔在图表交易那里设定,不是在代码里面写出来的
--  作者:正版勇往直前
--  发布时间:2013/7/25 9:14:16
--  
我试试
--  作者:正版勇往直前
--  发布时间:2013/7/25 9:25:26
--  
谢谢啊,给你找麻烦了,我是刚接触程序化的,以后多在论坛里和老师学习。