晚上了，做点贡献，顺便刷点存在感

形意弟子 · 发表于 2014-12-29 23:51:06

来个用在文华上给炒单预备的程序。只管开仓就可以，平仓按照我写的这个动作自动做了，大家供参考。我没怎么用这个炒过，只是个参考，大家自己看着拿去用。
这是多头平仓部分的，空头部分大家可以根据这个自己想想后补完修改。我是炒单挣不到钱，研究着玩。

//抄单20秒价格没过+2且>0，则挂+1,30秒不成交并且+0则平推，35秒则对价止损。20秒后仍然<0则挂-1止损，50秒则全部对价出。
VAR_TICKDATA data;
VAR CodeName; // 交易合约
VAR StopBit; // 止羸止损点数
VAR OPEN; // 开盘价
VAR StopBitPrice;
VAR PRICE;
GLOBAL_VAR SK_PRICE, BK_PRICE, SK_TIME, BK_TIME, BK_DEAL, SK_DEAL;
GLOBAL_VAR SP_PRICE, BP_PRICE, SP_TIME, BP_TIME;
GLOBAL_VAR BPID;
GLOBAL_VAR SPID;
GLOBAL_VAR orderstate;
GLOBAL_VAR SPFlag; // 判断是否发出卖平委托
VOID MAIN()
{
CodeName = "p1505";
StopBitPrice = 2 * MinPrice(CodeName); // 止羸止损2个点
data = Def_TickData(CodeName, 1, 1);
IF( T_BuyPosition(CodeName)==0 && T_SellPosition(CodeName)==0)
{
   BK_TIME=0;
   SK_TIME=0;
   RETURN; //无持仓，返回
}
PRICE = data[0].TickPrice;
IF(T_OrderState(SPID) == 1)  //IF(T_IsNoOrder()) 这里初始值为0 平仓结束后也可以通过判断委托状态来初始化如果是判断是否有挂单可能委托发出后，
// 委托回报没有回来，这时候挂单依然不存在
{
   orderstate=0;
   SPFlag = 0;
}
IF (T_BuyPosition(CodeName)>0)//如果多头持仓大于0
{
   IF(BK_TIME==0)
   {
   BK_TIME=CurrentTime();
   }// 记录成交时间
   SPDeal(); // 执行卖平程序
   MessageOut("orderstate="+orderstate);
}
IF (T_SellPosition(CodeName)>0)  //如果空头持仓大于0
{
   SPDeal(); //执行买平程序
}
}
VOID SPDeal()
{
IF( T_BuyPosition(CodeName) !=0 )
{
   SPID = 0;
}
// 成交后20秒内价格大于持仓价格2点则挂对价单出,orderstate=1
IF( PRICE > (T_BuyAvgPrice(CodeName)+StopBitPrice) && orderstate == 0)
{
   IF((CurrentTime()-BK_TIME) < 20 )
   {
   SP_PRICE = data[0].Bid1;
   IF(T_BuyRemainPosition(CodeName) > 0 && SPFlag == 0)
   {
MessageOut("快速波动止赢：卖平"+T_BuyRemainPosition(CodeName));
SPID = T_Deal(CodeName, 1, 1, T_BuyRemainPosition(CodeName), SP_PRICE);
SP_TIME = CurrentTime();
orderstate = 1;
SPFlag = 1;
   }
   RETURN;
   }
}
//抄单20秒价格没过+2且>0，则挂+1,orderstate=2
IF( PRICE <=T_BuyAvgPrice(CodeName)+StopBitPrice && PRICE>=T_BuyAvgPrice(CodeName) && orderstate==0)
{
   IF((CurrentTime()-BK_TIME) < 20 )
   {
   SP_PRICE = T_BuyAvgPrice(CodeName)+1*MinPrice(CodeName);
   IF(T_BuyRemainPosition(CodeName) > 0 && SPFlag == 0)
   {
MessageOut("止赢1点：卖平"+T_BuyRemainPosition(CodeName));
SPID = T_Deal(CodeName, 1, 1, T_BuyRemainPosition(CodeName), SP_PRICE);
SP_TIME = CurrentTime();
orderstate = 2;
SPFlag = 1;
   }
   RETURN;
   }
}
//30秒不成交并且+0则挂平推单，orderstate=3
IF( PRICE ==T_BuyAvgPrice(CodeName) && orderstate==2)
{
   IF((CurrentTime()-BK_TIME) >=30 )
   {
   T_DeleteOrder(SPID);//撤掉止盈1点的单子，挂平推单
   SP_PRICE = T_BuyAvgPrice(CodeName) ;
   IF(T_BuyRemainPosition(CodeName) > 0 && SPFlag == 0)
   {
MessageOut("不盈利：平推"+T_BuyRemainPosition(CodeName));
SPID = T_Deal(CodeName, 1, 1, T_BuyRemainPosition(CodeName), SP_PRICE);
SP_TIME = CurrentTime();
orderstate = 3;
SPFlag = 1;
   }
   RETURN;
   }
}
//35秒时候平推单没成交，对价止损,orderstate=4
IF(orderstate==3 && CurrentTime()-BK_TIME>=35)
{
   T_DeleteOrder(SPID);//撤掉平推单，对价止损
   SP_PRICE = data[0].Bid1 ;
   IF(T_BuyRemainPosition(CodeName) > 0 && SPFlag == 0)
   {
   MessageOut("不盈利：对价止损"+T_BuyRemainPosition(CodeName));
   SPID = T_Deal(CodeName, 1, 1, T_BuyRemainPosition(CodeName), SP_PRICE);
   SP_TIME = CurrentTime();
   orderstate = 4;
   SPFlag = 1;
   }
   RETURN;
}

// 成交后20秒后价格小于持仓价格-2以内，则挂-1出,orderstate=5
IF( PRICE < T_BuyAvgPrice(CodeName) && PRICE >= (T_BuyAvgPrice(CodeName)-2*MinPrice(CodeName) && orderstate == 0))
{
   IF((CurrentTime()-BK_TIME) >= 20 )
   {
   SP_PRICE =T_BuyAvgPrice(CodeName)-1*MinPrice(CodeName);
   IF(T_BuyRemainPosition(CodeName) > 0 && SPFlag == 0)
   {
MessageOut("小幅亏损：-1卖平"+T_BuyRemainPosition(CodeName));
SPID = T_Deal(CodeName, 1, 1, T_BuyRemainPosition(CodeName), SP_PRICE);
SP_TIME = CurrentTime();
orderstate = 5;
SPFlag = 1;
   }
   RETURN;
   }
}
// 成交后20秒后价格小于持仓价格-2，则对价出,orderstate=6
IF( PRICE < (T_BuyAvgPrice(CodeName)-3*MinPrice(CodeName) && orderstate == 0))
{
   IF((CurrentTime()-BK_TIME) >= 20 )
   {
   SP_PRICE =data[0].Bid1;
   IF(T_BuyRemainPosition(CodeName) > 0 && SPFlag == 0)
   {
MessageOut("大幅亏损：对手卖平"+T_BuyPosition(CodeName));
SPID = T_Deal(CodeName, 1, 1, T_BuyPosition(CodeName), SP_PRICE);
SP_TIME = CurrentTime();
orderstate = 6;
SPFlag = 1;
   }
   RETURN;
   }
}
//50秒还有挂单不成交,对价全平，orderstate=7
IF((CurrentTime()-BK_TIME) >= 50)
{
   IF(orderstate != 0 && T_OpenOrder(CodeName, 2) >0)
   {
   T_DeleteOrder(SPID);
   }
   SP_PRICE =data[0].Bid1;
   IF(T_BuyRemainPosition(CodeName) > 0 && SPFlag == 0)
   {
   MessageOut("50秒没处理完单子：对手卖平"+T_BuyPosition(CodeName));
   SPID = T_Deal(CodeName, 1, 1, T_BuyPosition(CodeName), SP_PRICE);
   SP_TIME = CurrentTime();
   orderstate = 7;
   SPFlag = 1;
   }
   RETURN;
}
}

sz1815 · 发表于 2014-12-29 23:54:23

帮我写个快期的，行不？

铁爷 · 发表于 2014-12-30 00:06:48

什么原理啊

小驴-史努比 · 发表于 2014-12-30 02:02:34

加油！！！！！！

waving77 · 发表于 2014-12-30 10:01:06

鼠标一抖，积分到手。

形意弟子 · 发表于 2014-12-30 10:14:04

铁爷发表于 2014-12-30 00:06
什么原理啊

这是辅助程序，不是开平仓信号。

形意弟子 · 发表于 2014-12-30 10:14:34

sz1815 发表于 2014-12-29 23:54
帮我写个快期的，行不？

快期不支持，用C外挂接入我不会。

xiao · 发表于 2014-12-30 10:23:50

兄弟们也多顶顶灌灌吧，鼠标一抖，积分到手。

铁爷 · 发表于 2014-12-30 11:11:23

good person
好人啊

形意弟子 · 发表于 2014-12-30 15:48:55

反复改了好几遍的东西，居然几个人给个回复。。。T T
为了各位我再顶上来一次！
再没人回复就沉了。
好人难当啊！
这么有实质东西的都没人看~

扬仔 · 发表于 2014-12-30 16:37:02

这个。。。看来要爆发人机大战了，哈哈。

形意弟子 · 发表于 2014-12-30 16:39:16

扬仔发表于 2014-12-30 16:37
这个。。。看来要爆发人机大战了，哈哈。

做个辅助工具还是好的。
量化高频对于散户来说很难做到，1在通道，2在大数据回测上。
看论坛炒单不少人在练，琢磨个程序辅助一下贡献出来，不枉浪版杨哥指点一番，可惜没人关注啊!

qswqkbsa · 发表于 2014-12-30 16:46:42

顶顶顶顶顶顶顶顶顶

可乐加冰 · 发表于 2014-12-30 16:48:56

鼠标一抖，积分到手

可乐加冰 · 发表于 2014-12-30 16:50:01

鼠标一抖，积分到手

简单均线 · 发表于 2014-12-31 07:58:44

这个太高深了，帮着顶一下。

shandp · 发表于 2014-12-31 09:01:56

好帖好帖好帖好帖

噢嘛尼gomyhome · 发表于 2014-12-31 12:31:31

鼠标一抖，积分到手

waving77 · 发表于 2014-12-31 12:47:16

鼠标一抖，积分到手

红茶、不加冰 · 发表于 2014-12-31 12:53:44

这东西太深奥了~不明白啊~写出来了也不知道怎么用

晚上了，做点贡献，顺便刷点存在感

点评