模型5.m

时变电磁场的数值分析与仿真

m=moviein(100);
for a=1:100
r=10;e=0:2.*pi;
b=e;
[B,E]=meshgrid(b,e);
C=[r.*E+r.*(2.*pi-E)]./log(B./a);
surf(B,E,C);
m=getframe;
end
movie(m,1)