- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 公式模型编写问题提交 (http://weistock.com/bbs/list.asp?boardid=4)
---- 如何编写当月亏损大于15%后本月停止一切交易？ (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=29629)
-- 发布时间：2012/10/5 19:45:28
-- 如何编写当月亏损大于15%后本月停止一切交易？
如何编写当月亏损大于15%后本月停止一切交易？
下个月恢复交易
-- 发布时间：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;
-- 发布时间：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);
-- 发布时间：2012/10/6 16:28:53
--
不错，测试是ok的！
-- 发布时间：2012/10/6 16:58:16
--
多谢！第一个悬赏贴到手了，呵呵！
-- 发布时间：2012/10/6 21:26:00
--
楼上的那个是我给的mark下~
-- 发布时间：2012/10/7 9:31:53
--
多谢版主!
-- 发布时间：2012/10/9 13:45:49
--
好帖
-- 发布时间：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