www.pudn.com > loopantenna.rar > loop4.m, change:2002-04-17,size:1371b


%LOOP4 
%   Creates triangular mesh for the helical tapered  
%   antenna of given radius, number of turns, spacing,  
%   and wire thickness. 
% 
%   The following parameters need to be specified: 
% 
%   Turn radius in m -Center                amin 
%   Turn radius in m -Top/Bottom            amax 
%   Number of loop rectangles               M 
%   Width of the strip                      h 
%   Number of turns                         N 
%   Spacing between turns                   S 
% 
%   Note: the equivalent wire radius is 0.25*h 
% 
%   Copyright 2002 AEMM. Revision 2002/03/13  
%   Chapter 5 
 
clear all 
 
amin=0.1;    
amax=1;      
M=30;        
h=0.05;      
N=10;        
S=0.2;      
 
L=N*S;      %Total length of the antenna 
 
Count=1;    %Point number 
%Create rectangles 
t=[]; 
for n=1:M*N 
    angle=2*pi*(n-1)/M; 
    R=amin-abs((n-1)-M*N/2)*(amin-amax)/(M*N/2); 
    x=  R*cos(angle);  
    y=  R*sin(angle); 
    zM=   n*L/(M*N)-L/2+h/2; 
    X1Array(Count:Count+1)=[x x]'; 
    X2Array(Count:Count+1)=[y y]'; 
    X3Array(Count:Count+1)=[zM zM-h]'; 
    if(n>1) 
        t=[t [Count-2; Count-1; Count+1] [Count-2; Count; Count+1]]; 
    end 
    Count=Count+2; 
end 
 
%Nodes 
PointNumber=Count-1; 
for L=1:PointNumber 
   p(1:3,L) = [X1Array(L); X2Array(L); X3Array(L)]; 
end 
t(4,:)=1; 
 
%Save result 
save loop4  p t h; 
viewer('loop4')