Очевидно, что в условии не хватает данных. Например, чтобы найти
d(4) нужно знать
d(1), а для вычисления
d(5) требуется
d(2) . Я произвольно добавил значения для
d(1) и
d(2) .
Код рекурсивной процедуры для вычисления
d(n) :
d:=proc(n)
option remember;
if n=1 then return 0 else
if n=2 then return 1 else
if n=3 then return 1 else
-binomial(n-1, 1)*d(n-1) - binomial(n-1, 2)*d(n - 3) fi;fi;fi;
end proc:
Пример использования (первые 20 членов):
seq(d(n), n=1..20);
Результат:
0, 1, 1, -3, 6, -40, 285, -2121, 18088, -173052, 1825965, -21080455, 264386892, -3579454866, 52030689529, -808220966595, 13361070049440, -234214364616424, 4339516370984667, -84735554027162913
Попробуйте снова решить с WolframAlpha добавив эти пропущенные начальные условия. Возможно он сумеет найти явную формулу
d(n) для произвольного
n . Maple такой формулы не находит.
Редактировалось 1 раз(а). Последний 21.01.2020 11:39.