模拟电磁波衰减的matlab程序资料下载.pdf
《模拟电磁波衰减的matlab程序资料下载.pdf》由会员分享,可在线阅读,更多相关《模拟电磁波衰减的matlab程序资料下载.pdf(1页珍藏版)》请在冰豆网上搜索。
2013/3/7%Function:
SimulationofattenuatedUPWholdonpause(3)holdoffk=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);
fori=1:
Nttn=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