用 Euler 法、Heun 法和改进的 Euler 法求解常微分方程

2744557306

这是一个 MATLAB 函数，用 Euler 法、Heun 法和改进的 Euler 法求解常微分方程，并比较它们的结果。以下是对你的代码的主要部分的解释：
" v. s* G5 P1 `; Vfunction y = Euler1(a, b, N, af)
    h = (b - a) / N;
3 K/ F& }' j. r: S' C    x(1) = a;
4 G0 J" I+ d/ y* I4 u, \; p, b    y(1) = af;
# I2 |& I& Z4 {. s5 }  k- z    yg(1) = af;
    yh(1) = af;
    jqj(1) = af;

    % 迭代计算
    for i = 2:N+1
. p" x! Q) R. T3 G' t3 _6 _4 V3 [5 r( A        % Euler 法
        y(i) = y(i-1) + h * f(x(i-1), y(i-1));

        % Heun 法
$ p% ~( Z7 t6 v        yh(i) = yh(i-1) + (h/4) * (f(x(i-1), yh(i-1)) + 3 * f(x(i-1) + 2 * h/3, yh(i-1) + 2 * h * f(x(i-1), yh(i-1)) / 3));

3 m% V6 p1 k. o2 a* r& _        % 改进 Euler 法
5 [+ m" x% d8 n! I        yg(i) = yg(i-1) + h * (f(x(i-1), y(i-1)) + f(x(i), y(i) + h * f(x(i-1), y(i-1)))) / 2;

8 |+ m& e+ ?: S  Y1 x; [+ M        x(i) = a + (i-1) * h;
  `" c! j2 w( W4 s        jqj(i) = x(i) + exp(-x(i));
    end

    % 计算误差
    er = sum((y - jqj).^2);      % Euler 法误差
( i* y# j8 o$ J, D    erg = sum((yg - jqj).^2);    % 改进 Euler 法误差
) J5 |# P0 }: ~7 L7 l    erh = sum((yh - jqj).^2);    % Heun 法误差
0 f' [1 ~& ]: I" @. O+ s
2 d3 f  i+ t/ B+ }( }    % 输出结果和误差
# j) y6 }& L- O1 q8 I8 t. r    [x', y', yg', yh', jqj']
    disp(['Euler法误差: ', num2str(er)]);
    disp(['改进Euler法误差: ', num2str(erg)]);
    disp(['Heun法误差: ', num2str(erh)]);

4 f9 g/ \7 M( k    % 绘制结果
/ L# m, ^" U0 J5 y    plot(x, y, 'r', x, yg, 'b', x, yh, 'k', x, jqj, 'g');
; s, B  Q* ~9 w+ u. S    legend('Euler法', '改进Euler法', 'Heun法', '精确解');
end

$ {) W! M: O) J, g% 待解的常微分方程的右侧函数
' e6 }6 |. i+ afunction result = f(x, y)
    result = -y - exp(-x);
end
& |6 t2 U* C7 s7 w# w& q
这个函数接受四个参数：
; r+ j* @9 n& ?% @6 }* G
1.a 和 b：求解ODE的时间范围。
2.N：迭代步数。
1 n, a, |/ ]$ t+ _3.af：初始条件。
' W& j  ~9 x1 y4 |' j& c3 D
: Y) k* q3 C# M在函数内部，它使用 Euler 法、Heun 法和改进的 Euler 法分别计算解，并计算了它们与精确解的误差。最后，它输出结果矩阵、误差，并通过 plot 函数将结果绘制出来。
你可以通过调用这个函数并提供合适的参数来运行它，例如：
Euler1(0, 1, 10, 1);
* p: b: u* w0 Z* w1 ^) S$ e
这将演示在给定的时间范围内使用三种不同的数值方法求解简单的常微分方程，并比较它们的结果。

0 E) V$ I' M  j3 l6 r
; Q1 G1 v2 Q, U% [