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) then begin
x1:=x1+round(2/ln(1.91));
x2:=x1+round(2/ln(1.91));
end;
if (i>=40)and(i<80) then begin
x1:=x1+round(2/ln(3.71));
x2:=x1+round(2/ln(3.71));
end;
if (i>=80)and(i<120) then begin
x1:=x1+round(2/ln(5.51));
x2:=x1+round(2/ln(5.51));
end;
if (i>=120)and(i<160) then begin
x1:=x1+round(3/ln(7.31));
x2:=x1+round(3/ln(7.31));
end;
if (i>=160)and(i<=200) then begin
x1:=x1+round(4/ln(9.11));
x2:=x1+round(4/ln(9.11));
end;
line(x1,y1,x2,y2);
line(x1,y1-1,x2,y2-1);
line(x1,y1-2,x2,y2-2);
delay(20);
end;
end;
{Графические процедуры}
procedure drawing1st; {Инициализирует графику, подготавливает экран}
begin
grinit;
setbkcolor(15);
cleardevice;
setcolor(darkgray);
rectangle(10,10,getmaxx-10,getmaxy-10);
drawgrid;
drawcoords;
end;
procedure drawing2nd; {Выводитграфикнаэкран}
begin
drawgrafic;
readln;
closegraph;
end;
begin
ClrScr;
{ Input;}p:=100; d:=8; hb:=127;
grinit;
repeat
cleardevice;
i:=2;
repeat
a:=ddt;
until a<>0;
Hmenu_choice:=a div 100;
Case Hmenu_choice of
1: begin
choice:=a mod 100;
if choice=2 then break else begin
input;
input_is:=true;
end;
end;
2: if not(input_is) then begin
gwritexy(17,10,'! Сначала необходимо ввести даннные !',5,1);
ch:=readkey;
continue;
{end else begin
choice:=a mod 100;
Drawing1st;
Ordinates;
E_Maximum;
ToFile;
Values;
Drawing2nd; }
end;
end;
until false;
HVMenu.Done;
cleardevice;
closegraph;
write(p:1:2,' ',d:1:2,' ',hb:1:2);
end.
Приложение 2 – таблица измерения напряженности поля вблизи Усольского ретранслятора.
| Места проведения измерений | Расстояние | Направленная антенна | Круговая антенна | ||
| км | Е (видео), мкВ/м | Е (звук), мкВ/м | Е (видео), мкВ/м | Е (звук), мкВ/м | |
| 1.Тайтурка | 11 | 178 | 112 | 316 | 200 |
| 2.Средний | 11 | 280 | 126 | 708 | 354 |
| 3.Мальта | 6 | 630 | 354 | 1412 | 708 |
| 4.Белореченск | 7 | 707 | 446 | 1258 | 708 |
| 5.Тракт | 2 | 4466 | 1995 | 25118 | 7080 |
| 6.Зеленый гор. ул.Энергетиков | 4 | 17780 | 5010 | 2512 | 1412 |
| 7.Зеленый гор. ул.Фурманова | 2,5 | 12590 | 4466 | 5012 | 1122 |
| 8.У- С. Горбольница | 5,5 | 3980 | 1258 | 2238 | 1258 |
| 9.У-С. ул. Горького | 6 | 3548 | 1122 | 1778 | 890 |
| 10. У- С. ул.Крупской | 5 | 3548 | 1412 | 2623 | 1238 |
| 11. У- С. ж/д. переход | 2,4 | 19952 | 7080 | 5623 | 2238 |
| 12. У- С. площадь | 4 | 6310 | 1995 | 2512 | 1122 |
| 13. У- С. Комсомольский пр-т | 5 | 2818 | 708 | 1778 | 890 |
| 14. У- С. мр-н Привокзальный | 7 | 1995 | 708 | 708 | 400 |
| 15. У- С. Ленинский пр-т | 8 | 1995 | 794 | 890 | 446 |
| 16. У- С. Восточ. окраина | 9 | 2339 | 630 | 708 | 500 |
| 17. Тельма, Зап. окраина | 15 | 890 | 354 | 446 | 224 |
[1] Коэффициент усиления несколько отличается от коэффициента направленности, так как он учитывает кпд антенны. Однако эту тонкость не будем принимать за внимание, потому что у многих направленных антенн кпд близок к 100 %.