欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件金字塔软件问题提交 → exdata和exdataset

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有5211人关注过本帖平板打印复制链接

主题:exdata和exdataset

帅哥哟,离线,有人找我吗?
shahai0811
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:41 积分:268 威望:0 精华:0 注册:2011/6/19 22:17:50
  发帖心情 Post By:2011/9/30 8:46:26 [只看该作者]

里面部分内容没能理解确认,求教

 input:account(888888,1,999999,1);

runmode:0;

begintime:=currenttime>=091500 and currenttime<=145500;
endtime:=currenttime>=145930;

buycond:=begintime;
sellcond:=begintime;

myaccount:=''+account;        //“+account前的双引号及加号有什么特别意义?
mycash:=taccount2(19,myaccount);
myholding:=extgbdata(myaccount+'_'+formulaname+'_'+datatype+'_'+stklabel+'_holding');     // 这句括号里的加号是字符?还是整个都是字符串?

slippage:=2*mindiff;

if myholding=0 then begin
if buycond then begin
buyprice:=close+slippage;
lots:=intpart(mycash/(buyprice*multiplier*taccount(41)));

if lots>=1 then begin
tbuy(1,lots,lmt,buyprice,0,myaccount,0);
extgbdataset(myaccount+'_'+formulaname+'_'+datatype+'_'+stklabel+'_holding',lots);
end
end
end

if myholding=0 then begin
if sellcond then begin
sellprice:=close-slippage;
lots:=intpart(mycash/(sellprice*multiplier*taccount(42)));

if lots>=1 then begin
tbuyshort(1,lots,lmt,sellprice,0,myaccount,0);
extgbdataset(myaccount+'_'+formulaname+'_'+datatype+'_'+stklabel+'_holding',-lots);
end
end
end

if myholding>0 then begin
if endtime then begin
tsell(1,myholding,lmt,close-slippage,myaccount,0);
extgbdataset(myaccount+'_'+formulaname+'_'+datatype+'_'+stklabel+'_holding',0);
end
end

if myholding<0 then begin
if endtime then begin
tsellshort(1,myholding,lmt,close+slippage,myaccount,0);
extgbdataset(myaccount+'_'+formulaname+'_'+datatype+'_'+stklabel+'_holding',0);
end
end




 回到顶部