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

多组数列并排

plist = RecurrenceTable[{p[n + 1] == 4 p[n] - p[n - 1], p[1] == 2,
   p[0] == 1}, p, {n, 1, 10}]
qlist = RecurrenceTable[{q[n + 1] == 4 q[n] - q[n - 1], q[1] == 1,
   q[0] == 0}, q, {n, 1, 10}]
Thread[{#1, #2, #3} & @@ {Range[10], plist, qlist}]

RecurrenceTable[{p[n + 1] == 2 p[n] + 3 q[n],
  q[n + 1] == p[n] + 2 q[n], p[1] == 2, q[1] == 1},
{p, q}, {n, 1, 10}]
分享到: QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友

返回列表 回复 发帖