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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件金字塔软件问题提交 → PEL语句执行效率问题

   

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


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

主题:PEL语句执行效率问题

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


加好友 发短信
等级:论坛游侠 帖子:287 积分:360 威望:0 精华:0 注册:2013/2/19 16:49:46
PEL语句执行效率问题  发帖心情 Post By:2021/3/24 9:42:21 [只看该作者]

我使用下面的无意义程序测试20个品种,2014年~2021年的数据,用了将近4分半钟,是不是意思是说,不用复杂函数,系统的行数其实对PEL的执行效率能产生很大影响。


if barpos = 1 then
 DEBUGFILE2('D:\2222.TXT','开始',0,1);

if barpos= DATACOUNT then
 DEBUGFILE2('D:\2222.TXT','结束',0,1);
//=========================================================
//定义变量
//=========================================================
X:=100;Et:=0;
Lti:=Ref(Time,1);Mc:=c;

If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;
If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;
If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;
If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;
If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;
If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;
If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;
If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;
If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;If Et>0 Then Et:=Et+1;

Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);
Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);
Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);
Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);
Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);
Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);
Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);
Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);
Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);Cs:=If(Et>=6000,x*0.6,x);

 回到顶部