[Matlab科学计算] 有限元法求二阶非齐次线性微分方程

有限元法求解二阶非齐次线性微分方程的基本步骤如下：

1. 将微分方程化为标准形式：

$$
\frac{d^2u}{dx^2} + p(x)\frac{du}{dx} + q(x)u = f(x)
$$

其中，$p(x)$、$q(x)$ 和 $f(x)$ 分别为已知的函数，$u$ 是待求解的函数。

2. 将求解区间 $[a,b]$ 分成 $N$ 个小区间，每个小区间内取一个节点，构建有限元网格。

3. 在每个小区间内选取一组基函数，通常选择线性基函数或二次基函数。

4. 将待求解的函数 $u$ 用基函数展开，得到：

$$
u(x) = \sum_{i=1}^{N} u_i \phi_i(x)
$$

其中，$u_i$ 是节点处的未知量，$\phi_i(x)$ 是基函数。

5. 将微分方程离散化，得到：

$$
\sum_{i=1}^{N} \left( \frac{d^2\phi_i}{dx^2} + p(x)\frac{d\phi_i}{dx} + q(x)\phi_i \right) u_i = f(x)
$$

6. 将上式写成矩阵形式，得到：

$$
\mathbf{Ku} = \mathbf{f}
$$

其中，$\mathbf{K}$ 是刚度矩阵，$\mathbf{u}$ 是节点处的未知量向量，$\mathbf{f}$ 是载荷向量。

7. 解线性方程组，得到节点处的未知量 $u_i$，从而得到待求解的函数 $u(x)$。

以上就是有限元法求解二阶非齐次线性微分方程的基本步骤。在 Matlab 中，可以使用 PDE 工具箱来实现有限元法求解。

相关问题

[Matlab科学计算] 有限元法求二阶非齐次线性微分方程源代码

假设我们要求解的二阶非齐次线性微分方程为：

$$
\frac{d^2y}{dx^2} + p(x)\frac{dy}{dx} + q(x)y = f(x)
$$

其中 $p(x)$，$q(x)$ 和 $f(x)$ 均已知，并且 $y(x)$ 是未知函数。假设 $y(x)$ 在区间 $[a,b]$ 上满足边界条件 $y(a)=A$，$y(b)=B$。则该问题的有限元法求解过程如下。

1. 离散化区间 $[a,b]$

将区间 $[a,b]$ 等分为 $n$ 个小区间，每个小区间的长度为 $h=\frac{b-a}{n}$，则区间 $[a,b]$ 的离散化网格为：

$$
a=x_0<x_1<\cdots<x_n=b
$$

其中，$x_i=a+ih$，$i=0,1,\cdots,n$。

2. 选取有限元空间

我们选取的有限元空间是线性元，即每个小区间内的函数 $y(x)$ 用线性函数逼近：

$$
y(x)=c_1(x-x_i)+c_2(x_{i+1}-x)
$$

其中，$c_1$ 和 $c_2$ 是待定系数。这里我们假设 $y(x)$ 在相邻两个节点处的导数相等，即：

$$
y'(x_{i})=y_{i}^{'}=m_i,\quad y'(x_{i+1})=y_{i+1}^{'}=m_{i+1}
$$

3. 构建刚度矩阵和载荷向量

我们需要计算每个小区间内的刚度矩阵和载荷向量，然后将它们组装成整个问题的刚度矩阵和载荷向量。对于一个小区间 $[x_i,x_{i+1}]$，其刚度矩阵和载荷向量为：

$$
[K_i]=\frac{1}{h}
\begin{bmatrix}
1 & -1 \\
-1 & 1
\end{bmatrix}
$$

$$
[F_i]=\frac{1}{2}hf(x_i)
\begin{bmatrix}
1 \\
1
\end{bmatrix}
+\frac{1}{6}h^2(p(x_i)m_i+q(x_i))
\begin{bmatrix}
1 \\
2
\end{bmatrix}
+\frac{1}{6}h^2(p(x_{i+1})m_{i+1}+q(x_{i+1}))
\begin{bmatrix}
2 \\
1
\end{bmatrix}
$$

其中，$m_i$ 和 $m_{i+1}$ 是前面提到的 $y(x)$ 在相邻两个节点处的导数。

4. 组装刚度矩阵和载荷向量

将每个小区间的刚度矩阵和载荷向量组装成整个问题的刚度矩阵和载荷向量，即：

$$
\begin{bmatrix}
K_{11} & K_{12} & \cdots & K_{1n-1} \\
K_{21} & K_{22} & \cdots & K_{2n-1} \\
\vdots & \vdots & \ddots & \vdots \\
K_{n-1,1} & K_{n-1,2} & \cdots & K_{nn-1}
\end{bmatrix}
\begin{bmatrix}
c_1 \\
c_2 \\
\vdots \\
c_n
\end{bmatrix}
=
\begin{bmatrix}
F_1 \\
F_2 \\
\vdots \\
F_n
\end{bmatrix}
$$

其中，$K_{ij}$ 表示第 $i$ 个小区间和第 $j$ 个小区间之间的刚度矩阵，$F_i$ 表示第 $i$ 个小区间的载荷向量。

5. 加入边界条件

将边界条件加入刚度矩阵和载荷向量中。对于 $y(a)=A$，我们将第一行的系数全部置为 $0$，第一个未知量的系数置为 $1$，载荷向量的第一项置为 $A$；对于 $y(b)=B$，我们将最后一行的系数全部置为 $0$，最后一个未知量的系数置为 $1$，载荷向量的最后一项置为 $B$。

6. 求解方程组

将整个问题的刚度矩阵和载荷向量代入方程组，求解未知量 $c_1$ 和 $c_2$。

7. 拟合函数

将求解得到的系数 $c_1$ 和 $c_2$ 带入每个小区间的函数表达式，得到整个问题的近似解。

下面是 Matlab 的源代码实现：

function [x,y] = fem(p,q,f,A,B,n)
% p(x), q(x), f(x) 分别为二阶非齐次线性微分方程的系数
% A, B 分别为边界条件 y(a)=A 和 y(b)=B
% n 表示将区间 [a,b] 等分为 n 个小区间
% 返回值 x 和 y 分别为离散化后的网格和近似解

% 离散化区间 [a,b]
a = 0;
b = 1;
h = (b-a)/n;
x = a:h:b;

% 构建刚度矩阵和载荷向量
K = zeros(n+1,n+1);
F = zeros(n+1,1);
for i = 1:n
    % 刚度矩阵
    K(i:i+1,i:i+1) = K(i:i+1,i:i+1) + 1/h*[1,-1;-1,1];
    % 载荷向量
    m1 = (A-B)/h-p(x(i))/2;
    m2 = (A-B)/h-p(x(i+1))/2;
    F(i:i+1) = F(i:i+1) + h/6*[f(x(i))+2*m1;m2+f(x(i+1))+2*m2];
end

% 加入边界条件
K(1,:) = 0;
K(1,1) = 1;
F(1) = A;
K(n+1,:) = 0;
K(n+1,n+1) = 1;
F(n+1) = B;

% 求解方程组
c = K\F;

% 拟合函数
y = zeros(size(x));
for i = 1:n
    y(i) = c(i)*(x(i+1)-x(i))/h + c(i+1)*(x(i)-x(i))/h;
end

end

我们可以通过调用上述函数来求解一个具体的二阶非齐次线性微分方程。例如，要求解下面的问题：

$$
\frac{d^2y}{dx^2} + x\frac{dy}{dx} + y = e^{x}
$$

其中，$y(0)=1$，$y(1)=e$。我们可以使用下面的代码来求解：

p = @(x) x;
q = @(x) 1;
f = @(x) exp(x);
A = 1;
B = exp(1);
n = 100;
[x,y] = fem(p,q,f,A,B,n);
plot(x,y);

最终得到的近似解如下图所示：


[Matlab科学计算] 有限元法求二阶常系数非齐次线性微分方程y′′ + Py' + Qy = f(x)源代码

以下是用有限元法求解二阶常系数非齐次线性微分方程的Matlab源代码：

% 输入参数
a = 0; % 区间左端点
b = 1; % 区间右端点
n = 10; % 离散节点数
P = 1; % 常数项P
Q = 1; % 常数项Q
f = @(x) cos(x); % 非齐次项f(x)

% 计算初始参数
h = (b-a)/n; % 步长
x = linspace(a,b,n+1)'; % 离散节点
A = zeros(n-1); % 系数矩阵
F = zeros(n-1,1); % 右端向量

% 组装系数矩阵和右端向量
for i = 1:n-1
    A(i,i) = -2/h^2 + P/(2*h);
    A(i,i+1) = 1/h^2 - P/(2*h);
    A(i+1,i) = 1/h^2 + P/(2*h);
    F(i) = f(x(i+1));
end
F(1) = F(1) - (1/h^2 - P/(2*h))*y(a+h); % 边界条件
F(n-1) = F(n-1) - (1/h^2 + P/(2*h))*y(b-h); % 边界条件

% 解线性方程组
Y = A\F;

% 计算数值解
y = [0; Y; 0];
x = linspace(a,b,n+1)';
for i = 2:n
    y(i) = y(i) + y(i-1)/(2*h) - f(x(i))*h^2/2 - Q*y(i)*h^2/2;
end

% 绘制图像
plot(x,y)
xlabel('x')
ylabel('y')
title('有限元法求解二阶常系数非齐次线性微分方程')

其中，我们通过输入参数a、b、n、P、Q和f(x)来确定微分方程的相关参数，然后计算出离散节点的位置和系数矩阵、右端向量等参数，最后通过解线性方程组得到数值解y，并绘制出其图像。