Напряженность поля радиотелецентров
| Категория реферата: Рефераты по науке и технике
| Теги реферата: реферат по математиці, найти реферат
| Добавил(а) на сайт: Набережнев.
Предыдущая страница реферата | 1 2 3 4 5 6 7 | Следующая страница реферата
procedure input;
begin
gwritexy(1,5,'Мощность: ',3,2); input_value(11,4,p); readln;
gwritexy(1,6,'К. у. антенны: ',3,2); input_value(1,6,d); readln;
gwritexy(1,7,'Высота передающей антенны: ',3,2); input_value(1,7,hb); readln;
end;
{Функция выводит осн. меню на экран и возвращает номер выбранного пункта меню}
Function ddt:integer;
begin
HVMenu.init;
gwritexy(0,1,'',0,0);
HVMenu.SetHorItems(00,00,80,01,NBg, NFg,HBg,HFg,BC,SC,1,1,BorderOn,ShadowOff,' File | Антенна ');
HVMenu.SetVerItems(01,00,01,10,03,NBg,NFg,HBg,HFg,BC,SC,4,1,BorderOn,ShadowOff,' Данные | Выход ');
HVMenu.SetVerItems(2,6,01,29,04,NBg,NFg,HBg,HFg,BC,Sc,
4,1,BorderOn,ShadowOff,
' Ант. решетка №1 - 1,3 | Ант. решетка №2 - 2 | Диполь ');
HMenu.EraseOK:=False;
X:=HVMenu.MenuResult(false,true);
ddt:=x;
end;
{Функции расчета напряженности}
function f_alfa:real;
begin
case choice of
1: f_alfa:=(1+2*cos(1.3*pi*sin(arctan((hb)/rm))))/3;
2: f_alfa:=(1+2*cos(2*pi*sin(arctan((hb)/rm))))/3;
3: f_alfa:=(cos(pi/2*sin(arctan((hb)/rm)))/cos(arctan((hb)/rm)));
end;
end;
function Rb:real;
begin
rb:=rm/sin(arctan(hb/rm));
end;
function E2:real;
begin
E2:=30*p*d*sqr(f_alfa)*sqr(f_fi)/sqr(Rb);
end;
{Заполнение массива ординат}
procedure ordinates;
begin
rm:=1;
for i:=1 to col do
begin
rm:=rm+delta_rm;
ord[i]:=1000*SQRT(E2); {х1000, т.к. ед. изм. - мВ/м}
Рекомендуем скачать другие рефераты по теме: курсовые работы бесплатно, сочинение на тему.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 | Следующая страница реферата
Главная