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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 把MC的源代码转换成金字塔

   

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


  共有2845人关注过本帖树形打印复制链接

主题:把MC的源代码转换成金字塔

美女呀,离线,留言给我吧!
代人发贴
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:金字塔客服 帖子:610 积分:0 威望:0 精华:0 注册:2013/10/22 14:33:15
把MC的源代码转换成金字塔  发帖心情 Post By:2019/8/2 16:01:43    Post IP:180.169.30.6[显示全部帖子]

把MC的源代码转换成金字塔


inputs:kai(0.4),guan(0.0),len(50),leftstrength(9),richtstrength(3),zs(100),zy(500),hc(20);
var:var0(0),var1(0),var2(0),var3(0),var4(0),var5(0),var6(0),var7(0),cc(0),aa(0);
array:arr0[10](0),arr1[10](0);

condition1=Pivot(high,len,leftstrength,richtstrength,1,1,var0,var1)<>-1;
condition2=Pivot(high,len,leftstrength,richtstrength,2,1,var2,var3)<>-1;
condition3=Pivot(low,len,leftstrength,richtstrength,1,-1,var4,var5)<>-1;
condition4=Pivot(low,len,leftstrength,richtstrength,2,-1,var6,var7)<>-1;

if condition1 and condition2 then begin
   for value1 = 9 downto 0 begin
   arr0[value1+1]= arr0[value1];
   end;
   if arr0[1]<>0 then value10=tl_delete(arr0[1]);
   if value10=0 then begin
   arr0[0]= tl_new(date[var3],time[var3],high[var3],date[var1],time[var1],high[var1]);
 
         end;
     end;
   

if condition3 and condition4 then begin
   for value2 = 9 downto 0 begin
   arr1[value2+1]= arr1[value2];
   end;
   if arr1[1]<>0 then value20=tl_delete(arr1[1]);
   if value20=0 then begin
   arr1[0]= tl_new(date[var7],time[var7],low[var7],date[var5],time[var5],low[var5]);
   
         end;
     end;
   

 回到顶部