和值余数历史遗传次数

示例为和值除3余数五期次数
贴入代码区
代码:

//HZYSl(CS,QS)
   HZYSl(3,1)+
   HZYSl(3,2)+
   HZYSl(3,3)+
   HZYSl(3,4)+
   HZYSl(3,5)

贴入自定义函数区

代码:
 

//和值余数历史遗传次数
    function HZYSl(CS,QS :integer):integer;
begin
result  :=IIF(imod(rhz,CS)in[imod(hrhz(QS),CS)],1,0);
end;
 

同步内容