以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  求月亏损达到2000停止交易代码  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=87942)
--  作者：wdbbs
--  发布时间：2015/12/1 21:32:46
--  求月亏损达到2000停止交易代码
求月亏损达到2000停止交易代码?
--  作者：yukizzc
--  发布时间：2015/12/1 22:05:38
--  

 

variable：lossnum=0;// 全局变量,平仓时判断一下是盈利/亏损，若亏损lossnum就加1

cs:=2000;//限定亏损次数

 if month<>ref(month,1) then lossnum:=0;// 月初时候重置0

 

ma5:=ma(5,close);

ma20:=ma(20,close);

 

con1:=cross(ma5,ma20);

con2:=cross(ma20,ma5);

if cond2 and holding>0 then

begin

  sell(1,1,thisclose);

  if c<enterprice then lossnum:=lossnum+1;

end

if cond1 and holding=0 and lossnum<cs then  buy(1,1,thisclose);