Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.naic.edu/~tghosh/software/wacc.pro Дата изменения: Mon Mar 10 01:02:15 2003 Дата индексирования: Sun Apr 10 03:51:27 2016 Кодировка:

; This is just a collection of various commands uisng phil's coraccum routine that will
; produce weighted averaged spectrum
;
; to run it, type, .compile waccum.pro
; .run waccum.pro
;
;pro waccum,btart1,btart2,boutt
;
scl=make_array(4,/double)
btart1=''
read,btart1
;for i=0,3 do begin
i=0
print, i
ii=byte(i)
print, ii, i
ii=ii+49B
print, ii
btart=btart1+'.b'+string(ii)+'.d'
print, btart
; plot, btart1.(i).d
plot, btart
; print,'Two clicks to define an rms-evalutating range'
; cursor,xr,yr,/down
; cursor,xs,ys,/down
; print,xr,yr,xs,ys
; rms=stdev(btart1.(i).d[xr:xs])
; scl(i)=1.0/rms^2.0
;endfor
;coraccum,btart1,boutt,/new,scl=scl
;for i=0,3 do begin
; plot, btart2.(i).d
; print,'Two clicks to define an rms-evalutating range'
; cursor,xr,yr,/down
; cursor,xs,ys,/down
; print,xr,yr,xs,ys
; rms=stdev(btart2.(i).d[xr:xs])
; scl(i)=1.0/rms^2.0
; coraccum,btart2,boutt,scl=scl
;endfor
end