Wolfram Book 之等差数列的前 n 项和

例 1

Mathematica 代码:

a[n_] := a1 + (n – 1) d;

Solve[{a[6] + a[14] == 20, s == Sum[a[i], {i, 19}]}, s, {a1, d}]

例 2

Mathematica 代码:

a[n_] := a1 + (n – 1) d;

Minimize[{Sum[a[i], {i, n}], a[1] == -11, a[5] + a[6] == -4}, {a1, d, n}]

例 3

Mathematica 代码:

a[n_] := a1 + (2 n – 1) d;

Reduce[{Sum[a[i], {i, n}] == 2010, s == a[8]}, s, {a1, d}]

发布者:Cara,转载请注明出处:http://www.makercollider.com/course/1756

发表评论

登录后才能评论
QR code