Главная База знаний "Allbest" Коммуникации, связь, цифровые приборы и радиоэлектроника Разработка методики расчета и программы для исследования параболической антенны с полосковым облучателем

Разработка методики расчета и программы для исследования параболической антенны с полосковым облучателем

Исследование характеристик излучения параболических антенн. Учет потерь в параболической антенне. Защита от электрических и магнитных полей и электромагнитных излучений. Диаграмма направленности параболической антенны. Излучение поверхностных волн.

Рубрика Коммуникации, связь, цифровые приборы и радиоэлектроника
Вид дипломная работа
Язык русский
Дата добавления 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

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены