公式模型编写问题提交-交易系统范例，请大家点评，找出其中的错误或不妥：金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  交易系统范例，请大家点评，找出其中的错误或不妥：  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=2746)

--  作者：msedu
--  发布时间：2010/9/7 10:25:38
--  交易系统范例，请大家点评，找出其中的错误或不妥：

Input:N1(6),N2(12);

LC := REF(CLOSE,1);
RSI_6:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;
RSI_12:SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100;

ConBuy:=(Rsi_6 > Rsi_12) And Ref(Rsi_6,1)<=Ref(Rsi_12,1);
ConSell:=(Rsi_6 <= Rsi_12) And Ref(Rsi_6,1)>Ref(Rsi_12,1);
ConBuyShort:=(Rsi_6 <= Rsi_12) And Ref(Rsi_6,1)>Ref(Rsi_12,1);
ConSellShort:=(Rsi_6 > Rsi_12) And Ref(Rsi_6,1)<=Ref(Rsi_12,1);

//做多、平空
If (ConBuy Or ConSellShort) And TisRemainEx(1,\'888888\',\'Ta01\')=0 Then Begin
TSellShort(TSellHoldingEx(\'888888\',\'Ta01\',1)>0,0,LMT,DYNAINFO(28),0,\'888888\',\'Ta01\');
Tbuy(TbuyHoldingEx(\'888888\',\'Ta01\',1)=0,1,LMT,DYNAINFO(34),0,\'888888\',\'Ta01\');
DebugFile(\'F:\\DebugFile.txt\',\'当前系统发出的信号是：做多 %.2f\',CurrentTime);
End

//做空、平多
If (ConSell Or ConBuyShort) And TisRemainEx(1,\'888888\',\'Ta01\')=0 Then Begin
TSell(TbuyHoldingEx(\'888888\',\'Ta01\',1)>0,1,LMT,DYNAINFO(28),0,\'888888\',\'Ta01\');
TBuyShort(TSellHoldingEx(\'888888\',\'Ta01\',1)=0,1,LMT,DYNAINFO(28),0,\'888888\',\'Ta01\');
DebugFile(\'F:\\DebugFile.txt\',\'当前系统发出的信号是：做空 %.2f\',CurrentTime);
End

[此贴子已经被作者于2010-9-7 10:27:45编辑过]

--  作者：董小球
--  发布时间：2010/9/7 14:23:58
--
不做交易，只能检测了代码语法没啥错误，至于算法好坏，还请实盘高人指点

--  作者：beitang
--  发布时间：2010/9/7 21:56:03
--

做一下历史回测，看看表现如何。

--  作者：jery
--  发布时间：2010/9/7 22:46:11
--

无法使用

--  作者：msedu
--  发布时间：2010/9/8 11:44:35
--

用是，肯定能用的，只是，其中有几处错误，希望大家能开动脑筋、找出来。。。。

--  作者：wd369
--  发布时间：2012/2/23 1:09:41
--

其中有错误,导致很难成交.应该是DYNAINFO(34)

TSellShort(TSellHoldingEx(\'888888\',\'Ta01\',1)>0,0,LMT,DYNAINFO(28),0,\'888888\',\'Ta01\');