Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.naic.edu/~tghosh/software/plotty.pro Дата изменения: Sat Jan 29 03:57:46 2005 Дата индексирования: Sun Apr 10 04:43:43 2016 Кодировка: Поисковые слова: р р п п п п п п р п р п п п п п п п п п п п п п п п п п п

pro plotty, plot_str, sbc, ntitle,ps=ps
; Plot normalized HI Absorption spectrum in plot_str, subcorrelator sbc (1-4),
; with source name 'title' entered to go at top of plot
; either on screen (default)
; or as a PostScript file (/ps).
;
;
; To call type, plotty,plot_str, sbc, title [,/ps]
pfile=' '
sbc=sbc-1
unity=plot_str
unity.(sbc).d[*]=0.
if keyword_set(ps) then begin
set_plot,'ps'
print,'Enter PostScript file name:'
read,pfile
pfile=pfile+'.ps'
device,filename=pfile, ysize=12
print,'file name = ',pfile
corplot,plot_str,/vel,m=2^sbc,newtitle=ntitle, $
xtitle='Heliocentric Velocity (km/sec)', ytitle='Flux Density (Jy)'
corplot,unity,m=2^sbc,/over,/vel,newtitle=' '
device,/close
set_plot,'x'
endif else begin
corplot,plot_str,/vel,m=2^sbc,newtitle=ntitle, $
xtitle='Heliocentric Velocity (km/sec)', ytitle='Flux Density (Jy)'
corplot,unity,m=2^sbc,/over,/vel,newtitle=' '
endelse
end