标题：如何编写当月亏损大于15%后本月停止一切交易？

1楼

忘记天黑 发表于：2012/10/5 19:45:28

如何编写当月亏损大于15%后本月停止一切交易？

下个月恢复交易

2楼

aback 发表于：2012/10/6 14:10:22

r1:=barslast(month<>ref(month,1));
r2:=asset/ref(asset,r1)<=0.85;
VARIABLE:KUI=0;

IF HOLDING>0 AND r2 THEN
BEGIN
SELL(1,0,MARKET);
KUI:=KUI+1;
END

IF HOLDING=0 AND KUI<1 THEN BUY(1,1,MARKET);

IF TIME=151500 THEN KUI:=0;

3楼

aback 发表于：2012/10/6 15:34:47

这样更简单:

r1:=barslast(month<>ref(month,1));
r2:=asset/ref(asset,r1)>0.85;

IF HOLDING=0 AND R2 THEN BUY(1,1,MARKET);

4楼

忘记天黑 发表于：2012/10/6 16:28:53

不错，测试是ok的！

5楼

aback 发表于：2012/10/6 16:58:16

多谢！第一个悬赏贴到手了，呵呵！

6楼

RogarZ 发表于：2012/10/6 21:26:00

楼上的那个是我给的mark下~

7楼

aback 发表于：2012/10/7 9:31:53

多谢版主!

8楼

jzt3321 发表于：2012/10/9 13:45:49

好帖

9楼

z7c9 发表于：2013/5/3 16:32:53

runmode:1;

setting:='设置';
beginmoney:='月初资金';
stoptrade:='停止交易';
lossmoney:=5000;

if month<>ref(month,1) then begin
setregval(setting,beginmoney,tasset);
setregval(setting,stoptrade,0);
end

if getregval(setting,stoptrade,-1) = 1 then begin
exit;
end else then begin
if getregval(setting,beginmoney,0)-tasset>lossmoney then begin
  tsell(1,0,lmt,close,0,'',stklabel);
  tsellshort(1,0,lmt,close,0,'',stklabel);
  setregval(setting,stoptrade,1);
end
end

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