悠闲数学娱乐论坛(第2版)'s Archiver

青青子衿 发表于 2020-2-8 13:46

多组数列并排

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}]

页: [1]

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.