设为首页收藏本站

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

定时定价开仓指令,可配合定时定价平仓指令使用: [复制链接]

初级大户

天蓬大元帅

Rank: 5Rank: 5

精华
0
UID
1138
积分
1217
帖子
161
主题
61
阅读权限
60
注册时间
2008-1-30
最后登录
2009-10-5
跳转到指定楼层
1#
发表于 2008-11-13 10:23:41 |只看该作者 |倒序浏览
Params
Numeric pnTime1(1458000);
Numeric pnTime2(1530000);
Numeric pnPrice1(1000000);
Numeric pnPrice2(0);
Numeric pnTimes(3);
Numeric nLots(1);
Numeric nLongOrShort(0);//开多仓还是开空仓,1开多,2开空,为了安全初始值设为0
Vars
Bool Con1(False);
Bool Con2(False);
Begin
Con1=(Time>=pnTime1/10000000 && Time<pnTime2/10000000) && (Q_AskPrice>pnPrice1 || Q_AskPrice<pnPrice2);
Con1=(Time>=pnTime1/10000000 && Time<pnTime2/10000000) && (Q_BidPrice>pnPrice1 || Q_BidPrice<pnPrice2);
//初始化全局变量
If(BarStatus==0)
{
        SetGlobalVar(0,0);
        SetGlobalVar(1,0);
}
//如果持有多仓
If(A_BuyPosition==0 && nLongOrShort==1)
{
        If(Con1)
        {
                If(GetGlobalVar(0)>pnTimes && A_GetOpenOrderCount==0)
                {
                        A_SendOrder(Enum_Buy,Enum_Entry,nLots,Q_AskPrice);
                        SetGlobalVar(0,0);
                }
                else
                {
                        SetGlobalVar(0,GetGlobalVar(0)+1);
                }
        }
}
//如果持有空仓
If(A_SellPosition==0 && nLongOrShort==2)
{
        If(Con2)
        {
                If(GetGlobalVar(1)>pnTimes && A_GetOpenOrderCount==0)
                {
                        A_SendOrder(Enum_Sell,Enum_Entry,nLots,Q_BidPrice);
                        SetGlobalVar(1,0);
                }
                else
                {
                        SetGlobalVar(1,GetGlobalVar(1)+1);
                }
        }
}
End
交易开拓者QQ群:1群:38529330,2群:24771838,3群:39107556,4群:38478324。。。

初级大户

天蓬大元帅

Rank: 5Rank: 5

精华
0
UID
1138
积分
1217
帖子
161
主题
61
阅读权限
60
注册时间
2008-1-30
最后登录
2009-10-5
2#
发表于 2008-11-13 11:15:21 |只看该作者
再完善一下:

Params
Numeric pnTime1(1458000);
Numeric pnTime2(1530000);
Numeric pnPrice1(1000000);
Numeric pnPrice2(0);
Numeric pnTimes(3);
Numeric nLots(1);
Numeric nLongOrShort(0);//开多仓还是开空仓,1开多,2开空,为了安全初始值设为0
Vars
Bool Con1(False);
Bool Con2(False);
Begin
Con1=(A_BuyPosition==0 && nLongOrShort==1) && (Time>=pnTime1/10000000 && Time<pnTime2/10000000) && (Q_BidPrice>pnPrice1 || Q_AskPrice<pnPrice2);
Con2=(A_SellPosition==0 && nLongOrShort==2) && (Time>=pnTime1/10000000 && Time<pnTime2/10000000) && (Q_BidPrice>pnPrice1 || Q_AskPrice<pnPrice2);
//初始化全局变量
If(BarStatus==0)
{
        SetGlobalVar(0,0);
        SetGlobalVar(1,0);
}
//开多仓
If(Con1)
{
        If(GetGlobalVar(0)>pnTimes && A_GetOpenOrderCount==0)
        {
                A_SendOrder(Enum_Buy,Enum_Entry,nLots,Q_AskPrice);
                SetGlobalVar(0,0);
        }
        else
        {
                SetGlobalVar(0,GetGlobalVar(0)+1);
        }
}
//开空仓
If(Con2)
{
        If(GetGlobalVar(1)>pnTimes && A_GetOpenOrderCount==0)
        {
                A_SendOrder(Enum_Sell,Enum_Entry,nLots,Q_BidPrice);
                SetGlobalVar(1,0);
        }
        else
        {
                SetGlobalVar(1,GetGlobalVar(1)+1);
        }
}
End
交易开拓者QQ群:1群:38529330,2群:24771838,3群:39107556,4群:38478324。。。

使用道具 举报

初级大户

天蓬大元帅

Rank: 5Rank: 5

精华
0
UID
1138
积分
1217
帖子
161
主题
61
阅读权限
60
注册时间
2008-1-30
最后登录
2009-10-5
3#
发表于 2008-11-13 11:16:59 |只看该作者
现在可以设置好以后,开着电脑打篮球去了,听说TB正在开发在服务器端运行程式的功能,不知是真假啊?如果那样就太好了。。。
交易开拓者QQ群:1群:38529330,2群:24771838,3群:39107556,4群:38478324。。。

使用道具 举报

初级大户

天蓬大元帅

Rank: 5Rank: 5

精华
0
UID
1138
积分
1217
帖子
161
主题
61
阅读权限
60
注册时间
2008-1-30
最后登录
2009-10-5
4#
发表于 2008-11-13 11:57:15 |只看该作者
还可以使用ICLoseDown这个小软件,设置关机时间。。。
附件: 你需要登录才可以下载或查看附件。没有帐号?注册
交易开拓者QQ群:1群:38529330,2群:24771838,3群:39107556,4群:38478324。。。

使用道具 举报

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

bottom

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

GMT+8, 2024-5-19 21:05

Powered by Discuz! X2 LicensedChrome插件扩展

© 2011-2012 交易开拓者 Inc.

回顶部