%
%
%14.1  2m-Antenne fr DL0HH %<'FontWeight',MSVTITLWEIGHT,'FontSize',MSVTITLSIZE,'Color',MSVTITLCOLOR>
%
%
% \bf1. Eine {\fontname{Courier}FX213}
%
% Masthhe:  {\fontname{Courier}5.30 m} .  Dort ist die obere {\fontname{Courier}FX213} fest angebracht:
%
ant = group(yagi7,[0 0 5.3]);
antgraph(ant);
%
% Das horizontale- und das vertikale Strahlungsdiagramm ergibt sich zu:
%
frq  = 145;             % Frequenz in MHz
ant = group(yagi7,[0 0 5.3]);
rphv(ant,frq,0,1);  % Strahlungsdiagramme
%
% Eine Nahfeldberechnung auf einem Gitter in der Hhe  {\fontname{Courier}1.80 m} liefert die 
% Ausleuchtung:
%
p  = 250;                           % abgestrahlte Leistung in W
frq = 145;
xx  = -5:0.5:19;  yy = -9:0.5:9;  zz = 1.80; % Gitter
ant = group(yagi7,[0 0 5.3]);
nfield(ant,144,xx,yy,zz,600);
%
% Nach der Tabelle ist als maximaler Antenneninput  {\fontname{Courier}204 W}  zugelassen.
%
%
% \bf2. Zwei {\fontname{Courier}FX213}
%
% Die obere Antenne verbleibt bei  {\fontname{Courier}5.3 m} .  Variiert wird die Hhe der zweiten  {\fontname{Courier}FX213} 
% Berechnet wird das Nahfeld in Strahlrichtung in der Hhe  {\fontname{Courier}1.80 m}  ber dem Dach, 
% also  {\fontname{Courier}3.50 m}  unter der oberen Antenne.
%
%
%
%
%
%
%
%
%
%
%
%
h = 5.30;                       % Hhe der oberen Antenne
frq = 145;                      % Frequenz in MHz
x = 0:0.1:15; y = 0; z = 1.80;  % Gitterpunkte fr die Nahfeldbrechnung
n = 5;                          % Anzahl der Hhen
d = 1.2 + 0.1*(0:n-1);          % Abstnde der Antennen
for k=1:n,  ant{k} = group(yagi7,[0 0 h; 0 0 h-d(k)]); end; % Antennen
ant{n+1} = group(yagi7,[0 0 h]);      % zum Vergleich: eine Antenne
for k=1:n+1,  rphv(ant{k},frq,0,1); end; % Richtdiagramme horizontal / vertikal  
for k=1:n+1,  tab{k} = nfield(ant{k},frq,x,y,z,1); end; % Nahfeldberechnung
for k=1:n+1,  tt1(:,k) = tab{k}(:,5); end;
titl = 'Feld in Hhe 1.80 m in Strahlrichtung bei Variation des Antennenabstandes';
for k=1:n,  lgt{k} = [num2str(d(k)) ' m']; end;
lgt{n+1} = 'nur eine';
graph(tt1,x,'DL0HH-Antenne',titl,'Abstand vom Mast [m]',[],[],[],lgt)
%
% Zwar ist der Antennengewinn etwas hher als bei nur einer Antenne, aber die zulssige 
% Leistung ist etwas geringer, weil das Dach zu sehr in der Keule liegt.
%
%
% \bfBerechnung unter Variation der Elevation
%
% Die Antennenkeule ist vorn ziemlich rund.  Aus diesem Grund vermindert eine leichte 
% Elevation der Antenne die horizontale Abstrahlung nur sehr geringfgig.  Die 
% Ausleuchtung darunter wird jedoch strker vermindert.  In der folgenden Simulation
% wird die Elevation erreicht durch eine kleine Verschiebung der unteren Antenne in 
% Strahlrichtung.  Die Elevation wird variiert bei festgehaltenem Abstand von  {\fontname{Courier}1.25 m} :
%
h = 5.3;                         % Hhe der oberen Antenne
d = 1.25;                        % Abstand der Antennen
frq = 145;                       % Frequenz in MHz
x = 0:0.1:15; y = 0; z = 1.80;   % Gitterpunkte fr die Nahfeldbrechnung
n = 5;                           % Anzahl der Elevationen
e = 2 + 2*(1:n);                 % Elevationen in Grad
ant{n+1} = group(yagi7,[0 0 h]); % zum Vergleich: eine Antenne
for k=1:n,    ant{k} = group(yagi7,[0 0 h; d*sin(e(k)/180*pi) 0 h-d]); end; % Antennen
for k=1:n+1,  rphv(ant{k},frq,0,1); end;  % Richtdiagramme horizontal / vertikal  
for k=1:n+1,  tab{k} = nfield(ant{k},frq,x,y,z,1); end;  % Nahfeldberechnung
for k=1:n+1,  tt1(:,k) = tab{k}(:,5); end;
for k=1:n,  lgt{k} = [num2str(e(k)) '']; end;
lgt{n+1} = 'nur eine';
titl = 'Feld in Hhe 1.80 m in Strahlrichtung bei Variation der Elevation';
graph(tt1,x,'DL0HH-Antenne',titl,'Abstand vom Mast [m]',[],[],[],lgt)
%
%
%
% Die Elevation kann auch erreicht werden durch ungleiche Phasen bei beiden Antennen. 
% Die Funktion  {\fontname{Courier}group}  ermglicht dies mit dem dritten Parameter:
%
h = 5.3;                           % Hhe der oberen Antenne
d = 1.25;                          % Abstand der Antennen
frq = 145;                         % Frequenz in MHz
c = 299792458;                     % Lichtgeschwindigkeit in m/s
x = 0:0.1:15; y = 0; z = 1.80;     % Gitterpunkte fr die Nahfeldbrechnung
n = 6;                             % Anzahl der Elevationen
dl = -0.04 - 0.02*(1:n);           % Lnge der Phasenleitung bei oberer Yagi in m
cc = exp(i*2*pi*dl*frq*1000000/c); % Pasenverschiebungen in Radian
for k=1:n,  ant{k} = group(yagi7,[0 0 h; 0 0 h-d],[cc(k) 1]); end; % Antennen
ant{n+1} = group(yagi7,[0 0 h]);   % zum Vergleich: eine Antenne
for k=1:n+1,  rphv(ant{k},frq,0,1); end;  % Richtdiagramme horizontal / vertikal  
for k=1:n+1,  tab{k} = nfield(ant{k},frq,x,y,z,1); end;  % Nahfeldberechnung
for k=1:n+1,  tt1(:,k) = tab{k}(:,5); end;
for k=1:n,  lgt{k} = [num2str(dl(k)) ' m']; end
lgt{n+1} = 'nur eine';
titl = 'Feld in Hhe 1.80 m in Strahlrichtung bei Variation der Lnge der Pasenleitung der oberen Yagi';
graph(tt1,x,'DL0HH-Antenne',titl,'Abstand vom Mast [m]',[],[],[],lgt)
%
%
% \bfBerechnung unter Variation des Abstandes bei fester Elevation von 10
%
h = 5.3;                        % Hhe der oberen Antenne
frq = 145;                      % Frequenz in MHz
e = 10;                         % Elevationen in Grad
x = 0:0.1:15; y = 0; z = 1.80;  % Gitterpunkte fr die Nahfeldbrechnung
n = 5;                          % Anzahl der Elevationen
d = 1.2 + 0.05*(0:n-1);         % Abstnde der Antennen
ant{n+1} = group(yagi7,[0 0 h]); % zum Vergleich: eine Antenne
for k=1:n,  ant{k} = group(yagi7,[0 0 h; d(k)*sin(e/180*pi) 0 h-d(k)]); end; % Antennen
for k=1:n+1,  rphv(ant{k},frq,0,1); end;  % Richtdiagramme horizontal / vertikal  
for k=1:n+1,  tab{k} = nfield(ant{k},frq,x,y,z,1); end;  % Nahfeldberechnung
for k=1:n+1,  tt1(:,k) = tab{k}(:,5); end;
for k=1:n,  lgt{k} = [num2str(d(k)) ' m']; end;
lgt{n+1} = 'nur eine';
titl = 'Feld in Hhe 1.80 m in Strahlrichtung bei Variation der Elevation';
graph(tt1,x,'DL0HH-Antenne',titl,'Abstand vom Mast [m]',[],[],[],lgt)
%
%
%
%
%
%
%
%
% \bfAusleuchtung mit der optimierten Antenne
%
p  = 440;                           % abgestrahlte Leistung in W
e  = 10;                            % Elevation in Grad
d  = 1.30;                          % Abstand der Antennen in m
frq = 145;                          % Frequenz in MHz
xx = -5:0.5:20; yy = -9:0.5:9; zz = 1.80; % Nahfeldgitter
ant = group(yagi7,[0 0 5.3; d*sin(e/180*pi) 0 5.3-d]); % Antenne
rphv(ant,frq,0,1);                  % Richtdiagramme horizontal / vertikal  
tbb = nfield(ant,frq,xx,yy,zz,p);   % Nahfeldberechnung
%
