clc
clear all
tic;N=16;
T=1;
tau=T/N;
t=0:tau:T;
[T]=meshgrid(t);
F=0.25.*(1-T.^2)./(1+T.^2).^2;
u=zeros(N+1,N+1);
I=eye(N+1);
for kk=2:N+1
u(:,kk)=I\(u(:,kk-1)+tau*F(:,kk));
end
plot(T',u')
figure
uex=0.25.*T'./(1+T'.^2);
plot(T',uex)
err=max(max(abs(u-uex)));

这个是程序和图片