策略编写求助区-老师帮忙写个程序金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  策略编写求助区  (http://weistock.com/bbs/list.asp?boardid=11)
----  老师帮忙写个程序  (http://weistock.com/bbs/dispbbs.asp?boardid=11&id=142365)

--  作者：huanglei2011
--  发布时间：2016/11/8 15:35:55
--  老师帮忙写个程序

1.定义三条均线;
5日均线
10日均线
20日均线

2.求5日均线、10日均线、20日均线三者的最大值与最小值

3.当价格大于3条均线的最大值，平空做多；
当价格小于3条均线的最大值，平多做空；

4.当根K线跌幅超过2%，（当根K线收盘价与上一K线收盘价的比值）平多；
当根K线涨幅超过2%，（当根K线收盘价与上一K线收盘价的比值）平空；

--  作者：智开平量化
--  发布时间：2016/11/9 22:41:15
--

直接去www.zkplh.cn网站下，便宜的很，做活动只需要10块一天

--  作者：Damoclus
--  发布时间：2016/12/10 21:35:17
--

1.定义三条均线;
5日均线
10日均线
20日均线

2.求5日均线、10日均线、20日均线三者的最大值与最小值

3.当价格大于3条均线的最大值，平空做多；
当价格小于3条均线的最大值，平多做空；

4.当根K线跌幅超过2%，（当根K线收盘价与上一K线收盘价的比值）平多；
当根K线涨幅超过2%，（当根K线收盘价与上一K线收盘价的比值）平空；

ma5:ma(c,5);
ma10:ma(c,10);
ma20:ma(c,20);
a:=max(ref(ma5,1),ref(ma10,1));
b:=min(ref(ma5,1),ref(ma10,1));
CC:=ref(c,1);
//交易条件

if c>max(a,ref(ma20,1)) then begin
sellshort(1,0,market);
buy(holding,1,market);
end

if c<min(b,ref(ma20,1)) then begin
sell(1,0,market);
buyshort(holding=0,1,market);
end
if (c-CC)/CC<-0.02 then begin
sell(1,0,market);
end
if (c-CC)/CC>0.02 then begin
sellshort(1,0,market);
end

持仓:holding,linethick0;
资产:asset,noaxis;
可用现金:cash(0),linethick0;

不是大牛，试着编了一下。。。

--  作者：Damoclus
--  发布时间：2016/12/10 21:39:34
--

1.定义三条均线;
5日均线
10日均线
20日均线

2.求5日均线、10日均线、20日均线三者的最大值与最小值

3.当价格大于3条均线的最大值，平空做多；
当价格小于3条均线的最大值，平多做空；

4.当根K线跌幅超过2%，（当根K线收盘价与上一K线收盘价的比值）平多；
当根K线涨幅超过2%，（当根K线收盘价与上一K线收盘价的比值）平空；

ma5:ma(c,5);
ma10:ma(c,10);
ma20:ma(c,20);
a:=max(ref(ma5,1),ref(ma10,1));
b:=min(ref(ma5,1),ref(ma10,1));
CC:=ref(c,1);
//交易条件

if c>max(a,ref(ma20,1)) then begin
sellshort(1,0,market);
buy(holding,1,market);
end

if c<min(b,ref(ma20,1)) then begin
sell(1,0,market);
buyshort(holding=0,1,market);
end
if (c-CC)/CC<-0.02 then begin
sell(1,0,market);
end
if (c-CC)/CC>0.02 then begin
sellshort(1,0,market);
end

持仓:holding,linethick0;
资产:asset,noaxis;
可用现金:cash(0),linethick0;

不是大牛，试着编了一下。。。

--  作者：Damoclus
--  发布时间：2016/12/11 13:22:16
--
有个错误，
if c>max(a,ref(ma20,1)) then begin
sellshort(1,0,market);
buy(holding=0,1,market);
end