Амплитудный накопитель сигнала некогерентного рассеяния

28. РД 34.21.122-87. Инструкция по проектированию и устройству молниезащиты зданий и сооружений. СН 305-77. -М. :Стройиздат, 1978.

29. Общие санитарно-гигиенические требования.-Введ.01.01.77. СНиП 2.04.05-86.

30. ГОСТ12.0.003-74 ССБТ. Опасные и вредные производственные факторы. Классификация.-Введ.01.01.76г.

31. ГОСТ 12.1.005-88. ССБТ. Общие санитарно-гигиенические требования к воздуху рабочей зоны. - Введ. 01.01.89.

32. СНиП 2.04.05-91. Строительные нормы и правила.Отопление. Вентиляция и кондиционирование воздуха. - М.: Стройиздат, 1987.

33. ГОСТ 12.1.003-83. ССБТ. Шум. Общие требования безопасности. - Введ. 01.07.84.

34. ГОСТ 12.1.012-90. ССБТ. Вибрационная безопасность. Общие требования. - Введ. 01.07.91.

35. CНиП П-4-79. Естественное и искусственное освещение. - М.: Стройиздат, 1980.

36. СНиП II-4-79. Строительные нормы и правила. Естественное и искусственное освещение. Нормы проектирования. - М.: Стройиздат, 1982.

37. ГОСТ 12.1.045-84. Электростатические поля. Допустимые уровни на рабочих местах и требования к проведению контроля. - Введ. 01.07.85.

38. ГОСТ 12.1.002--84. Электростатические поля промышленной частоты. Допустимые уровни напряженности и требования к проведению контроля на рабочих местах. - Введ. 01.01.86.

39. Выбор и обоснование методов и средств защиты работающих и окружающей среды от опасных и вредных производственных факторов. Имитационные упражнения и задачи по курсу ”Охрана труда и окружающей среды “.Учеб. пособие для вузов / Н.П.Вершинина, Я.С.Заир-Бек, В.В.Рщупкин и др. - К.: УМК ВО, 1992. - 183 с.

40. П.Т.Егоров и др. Гражданская оборона. Учебник для вузов.М., “Высшая школа”,1977.

41. В.Г. Атаманюк и др. Гражданская оборона. Учебник для вузов.М.: “Высшая школа”,1986. - 207 с.: ил.

Приложение 1

Программа накопления и просмотра сигнала НР

cls:screen 9,0,0

key 17,chr$(&H0)+chr$(&H4F)

key (17) on:on key (17) gosub 8

dim s(900), sd(900,16)

dim d2(30,20), cc1(900), d4(30), d5(900,17), d24(900)

dim co1$(26,5),pr$(260),pp(51),p(30), d1(900)

dim xd$(70)

dim a1%(70,450),a2%(70,450)

A$="13020116.004":FILENAME$=A$:NAMEFILE$=A$

FILENAME1$=MID$(NAMEFILE$,1,7):NUM$=MID$(NAMEFILE$,9,3)

nname:

f$=filename$ :kpp$="kp"+mid$(f$,1,6)+".004"

NACH=58

SM=0

SM1=0

MASH=1

MC=1

FLAG=0

smm=0 'сдвиг по оси

gr=100 'число разверток

mn=0 'Число усреднений

nrazv=1500

open f$ for binary as #1

b1$="13020116.004"

open b1$ as b11 len=2 'for binary as #2

field b11, 2 as xd$

'-----------------------------------------------------------

line (0,0)-(639,349),15,b

300 'Автоматическая обработка

for i%=1 to 900:s(i%)=0:next i%

for i%=0 to 30:for j%=0 to 17:d2(i%,j%)=0:next j%,i%

for i%=0 to 900:for j%=0 to 16:sd(i%,j%)=0:d5(i%,j%)=0:next j%,i%

for i%=1 to 900:s(i%)=0:next i%

for i=1 to 900

for t%=1 to 70

get b1,t%+(i-1)*70 'Считать метки

if i<451 then a1%(t%,i)=cvi(xd$)

if i>450 then a2%(t%,i-450)=cvi(xd$)

next t%,i

n=1050 '1050

locate 2,55:print "Сумма ";n; "разверток"

for j%=900 to 1100 'n ' Шагаем поперек

if j%=200 then print j%;

if j%=400 then print j%;

if j%=600 then print j%;

if j%=800 then print j%;

for i%=1 to 900

t%=((j%-1)\15)+1 'Номер слова

v%=14-(j%-((j%-1)\15)*15-1) 'позиция внутри слова

if i%<451 then d1(i%)=(a1%(t%,i%) and 2^(v%)) / (2^(v%))

if i%>450 then d1(i%)=(a2%(t%,i%-450) and 2^(v%)) / (2^(v%))

next i%

' a$=""

SEEK #1,(j%-1)*3600.0 +0

get$ #1,1800,a$

for i%=1 to 880

cc1(i%)=ASC(mid$(a$,(2*i%-1),1))*(-1)+128

s(i%)=s(i%)+cc1*(1-d1(i%)) 'Копим напряжения

for h%=0 to 16

sd(i%,h%)=sd(i%,h%)+(1-d1(i%))*(1-d1(i%+h%))

' sd(i%,h%)=sd(i%,h%)+1

next h%

next i%

for j1%=0 to 16 'Получить АКФ с учетом d1(i%)

for i%=0 to 880

d5(i%,j1%)=d5(i%,j1%)+cc1(i%)*cc1(i%+j1%)*(1-d1(i%))*(1-d1(i%+j1%))

' d5(i%,j1%)=d5(i%,j1%)+cc1(i%)*cc1(i%+j1%)

next i%,j1%

next j%

cls

' return

'================================================

500 'Обработать

for i=1 to 900

sd=sd(i,0):if sd=0 then sd=1

s(i)=s(i)/sd 'Обработать напряжения

next i

'==================================----------------

for j%=0 to 16

for i%=1 to 900

sd=sd(i%,j%):if sd=0 then sd=1

d5(i%,j%)=d5(i%,j%)/sd 'Обработать АКФ

next i%,j%

'-----------------

for j%=0 to 17 'Отнять напряжения

for i%=0 to 880

d5(i%,j%)=d5(i%,j%)-s(i%)*s(i%+j%)

next i%,j%

'-------------------

for j%=0 to 17

d4(j%)=0

for i%=700 to 850

d4(j%)=d4(j%)+d5(i%,j%) 'Найти шумы

' print i%;d5(i%,j%)

next i%

d4(j%)=d4(j%)/151

if d4(j%)=0 then d4(j%)=1

next j%

for j%=0 to 17 'Отнять шумы

for i%=0 to 900

' print i%;d5(i%,j%);d4(j%)

d5(i%,j%)=d5(i%,j%)-d4(j%)

next i%,j%

for j%=17 to 1 step -1 'Шумы пронормировать

d4(j%)=d4(j%)/d4(0)

next j%

ee=0.08 'Нарисовать профили

nk=150

for j%=0 to 17

line(79,nk+j%*10)-(624,nk+j%*10),15,,&hcccc 'оси

next j%

for j%=0 to 17 '1 to 17

for i%=10 to 700 'высота

ed=ee*d5(i%,j%)/100*i%

edd=ee*d5(i%+1,j%)/100*i%

if ed= 0 then 504

if edd= 0 then 504

line (-50+1*i%,nk-ed+10*j%)-(-50+1*i%+1,nk-edd+10*j%),15

504 if i%=330 then circle (-100+1*i%,nk-ed+10*j%),3

next i%,j%

max=0

for i%=100 to 700 'высота

if sd(i%,0)>max then max=sd(i%,0)

' print sd(i%,0);

next i%

for i%=100 to 700 'высота

line (-50+1*i%,130-80+sd(i%,0)/max*50-50)-(-50+1*i%+1,130-80+sd(i%+1,0)/max*50-50),15

next i%

line (50,0)-(639,50),15,b

for j%=0 to 17 'вдоль развертки cгладить

for i%=15 to 895

' d5(i%,j%)=(d5(i%-2,j%)+d5(i%-1,j%)+d5(i%,j%)+d5(i%+1,j%)+d5(i%+2,j%))/5

next i%,j%

'==========

for j%=17 to 1 step -1 'Вдоль развертки вырaвнять

for i%=15 to 880

if j%=1 then d5(i%,j%)=d5(i%,j%-1)

if j%=2 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-1,j%-1))/2

if j%=3 then d5(i%,j%)=d5(i%-1,j%-1)

if j%=4 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-3,j%-1))/2

if j%=5 then d5(i%,j%)=d5(i%-2,j%-1)

if j%=6 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-5,j%-1))/2

if j%=7 then d5(i%,j%)=d5(i%-3,j%-1)

if j%=8 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-7,j%-1))/2

if j%=9 then d5(i%,j%)=d5(i%-4,j%-1)

if j%=10 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-9,j%-1))/2

if j%=11 then d5(i%,j%)=d5(i%-5,j%-1)

if j%=12 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-11,j%-1))/2

if j%=13 then d5(i%,j%)=d5(i%-6,j%-1)

if j%=14 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-13,j%-1))/2

if j%=15 then d5(i%,j%)=d5(i%-7,j%-1)

if j%=16 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-15,j%-1))/2

if j%=17 then d5(i%,j%)=i%*22.68*0.15 'Километраж

next i%,j%

for j%=1 to 17 'Накопить вдоль развертки

n%=90 'Начало развертки

for i%=1 to 25

d2(i%,j%-1)=0

for i1%=1 to 2*i% 'увеличивающаяся толщина

n%=n%+1

d2(i%,j%-1)=d2(i%,j%-1)+d5(n%,j%)

next i1%

d2(i%,j%-1)=d2(i%,j%-1)/(2*i%)

next i%,j%

'==============

for j%=15 to 1 step -1 'Нормализовать

for i%=0 to 25

d=d2(i%,0):if d=0 then d=1

d2(i%,j%)=d2(i%,j%)/d

' print d2(i%,0)

next i%,j%

t=22.6757/795

for i%=0 to 25 'Восстановить

for j%=1 to 15

f=(1-j%*t)

' d2(i%,j%)=d2(i%,j%)/f

if d2(i%,j%)>1 then d2(i%,j%)=1

if d2(i%,j%)<-1 then d2(i%,j%)=-1

next j%,i%

525 cls

ee=20

nk=100

for j%=1 to 15

line(59,nk+j%*10)-(624,nk+j%*10),15,,&hcccc 'оси

next j%

for j%=1 to 15 'задержка

for i%=1 to 24 'высота

' print t%;i%;d2(i%,j%)

ed=ee*d2(i%,j%)

edd=ee*d2(i%+1,j%)

line (50+i%*20,nk+j%*10-ed)-(50+i%*20+20,nk+j%*10-edd),15

if i%=16 then circle (50+20*i%,nk+j%*10-ed),3

next i%

next j%

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

600 for j%=1 to 25

d5(j%,0)=d2(j%,16)-100 'Насчитать h

d5(j%,16)=0

d5(j%,1)=d2(j%,0)/d4(0) 'Насчитать Q

d5(j%,2)=d5(j%,1)*d5(j%,0)*d5(j%,0)/10000 'Насчитать Q^2

d5(j%,3)=0

d2(j%,0)=1

next j%

d4(0)=1

c77=1000/20/60 'Длительность сеанса

if c77<0.1 then c77=0.1

C7=C77

o7=10

d$=mid$(f$,1,2)+"-"+mid$(f$,3,2)+"-"+"20"+mid$(f$,5,2)

tt$=mid$(f$,7,2)+":"+mid$(f$,11,2)+"00"

stop

Размещено на Allbest.ru