この質問がサイトにうまく当てはまらない場合は申し訳ありません... Maple コードの一部を Mathematica に変換しようとしています。Maple はまったく知りませんが、Mathematica は少し知っています。私は自分が何をしているのか本当にわからないので、誰かが私を少し助けてくれるのではないかと思います:
b:= proc(n, s) local sn, m;
if n<1 then 1
else sn:= [s[], n]; m:= nops(sn);
`if` (m*(m-1)/2 = nops (({seq (seq (sn[i]-sn[j],
j=i+1..m), i=1..m-1)})), b(n-1, sn), 0) +b(n-1, s)
fi
end:
a:= proc(n) a(n):= b(n-1, [n]) +`if` (n=0, -1, a(n-1)) end:
seq(a(n), n=1..30);
以外はすべて理解していると思います
sn:= [s[], n];
確信はないけど。前もって感謝します!