//双色球尾数六期自然行列移动过滤公式
function  HIF:integer;
//尾数移动行列-1列
    function  hif1 :integer;
begin 
 result  :=incount([imod(R1),imod(R2),imod(R3),imod(R4),imod(R5),imod(R6)],
 [imod(hr1(6)),imod(hr2(6)),imod(hr3(6)),imod(hr4(6)),imod(hr5(6)),imod(hr6(6))]);
end;
//尾数移动行列-2列
     function  hif2 :integer;
begin 
 result:= incount([imod(R1),imod(R2),imod(R3),imod(R4),imod(R5),imod(R6)],
        [imod(hr1(5)),imod(hr2(5)),imod(hr3(5)),imod(hr4(5)),imod(hr5(5)),imod(hr6(5))]);
end;
//尾数移动行列-3列
       function  hif3 :integer;
begin 
 result:=incount([imod(R1),imod(R2),imod(R3),imod(R4),imod(R5),imod(R6)],
         [imod(hr1(4)),imod(hr2(4)),imod(hr3(4)),imod(hr4(4)),imod(hr5(4)),imod(hr6(4))]);
end;
//尾数移动行列-4列
   function  hif4 :integer;
begin 
 result  := incount([imod(R1),imod(R2),imod(R3),imod(R4),imod(R5),imod(R6)],
 [imod(hr1(3)),imod(hr2(3)),imod(hr3(3)),imod(hr4(3)),imod(hr5(3)),imod(hr6(3))]);
end;
//尾数移动行列-5列
    function  hif5 :integer;
begin
  result:=incount([imod(R1),imod(R2),imod(R3),imod(R4),imod(R5),imod(R6)],
        [imod(hr1(2)),imod(hr2(2)),imod(hr3(2)),imod(hr4(2)),imod(hr5(2)),imod(hr6(2))]);
end;
//尾数移动行列-6列
    function  hif6 :integer;
begin 
 result:=incount([imod(R1),imod(R2),imod(R3),imod(R4),imod(R5),imod(R6)],
        [imod(hr1(1)),imod(hr2(1)),imod(hr3(1)),imod(hr4(1)),imod(hr5(1)),imod(hr6(1))]);
end;
//尾数移动行列-1行
      function  hif7 :integer;
begin 
 result  :=  incount([imod(R1),imod(R2),imod(R3),imod(R4),imod(R5),imod(R6)],[imod(hr1(1)),imod(hr1(2)),imod(hr1(3)),imod(hr1         (4)),imod(hr1(5)),imod(hr1(6))]);
end;
//尾数移动行列-2行
         function  hif8 :integer;
begin 
 result  := incount([imod(R1),imod(R2),imod(R3),imod(R4),imod(R5),imod(R6)],[imod(hr2(1)),imod(hr2(2)),imod(hr2(3)),imod(hr2         (4)),imod(hr2(5)),imod(hr2(6))]);
end;
//尾数移动行列-3行
          function  hif9 :integer;
begin 
 result:=incount([imod(R1),imod(R2),imod(R3),imod(R4),imod(R5),imod(R6)],
      [imod(hr3(1)),imod(hr3(2)),imod(hr3(3)),imod(hr3(4)),imod(hr3(5)),imod(hr3(6))]);
end;
//尾数移动行列-4行
        function  hif10 :integer;
begin
  result:=incount([imod(R1),imod(R2),imod(R3),imod(R4),imod(R5),imod(R6)],
      [imod(hr4(1)),imod(hr4(2)),imod(hr4(3)),imod(hr4(4)),imod(hr4(5)),imod(hr4(6))]);
end;
//尾数移动行列-5行
function  hif11 :integer;
begin
  result:=incount([imod(R1),imod(R2),imod(R3),imod(R4),imod(R5),imod(R6)],
       [imod(hr5(1)),imod(hr5(2)),imod(hr5(3)),imod(hr5(4)),imod(hr5(5)),imod(hr5(6))]);
end;
//尾数移动行列-6行
   function  hif12 :integer;
begin 
 result:=incount([imod(R1),imod(R2),imod(R3),imod(R4),imod(R5),imod(R6)],
     [imod(hr6(1)),imod(hr6(2)),imod(hr6(3)),imod(hr6(4)),imod(hr6(5)),imod(hr1(6))]);
end;
begin
result := hif1+ hif7;
end;