免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
返回列表 发帖

列举数列的前100项

i = 1;
a[1] = 2;
a[2] = 6;
Do[{a[i + 2] = 2 a[i + 1] + a[i], i++}, {100}]
Table[a[n], {n, 1, 100}]
out:
{2, 6, 14, 34, 82, 198, 478, 1154, 2786, 6726, 16238, 39202, 94642, 228486, 551614, 1331714, 3215042, 7761798, 18738638, 45239074, 109216786, 263672646, 636562078, 1536796802, 3710155682, 8957108166,21624372014, 52205852194, 126036076402, 304278004998, 734592086398, 1773462177794, 4281516441986, 10336495061766, 24954506565518, 60245508192802, 145445522951122, 351136554095046, 847718631141214, ……
i = 1;
a[1] = 3;
a[2] = 9;
Do[{a[i + 2] = a[i + 1] + 2 a[i], i++}, {100}]
Table[a[n], {n, 1, 100}]
out:{3, 9, 15, 33, 63, 129, 255, 513, 1023, 2049, 4095, 8193, 16383, 32769, 65535, 131073, 262143, 524289, 1048575, 2097153, 4194303, 8388609, 16777215, 33554433, 67108863, 134217729, 268435455, 536870913, 1073741823, 2147483649, 4294967295, 8589934593, 17179869183, 34359738369, 68719476735, ……
分享到: QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
妙不可言,不明其妙,不着一字,各释其妙!

回复 1# 其妙
可以试着用把字符变成代码(Mathematics代码)
  1. i = 1;
  2. a[1] = 2;
  3. a[2] = 6;
  4. Do[{a[i + 2] = 2 a[i + 1] + a[i], i++}, {100}]
  5. Table[a[n], {n, 1, 100}]
复制代码

TOP

回复 2# 青青子衿

一样的嘛

TOP

这个也顶上来,哈哈,核心,Mathematica的核心。。。

TOP

返回列表 回复 发帖