模拟电磁波衰减的matlab程序资料下载.pdf

模拟电磁波衰减的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