📄 pedkexp.m
字号:
function u = peDKExp(a,b,dt,n,minx,maxx,M)
format long;
h = (maxx-minx)/(n-1);
for j=1:(n+2*M)
u0(j) = DKIniU(minx+(j-M-1)*h);
end
u1 = u0;
coff = (exp(a*h/2/b)+exp(-a*h/2/b))/(exp(a*h/2/b)-exp(-a*h/2/b));
coff = dt*coff*a*h/2;
for k=1:M
for i=k+1:n+2*M-k
u1(i) = coff*(u0(i+1)-2*u0(i)+u0(i-1))+a*dt*(u0(i+1)-u0(i-1))/h/2+u0(i);
end
u0 = u1;
end
u = u1((M+1):(M+n));
format short;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -