Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.naic.edu/~tghosh/software/wtcalc.pro Дата изменения: Mon Jan 20 18:59:20 2003 Дата индексирования: Sun Apr 10 04:44:19 2016 Кодировка: Поисковые слова: http astrokuban.info astrokuban

pro wtcalc, bwt, bmask1
print,"Set the percent level below which to delete "
dellev=1.0
read,dellev
dellev=long(dellev)
adim=size(bmask1,/dim)
dellev = float(dellev)/100.0*float(adim[2])
bwt[*,*]=adim[2]
for yi = 0, 5 do begin
for yk = 0, 1023 do begin
bwt[yk,yi] = total(bmask1[yk,yi,*])
endfor
bwt[*,yi] = (bwt[*,yi] gt dellev) * bwt[*,yi]
;bwt[*,yi] = (bwt[*,yi] lt dellev) * bwt[*,yi]
endfor
end