Mathematica问题
设数列{xn}由以下递推关系给出,x1=1/2,x(n+1)=xn^2+xn (n=1,2,3...),观察数列1/(x1+1)+1/(x2+1)+.+1/(xn+1)的极限,用Mathematica实现.
人气：291 ℃ 时间：2020-05-30 15:32:06
解答
这个题太难了,算到n=20的时候就要算12秒了,N越大需要的时间越长,不过估计结果是2x[n_] := Which[n == 1,1/2,n > 1,x[n - 1]^2 + x[n - 1]]NSum[1/(x[n] + 1),{n,1,20}] // Timing{12.969,2.}再往下算需要的时间太长...
推荐
猜你喜欢
- 小东看叔叔锯木头,锯一次木头要2分钟,叔叔把木头锯成5段,叔叔请小东算一算需要几分钟?
- 一辆汽车从A地开往B地，前3小时行了180千米，照这样的速度，还要1.5小时才能到达，AB两地相距多远？
- 你让我感到害怕,英语怎么说?
- 某同学做了一次较为精确的测定匀加速直线运动的加速度的实验,实验所得到的纸带如图所示,设0点是计数的起始点,两计数点之间的时间间隔为0.1s,则第一个计数点与0点的距离s1应为__________cm,物体的加速度________
- “我”上学了,还是不断收到姥姥寄来的剪纸,其中表达姥姥对‘我’的期待的一副剪纸是这样的
- 三七五折等于几成
- 小红计算两个数的加法时,把其中一个加数个位上的0漏掉了,结果算出的和是37,已知正确答案是91,那么这
- 如图所示的是闭合电路的一部分导体在两磁极间的运动情形．图中小圆圈代表导体的横截面，a、b、c、d表示运动中四个不同位置．图中箭头表示在那个位置上的运动方向．导体在_位置会产
