Mathematica 使用1

本文记录部分Mathematica求解命令的使用方法。主要以实例展示。

RSolve

RSolve命令用于求解递推式。

  1. 求递推式\(f_1=1,f_n=2f_{n-1}+3\)的通项公式:
1
2
RSolve[{f[n] == 2 f[n - 1] + 3, f[1] == 1}, f[n], n]
(* Out: {{f[n] -> -3 + 2^(1 + n)}} *)
  1. 求解递推式如下递推式组合的通项公式\(a_n,b_n\)

\[\left\{\begin{aligned} &a_{n+1}=b_n+2\\ &3b_{n+1}=a_n-5\\ &a_0=3\\ &b_0=1 \end{aligned}\right.\]

1
2
3
4
5
6
7
8
RSolve[{a[n + 1] == b[n] + 2, 3 b[n + 1] == a[n] - 5, a[0] == 3, 
b[0] == 1}, {a, b}, n]
(* {{a -> Function[{n},
1/4 3^(-n/
2) (5 + 5 (-1)^n + 5 Sqrt[3] - 5 (-1)^n Sqrt[3] + 2 3^(n/2))],
b -> Function[{n}, -(1/4) 3^(-(1/2) - n/
2) (-5 + 5 (-1)^n - 5 Sqrt[3] - 5 (-1)^n Sqrt[3] +
2 3^(3/2 + n/2))]}}*)

Sum

Sum命令通常用于求解级数,或者是求和式的通项公式。

  1. 计算巴塞尔问题\(\displaystyle{\sum_{n=1}^{\infty}} \dfrac{1}{n^2}\).
1
2
Sum[1/n^2, {n, 1, Infinity}]
(*Out: Pi^2/6*)
  1. 计算\(\displaystyle{\sum_{i=1}^{\infty}} \sum_{j=1}^i \dfrac{1}{(i+1)^2j^2}\).
1
2
Sum[1/(j^2 (i + 1)^2), {i, 1, Infinity}, {j, 1, i}]
(*Out: Pi^4/120*)
  1. \(a_n=(4n + 1)\cdot3^n\),求\(\displaystyle{S_n=\sum_{i=1}^n} a_i\)的通项公式。
1
2
Sum[(4 i + 1)*3^i, {i, 1, n}]
(*Out: 3/2 (1 - 3^n + 4 3^n n)*)

Integrate, NIntegrate

Integrate命令用于计算积分。

NIntegrate命令用于计算定积分的数值值。一般难以解出解析解时使用。

  1. 计算反常积分\(\displaystyle{\int_{-\infty}^{\infty} e^{-x^2}dx}\).
1
2
3
4
Integrate[E^{-x^2}, {x, -Infinity, Infinity}]
(*Out: {Sqrt[Pi]}*)
NIntegrate[E^{-x^2}, {x, -Infinity, Infinity}]
(*Out: {1.77245}*)
  1. 计算二重积分\(\displaystyle{\iint_{D} e^{-x^2}dxdy}\),其中区域\(D\)是:\((0\le x\le 1,0\le y\le x^2)\)
1
2
Integrate[x y, {x, 0, 1}, {y, 0, x^2}]
(*Out: 1/12*)
  1. 求解不定积分\(\displaystyle{\int x\cdot \arctan xdx}\)
1
2
Integrate[x*ArcTan[x], x]
(*Out: -(x/2) + ArcTan[x]/2 + 1/2 x^2 ArcTan[x]*)

D, '

D命令用于求解偏导。

一个函数\(f\)后面加上一个'就用于求出它的一阶导函数\(f'\)

  1. 计算\(\dfrac{d (x^n)}{dx}\)
1
2
3
4
5
6
D[x^n, x]
(*Out: n x^(-1 + n)*)
f[x_] = x^n
(*Out: x^n *)
f'[x]
(*Out: n x^(-1 + n) *)
  1. 计算\(\dfrac{d^4 (e^x\cdot x^4)}{dx^4}\)
1
2
3
4
5
6
D[E^x*x^4, {x, 4}]
(*Out: 24 E^x + 96 E^x x + 72 E^x x^2 + 16 E^x x^3 + E^x x^4 *)
f[x_] = E^x*x^4
(*Out: E^x x^4 *)
f''''[x]
(*Out: 24 E^x + 96 E^x x + 72 E^x x^2 + 16 E^x x^3 + E^x x^4 *)
  1. 计算\(\dfrac{\partial^2}{\partial x\partial y}\dfrac{e^x}{\sin y}\)
1
2
D[E^x/Sin [y], x, y]
(*Out: -E^x Cot[y] Csc[y] *)
  1. 计算\(\dfrac{\partial^3}{\partial x\partial^2 y}\dfrac{e^x}{\sin y}\)
1
2
D[E^x/Sin [y], {x,1}, {y,2}]
(*Out: E^x (Cot[y]^2 Csc[y] + Csc[y]^3) *)
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
Ujimatsu Chiya 微信 微信
Ujimatsu Chiya 支付宝 支付宝