策略编写求助区-突破系统求助金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

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

--  作者：llmyb
--  发布时间：2011/11/24 16:10:06
--  突破系统求助

突破系统

向上突破2小时高点，方向做多，用参数F标志多，并赋值2，一直有效至空的方向出来。

向下突破2小时低点，方向做空，用参数F标志多，并赋值1，一直有效至多的方向出来。

当天

向上突破30分钟高点，方向做多，用参数X标志多，并赋值2，一直有效至空的方向出来或收盘赋值0。

向下突破30分钟低点，方向做空，用参数X标志空，并赋值1，一直有效至多的方向出来或收盘赋值0。

当2小时方向F做多，当天方向X做多时，用高点上破10分钟均线做多，并以上破时的5分钟最低点做止损。下破30分钟均线出场。

当2小时方向F做多，当天方向X做空时，用高点上破30分钟均线做多，并以上破时的5分钟最低点做止损。下破10分钟均线出场。

当2小时方向F做多，当天方向X做多时，用低点下破30分钟均线做空，并以下破时的5分钟最高点做止损。上破10分钟均线出场。

当2小时方向F做多，当天方向X做空时，用低点下破10分钟均线做空，并以下破时的5分钟最高点做止损。上破10分钟均线出场。

当2小时方向F做空，当天方向X做空时，用低点下破10分钟均线做空，并以下破时的5分钟最高点做止损。上破30分钟均线出场。

当2小时方向F做空，当天方向X做多时，用低点下破30分钟均线做空，并以下破时的5分钟最高点做止损。上破10分钟均线出场。

当2小时方向F做空，当天方向X做空时，用高点上破30分钟均线做多，并以上破时的5分钟最低点做止损。下破10分钟均线出场。

当2小时方向F做空，当天方向X做多时，用高点下破10分钟均线做多，并以上破时的5分钟最低点做止损。下破10分钟均线出场。

--  作者：26327756l
--  发布时间：2011/11/24 17:06:16
--

问题正在解决中

--  作者：26327756l
--  发布时间：2011/11/25 15:39:45
--

当2小时方向F做空，当天方向X做多时，用高点下破10分钟均线做多，并以上破时的5分钟最低点做止损。下破10分钟均线出场。

当2小时方向F做多，当天方向X做空时，用低点下破10分钟均线做空，并以下破时的5分钟最高点做止损。上破10分钟均线出场。

请确认上两点是否书写错误

--  作者：26327756l
--  发布时间：2011/11/25 15:48:40
--

按照要求写的

如有不符，可以的话请自行改正，公司内有提示说明。

F:=\'F\';
X:=\'X\';
ll:=ma(l,5);
hh:=ma(h,5);
ma10:ma(c,10);
ma30:ma(c,30);

if holding=0 then
begin
EXTGBDATASET(\'F\',0);
EXTGBDATASET(\'X\',0);
end

hh120:=hhv(h,120);
ll120:=llv(l,120);

//向上突破2小时高点，方向做多，用参数F标志多，并赋值2，
//一直有效至空的方向出来。
if c>ref(hh120,1) then
begin
sellshort(holding<0,0,market);
buy(holding=0,1,market);
EXTGBDATASET(\'F\',2);
end
//向下突破2小时低点，方向做空，用参数F标志多，并赋值1，
//一直有效至多的方向出来。
if c<ref(ll120,1) then
begin
sell(holding>0,0,market);
buyshort(holding=0,1,market);
EXTGBDATASET(\'F\',1);
end

hh30:=hhv(h,30);
ll30:=llv(l,30);
//向上突破30分钟高点，方向做多，用参数X标志多，并赋值2，
//一直有效至空的方向出来或收盘赋值0。
if c>ref(hh30,1) then
begin
sellshort(holding<0,0,market);
buy(holding=0,1,market);
EXTGBDATASET(\'X\',2);
end
//向下突破30分钟低点，方向做空，用参数X标志空，并赋值1，
//一直有效至多的方向出来或收盘赋值0。
if c<ref(ll30,1) then
begin
sell(holding>0,0,market);
buyshort(holding=0,1,market);
EXTGBDATASET(\'X\',1);
end
//当2小时方向F做多，当天方向X做多时，用高点上破10分钟均线做多，
//并以上破时的5分钟最低点做止损。下破30分钟均线出场。
if EXTGBDATA(\'F\')=2 and EXTGBDATA(\'X\')=2 then
begin
if h>ma10 then
begin
   buy(holding>=0,1,market);
   sell(holding>0,1,limit,ll);
end
if H<ma30 then sell(holding>0,0,market);
end
//当2小时方向F做多，当天方向X做空时，用高点上破30分钟均线做多，
//并以上破时的5分钟最低点做止损。下破10分钟均线出场。
if EXTGBDATA(\'F\')=2 and EXTGBDATA(\'X\')=1 then
begin
if h>ma30 then
begin
   buy(holding>=0,1,market);
   sell(holding>0,1,limit,ll);
end
if H<ma10 then sell(holding>0,0,market);
end

//当2小时方向F做多，当天方向X做多时，用低点下破30分钟均线做空，
//并以下破时的5分钟最高点做止损。上破10分钟均线出场。
if EXTGBDATA(\'F\')=2 and EXTGBDATA(\'X\')=2 then
begin
if l<ma30 then
begin
   buyshort(holding<=0,1,market);
   sellshort(holding<0,1,limit,hh);
end
if l>ma10 then sellshort(holding<0,0,market);
end

//当2小时方向F做多，当天方向X做空时，用低点下破10分钟均线做空，
//并以下破时的5分钟最高点做止损。上破10分钟均线出场。
if EXTGBDATA(\'F\')=2 and EXTGBDATA(\'X\')=1 then
begin
if l<ma10 then
begin
   buyshort(holding<=0,1,market);
   sellshort(holding<0,1,limit,hh);
end
if l>ma10 then sellshort(holding<0,0,market);
end
//当2小时方向F做空，当天方向X做空时，用低点下破10分钟均线做空，
//并以下破时的5分钟最高点做止损。上破30分钟均线出场。
if EXTGBDATA(\'F\')=1 and EXTGBDATA(\'X\')=1 then
begin
if l<ma10 then
begin
   buyshort(holding<=0,1,market);
   sellshort(holding<0,1,limit,hh);
end
if l>ma30 then sellshort(holding<0,0,market);
end

//当2小时方向F做空，当天方向X做多时，用低点下破30分钟均线做空，
//并以下破时的5分钟最高点做止损。上破10分钟均线出场。
if EXTGBDATA(\'F\')=1 and EXTGBDATA(\'X\')=2 then
begin
if l<ma30 then
begin
   buyshort(holding<=0,1,market);
   sellshort(holding<0,1,limit,hh);
end
if l>ma10 then sellshort(holding<0,0,market);
end
//当2小时方向F做空，当天方向X做空时，用高点上破30分钟均线做多，
//并以上破时的5分钟最低点做止损。下破10分钟均线出场。
if EXTGBDATA(\'F\')=1 and EXTGBDATA(\'X\')=1 then
begin
if h>ma30 then
begin
   buy(holding>=0,1,market);
   sell(holding>0,1,limit,ll);
end
if h<ma10 then sell(holding>0,0,market);
end
//当2小时方向F做空，当天方向X做多时，用高点下破10分钟均线做多，
//并以上破时的5分钟最低点做止损。下破10分钟均线出场。
if EXTGBDATA(\'F\')=1 and EXTGBDATA(\'X\')=2 then
begin
if h>ma10 then
begin
   buy(holding>=0,1,market);
   sell(holding>0,1,limit,ll);
end
if h<ma10 then sell(holding>0,0,market);
end

if time=150000 then EXTGBDATASET(\'X\',0);

--  作者：llmyb
--  发布时间：2011/11/29 16:56:33
--  多谢了，26327756l
26327756l

--  作者：蔡宛宏
--  发布时间：2011/12/19 16:56:46
--
谢谢