如何用mathematica求递推表达式
a[1+n]==(2^(1+n)(-1+n-n/(-1+2^n)))/(-1+2^(1+n))+((-2+2^(-1+n))a[n])/(-1+2^(1+n))，a[1]...
a[1 + n] == (
2^(1 + n) (-1 + n - n/(-1 + 2^n)))/(-1 + 2^(
1 + n)) + ((-2 + 2^(-1 + n)) a[n])/(-1 + 2^(1 + n))，a[1] = 4/3 展开
2^(1 + n) (-1 + n - n/(-1 + 2^n)))/(-1 + 2^(
1 + n)) + ((-2 + 2^(-1 + n)) a[n])/(-1 + 2^(1 + n))，a[1] = 4/3 展开
展开全部
a[n_Integer] = ((2^(1 + n) (-1 + n - n/(-1 + 2^n)))/(-1 + 2^(1 + n)) + ((-2 + 2^(-1 + n)) a[n])/(-1 + 2^(1 + n)) /. n -> n - 1);
a[1] = 4/3;
我是把a[1+n]的递推表达式换成a[n]的递推表达式定义了（就是把表达式等号右边所有的n换成n-1）
在输入上面的代码以后就可以用a[n]的形式计算任意项的值了
a[1] = 4/3;
我是把a[1+n]的递推表达式换成a[n]的递推表达式定义了（就是把表达式等号右边所有的n换成n-1）
在输入上面的代码以后就可以用a[n]的形式计算任意项的值了
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
