wave upl.I Fri Mar0111:36;272002 tmax =0.22 inspace(-L, L, imax+1) dt CFl*dx/u T(1)- Texact (x(ii),0.D,u) e Tinit T, while (t s tmax TO= T for i T(ii)- TO(ii)- udt/dx*(TO(iil Tex(ii)= Texact(x(ii), t, u): l1o(x,T,’."); hold on plot(x, Tinit label(T