! Started logfile: J0902-1415_S_1997_07_02_yyk_uvs.log on Sun Jan  7 17:08:50 2007
obs J0902-1415_S_1997_07_02_yyk_uva.fits
! Reading UV FITS file: J0902-1415_S_1997_07_02_yyk_uva.fits
! AN table 1: 140 integrations on 45 of 45 possible baselines.
! Apparent sampling: 0.883492 visibilities/baseline/integration-bin.
! Found source: J0902-1415
! 
! There are 4 IFs, and a total of 4 channels:
! 
!  IF  Channel    Frequency  Freq offset  Number of   Overall IF
!       origin    at origin  per channel   channels    bandwidth
!  ------------------------------------------------------------- (Hz)
!  01        1  2.22447e+09        8e+06          1        8e+06
!  02        2  2.23447e+09        8e+06          1        8e+06
!  03        3  2.29447e+09        8e+06          1        8e+06
!  04        4  2.32447e+09        8e+06          1        8e+06
! 
! Polarization(s): RR
! 
! Read 754 lines of history.
! 
! Reading 22264 visibilities.
select I
! Polarization I is unavailable.
! Selecting polarization: RR,  channels: 1..4
! Reading IF 1 channels: 1..1
! Reading IF 2 channels: 2..2
! Reading IF 3 channels: 3..3
! Reading IF 4 channels: 4..4
![@muppet J0902-1415_S_1997_07_02_yyk]
integer clean_niter
clean_niter = 100
float clean_gain
clean_gain = 0.04
float dynam
dynam = 6.0
float amp_soltime1
amp_soltime1 = 10
float amp_soltime2
amp_soltime2 = 1
float phase_soltime1
phase_soltime1=10
float phase_soltime2
phase_soltime2=0.5
float phase_soltime
phase_soltime=phase_soltime1
float ampcor_selflim
ampcor_selflim=1.20
float thresh
thresh = 0.10
float win_mult
win_mult = 1.8
float time_av
time_av = 30
float old_peak
float new_peak
float flux_cutoff
mapsize field_size, field_cell
! Map grid = 512x512 pixels with 0.500x0.500 milli-arcsec cellsize.
phase_soltime=phase_soltime1
print "uvstat(rms)=",uvstat(rms),"Jy"
! uvstat(rms)= 1.89447 Jy 
uvw 2,-1
! Uniform weighting binwidth: 2 (pixels).
! Gridding weights will be scaled by errors raised to the power -1.
! Radial weighting is not currently selected.
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=2.963 mas, bmaj=7.898 mas, bpa=-1.295 degrees
! Estimated noise=1503.95 mJy/beam.
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal false,false,phase_soltime
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! Added new window around map position (0, 0).
! clean: niter=100  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 1.48837 Jy
! Component: 100  -  total flux cleaned = 1.8477 Jy
! Total flux subtracted in 100 components = 1.8477 Jy
! Clean residual min=-0.105368 max=0.252900 Jy/beam
! Clean residual mean=0.002822 rms=0.038780 Jy/beam
! Combined flux in latest and established models = 1.8477 Jy
! Performing phase self-cal over 10 minute time intervals
! Adding 26 model components to the UV plane model.
! The established model now contains 26 components and 1.8477 Jy
! 
! Correcting IF 1.
!  A total of 224 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 2.
!  A total of 85 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 3.
!  A total of 85 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 4.
!  A total of 85 telescope corrections were flagged in sub-array 1.
! 
! Fit before self-cal, rms=0.640803Jy  sigma=0.002633
! Fit after  self-cal, rms=0.629210Jy  sigma=0.002591
! Inverting map and beam 
! Estimated beam: bmin=2.963 mas, bmaj=7.898 mas, bpa=-1.295 degrees
! Estimated noise=1503.95 mJy/beam.
! Added new window around map position (2.5, -16.5).
! clean: niter=100  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.301058 Jy
! Component: 100  -  total flux cleaned = 0.461458 Jy
! Total flux subtracted in 100 components = 0.461458 Jy
! Clean residual min=-0.077439 max=0.099198 Jy/beam
! Clean residual mean=0.001541 rms=0.023554 Jy/beam
! Combined flux in latest and established models = 2.30916 Jy
! Performing phase self-cal over 10 minute time intervals
! Adding 17 model components to the UV plane model.
! The established model now contains 42 components and 2.30916 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.486443Jy  sigma=0.001945
! Fit after  self-cal, rms=0.471344Jy  sigma=0.001882
! Inverting map 
print "************** FINISHED UNIFORM WEIGHTING CLEAN **************"
! ************** FINISHED UNIFORM WEIGHTING CLEAN ************** 
! 
uvw 0,-2
! Uniform weighting is not currently selected.
! Gridding weights will be scaled by errors raised to the power -2.
! Radial weighting is not currently selected.
win_mult = win_mult * 1.6
clean_niter = clean_niter * 2
dynam = dynam - 0.5
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=3.694 mas, bmaj=9.679 mas, bpa=-1.553 degrees
! Estimated noise=1164.25 mJy/beam.
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal false,false,phase_soltime
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.172322 Jy
! Component: 100  -  total flux cleaned = 0.257227 Jy
! Component: 150  -  total flux cleaned = 0.307242 Jy
! Component: 200  -  total flux cleaned = 0.337686 Jy
! Total flux subtracted in 200 components = 0.337686 Jy
! Clean residual min=-0.057859 max=0.075417 Jy/beam
! Clean residual mean=0.001111 rms=0.017493 Jy/beam
! Combined flux in latest and established models = 2.64685 Jy
! Performing phase self-cal over 10 minute time intervals
! Adding 50 model components to the UV plane model.
! The established model now contains 85 components and 2.64685 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.422440Jy  sigma=0.001677
! Fit after  self-cal, rms=0.416482Jy  sigma=0.001652
! Inverting map 
print "************** FINISHED NATURAL WEIGHTING CLEAN **************"
! ************** FINISHED NATURAL WEIGHTING CLEAN ************** 
! 
restore
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 3.694 x 9.679 at -1.553 degrees (North through East)
! Clean map  min=-0.052174  max=1.6121 Jy/beam
if(peak(flux) < thresh*2)
  selflims ampcor_selflim
  end if
gscale
! Performing overall amplitude self-cal
! 
! Correcting IF 1.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Amplitude normalization factor in sub-array 1: 1.0217
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00     FD        1.08     HN        0.92     KP        0.90     
!   LA        1.00     MK        1.01     NL        1.00*    OV        1.08     
!   PT        0.94     SC        0.85     
! 
! 
! Correcting IF 2.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Amplitude normalization factor in sub-array 1: 0.981587
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.05     FD        1.14     HN        1.01     KP        0.96     
!   LA        1.10     MK        1.06     NL        1.00     OV        1.04     
!   PT        0.94     SC        0.92     
! 
! 
! Correcting IF 3.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Amplitude normalization factor in sub-array 1: 1.03651
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.97     FD        1.07     HN        0.94     KP        0.92     
!   LA        0.83     MK        0.92     NL        0.96     OV        0.94     
!   PT        1.08     SC        1.02     
! 
! 
! Correcting IF 4.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Amplitude normalization factor in sub-array 1: 0.985984
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00     FD        1.11     HN        1.13     KP        0.95     
!   LA        0.92     MK        1.08     NL        1.08     OV        0.94     
!   PT        0.92     SC        1.01     
! 
! 
! Fit before self-cal, rms=0.416482Jy  sigma=0.001652
! Fit after  self-cal, rms=0.366221Jy  sigma=0.001473
selfcal false, false, phase_soltime
! Performing phase self-cal over 10 minute time intervals
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.366221Jy  sigma=0.001473
! Fit after  self-cal, rms=0.366223Jy  sigma=0.001473
dynam = dynam - 0.5
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=3.68 mas, bmaj=9.608 mas, bpa=-0.3988 degrees
! Estimated noise=1164.06 mJy/beam.
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal false,false,phase_soltime
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! Added new window around map position (-3, -19).
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.071989 Jy
! Component: 100  -  total flux cleaned = 0.076917 Jy
! Component: 150  -  total flux cleaned = 0.0751011 Jy
! Component: 200  -  total flux cleaned = 0.0742794 Jy
! Total flux subtracted in 200 components = 0.0742794 Jy
! Clean residual min=-0.032010 max=0.037198 Jy/beam
! Clean residual mean=0.000248 rms=0.008884 Jy/beam
! Combined flux in latest and established models = 2.72113 Jy
! Performing phase self-cal over 10 minute time intervals
! Adding 37 model components to the UV plane model.
! The established model now contains 118 components and 2.72113 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.354960Jy  sigma=0.001425
! Fit after  self-cal, rms=0.353043Jy  sigma=0.001418
! Inverting map 
print "************** FINISHED AMPLITUDE GSCALE SELF-CAL **************"
! ************** FINISHED AMPLITUDE GSCALE SELF-CAL ************** 
! 
phase_soltime=phase_soltime2
selfcal false, false, phase_soltime
! Performing phase self-cal over 0.5 minute time intervals
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.353043Jy  sigma=0.001418
! Fit after  self-cal, rms=0.343954Jy  sigma=0.001379
dynam = dynam - 0.5
flux_cutoff = imstat(rms) * dynam
! Inverting map 
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal false,false,phase_soltime
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.0180144 Jy
! Component: 100  -  total flux cleaned = 0.0187316 Jy
! Component: 150  -  total flux cleaned = 0.0180022 Jy
! Component: 200  -  total flux cleaned = 0.0173412 Jy
! Total flux subtracted in 200 components = 0.0173411 Jy
! Clean residual min=-0.026972 max=0.034877 Jy/beam
! Clean residual mean=0.000149 rms=0.008081 Jy/beam
! Combined flux in latest and established models = 2.73847 Jy
! Performing phase self-cal over 0.5 minute time intervals
! Adding 28 model components to the UV plane model.
! The established model now contains 130 components and 2.73847 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.341025Jy  sigma=0.001368
! Fit after  self-cal, rms=0.338733Jy  sigma=0.001359
! Inverting map 
print "*** FINISHED NATURAL WEIGHTING CLEAN with shorter phase_soltime ***"
! *** FINISHED NATURAL WEIGHTING CLEAN with shorter phase_soltime *** 
! 
dynam = dynam - 0.25
restore
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 3.68 x 9.608 at -0.3988 degrees (North through East)
! Clean map  min=-0.026591  max=1.6064 Jy/beam
if(peak(flux) > thresh)
  selfcal true, true, amp_soltime1
  selfcal false, false, phase_soltime
  flux_cutoff = imstat(rms) * dynam
  repeat
    if (peak(flux) > flux_cutoff) peakwin win_mult
    clean clean_niter,clean_gain
    flux_cutoff = imstat(rms) * dynam
    selfcal false,false,phase_soltime
    new_peak = peak(flux)
    until(new_peak<=flux_cutoff)
  selfcal true, true, amp_soltime2
  selfcal false, false, phase_soltime
  flux_cutoff = imstat(rms) * dynam
  repeat
    if (peak(flux) > flux_cutoff) peakwin win_mult
    clean clean_niter,clean_gain
    flux_cutoff = imstat(rms) * dynam
    selfcal false,false,phase_soltime
    new_peak = peak(flux)
    until(new_peak<=flux_cutoff)
  print "************** FINISHED AMPLITUDE SELF-CAL **************"
  end if
! Performing amp+phase self-cal over 10 minute time intervals
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.338733Jy  sigma=0.001359
! Fit after  self-cal, rms=0.320676Jy  sigma=0.001301
! Performing phase self-cal over 0.5 minute time intervals
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.320676Jy  sigma=0.001301
! Fit after  self-cal, rms=0.319996Jy  sigma=0.001298
! Inverting map and beam 
! Estimated beam: bmin=3.671 mas, bmaj=9.56 mas, bpa=-0.4859 degrees
! Estimated noise=1157.69 mJy/beam.
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.00963034 Jy
! Component: 100  -  total flux cleaned = 0.0164092 Jy
! Component: 150  -  total flux cleaned = 0.0174239 Jy
! Component: 200  -  total flux cleaned = 0.0178738 Jy
! Total flux subtracted in 200 components = 0.0178738 Jy
! Clean residual min=-0.024734 max=0.030705 Jy/beam
! Clean residual mean=0.000092 rms=0.006927 Jy/beam
! Combined flux in latest and established models = 2.75634 Jy
! Performing phase self-cal over 0.5 minute time intervals
! Adding 24 model components to the UV plane model.
! The established model now contains 141 components and 2.75634 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.318177Jy  sigma=0.001290
! Fit after  self-cal, rms=0.317434Jy  sigma=0.001288
! Inverting map 
! Added new window around map position (5.5, -59.5).
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.0355302 Jy
! Component: 100  -  total flux cleaned = 0.0467369 Jy
! Component: 150  -  total flux cleaned = 0.0531079 Jy
! Component: 200  -  total flux cleaned = 0.0564656 Jy
! Total flux subtracted in 200 components = 0.0564656 Jy
! Clean residual min=-0.021169 max=0.018799 Jy/beam
! Clean residual mean=-0.000159 rms=0.005046 Jy/beam
! Combined flux in latest and established models = 2.81281 Jy
! Performing phase self-cal over 0.5 minute time intervals
! Adding 40 model components to the UV plane model.
! The established model now contains 168 components and 2.81281 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.314011Jy  sigma=0.001273
! Fit after  self-cal, rms=0.313698Jy  sigma=0.001272
! Inverting map 
! Performing amp+phase self-cal over 1 minute time intervals
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.313698Jy  sigma=0.001272
! Fit after  self-cal, rms=0.311380Jy  sigma=0.001269
! Performing phase self-cal over 0.5 minute time intervals
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.311380Jy  sigma=0.001269
! Fit after  self-cal, rms=0.311279Jy  sigma=0.001269
! Inverting map and beam 
! Estimated beam: bmin=3.66 mas, bmaj=9.525 mas, bpa=-0.3836 degrees
! Estimated noise=1153.44 mJy/beam.
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.00624031 Jy
! Component: 100  -  total flux cleaned = 0.00986765 Jy
! Component: 150  -  total flux cleaned = 0.0112389 Jy
! Component: 200  -  total flux cleaned = 0.0125393 Jy
! Total flux subtracted in 200 components = 0.0125393 Jy
! Clean residual min=-0.018425 max=0.017431 Jy/beam
! Clean residual mean=-0.000162 rms=0.004502 Jy/beam
! Combined flux in latest and established models = 2.82535 Jy
! Performing phase self-cal over 0.5 minute time intervals
! Adding 39 model components to the UV plane model.
! The established model now contains 183 components and 2.82535 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.310037Jy  sigma=0.001264
! Fit after  self-cal, rms=0.309881Jy  sigma=0.001264
! Inverting map 
! ************** FINISHED AMPLITUDE SELF-CAL ************** 
uvtaper 0.3,taper_size
! Gaussian taper: value 0.3 at UV radius = 20 mega-wavelengths.
win_mult = win_mult * 1.4
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=8.204 mas, bmaj=15.96 mas, bpa=-0.3601 degrees
! Estimated noise=1402.24 mJy/beam.
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal false,false,phase_soltime
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.00469113 Jy
! Component: 100  -  total flux cleaned = 0.0104247 Jy
! Component: 150  -  total flux cleaned = 0.0139737 Jy
! Component: 200  -  total flux cleaned = 0.0146714 Jy
! Total flux subtracted in 200 components = 0.0146714 Jy
! Clean residual min=-0.012791 max=0.013693 Jy/beam
! Clean residual mean=-0.000349 rms=0.004477 Jy/beam
! Combined flux in latest and established models = 2.84002 Jy
! Performing phase self-cal over 0.5 minute time intervals
! Adding 19 model components to the UV plane model.
! The established model now contains 194 components and 2.84002 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.309647Jy  sigma=0.001262
! Fit after  self-cal, rms=0.309373Jy  sigma=0.001262
! Inverting map 
uvtaper 0
! No UV-taper is currently set.
win_mult = win_mult / 1.4
print "************** FINISHED TAPERING SELF-CAL CLEAN **************"
! ************** FINISHED TAPERING SELF-CAL CLEAN ************** 
! 
print "************** CLEARING MODEL AND STARTING OVER **********"
! ************** CLEARING MODEL AND STARTING OVER ********** 
clrmod true,true,true
! clrmod: Cleared the established, tentative and continuum models.
uvw 2,-1
! Uniform weighting binwidth: 2 (pixels).
! Gridding weights will be scaled by errors raised to the power -1.
! Radial weighting is not currently selected.
clean clean_niter, clean_gain
! Inverting map and beam 
! Estimated beam: bmin=2.951 mas, bmaj=7.861 mas, bpa=-0.6699 degrees
! Estimated noise=1478.75 mJy/beam.
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 1.47616 Jy
! Component: 100  -  total flux cleaned = 1.91756 Jy
! Component: 150  -  total flux cleaned = 2.17075 Jy
! Component: 200  -  total flux cleaned = 2.33979 Jy
! Total flux subtracted in 200 components = 2.33979 Jy
! Clean residual min=-0.046178 max=0.069247 Jy/beam
! Clean residual mean=0.001104 rms=0.015359 Jy/beam
! Combined flux in latest and established models = 2.33979 Jy
uvw 0,-2
! Uniform weighting is not currently selected.
! Gridding weights will be scaled by errors raised to the power -2.
! Radial weighting is not currently selected.
flux_cutoff = imstat(rms) * dynam
! Adding 59 model components to the UV plane model.
! The established model now contains 59 components and 2.33979 Jy
! Inverting map and beam 
! Estimated beam: bmin=3.66 mas, bmaj=9.525 mas, bpa=-0.3836 degrees
! Estimated noise=1153.44 mJy/beam.
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  keep
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.171643 Jy
! Component: 100  -  total flux cleaned = 0.267512 Jy
! Component: 150  -  total flux cleaned = 0.325086 Jy
! Component: 200  -  total flux cleaned = 0.364132 Jy
! Total flux subtracted in 200 components = 0.364132 Jy
! Clean residual min=-0.025355 max=0.024167 Jy/beam
! Clean residual mean=0.000342 rms=0.006856 Jy/beam
! Combined flux in latest and established models = 2.70393 Jy
! Adding 90 model components to the UV plane model.
! The established model now contains 132 components and 2.70393 Jy
! Inverting map 
uvtaper 0.3,taper_size
! Gaussian taper: value 0.3 at UV radius = 20 mega-wavelengths.
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=8.204 mas, bmaj=15.96 mas, bpa=-0.3601 degrees
! Estimated noise=1402.24 mJy/beam.
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  keep
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.0427505 Jy
! Component: 100  -  total flux cleaned = 0.0697404 Jy
! Component: 150  -  total flux cleaned = 0.0883959 Jy
! Component: 200  -  total flux cleaned = 0.101725 Jy
! Total flux subtracted in 200 components = 0.101725 Jy
! Clean residual min=-0.012004 max=0.015102 Jy/beam
! Clean residual mean=-0.000075 rms=0.004546 Jy/beam
! Combined flux in latest and established models = 2.80565 Jy
! Adding 66 model components to the UV plane model.
! The established model now contains 191 components and 2.80565 Jy
! Inverting map 
uvtaper 0
! No UV-taper is currently set.
clean
! Inverting map and beam 
! Estimated beam: bmin=3.66 mas, bmaj=9.525 mas, bpa=-0.3836 degrees
! Estimated noise=1153.44 mJy/beam.
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.000716191 Jy
! Component: 100  -  total flux cleaned = 0.00359952 Jy
! Component: 150  -  total flux cleaned = 0.00515561 Jy
! Component: 200  -  total flux cleaned = 0.0065904 Jy
! Total flux subtracted in 200 components = 0.0065904 Jy
! Clean residual min=-0.019506 max=0.019863 Jy/beam
! Clean residual mean=-0.000086 rms=0.004219 Jy/beam
! Combined flux in latest and established models = 2.81224 Jy
selfcal false, false, phase_soltime
! Performing phase self-cal over 0.5 minute time intervals
! Adding 22 model components to the UV plane model.
! The established model now contains 212 components and 2.81224 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.310511Jy  sigma=0.001264
! Fit after  self-cal, rms=0.309684Jy  sigma=0.001262
wmodel J0902-1415_S_1997_07_02_yyk\_map.mod
! Writing 212 model components to file: J0902-1415_S_1997_07_02_yyk_map.mod
wobs J0902-1415_S_1997_07_02_yyk\_uvs.fits
! Writing UV FITS file: J0902-1415_S_1997_07_02_yyk_uvs.fits
wwins J0902-1415_S_1997_07_02_yyk\_map.win
! wwins: Wrote 4 windows to J0902-1415_S_1997_07_02_yyk_map.win
x = (field_size-8) * field_cell / 4
addwin -x,x,-x,x
clean (field_size*4),0.01
! Inverting map 
! clean: niter=2048  gain=0.01  cutoff=0
! Component: 050  -  total flux cleaned = 0.00193931 Jy
! Component: 100  -  total flux cleaned = 0.00338104 Jy
! Component: 150  -  total flux cleaned = 0.00532301 Jy
! Component: 200  -  total flux cleaned = 0.00826065 Jy
! Component: 250  -  total flux cleaned = 0.00847426 Jy
! Component: 300  -  total flux cleaned = 0.00948607 Jy
! Component: 350  -  total flux cleaned = 0.0102639 Jy
! Component: 400  -  total flux cleaned = 0.0108308 Jy
! Component: 450  -  total flux cleaned = 0.0121076 Jy
! Component: 500  -  total flux cleaned = 0.0126317 Jy
! Component: 550  -  total flux cleaned = 0.0129718 Jy
! Component: 600  -  total flux cleaned = 0.013464 Jy
! Component: 650  -  total flux cleaned = 0.0136227 Jy
! Component: 700  -  total flux cleaned = 0.0139381 Jy
! Component: 750  -  total flux cleaned = 0.0147006 Jy
! Component: 800  -  total flux cleaned = 0.0152937 Jy
! Component: 850  -  total flux cleaned = 0.0157243 Jy
! Component: 900  -  total flux cleaned = 0.0161413 Jy
! Component: 950  -  total flux cleaned = 0.0164105 Jy
! Component: 1000  -  total flux cleaned = 0.0165394 Jy
! Component: 1050  -  total flux cleaned = 0.0165377 Jy
! Component: 1100  -  total flux cleaned = 0.0165416 Jy
! Component: 1150  -  total flux cleaned = 0.0165428 Jy
! Component: 1200  -  total flux cleaned = 0.0166614 Jy
! Component: 1250  -  total flux cleaned = 0.0164216 Jy
! Component: 1300  -  total flux cleaned = 0.016656 Jy
! Component: 1350  -  total flux cleaned = 0.016656 Jy
! Component: 1400  -  total flux cleaned = 0.0168821 Jy
! Component: 1450  -  total flux cleaned = 0.0169909 Jy
! Component: 1500  -  total flux cleaned = 0.0173153 Jy
! Component: 1550  -  total flux cleaned = 0.0173132 Jy
! Component: 1600  -  total flux cleaned = 0.0174196 Jy
! Component: 1650  -  total flux cleaned = 0.0175248 Jy
! Component: 1700  -  total flux cleaned = 0.0180334 Jy
! Component: 1750  -  total flux cleaned = 0.0180324 Jy
! Component: 1800  -  total flux cleaned = 0.0181322 Jy
! Component: 1850  -  total flux cleaned = 0.0181332 Jy
! Component: 1900  -  total flux cleaned = 0.0184238 Jy
! Component: 1950  -  total flux cleaned = 0.018333 Jy
! Component: 2000  -  total flux cleaned = 0.0185189 Jy
! Total flux subtracted in 2048 components = 0.0187956 Jy
! Clean residual min=-0.004593 max=0.005915 Jy/beam
! Clean residual mean=-0.000137 rms=0.001937 Jy/beam
! Combined flux in latest and established models = 2.83104 Jy
keep
! Adding 140 model components to the UV plane model.
! The established model now contains 352 components and 2.83104 Jy
![Exited script file: muppet]
wmap "J0902-1415_S_1997_07_02_yyk\_map.fits"
! Inverting map 
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 3.66 x 9.525 at -0.3836 degrees (North through East)
! Clean map  min=-0.012879  max=1.6034 Jy/beam
! Writing clean map to FITS file: J0902-1415_S_1997_07_02_yyk_map.fits
float peak_flux
peak_flux = peak(flux,max)
print "The peak flux is",peak_flux
! The peak flux is 1.60336 
invert
! Inverting map 
float image_rms
image_rms = imstat(rms)
print "The final image rms is",image_rms
! The final image rms is 0.00192902 
device "J0902-1415_S_1997_07_02_yyk\_map.eps/VPS"
! Attempting to open device: 'J0902-1415_S_1997_07_02_yyk_map.eps/VPS'
loglevs 100*3*image_rms/peak_flux
! The new contour levels are:
!  -0.360934 0.360934 0.721868 1.44374 2.88747 5.77494 11.5499 23.0998 46.1995 92.3991
print "clev=",int(3*image_rms*10000)/10000
! clev= 0.0057 
print "peak=",int(peak_flux*1000)/1000
! peak= 1.603 
mapcolor none
! Mapplot colormap: none, contrast: 1 brightness: 0.5.
mapplot cln
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 3.66 x 9.525 at -0.3836 degrees (North through East)
! Clean map  min=-0.012879  max=1.6034 Jy/beam
mapcolor color, 0.9
! Mapplot colormap: rainbow, contrast: 0.9 brightness: 0.5.
device "J0902-1415_S_1997_07_02_yyk\_map.gif/gif"
! Attempting to open device: 'J0902-1415_S_1997_07_02_yyk_map.gif/gif'
mapplot cln
quit
! Quitting program
! Log file J0902-1415_S_1997_07_02_yyk_uvs.log closed on Sun Jan  7 17:08:59 2007