程序化示例

论坛版主

//15分钟突破
//两个参数：
//1。运行在1分钟线上，就设置为 15；运行在5分钟线上，就设置为3
//2.离场时间,股指:0.1529,其他0.1459
//------------------------------------------------------------------------
// 类别: 交易指令
// 类型: 用户应用
//------------------------------------------------------------------------
Params
Integer StaticsBarCount(3);  //统计阶段K线根数
Numeric LeaveTime(0.1459); //离场时间
GlobalVars
Numeric Min15High(0);  //开盘15分钟的最高价
Numeric Min15Low(1000000);  //开盘15分钟的最低价

Numeric EntryBarHigh(-1);  //进场时K线的最高价
Numeric EntryBarLow(-1);  //进场时K线的最低价

Integer EntryBarIdx(-1);  //进场时的K线索引值
bool bHaveInit(False);
Vars  
//局部变量定义
Begin
   
Integer TodayBars = BarsSinceToday + 1;
if(TodayBars ==1) //当天第一根K线重新初始化
{
  if(!bHaveInit)
  {
   Min15High = 0;
   Min15Low = 1000000;
   bHaveInit = True;
  }
}
Else
{
  bHaveInit = False;
}

if(TodayBars <= StaticsBarCount) //前15分钟只做统计
{
  Min15High = Max(High,Min15High);  //前15分钟的最高价
  Min15Low  = Min(Low,Min15Low);   //前15分钟的最低价
}
Else//15分钟后开始交易
{
  if(A_BuyPosition + A_SellPosition == 0 && Time<LeaveTime) //当前没有持仓,判断是否开仓
  {
   if(Q_Close > Min15High)
   {
    Buy(1,Q_AskPrice);  //以申卖价开1手多仓
    EntryBarIdx = CurrentBar;
    EntryBarHigh = High;
    EntryBarLow = Low;
   }
   Else if(Q_Close < Min15Low)
   {
    SellShort(1,Q_BidPrice); //以申买价开1手空仓
    EntryBarIdx = CurrentBar;
    EntryBarLow = Low;
    EntryBarHigh = High;
   }
  }
  Else  //存在持仓，判断是否止损
  {
   
   if(CurrentTime>=LeaveTime) //到达离场时间
   {
    if(A_BuyPosition>0)
    {
     Sell(0,Q_BidPrice); //卖出，平多仓
     PlotText(Close,"闭市离场");
    }
   
    if(A_SellPosition >0)
    {
     BuyToCover(0,Q_AskPrice);//买入，平空仓
     PlotText(Close,"闭市离场");
    }
   }
   Else
   {
    //时间小于离场时间,判断止损
    if(CurrentBar == EntryBarIdx) //进场K线还没有走完
    {
     EntryBarHigh = High;
     EntryBarLow = Low;
     if(A_BuyPosition>0 && Q_Close<Low[1])
     {
      Sell(0,Q_BidPrice); //卖出，平多仓
      PlotText(Close,"止损");
      Print('11');
     }
     
     if(A_SellPosition >0 && Q_Close>High[1])
     {
      BuyToCover(0,Q_AskPrice);//买入，平空仓
      PlotText(Close,"止损");
      Print('22');
     }     
    }
    Else
    {
     if(A_BuyPosition>0 && Q_Close<EntryBarLow)
     {
      Sell(0,Q_BidPrice); //卖出，平多仓
      PlotText(Close,"止损");
     }
     
     if(A_SellPosition >0 && Q_Close>EntryBarHigh)
     {
      BuyToCover(0,Q_AskPrice);//买入，平空仓
      PlotText(Close,"止损");
     }  
    }
   
   }
  }
  
}


PlotNumeric("多头突破线",Min15High,0,RGB(255,0,255));
PlotNumeric("多头止损线",EntryBarLow,0,RGB(100,0,100));

PlotNumeric("空头突破线",Min15Low,0,RGB(0,255,0));
PlotNumeric("空头止损线",EntryBarHigh,0,RGB(0,100,0));

End

啊K十四K

顶起来！

h8rtherfr6t5

大家有什么好看法，赶快说说湖南卫视《我是歌手》总决赛上周收官，本周五晚22:00将接续现场直播《我是歌手》2015顶峰会，三季共12位顶级唱将再度集结舞台，搜一下网址包养网怎样找富婆zuoyangzi9.cn---fupo5959.cn

只取壹瓢

谢谢版主！

收藏了。

可否编译为TB的源代码？

谢谢

潘建凯77

谢谢你的付出，收藏了。

呼吸77

当反指不可怕

骄阳如我

论坛版主 发表于 2012-5-18 08:01
测试了2012年8个主要合约   只有TA略亏
其它的竟然都盈利

接入实盘试试

菜小鸟

我是来打酱油的，为了积分哈

kdjobv1

谢谢楼主分享

kdjobv1

谢谢楼主分享

盛立金融

你好，想使用优秀的高频程序化平台，可以试用SPT专业版平台。

z5678

谢谢版主，很好的一个方案

混沌炒单

学习，

股道西风

顶，

收藏。。。。

唐小僧

{:soso_e179:}

期市劫匪

请解答一下，那个止损线是怎么定义的，突破成交以后，加减几个点么？

只取壹瓢

是啊

烦请老大把８大品种的测试结果图发布出来学习，谢谢  

F_Phoebe

测试了。都是亏的！

F_Phoebe

听说易盛下单是挺快的~

绽放的洗衣粉

有规则就是好

愛の救贖

好帖必顶，就是没看懂