N = 100;%。网格点
达峰时间= 1;%时间= 1
α= 1;%给
h = 0.01;% delX的给定值
解决= 0.005;
maxt =最高温度/解决;%的时间步数
c =α*解决/ h;% c = 0.5
u = 0 (N + 1, maxt + 1);
x = 0 (N + 1);
%初始条件
为我= 1:N + 1
x (i) =(张)* h;
u(我,1)=罪(2 *π* x (i));
结束
为k = 1: maxt
情况= u (N, k);
u (1, k + 1) = (1 k) - c / 2 * (u (2 k)情况)+ c ^ 2/2 * (u (2 k) 2 * (k) +情况);
为我= 2:N
u (i (k + 1) = (i (k) - c / 2 * (u (i + 1 k) - u(张,k)) + (c ^ 2) / 2 * (u (i + 1 k) 2 * u (i (k) +(张,k));
结束
uNp2 = u (2 k);
u (N + 1, k + 1) = u (N + 1 k) - c / 2 * (uNp2-u (N, k)) + c ^ 2/2 * (uNp2-2 * u (N + 1, k) + (N, k));
结束
情节(x, u (:, 10), x, u (:, 20), x, u (:, 30), x, u (: 40), x, u (: 50), x, u (:, 60), x, u (:, 70))