2013/3/7%Function:Simulation of attenuated UPW hold on pause(3)hold off k=2*pi*1e-2;w=6*pi*1e6;n=120*pi;ae=5e-3;ah=ae/n;alpha=0.002;t=0:0.01e-6/3:60e-6;z=0:1:1200;Nt=length(t);for i=1:Nt tn=t(i);E=ae.*exp(-alpha.*z).*sin(w.*tn-k.*z);H=ah.*exp(-alpha.*z).*sin(w.*tn-k.*z);S=E.*H;subplot(3,1,1)plot(z,E)subplot(3,1,2)plot(z,H)subplot(3,1,3)plot(z,S)pause(0.005e-6/3)end