Разработка методики расчета и программы для исследования параболической антенны с полосковым облучателем
Исследование характеристик излучения параболических антенн. Учет потерь в параболической антенне. Защита от электрических и магнитных полей и электромагнитных излучений. Диаграмма направленности параболической антенны. Излучение поверхностных волн.
Рубрика | Коммуникации, связь, цифровые приборы и радиоэлектроника |
Вид | дипломная работа |
Язык | русский |
Дата добавления | 27.02.2013 |
Размер файла | 288,3 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
PARAMETR(k);
repeat
otwet:=readkey;
case otwet of
#80: begin
k:=k+1;
If k>10 Then k:=1;
PARAMETR(k);
end;
#72: begin
k:=k-1;
If k<1 then k:=10;
PARAMETR(k);
end;
#27: HALT;
end;
number:=k;
until otwet=#13;
GraphDriver:=VGA;
GraphMode:=VGAHI;
InitGraph(GraphDriver,GraphMode,'');
error:=graphresult;
If error<>0 then
begin
WriteLn('Ошибка, Проверьте параметры инициализации графики',GraphErrorMsg(error));readkey;
end;
Case number of
1: begin
{Построение графика проводимостей излучения ПА}
SET_OUT_WINDOW;
OutTextXY(10,420,'Зависимость проводимостей ПА,(См) от относительной толщины подложки h/L0: ');
OutTextXY(70,430,' Gr.тор ');
OutTextXY(70,440,' Gr.бок*100 ');
OutTextXY(230,430,' Gs.тор ');
OutTextXY(230,440,' Gs.бок*100 ');
OutTextXY(400,430,' Gdi ');
OutTextXY(400,400,' Gm ');
OutTextXY(1,2,'G*100,См');
Str(Er:3:1,txt);
OutTextXY(520,450,',Er='+txt);
SetColor(Red);SetLineStyle(SolidLn,35,ThickWidth);
Line(10,435,60,435);
SetLineStyle(CenterLn,35,ThickWidth);
Line(10,435,60,435);
SetColor(Blue);SetLineStyle(SolidLn,65535,ThickWidth);
Line(170,435,220,435);
SetLineStyle(CenterLn,65535,ThickWidth);
Line(10,445,220,445);
SetColor(Green);SetLineStyle(SolidLn,65535,ThickWidth);
Line(340,435,390,435);
SetLineStyle(CenterLn,65535,ThickWidth);
Line(340,445,390,445);
Tol_min:=0.005;
Tol_max:=0.1;
G_min:=0;
Setcolor(White);
If A<=10e-03 Then
begin
G_max:=1.0;
OutTextXY(1,70,'0.8');
OutTextXY(1,150,'0.6');
OutTextXY(1,230,'0.4');
OutTextXY(1,310,'0.2');
end
Else
begin
G_max:=1.5;
OutTextXY(1,70,'1.2');
OutTextXY(1,150,'0.9');
OutTextXY(1,230,'0.6');
OutTextXY(1,310,'0.3');
end;
SizeX:=600/Tol_max;
SizeY:=400/(G_max-G_min);
For i:=0 to 9 do
begin
Tol:=i*(Tol_max-Tol_min)/10+Tol_min; H:=Tol*L0;
PROW_ISL;
X1:=Gr;X2:=GRB;X3:=GS;X4:=GSB;X5:=Gdi;X6:=Gm;Tol1:=Tol;
Tol:=(i+1)*(Tol_max-Tol_min)/10+Tol_min; H:=Tol*L0;
PROW_ISL;
SetColor(Red);SetLineStyle(SolidLn,65535,ThickWidth);
Line(round(Tol1*SizeX),400-round(X1*100*SizeY),round(Tol*SizeX),400-round(Gr*100*SizeY));
SetLineStyle(CenterLn,65535,ThickWidth);
Line(round(Tol1*SizeX),400-round(X2*10000*SizeY),round(Tol*SizeX),400-round(GRB*10000*SizeY));
SetColor(Blue);SetLineStyle(SolidLn,65535,ThickWidth);
Line(round(Tol1*SizeX),400-round(X3*100*SizeY),round(Tol*SizeX),400-round(GS*100*SizeY));
SetLineStyle(CenterLn,65535,ThickWidth);
Line(round(Tol1*SizeX),400-round(X4*10000*SizeY),round(Tol*SizeX),400-round(GSB*10000*SizeY));
{График поетрь в диэлектрике и в металле}
SetColor(Green);SetLineStyle(SolidLn,65535,ThickWidth);
Line(round(Tol1*SizeX),400-round(X5*100*SizeY),round(Tol*SizeX),400-round(Gdi*100*SizeY));
SetLineStyle(CenterLn,65535,ThickWidth);
Line(round(Tol1*SizeX),400-round(X6*100*SizeY),round(Tol*SizeX),400-round(Gm*100*SizeY));
end;
SetColor(White);
OutTextXY(200,20,'Нажмите любую клавишу для продолжения...');
otwet:=readkey;
end;
2: begin
{}
SET_OUT_WINDOW;
OutTextXY(10,420,'Завсисимость КПД МПА (%) от относительной тощины подложки: ');
OutTextXY(1,70,'80');
OutTextXY(1,150,'60');
OutTextXY(1,230,'40');
OutTextXY(1,310,'20');
Tol_min:=0.005; G_min:=0;
Tol_max:=0.1; G_max:=1;
SizeX:=600/(Tol_max);
SizeY:=400/(G_max-G_min);
Er1:=Er;Er:=2.0;
While Er<=5 do
begin
Tol:=Tol_min; H:=Tol*L0;
PROW_ISL;
X1:=GR/(GR+GRB+GS+GSB+Gdi+Gm);
For i:=1 to 25 do
begin
Tol1:=i*(Tol_max-Tol_min)/25+Tol_min; H:=Tol1*L0;
PROW_ISL;
X2:=GR/(GR+GRB+GS+GSB+Gdi+Gm);
SetColor(Red);SetLineStyle(SolidLn,65535,ThickWidth);
Line(round(Tol*SizeX),400-round(X1*SizeY),round(Tol1*SizeX),400-round(X2*SizeY));
X1:=X2; Tol:=Tol1;
end;
Str(Er:3:1,txt);
SetColor(White);
OutTextXY(round(Tol1*SizeX-13),390-round(X2*SizeY),'Er='+txt);
Er:=Er+1;
end;
Er:=Er1;
OutTextXY(200,20,'Нажмите любую клавишу для продолжения...');
otwet:=readkey;
end;
3:begin
{}
SET_OUT_WINDOW;
OutTextXY(10,420,'Зависимость потерь в ПА (дБ) от относительной толщины подложки:');
OutTextXY(1,70,'4');
OutTextXY(1,150,'3');
OutTextXY(1,230,'2');
OutTextXY(1,310,'1');
Tol_min:=0.005; G_min:=0;
Tol_max:=0.1; G_max:=5;
SizeX:=600/(Tol_max);
SizeY:=400/(G_max-G_min);
Er1:=Er;Er:=2.0;
while Er<=5 do
begin
Tol:=Tol_min; H:=Tol*L0;
PROW_ISL;
X1:=10*LOG((GR+GRB+GS+GSB+Gdi+Gm)/GR);
for i:=1 to 20 do
begin
Tol1:=i*(Tol_max-Tol_min)/20+Tol_min; H:=Tol1*L0;
PROW_ISL;
X2:=10*LOG((GR+GRB+GS+GSB+Gdi+Gm)/GR);
SetColor(Red);SetLineStyle(SolidLn,65535,ThickWidth);
Line(round(Tol*SizeX),400-round(X1*SizeY),Round(Tol1*SizeX),400-round(X2*SizeY));
X1:=X2; Tol:=Tol1;
end;
Str(Er:3:1,txt);
SetColor(White);
OutTextXY(round(Tol1*SizeX-13),390-round(X2*SizeY),'Er='+txt);
Er:=Er+1;
end;
Er:=Er1;
OutTextXY(200,20,'Нажмите любую клавишу для продолжения');
otwet:=readkey;
end;
4:begin
{}
SET_OUT_WINDOW;
OutTextXY(10,420,'Зависимость КНД ПА от относительной толщины подложки:');
OutTextXY(1,70,'8');
OutTextXY(1,150,'6');
OutTextXY(1,230,'4');
OutTextXY(1,310,'2');
Tol_min:=0.005; G_min:=0;
Tol_max:=0.1; G_max:=10;
SizeX:=600/(Tol_max);
SizeY:=400/(G_max-G_min);
Er1:=Er;Er:=2.0;
while Er<=5 do
begin
Tol:=Tol_min; H:=Tol*L0;
PROW_ISL;
X1:=4*sqr(K0*A)/(Zoo*PI*GR);
For i:=1 to 10 do
begin
Tol1:=i*(Tol_max-Tol_min)/10+Tol_min; H:=Tol1*L0;
PROW_ISL;
X2:=4*sqr(K0*A)/(Zoo*PI*GR);
SetColor(Red);SetLineStyle(SolidLn,65535,ThickWidth);
Line(round(Tol*SizeX),400-Round(X1*SizeY),round(Tol1*SizeX),400-round(X2*SizeY));
X1:=X2; Tol:=Tol1;
end;
Str(Er:3:1,txt);
SetColor(White);
OutTextXY(round(Tol1*SizeX-13),390-round(X2*SizeY),'Er='+txt);
Er:=Er+1;
end;
Er:=Er1;
OutTextXY(200,20,'Нажмите любую клавишу для продолжения...');
otwet:=readkey;
end;
5:begin
SET_OUT_WINDOW;
OutTextXY(10,420,'Рабочая полоса ПА (%) для заданного КСВ');
OutTextXY(10,430,'в зависимости от относительной толщины подложки:');
OutTextXY(1,70,'16');
OutTextXY(1,150,'12');
OutTextXY(1,230,'8');
OutTextXY(1,310,'4');
Tol_min:=0.005; G_min:=0;
Tol_max:=0.1; G_max:=20;
SizeX:=600/(Tol_max);
SizeY:=400/(G_max-G_min);
Er1:=Er;Er:=2.0;
while Er<=5 do
begin
Tol:=Tol_min; H:=Tol*L0;
PROW_ISL;X1:=4*sqr(K0*A)/(120*PI*PI*GR);
X1:=Er*X1*L0/(16*H);
X1:=(KSW-1)/(X1*sqrt(KSW))*100;
For i:=1 to 10 do
begin
Tol1:=i*(Tol_max-Tol_min)/10+Tol_min; H:=Tol1*L0;
PROW_ISL;
X2:=4*sqr(K0*A)/(120*PI*PI*GR);
X2:=Er*X2*L0/(16*H);
X2:=(KSW-1)/(X2*sqrt(KSW))*100;
SetColor(Red);SetLineStyle(SolidLn,65535,ThickWidth);
Line(round(Tol*SizeX),400-round(X1*SizeY),round(Tol1*SizeX),400-round(X2*SizeY));
X1:=X2; Tol:=Tol1;
end;
Str(Er:3:1,txt);
SetColor(White);
OutTextXY(round(Tol1*SizeX-13),390-round(X2*SizeY),'Er='+txt);
Er:=Er+1;
end;
Er:=Er1;
OutTextXY(200,20,'Нажмите любую клавишу для продолжения...');
otwet:=readkey;
end;
6:begin
{}
H:=0.05*L0;
ClearDevice;
SetBkColor(Black);
SetFillStyle(SolidFill,Black);
Bar(0,0,600,400);
SetColor(White);
SetLineStyle(DottedLn,65535,NormWidth);
For i:=0 to 10 do Line(0,i*40,600,i*40);
For i:=0 to 6 do Line(i*100,0,i*100,400);
OutTextXY(90,405,'15');
OutTextXY(190,405,'30');
OutTextXY(290,405,'45');
OutTextXY(390,405,'60');
OutTextXY(490,405,'75');
OutTextXY(590,405,'90');
OutTextXY(10,420,'Диаграмма направленности ПА для h=0.05*L0: ');
OutTextXY(100,430,' v H-ploskosti');
OutTextXY(100,440,' v E-ploskosti');
SetColor(Red);SetLineStyle(SolidLn,65535,ThickWidth);
Line(10,435,70,435);
SetLineStyle(CenterLn,65535,ThickWidth);
Line(10,445,70,445);
Tol_min:=0; G_min:=0;
Tol_max:=PI/2; G_max:=1.0;
SizeX:=600/(Tol_max-Tol_min);
SizeY:=400/(G_max-G_min);
DNH_max:=DNH(0); DNE_max:=DNE(0);
For i:=0 to 49 do
begin
Tol:=i*(Tol_max-Tol_min)/50+Tol_min;
Tol1:=(i+1)*(Tol_max-Tol_min)/50+Tol_min;
{}
SetColor(Red);SetLineStyle(SolidLn,65535,ThickWidth);
Line(round(Tol*SizeX),400-round(DNH(Tol)/DNH_max*SizeY),round(Tol1*SizeX),400-round(DNH(Tol1)/DNH_max*SizeY));
SetLineStyle(CenterLn,65535,ThickWidth);
Line(round(Tol*SizeX),400-round(DNE(Tol)/DNE_max*SizeY),round(Tol1*SizeX),400-round(DNE(Tol1)/DNE_max*SizeY));
end;
SetColor(White);
OutTextXY(200,20,'Нажмите любую клавишу для продолжения...');
otwet:=readkey;
end;
7:begin
{}
SET_OUT_WINDOW;
OutTextXY(10,420,'Входное сопротивление ПА (Ом)');
OutTextXY(10,430,'в зависимости от относительной толщины подложки:');
Tol_min:=0.005;
Tol_max:=0.1;
G_min:=0;
If A<=10e-03 Then
begin
G_max:=800;
OutTextXY(1,70,'640');
OutTextXY(1,150,'480');
OutTextXY(1,230,'320');
OutTextXY(1,310,'160');
end
Else
begin
G_max:=200;
OutTextXY(1,70,'160');
OutTextXY(1,150,'120');
OutTextXY(1,230,'80');
OutTextXY(1,310,'40');
end;
SizeX:=600/Tol_max;
SizeY:=400/G_max;
Er1:=Er; Er:=2.0;
While Er<=5 do
begin
Tol:=Tol_min; H:=Tol*L0;
PROW_ISL;
X1:=1/(GR+GRB+GS+GSB+Gdi+Gm);
For i:=1 to 20 do
begin
Tol1:=i*(Tol_max-Tol_min)/20+Tol_min; H:=Tol1*L0;
PROW_ISL;
X2:=1/((GR+GRB+GS+GSB+Gdi+Gm));
SetColor(Red);SetLineStyle(SolidLn,65535,ThickWidth);
Line(round(Tol*SizeX),400-round(X1*SizeY),round(Tol1*SizeX),400-round(X2*SizeY));
X1:=X2; Tol:=Tol1;
end;
Str(Er:3:1,txt);
SetColor(White);
OutTextXY(round(Tol1*SizeX-13),390-round(X2*SizeY),'Er='+txt);
Er:=Er+1;
end;
Er:=Er1;
OutTextXY(200,20,'Нажмите любую клавишу для продолжения...');
otwet:=readkey;
end;
8:begin
RestoreCrtMode;
OUTPUT;
end;
9:begin
RestoreCrtMode;
INPUT;
end;
10: Halt(1);
end;
RestoreCrtMode
Until 2<1;
END.
Размещено на Allbest.ru
Подобные документы
Основные геометрические свойства параболоида вращения. Эффективность параболической антенны. Расчет диаграмм направленности с учетом тени, создаваемой облучателем. Расчет себестоимости зеркальной антенны. Электромагнитное и ионизирующее излучения.
дипломная работа [3,7 M], добавлен 09.10.2014Расчет зеркальных параболических антенн, которые находят широкое применение в космических и радиорелейных линиях связи. Определение поля излучения параболической антенны апертурным методом. Шумовая температура фидерного тракта. Выбор конструкции зеркала.
курсовая работа [1,1 M], добавлен 04.03.2011Применение и устройство зеркальных параболических антенн, их преимущества и недостатки. Выбор геометрических размеров рупорного облучателя и зеркала. Построение диаграммы направленности антенны. Расчет фидерного тракта, вращающихся сочленений и узлов.
курсовая работа [1,2 M], добавлен 20.02.2013Определение поля излучения параболической антенны апертурным методом. Определение шумовой температуры фидерного тракта и КПД. Расчет геометрических и электродинамических характеристик облучателей. Распределение поля в апертуре зеркала, расчёт его профиля.
курсовая работа [1,9 M], добавлен 24.08.2014Расчет геометрических и электродинамических параметров облучателя и параболоида. Определение геометрических и электродинамических характеристик поля. Построение пространственной диаграммы направленности и определение параметров параболической антенны.
курсовая работа [366,6 K], добавлен 04.03.2011Расчет геометрических и электродинамических параметров облучателя и параболоида; геометрических и электродинамических характеристик поля излучения. Определение параметров параболической антенны, ее конструкции и пространственной диаграммы направленности.
курсовая работа [397,5 K], добавлен 19.11.2010Общая характеристика зеркальной антенны, ее назначение и применение. Расчет зеркальной параболической антенны сантиметрового диапазона с облучателем в виде пирамидального рупора. Определение коэффициента усиления с учетом неточности изготовления зеркала.
курсовая работа [579,3 K], добавлен 18.01.2014Определение шумовой температуры фидерного тракта. Угол раскрыва и фокусное расстояние зеркальной антенны. Диаграммы направленности облучателя, распределение поля в апертуре зеркала. Сопоставление расчетного и заданного уровня боковых лепестков.
курсовая работа [572,6 K], добавлен 13.02.2011Проектирование привода параболической антенны с волновым редуктором в составе. Расчет волновой передачи, выбор гибкого подшипника. Прочность гибкого колеса. Конструкция деталей волновых передач и редуктора. Кулачковый генератор, расчет валов редуктора.
курсовая работа [1,4 M], добавлен 13.09.2012Разработка параболической антенны РЛС с частотой 1.2 ГГц. Проведение анализа выбора типа облучателя для данной рабочей частоты антенны. Построение диаграммы направленности облучателя в различных плоскостях. Подбор и расчет геометрических размеров зеркала.
курсовая работа [2,6 M], добавлен 03.01.2009