Maple，定义递归关系

Question

我对maple有点新，并且遇到以下编程问题。我想将以下递归关系编程为maple。

i_{4n}=i_n,

i_{4n+1}=i_{2n}

i_{4n+2}=-i_{2n}

i_{4n+3}=i_n.

$i_0=1$.

Answer 1

这在Maple中很容易 - 可能比问这个问题更容易。我将使用 Ii 作为程序名称，因为我不喜欢使用像 i 这样的常用变量名称来执行过程。

Ii:= proc(n::nonnegint)
option remember;
local q,r;
     q:= iquo(n,4,'r'); #integer quotient and remainder
     `if`(r=0 or r=3, thisproc(q), (-1)^(r-1)*thisproc(2*q))
end proc:

Ii(0):= 1: #Set initial value.