设为首页收藏本站

 找回密码
 注册
查看: 9206|回复: 5
打印 上一主题 下一主题

公布一经典的15分钟日内突破的交易公式源代码,求编译 [复制链接]

Rank: 4

精华
0
UID
218974
积分
322
帖子
265
主题
17
阅读权限
50
注册时间
2015-9-5
最后登录
2023-5-7
跳转到指定楼层
1#
发表于 2015-9-11 11:11:30 |只看该作者 |倒序浏览
如题,该源代码如下:

Rank: 4

精华
0
UID
218974
积分
322
帖子
265
主题
17
阅读权限
50
注册时间
2015-9-5
最后登录
2023-5-7
2#
发表于 2015-9-11 11:12:03 |只看该作者
//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

使用道具 举报

Rank: 4

精华
0
UID
218974
积分
322
帖子
265
主题
17
阅读权限
50
注册时间
2015-9-5
最后登录
2023-5-7
3#
发表于 2015-9-11 11:16:46 |只看该作者
看着非常的眼熟,乍一看以为是TB的,仔细看了一下,原来是易盛的程序化交易软件的源代码~~~~~~~~~~~~

使用道具 举报

Rank: 4

精华
0
UID
218974
积分
322
帖子
265
主题
17
阅读权限
50
注册时间
2015-9-5
最后登录
2023-5-7
4#
发表于 2015-9-11 11:21:19 |只看该作者
topgun0791 发表于 2015-9-11 11:16
看着非常的眼熟,乍一看以为是TB的,仔细看了一下,原来是易盛的程序化交易软件的源代码~~~~~~~~~ ...


PS:本人菜鸟一枚,刚刚使用TB,不懂编程,求该源代码的TB的V5的编译~~~~~~~

使用道具 举报

Rank: 4

精华
0
UID
218974
积分
322
帖子
265
主题
17
阅读权限
50
注册时间
2015-9-5
最后登录
2023-5-7
5#
发表于 2015-9-11 11:22:48 |只看该作者
据说,该源代码的实战价值很好,很强大~~~~~~~·

使用道具 举报

Rank: 1

精华
0
UID
237420
积分
36
帖子
27
主题
6
阅读权限
10
注册时间
2016-7-21
最后登录
2021-7-1
6#
发表于 2016-9-1 14:37:44 |只看该作者
LZ试过了吗?效果如何?

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

bottom

静态版|手机版|联系我们|交易开拓者 ( 粤ICP备07044698   

GMT+8, 2024-5-1 07:04

Powered by Discuz! X2 LicensedChrome插件扩展

© 2011-2012 交易开拓者 Inc.

回顶部