; IDL Version 5.3 (linux x86)
; Journal File for sxt_co@isass1.solar.isas.ac.jp
; Working directory: /home/www/sxt_co/020412
; Date: Tue Apr 16 04:02:52 2002
 
rd_nar,'1-jan-92','1-jan-02',nar
wdef,0
plot,nar.noaa>0,ynoz
; % PLOT: Expression must be an array in this context: YNOZ.
plot,nar.noaa>0,/ynoz
out=tvrd()
write_gif,'org.gif',out
help,nar
high = where(indgen(19073) gt 7500 and indgen(19073 lt 8500 and $
  nar.noaa gt 8500)
; % Syntax error.
high = where(indgen(19073) gt 7500 and indgen(19073) lt 8500 and $
  nar.noaa gt 8500)
help,high
nar(high).noaa = nar(high).noaa - 1000
; % No commands containing 'utplot' exist in the command buffer.
plot,nar.noaa>0,/ynoz
out=tvrd()
write_gif,'org.gif',out
rd_nar,'1-jan-92','1-jan-02',nar
print,nar(8000+indgen(200)).noaa
;    9045    9046    9033    9034    9035    9036    9037    9038    9039
;    9040    9041    9042    9045    9046    9047    9033    9034    9035
;    9036    9037    9038    9039    9040    9041    9042    9045    9046
;    9048    9049    9033    9034    9036    9037    9040    9041    9042
;    9044    9046    9048    9049    9050    9051    9033    9036    9037
;    9040    9042    9045    9046    9047    9048    9049    9050    9051
;    9052    9036    9040    9042    9046    9048    9049    9050    9051
;    9052    9053    9036    9040    9042    9046    9048    9049    9050
;    9051    9052    9053    9054    9036    9040    9042    9046    9048
;    9049    9050    9051    9052    9053    9054    9055    9056    9040
;    9042    9046    9049    9050    9051    9052    9054    9055    9056
;    9057    9042    9046    9049    9050    9052    9054    9055    9056
;    9057    9058    9059    9042    9046    9049    9050    9054    9055
;    9056    9057    9058    9059    9060    9061    9046    9049    9054
;    9055    9056    9057    9058    9059    9060    9061    9062    9046
;    9049    9054    9055    9056    9057    9058    9059    9060    9061
;    9062    9063    8249    8253    8255    8256    8257    8258    8259
;    8260    8253    8255    8256    8257    8258    8259    8260    8261
;    8253    8255    8256    8257    8258    8259    8260    8262    8253
;    8255    8256    8257    8258    8259    8260    8263    8264    8253
;    8255    8256    8258    8259    8260    8263    8264    8253    8255
;    8256    8258    8259    8260    8263    8264    8253    8255    8256
;    8258    8259
high = where(indgen(19073) gt 7500 and indgen(19073) lt 8500 and $
  nar.noaa gt 8500)
nar(high).noaa = 0
good = where(nar.noaa gt 0)
help,nar,good
utplot,nar(good),nar(good).noaa,/ynoz,xtit='Year',ytit='Cumulative NOAA region number',charsi=1.5
out=tvrd()
write_gif,'org.gif',out
wdef,0,640,512
loadct,0
over
tvlct,r,g,b,/get
utplot,nar(good),nar(good).noaa,/ynoz,xtit='Year',ytit='Cumulative NOAA region number',charsi=1.5
write_gif,'org.gif',out,r,g,b
write_gif,'noaa_numbers.gif ',out,r,g,b
write_gif,'noaa_numbers.gif',out,r,g,b
wdef,0,256,256
utplot,nar(good),nar(good).noaa,/ynoz,xtit='Year',ytit='Cumulative NOAA region number',charsi=.75
out=tvrd()
write_gif,'noaa_numbers_thumb.gif',out,r,g,b