公式指标平台 股票指标公式源码分享 登录 注册
公式指标平台
未来函数检测
首 页 金钻指标 通达信公式 大智慧公式 同花顺公式 文华财经公式 操盘手公式 东财通公式 飞狐公式 其他公式 公式解答 股票软件 股票池
当前位置:→ 公式指标平台 > 其他公式 > 金字塔公式 > 正文 → 正文

金字塔后台下单模板可用于各种模型

发布时间:2015/10/25 7:32:52  浏览次数:

为了支持金字塔全速发展,切实解决塔友实际困难

 响应金字塔号召

 特公布此模板

 

 只要把此模板放在 模型的最后面,就可以后台全自动化交易了。

 有个性化需求的,也可在此模板上的基础上定制。

 

runmode:0;
 Globalvariable:hold=drawnull;
……//这里添加上你自己的模型

……//这里添加上你自己的模型

cc800988:=holding;//这句放在信号稳定的地方
drawtextex(1,1,800,0,'虚拟持仓为:'+numtostr(cc800988,0));//在图表上输入虚拟持仓以便监控
if not(islastbar) or workmode<>1 then exit;
 xiadan800988:=cc800988-hold;
 if xiadan800988>0.5 then begin
 cang:=min(xiadan800988,abs(hold));
 if hold<0 then begin
   tsellshort(1,cang,mkt,0,0,'800988'),allowrepeat;
   debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 平空 %.0f',cang);
 end
 cang:=xiadan800988+min(hold,0);
 if cang>0 then begin
   tbuy(1,cang,mkt,0,0,'800988'),allowrepeat;
   debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 开多 %.0f',cang);
 end
 end
 if xiadan800988<-0.5 then begin
 cang:=min(abs(xiadan800988),abs(hold));
 if hold>0 then begin
   tsell(1,cang,mkt,0,0,'800988'),allowrepeat;
   debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 平多 %.0f',cang);
 end
 cang:=abs(xiadan800988)-max(hold,0);
 if cang>0 then begin
   tbuyshort(1,cang,mkt,0,0,'800988'),allowrepeat;
   debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 开空 %.0f',cang);
 end
 end
 hold:=cc800988;

 

 

 

 

完整实例如下:

 实例一、 K线走完模式的模型

Globalvariable:hold=drawnull;
 cc800988:=holding;//这句放在信号稳定的地方

//蓝色部分改为你自己的模型(K线走完模型)
buycond:=count(c>o,2)=2;
 sellcond:=count(c<o,2)=2;
 if holding>0 and sellcond then sell(1,1,thisclose);
 if holding<0 and buycond then sellshort(1,1,thisclose);
 if holding=0 and buycond then buy(1,1,thisclose);
 if holding=0 and sellcond then buyshort(1,1,thisclose);

 

 drawtextex(1,1,800,0,'虚拟持仓为:'+numtostr(cc800988,0));//在图表上输入虚拟持仓以便监控
if not(islastbar) or workmode<>1 then exit;
 xiadan800988:=cc800988-hold;
 if xiadan800988>0.5 then begin
 cang:=min(xiadan800988,abs(hold));
 if hold<0 then begin
   tsellshort(1,cang,mkt,0,0,'800988'),allowrepeat;
   debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 平空 %.0f',cang);
 end
 cang:=xiadan800988+min(hold,0);
 if cang>0 then begin
   tbuy(1,cang,mkt,0,0,'800988'),allowrepeat;
   debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 开多 %.0f',cang);
 end
 end
 if xiadan800988<-0.5 then begin
 cang:=min(abs(xiadan800988),abs(hold));
 if hold>0 then begin
   tsell(1,cang,mkt,0,0,'800988'),allowrepeat;
   debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 平多 %.0f',cang);
 end
 cang:=abs(xiadan800988)-max(hold,0);
 if cang>0 then begin
   tbuyshort(1,cang,mkt,0,0,'800988'),allowrepeat;
   debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 开空 %.0f',cang);
 end
 end
 hold:=cc800988;

 

 

 


实例二、即时下单模型(固定时间间隔)

Globalvariable:hold=drawnull;

 //蓝色部分改为你自己的模型
buycond:=h>ref(hhv(h,10),1);
 sellcond:=l<ref(llv(l,10),1);
 if holding>0 and sellcond then sell(1,1,market);
 if holding<0 and buycond then sellshort(1,1,market);
 if holding=0 and buycond then buy(1,1,market);
 if holding=0 and sellcond then buyshort(1,1,market);
 cc800988:=holding;//这句放在信号稳定的地方


drawtextex(1,1,800,0,'虚拟持仓为:'+numtostr(cc800988,0));//在图表上输入虚拟持仓以便监控
if not(islastbar) or workmode<>1 then exit;
 xiadan800988:=cc800988-hold;
 if xiadan800988>0.5 then begin
 cang:=min(xiadan800988,abs(hold));
 if hold<0 then begin
   tsellshort(1,cang,mkt,0,0,'800988'),allowrepeat;
   debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 平空 %.0f',cang);
 end
 cang:=xiadan800988+min(hold,0);
 if cang>0 then begin
   tbuy(1,cang,mkt,0,0,'800988'),allowrepeat;
   debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 开多 %.0f',cang);
 end
 end
 if xiadan800988<-0.5 then begin
 cang:=min(abs(xiadan800988),abs(hold));
 if hold>0 then begin
   tsell(1,cang,mkt,0,0,'800988'),allowrepeat;
   debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 平多 %.0f',cang);
 end
 cang:=abs(xiadan800988)-max(hold,0);
 if cang>0 then begin
   tbuyshort(1,cang,mkt,0,0,'800988'),allowrepeat;
   debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 开空 %.0f',cang);
 end
 end
 hold:=cc800988;
 

资源下载链接   资源大小:unknow

手机移动版 - 关于我们 - 联系我们 - 广告合作 - 下载声明 - 网站帮助 - 友情链接 - 网站地图 - TOP
湘ICP备09016573号 增值电信业务经营ICP许可证:湘B2-20210269 湘公网安备43108102000039号
Copyright © GSZB.COM ,All Rights Reserved.
股票公式,股票指标,股票软件,股票知识