关于Mathematica使用的简单问题

关于Mathematica使用的简单问题,第1张

=是赋值,a[2] = 0 结果为0

相当于求:

RSolve[{a[n + 3] == 2/3a[n] + a[n + 1]/3, a[1]==2/3,0,2/9}, a[n], n]

C[1],C[2]是任意常数

其实,应该:

RSolve[{a[n + 3] == 2/3a[n] + a[n + 1]/3, a[1] == 2/3, a[2] == 0,

a[3] == 2/9}, a[n], n]

a[n] -> (15 (I + Sqrt[15]) + (45 I -

11 Sqrt[15]) (-(1/6) I (-3 I + Sqrt[15]))^n -

4 (-(1/2) + 1/2 I Sqrt[5/3])^n (15 I + Sqrt[15]))/(

60 (I + Sqrt[15]))

a[n] ->1/4+ ( (45 I -

11 Sqrt[15]) (-(1/6) I (-3 I + Sqrt[15]))^n -

4 (-(1/2) + 1/2 I Sqrt[5/3])^n (15 I + Sqrt[15]))/(

60 (I + Sqrt[15]))

A = Table[Random[Real, {52, 97}], {4}, {4}] 随机形成元素在(52,97)之间的4行4列的表格A

Max[A]找出表的最大数

Min[A]找出表的最小数

Max[A[[1]]]找出表A的第一行的最大值

Min[A[[1]]]找出表A的第一行的最小值

第二个问题没看懂

欢迎分享,转载请注明来源:表白网

原文地址:https://h5.hunlipic.com/biaobai/281754.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-07-03
下一篇2023-07-03

发表评论

登录后才能评论

评论列表(0条)

    保存