MATLAB实现偶极子天线仿真程序源码.zip

clear; clc; %偶极子天线方向性图 theta = 0:pi/100:pi; phi = 0:pi/100:2*pi; [Theta, Phi] = meshgrid(theta, phi); x = 0.63 ; % x = l/lambda x1 = 2*pi*x; f = (cos(x1 .* cos(Theta)) - cos(x1))./sin(Theta); [x,y,f1] = sph2cart(Phi,pi/2-Theta,f); figure(1);%3维图 surf(x,y,f1); title('偶极子天线方向性图,l/λ=2.75'); grid on; %赤道面 f1 = (cos(x1 .* cos(theta)) - cos(x1))./sin(theta); a = size(phi); f2 = ones(a)*max(abs(f1)); figure(2); polar(phi,f2); title('赤道面方向性图,l/λ=0.63'); grid on; %子午面 theta = 0:pi/100:2*pi; f3 = (cos(x1 .* cos(theta)) - cos(x1))./abs(sin(theta)); figure(3); polar(theta,f3); title('子午面方向性图,l/λ=0.63');