Амплитудный накопитель сигнала некогерентного рассеяния
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
16.004":FILENAME$=A$:NAMEFILE$=A$$=MID$(NAMEFILE$,1,7):NUM$=MID$(NAMEFILE$,9,3):$=filename$ :kpp$="kp"+mid$(f$,1,6)+".004"=58=0=0=1=1=0=0 сдвиг по оси=100 число разверток
mn=0 Число усреднений =1500f$ for binary as #1$="13020116.004"b1$ as b11 len=2 for binary as #2b11, 2 as xd$
-----------------------------------------------------------(0,0)-(639,349),15,b
Автоматическая обработкаi%=1 to 900:s(i%)=0:next i%i%=0 to 30:for j%=0 to 17:d2(i%,j%)=0:next j%,i%i%=0 to 900:for j%=0 to 16:sd(i%,j%)=0:d5(i%,j%)=0:next j%,i%i%=1 to 900:s(i%)=0:next i%i=1 to 900t%=1 to 70
get b1,t%+(i-1)*70 Считать метки
if i450 then a2%(t%,i-450)=cvi(xd$)t%,i=1050 10502,55:print "Сумма ";n; "разверток"
for j%=900 to 1100 n Шагаем поперек
if j%=200 then print j%;j%=400 then print j%;j%=600 then print j%;j%=800 then print j%;i%=1 to 900 %=((j%-1)\15)+1 Номер слова
v%=14-(j%-((j%-1)\15)*15-1) позиция внутри слова
if i%450 then d1(i%)=(a2%(t%,i%-450) and 2^(v%)) / (2^(v%))i%
a$=""#1,(j%-1)*3600.0 +0$ #1,1800,a$i%=1 to 880(i%)=ASC(mid$(a$,(2*i%-1),1))*(-1)+128(i%)=s(i%)+cc1*(1-d1(i%)) Копим напряженияh%=0 to 16(i%,h%)=sd(i%,h%)+(1-d1(i%))*(1-d1(i%+h%))
sd(i%,h%)=sd(i%,h%)+1h%i%j1%=0 to 16 Получить АКФ с учетом d1(i%)i%=0 to 880(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%)i%,j1%j%
return
================================================
Обработатьi=1 to 900=sd(i,0):if sd=0 then sd=1
s(i)=s(i)/sd Обработать напряжения
next i
==================================----------------j%=0 to 16i%=1 to 900=sd(i%,j%):if sd=0 then sd=1
d5(i%,j%)=d5(i%,j%)/sd Обработать АКФ
next i%,j%
-----------------j%=0 to 17 Отнять напряженияi%=0 to 880(i%,j%)=d5(i%,j%)-s(i%)*s(i%+j%)i%,j%
-------------------j%=0 to 17(j%)=0i%=700 to 850(j%)=d4(j%)+d5(i%,j%) Найти шумы
print i%;d5(i%,j%)i%(j%)=d4(j%)/151d4(j%)=0 then d4(j%)=1j%j%=0 to 17 Отнять шумыi%=0 to 900
print i%;d5(i%,j%);d4(j%)(i%,j%)=d5(i%,j%)-d4(j%)i%,j%
for j%=17 to 1 step -1 Шумы пронормировать
d4(j%)=d4(j%)/d4(0)j%
ee=0.08 Нарисовать профили
nk=150
for j%=0 to 17
line(79,nk+j%*10)-(624,nk+j%*10),15,,&hcccc осиj%j%=0 to 17 1 to 17i%=10 to 700 высота=ee*d5(i%,j%)/100*i%=ee*d5(i%+1,j%)/100*i= 0 then 504edd= 0 then 504(-50+1*i%,nk-ed+10*j%)-(-50+1*i%+1,nk-edd+10*j%),15
if i%=330 then circle (-100+1*i%,nk-ed+10*j%),3i%,j%=0i%=100 to 700 высотаsd(i%,0)>max then max=sd(i%,0)
print sd(i%,0);i%i%=100 to 700 высота(-50+1*i%,130-80+sd(i%,0)/max*50-50)-(-50+1*i%+1,130-80+sd(i%+1,0)/max*50-50),15i%(50,0)-(639,50),15,bj%=0 to 17 вдоль развертки cгладить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%))/5i%,j%
==========j%=17 to 1 step -1 Вдоль развертки вырaвнятьi%=15 to 880j%=1 then d5(i%,j%)=d5(i%,j%-1)j%=2 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-1,j%-1))/2j%=3 then d5(i%,j%)=d5(i%-1,j%-1)j%=4 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-3,j%-1))/2j%=5 then d5(i%,j%)=d5(i%-2,j%-1)j%=6 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-5,j%-1))/2j%=7 then d5(i%,j%)=d5(i%-3,j%-1)j%=8 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-7,j%-1))/2j%=9 then d5(i%,j%)=d5(i%-4,j%-1)j%=10 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-9,j%-1))/2j%=11 then d5(i%,j%)=d5(i%-5,j%-1)j%=12 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-11,j%-1))/2j%=13 then d5(i%,j%)=d5(i%-6,j%-1)j%=14 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-13,j%-1))/2j%=15 then d5(i%,j%)=d5(i%-7,j%-1)j%=16 then d5(i%,j%)=(d5(i%,j%-1)+d5(i%-15,j%-1))/2j%=17 then d5(i%,j%)=i%*22.68*0.15 Километраж i%,j%j%=1 to 17 Накопить вдоль развертки
n%=90 Начало разверткиi%=1 to 25(i%,j%-1)=0i1%=1 to 2*i% увеличивающаяся толщина%=n%+1(i%,j%-1)=d2(i%,j%-1)+d5(n%,j%)i1%(i%,j%-1)=d2(i%,j%-1)/(2*i%)i%,j%
==============j%=15 to 1 step -1 Нормализоватьi%=0 to 25=d2(i%,0):if d=0 then d=1(i%,j%)=d2(i%,j%)/d
print d2(i%,0)i%,j%=22.6757/795i%=0 to 25 Восстановитьj%=1 to 15=(1-j%*t)
d2(i%,j%)=d2(i%,j%)/fd2(i%,j%)>1 then d2(i%,j%)=1d2(i%,j%)<-1 then d2(i%,j%)=-1j%,i%
cls=20=100j%=1 to 15(59,nk+j%*10)-(624,nk+j%*10),15,,&hcccc осиj%j%=1 to 15 задержкаi%=1 to 24 высота
print t%;i%;d2(i%,j%)=ee*d2(i%,j%)=ee*d2(i%+1,j%)(50+i%*20,nk+j%*10-ed)-(50+i%*20+20,nk+j%*10-edd),15i%=16 then circle (50+20*i%,nk+j%*10-ed),3i%j%
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
for j%=1 to 25(j%,0)=d2(j%,16)-100 Насчитать h
d5(j%,16)=0(j%,1)=d2(j%,0)/d4(0) Насчитать Q(j%,2)=d5(j%,1)*d5(j%,0)*d5(j%,0)/10000 Насчитать Q^2
d5(j%,3)=0(j%,0)=1j%(0)=1
c77=1000/20/60 Длительность сеансаc77<0.1 then c77=0.1
C7=C77=10$=mid$(f$,1,2)+"-"+mid$(f$,3,2)+"-"+"20"+mid$(f$,5,2)$=mid$(f$,7,2)+":"+mid$(f$,11,2)+"00"