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

按照要求写的

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

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);

主题：突破系统求助