Исправление cool_hedin, (текущая версия) :
RSolve в Mathematica
In[1]:= RSolve[x[n] == 1/2*(x[n - 1] + a/x[n - 1]), x[n], n]
n
Out[1]= {{x[n] -> -I Sqrt[a] Cot[2 C[1]]}}
Исправление cool_hedin, :
RSolve в Mathematica
In[1]:= RSolve[x[n] == 1/
2*(x[n - 1] + a/x[n - 1]), x[n], n]
n
Out[1]= {{x[n] -> -I Sqrt[a] Cot[2 C[1]]}}
Исходная версия cool_hedin, :
RSolve в Mathematica