Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:交易系统范例,请大家点评,找出其中的错误或不妥:

1楼
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编辑过]
2楼
董小球 发表于:2010/9/7 14:23:58
不做交易,只能检测了代码语法没啥错误,至于算法好坏,还请实盘高人指点
3楼
beitang 发表于:2010/9/7 21:56:03

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

4楼
jery 发表于:2010/9/7 22:46:11

无法使用

5楼
msedu 发表于:2010/9/8 11:44:35

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

 

6楼
wd369 发表于:2012/2/23 1:09:41

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

 

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

共6 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.03320 s, 3 queries.