untitled.m

对于天线的设计和应用进行了仿真,并进行了优化处理

X=[1 2 4 6 7 8 10 11 12 14 15 16 17 22 23 26 27 29 31 34 40 47 82];
Max=25;
Index=zeros(1,1);
Fmin=ones(1,1).*Max;
Value=zeros(1,101);
s=0;
for j=1:1
    s=0;
    for u=0:0.01:1
        s=s+1;
        Value(j,s)=1+exp(i*100*pi*u);
        for n=1:N
            Value(j,s)=Value(j,s)+exp(i*(pi*X(j,n)*u));
        end
        Value(j,s)=abs(Value(j,s));
        if Fmin(j)<Value(j,s)
            Index(j)=u;
            break;
        end
        Fmin(j)=Value(j,s);
    end
end

Rmax=zeros(1,1);
for j=1:1
    s=0;
    for u=Index(j):0.01:1
        s=s+1;
        Value(j,s)=1+exp(i*100*pi*u);
        for n=1:N
            Value(j,s)=Value(j,s)+exp(i*(pi*X(j,n)*u));
        end
        Value(j,s)=abs(Value(j,s));
        if Rmax(j)<Value(j,s)
            Rmax(j)=Value(j,s);
        end
    end
end
Fitness=20*log10(Rmax./Max)