Читать курсовая по радиоэлектронике: "РАСЧЕТ НАПРЯЖЕННОСТИ ПОЛЯ РАДИОТЕЛЕЦЕНТРОВ" Страница 5

(Назад) (Cкачать работу)

Функция F() для типовой передающей антенны ("антенная решетка") задается формулой

(1.18)

В этой формуле коэффициент b принимает значения 2 для антенной решетки всех радиотелепередающих центров до модернизации в 1998 г., и 1,3 – после модернизации согласно [3].

Для антенн типа "полуволновой вибратор" функция F() задается иначе

(1.19)

или, если угол отсчитывается от оси диполя (рис. 7.),

(1.20)

При проектировании и эксплуатации современных радиотехнических объектов важно учитывать ПДУ воздействия электро-магнитных полей (ЭМП) на здоровье людей. В таблице приведены значения ПДУ для некоторых частот.

В соответствии с официально утвержденной методикой [2] рассчитывались значения нормированной суммарной напряженности поля S в зависимости от расстояний от опоры:

(1.21)

где индекс суммирования k соответствует номеру передатчика и меняется от 1 до 7, а санитарные нормы не нарушаются при S#47)and(rkMax then Max:=ord[i];

if max=0 then max:=1;

Em:=max;

end;

{Сохранение результатов расчета в файл "results.txt"}

procedure ToFile;

begin

assign(vf,'results.txt');

rewrite(vf);

rm:=0;

for i:=1 to col do begin

rm:=rm+delta_rm;

writeln(vf,rm,' m',' - ',ord[i]:0:5,' mV/m');

end;

end;

{Инициализация графики}

procedure grinit;

var

grDriver: Integer;

grMode: Integer;

ErrCode: Integer;

begin

grDriver := Detect;

InitGraph(grDriver, grMode,'c:\bp\bgi');

ErrCode := GraphResult;

if ErrCode 0 then

Writeln('Graphics error:', GraphErrorMsg(ErrCode));

end;

procedure drawcoords; {Оси координат}

begin

setcolor(darkgray);

{Oy} line(100,445,100,30); line(99,445,99,30);

line(99,30,96,35); line(100,30,103,35);

outtextxy(25,23,' Е, мВ/м');

{Ox} line(95,440,515,440); line(95,441,515,441);

line(515,440,510,437);line(515,441,510,444);

outtextxy(525,445,'R, м');

end;

procedure drawgrid;{Сетка}

begin

setcolor(lightgray);

{Горизонтальная}

j:=40;

for i:=1 to 10 do

begin

line(100,440-j,500,440-j);

j:=j+40

end;

{Вертикальная}

j:=round(80/ln(1.91));

for i:=1 to 6 do

begin

line(100+round(j),440,100+round(j),40);

j:=j+round(80/ln(i+1.8))

end;

end;

procedure values;{Разметка сетки}

begin

{По вертикали}

del[1]:=em/10;{Цена деления}

for i:=2 to 10 do

del[i]:=del[1]+del[i-1];

setcolor(darkgray);

outtextxy(90,445,'0');

j:=40;

for i:=1 to 10 do

begin

str(del[i]:0:1,delstr);

outtextxy(90-length(delstr)*8,438-j*i,delstr)

end;

{По горизонтали}

j:=95+round(80/ln(1.91));

outtextxy(j,445,'3');

j:=j+round(80/ln(2.8));

outtextxy(j,445,'6');

j:=j+round(80/ln(3.8));

outtextxy(j,445,'9');

j:=j+round(80/ln(4.8));

outtextxy(j,445,'12');

j:=j+round(80/ln(5.8));

outtextxy(j,445,'15');

j:=j+round(80/ln(6.8));

outtextxy(j,445,'18');

end;

{ Построение графика }

procedure drawgrafic;

var dlt:integer;

x1,x2,y1,y2:integer;

begin

setcolor(choice+1);

x1:=100-round(2/ln(1.91));;

for i:=1 to col do

begin

y1:=440-round(400*ord[i]/em);

y2:=440-round(400*ord[i+1]/em);

if (i>=1)and(i=40)and(i=80)and(i=120)and(i=160)and(i

Похожие работы