! Started logfile: J0416-1851_X_1997_08_27_yyk_uvs.log on Mon Jan  8 02:57:25 2007
obs J0416-1851_X_1997_08_27_yyk_uva.fits
! Reading UV FITS file: J0416-1851_X_1997_08_27_yyk_uva.fits
! AN table 1: 135 integrations on 45 of 45 possible baselines.
! Apparent sampling: 0.965597 visibilities/baseline/integration-bin.
! Found source: J0416-1851
! 
! 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  8.15447e+09        8e+06          1        8e+06
!  02        2  8.23447e+09        8e+06          1        8e+06
!  03        3  8.41447e+09        8e+06          1        8e+06
!  04        4  8.55447e+09        8e+06          1        8e+06
! 
! Polarization(s): RR
! 
! Read 701 lines of history.
! 
! Reading 23464 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 J0416-1851_X_1997_08_27_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.200x0.200 milli-arcsec cellsize.
phase_soltime=phase_soltime1
print "uvstat(rms)=",uvstat(rms),"Jy"
! uvstat(rms)= 0.752693 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=0.7376 mas, bmaj=1.739 mas, bpa=-11.04 degrees
! Estimated noise=1299.47 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 = 0.560684 Jy
! Component: 100  -  total flux cleaned = 0.730156 Jy
! Total flux subtracted in 100 components = 0.730156 Jy
! Clean residual min=-0.047674 max=0.065885 Jy/beam
! Clean residual mean=-0.000081 rms=0.011520 Jy/beam
! Combined flux in latest and established models = 0.730156 Jy
! Performing phase self-cal over 10 minute time intervals
! Adding 14 model components to the UV plane model.
! The established model now contains 14 components and 0.730156 Jy
! 
! Correcting IF 1.
!  A total of 29 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 2.
!  A total of 29 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 3.
!  A total of 29 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 4.
!  A total of 29 telescope corrections were flagged in sub-array 1.
! 
! Fit before self-cal, rms=0.295934Jy  sigma=0.001791
! Fit after  self-cal, rms=0.295580Jy  sigma=0.001788
! Inverting map and beam 
! Estimated beam: bmin=0.7376 mas, bmaj=1.739 mas, bpa=-11.04 degrees
! Estimated noise=1299.47 mJy/beam.
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=0.8939 mas, bmaj=2.069 mas, bpa=-11.67 degrees
! Estimated noise=730.726 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.8, -2).
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.0799789 Jy
! Component: 100  -  total flux cleaned = 0.0975307 Jy
! Component: 150  -  total flux cleaned = 0.108029 Jy
! Component: 200  -  total flux cleaned = 0.114248 Jy
! Total flux subtracted in 200 components = 0.114248 Jy
! Clean residual min=-0.026421 max=0.036707 Jy/beam
! Clean residual mean=0.000122 rms=0.006043 Jy/beam
! Combined flux in latest and established models = 0.844404 Jy
! Performing phase self-cal over 10 minute time intervals
! Adding 32 model components to the UV plane model.
! The established model now contains 40 components and 0.844404 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.275542Jy  sigma=0.001634
! Fit after  self-cal, rms=0.275306Jy  sigma=0.001633
! Inverting map 
! Added new window around map position (-2.6, 6.6).
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.0155396 Jy
! Component: 100  -  total flux cleaned = 0.0176087 Jy
! Component: 150  -  total flux cleaned = 0.0201761 Jy
! Component: 200  -  total flux cleaned = 0.0231741 Jy
! Total flux subtracted in 200 components = 0.0231741 Jy
! Clean residual min=-0.021857 max=0.024893 Jy/beam
! Clean residual mean=0.000140 rms=0.004908 Jy/beam
! Combined flux in latest and established models = 0.867578 Jy
! Performing phase self-cal over 10 minute time intervals
! Adding 25 model components to the UV plane model.
! The established model now contains 54 components and 0.867579 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.269657Jy  sigma=0.001593
! Fit after  self-cal, rms=0.269503Jy  sigma=0.001592
! Inverting map 
print "************** FINISHED NATURAL WEIGHTING CLEAN **************"
! ************** FINISHED NATURAL WEIGHTING CLEAN ************** 
! 
restore
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 0.8939 x 2.069 at -11.67 degrees (North through East)
! Clean map  min=-0.044844  max=0.62701 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.01425
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.03     FD        0.98     HN        0.97     KP        1.03     
!   LA        1.01     MK        0.98     NL        0.98     OV        0.99     
!   PT        0.97     SC        0.92     
! 
! 
! Correcting IF 2.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Amplitude normalization factor in sub-array 1: 1.01931
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.03     FD        0.96     HN        0.94     KP        1.03     
!   LA        0.99     MK        0.93     NL        0.97     OV        1.05     
!   PT        0.93     SC        0.97     
! 
! 
! Correcting IF 3.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Amplitude normalization factor in sub-array 1: 1.00748
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.03     FD        0.99     HN        0.99     KP        1.01     
!   LA        1.00     MK        0.93     NL        0.96     OV        1.00     
!   PT        0.99     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: 1.00281
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.06     FD        0.97     HN        1.00     KP        1.02     
!   LA        1.00     MK        0.90     NL        0.97     OV        1.03     
!   PT        1.02     SC        1.01     
! 
! 
! Fit before self-cal, rms=0.269503Jy  sigma=0.001592
! Fit after  self-cal, rms=0.268852Jy  sigma=0.001582
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.268852Jy  sigma=0.001582
! Fit after  self-cal, rms=0.268853Jy  sigma=0.001582
dynam = dynam - 0.5
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=0.8655 mas, bmaj=2.04 mas, bpa=-12.68 degrees
! Estimated noise=727.127 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.0170827 Jy
! Component: 100  -  total flux cleaned = 0.0190019 Jy
! Component: 150  -  total flux cleaned = 0.0201487 Jy
! Component: 200  -  total flux cleaned = 0.0206647 Jy
! Total flux subtracted in 200 components = 0.0206647 Jy
! Clean residual min=-0.020047 max=0.018902 Jy/beam
! Clean residual mean=0.000087 rms=0.004372 Jy/beam
! Combined flux in latest and established models = 0.888243 Jy
! Performing phase self-cal over 10 minute time intervals
! Adding 33 model components to the UV plane model.
! The established model now contains 71 components and 0.888243 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.267014Jy  sigma=0.001568
! Fit after  self-cal, rms=0.266999Jy  sigma=0.001568
! 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.266999Jy  sigma=0.001568
! Fit after  self-cal, rms=0.233815Jy  sigma=0.001428
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.00316139 Jy
! Component: 100  -  total flux cleaned = 0.00258727 Jy
! Component: 150  -  total flux cleaned = 0.00207537 Jy
! Component: 200  -  total flux cleaned = 0.00206804 Jy
! Total flux subtracted in 200 components = 0.00206804 Jy
! Clean residual min=-0.018438 max=0.016605 Jy/beam
! Clean residual mean=0.000014 rms=0.003846 Jy/beam
! Combined flux in latest and established models = 0.890311 Jy
! Performing phase self-cal over 0.5 minute time intervals
! Adding 23 model components to the UV plane model.
! The established model now contains 81 components and 0.890311 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.231935Jy  sigma=0.001416
! Fit after  self-cal, rms=0.227817Jy  sigma=0.001399
! 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: 0.8655 x 2.04 at -12.68 degrees (North through East)
! Clean map  min=-0.043732  max=0.63305 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.227817Jy  sigma=0.001399
! Fit after  self-cal, rms=0.622181Jy  sigma=0.001368
! 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.622181Jy  sigma=0.001368
! Fit after  self-cal, rms=0.621879Jy  sigma=0.001364
! Inverting map and beam 
! Estimated beam: bmin=0.874 mas, bmaj=2.422 mas, bpa=-5.382 degrees
! Estimated noise=758.625 mJy/beam.
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = -0.00201155 Jy
! Component: 100  -  total flux cleaned = -0.00144286 Jy
! Component: 150  -  total flux cleaned = -0.00148992 Jy
! Component: 200  -  total flux cleaned = -0.00152377 Jy
! Total flux subtracted in 200 components = -0.00152377 Jy
! Clean residual min=-0.012439 max=0.011256 Jy/beam
! Clean residual mean=-0.000017 rms=0.002685 Jy/beam
! Combined flux in latest and established models = 0.888788 Jy
! Performing phase self-cal over 0.5 minute time intervals
! Adding 17 model components to the UV plane model.
! The established model now contains 96 components and 0.888788 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.621441Jy  sigma=0.001352
! Fit after  self-cal, rms=0.621279Jy  sigma=0.001351
! 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.621279Jy  sigma=0.001351
! Fit after  self-cal, rms=0.758266Jy  sigma=0.001349
! 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.758266Jy  sigma=0.001349
! Fit after  self-cal, rms=0.758213Jy  sigma=0.001349
! Inverting map and beam 
! Estimated beam: bmin=0.8735 mas, bmaj=2.429 mas, bpa=-5.282 degrees
! Estimated noise=756.289 mJy/beam.
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = -0.00406878 Jy
! Component: 100  -  total flux cleaned = -0.003669 Jy
! Component: 150  -  total flux cleaned = -0.00331467 Jy
! Component: 200  -  total flux cleaned = -0.00297537 Jy
! Total flux subtracted in 200 components = -0.00297537 Jy
! Clean residual min=-0.010654 max=0.009204 Jy/beam
! Clean residual mean=-0.000011 rms=0.002298 Jy/beam
! Combined flux in latest and established models = 0.885812 Jy
! Performing phase self-cal over 0.5 minute time intervals
! Adding 26 model components to the UV plane model.
! The established model now contains 107 components and 0.885812 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.758065Jy  sigma=0.001343
! Fit after  self-cal, rms=0.758052Jy  sigma=0.001343
! Inverting map 
! ************** FINISHED AMPLITUDE SELF-CAL ************** 
uvtaper 0.3,taper_size
! Gaussian taper: value 0.3 at UV radius = 70 mega-wavelengths.
win_mult = win_mult * 1.4
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=2.195 mas, bmaj=4.535 mas, bpa=-4.2 degrees
! Estimated noise=978.142 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 (-1.4, -1).
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.00557401 Jy
! Component: 100  -  total flux cleaned = 0.00937034 Jy
! Component: 150  -  total flux cleaned = 0.0109009 Jy
! Component: 200  -  total flux cleaned = 0.0114782 Jy
! Total flux subtracted in 200 components = 0.0114782 Jy
! Clean residual min=-0.007019 max=0.006497 Jy/beam
! Clean residual mean=0.000023 rms=0.001816 Jy/beam
! Combined flux in latest and established models = 0.89729 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 134 components and 0.89729 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.757857Jy  sigma=0.001340
! Fit after  self-cal, rms=0.757834Jy  sigma=0.001340
! 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=0.7377 mas, bmaj=2.032 mas, bpa=-3.652 degrees
! Estimated noise=1492.14 mJy/beam.
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.603117 Jy
! Component: 100  -  total flux cleaned = 0.740208 Jy
! Component: 150  -  total flux cleaned = 0.802406 Jy
! Component: 200  -  total flux cleaned = 0.837413 Jy
! Total flux subtracted in 200 components = 0.837413 Jy
! Clean residual min=-0.011889 max=0.014498 Jy/beam
! Clean residual mean=-0.000056 rms=0.003248 Jy/beam
! Combined flux in latest and established models = 0.837413 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 31 model components to the UV plane model.
! The established model now contains 31 components and 0.837413 Jy
! Inverting map and beam 
! Estimated beam: bmin=0.8735 mas, bmaj=2.429 mas, bpa=-5.282 degrees
! Estimated noise=756.289 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.0244956 Jy
! Component: 100  -  total flux cleaned = 0.0382888 Jy
! Component: 150  -  total flux cleaned = 0.0467747 Jy
! Component: 200  -  total flux cleaned = 0.0506924 Jy
! Total flux subtracted in 200 components = 0.0506923 Jy
! Clean residual min=-0.006235 max=0.006554 Jy/beam
! Clean residual mean=0.000002 rms=0.001525 Jy/beam
! Combined flux in latest and established models = 0.888105 Jy
! Adding 42 model components to the UV plane model.
! The established model now contains 72 components and 0.888105 Jy
! Inverting map 
! Added new window around map position (-4, 11.4).
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = 0.00580769 Jy
! Component: 100  -  total flux cleaned = 0.00761426 Jy
! Component: 150  -  total flux cleaned = 0.00901033 Jy
! Component: 200  -  total flux cleaned = 0.0100684 Jy
! Total flux subtracted in 200 components = 0.0100684 Jy
! Clean residual min=-0.005211 max=0.004288 Jy/beam
! Clean residual mean=0.000018 rms=0.001287 Jy/beam
! Combined flux in latest and established models = 0.898174 Jy
! Adding 43 model components to the UV plane model.
! The established model now contains 94 components and 0.898174 Jy
! Inverting map 
uvtaper 0.3,taper_size
! Gaussian taper: value 0.3 at UV radius = 70 mega-wavelengths.
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=2.195 mas, bmaj=4.535 mas, bpa=-4.2 degrees
! Estimated noise=978.142 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.00168775 Jy
! Component: 100  -  total flux cleaned = 0.00227477 Jy
! Component: 150  -  total flux cleaned = 0.00253237 Jy
! Component: 200  -  total flux cleaned = 0.00253288 Jy
! Total flux subtracted in 200 components = 0.00253288 Jy
! Clean residual min=-0.005881 max=0.005095 Jy/beam
! Clean residual mean=0.000050 rms=0.001504 Jy/beam
! Combined flux in latest and established models = 0.900707 Jy
! Adding 42 model components to the UV plane model.
! The established model now contains 131 components and 0.900707 Jy
! Inverting map 
uvtaper 0
! No UV-taper is currently set.
clean
! Inverting map and beam 
! Estimated beam: bmin=0.8735 mas, bmaj=2.429 mas, bpa=-5.282 degrees
! Estimated noise=756.289 mJy/beam.
! clean: niter=200  gain=0.04  cutoff=0
! Component: 050  -  total flux cleaned = -0.00155042 Jy
! Component: 100  -  total flux cleaned = -0.001555 Jy
! Component: 150  -  total flux cleaned = -0.00123 Jy
! Component: 200  -  total flux cleaned = -0.00108518 Jy
! Total flux subtracted in 200 components = -0.00108518 Jy
! Clean residual min=-0.004695 max=0.003810 Jy/beam
! Clean residual mean=0.000022 rms=0.001128 Jy/beam
! Combined flux in latest and established models = 0.899621 Jy
selfcal false, false, phase_soltime
! Performing phase self-cal over 0.5 minute time intervals
! Adding 48 model components to the UV plane model.
! The established model now contains 157 components and 0.899621 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.763457Jy  sigma=0.001332
! Fit after  self-cal, rms=0.762277Jy  sigma=0.001331
wmodel J0416-1851_X_1997_08_27_yyk\_map.mod
! Writing 157 model components to file: J0416-1851_X_1997_08_27_yyk_map.mod
wobs J0416-1851_X_1997_08_27_yyk\_uvs.fits
! Writing UV FITS file: J0416-1851_X_1997_08_27_yyk_uvs.fits
wwins J0416-1851_X_1997_08_27_yyk\_map.win
! wwins: Wrote 5 windows to J0416-1851_X_1997_08_27_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.00102261 Jy
! Component: 100  -  total flux cleaned = -0.00123403 Jy
! Component: 150  -  total flux cleaned = -0.00142858 Jy
! Component: 200  -  total flux cleaned = -0.00136784 Jy
! Component: 250  -  total flux cleaned = -0.00131022 Jy
! Component: 300  -  total flux cleaned = -0.00142522 Jy
! Component: 350  -  total flux cleaned = -0.00153549 Jy
! Component: 400  -  total flux cleaned = -0.00153539 Jy
! Component: 450  -  total flux cleaned = -0.00174391 Jy
! Component: 500  -  total flux cleaned = -0.00194643 Jy
! Component: 550  -  total flux cleaned = -0.00214533 Jy
! Component: 600  -  total flux cleaned = -0.00257939 Jy
! Component: 650  -  total flux cleaned = -0.00276804 Jy
! Component: 700  -  total flux cleaned = -0.00304462 Jy
! Component: 750  -  total flux cleaned = -0.00331539 Jy
! Component: 800  -  total flux cleaned = -0.00344796 Jy
! Component: 850  -  total flux cleaned = -0.00357883 Jy
! Component: 900  -  total flux cleaned = -0.00366357 Jy
! Component: 950  -  total flux cleaned = -0.00370602 Jy
! Component: 1000  -  total flux cleaned = -0.00383105 Jy
! Component: 1050  -  total flux cleaned = -0.00383172 Jy
! Component: 1100  -  total flux cleaned = -0.00407354 Jy
! Component: 1150  -  total flux cleaned = -0.00407367 Jy
! Component: 1200  -  total flux cleaned = -0.0041129 Jy
! Component: 1250  -  total flux cleaned = -0.004228 Jy
! Component: 1300  -  total flux cleaned = -0.00426572 Jy
! Component: 1350  -  total flux cleaned = -0.00437789 Jy
! Component: 1400  -  total flux cleaned = -0.0043033 Jy
! Component: 1450  -  total flux cleaned = -0.00423028 Jy
! Component: 1500  -  total flux cleaned = -0.00430335 Jy
! Component: 1550  -  total flux cleaned = -0.00433935 Jy
! Component: 1600  -  total flux cleaned = -0.00433917 Jy
! Component: 1650  -  total flux cleaned = -0.00423475 Jy
! Component: 1700  -  total flux cleaned = -0.00420004 Jy
! Component: 1750  -  total flux cleaned = -0.00406401 Jy
! Component: 1800  -  total flux cleaned = -0.00416471 Jy
! Component: 1850  -  total flux cleaned = -0.00413165 Jy
! Component: 1900  -  total flux cleaned = -0.00400077 Jy
! Component: 1950  -  total flux cleaned = -0.00396894 Jy
! Component: 2000  -  total flux cleaned = -0.00400096 Jy
! Total flux subtracted in 2048 components = -0.00381101 Jy
! Clean residual min=-0.001778 max=0.001978 Jy/beam
! Clean residual mean=0.000007 rms=0.000611 Jy/beam
! Combined flux in latest and established models = 0.89581 Jy
keep
! Adding 153 model components to the UV plane model.
! The established model now contains 309 components and 0.895811 Jy
![Exited script file: muppet]
wmap "J0416-1851_X_1997_08_27_yyk\_map.fits"
! Inverting map 
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 0.8735 x 2.429 at -5.282 degrees (North through East)
! Clean map  min=-0.0031767  max=0.69586 Jy/beam
! Writing clean map to FITS file: J0416-1851_X_1997_08_27_yyk_map.fits
float peak_flux
peak_flux = peak(flux,max)
print "The peak flux is",peak_flux
! The peak flux is 0.695865 
invert
! Inverting map 
float image_rms
image_rms = imstat(rms)
print "The final image rms is",image_rms
! The final image rms is 0.00060746 
device "J0416-1851_X_1997_08_27_yyk\_map.eps/VPS"
! Attempting to open device: 'J0416-1851_X_1997_08_27_yyk_map.eps/VPS'
loglevs 100*3*image_rms/peak_flux
! The new contour levels are:
!  -0.261887 0.261887 0.523775 1.04755 2.0951 4.1902 8.38039 16.7608 33.5216 67.0432
print "clev=",int(3*image_rms*10000)/10000
! clev= 0.0018 
print "peak=",int(peak_flux*1000)/1000
! peak= 0.695 
mapcolor none
! Mapplot colormap: none, contrast: 1 brightness: 0.5.
mapplot cln
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 0.8735 x 2.429 at -5.282 degrees (North through East)
! Clean map  min=-0.0031767  max=0.69586 Jy/beam
mapcolor color, 0.9
! Mapplot colormap: rainbow, contrast: 0.9 brightness: 0.5.
device "J0416-1851_X_1997_08_27_yyk\_map.gif/gif"
! Attempting to open device: 'J0416-1851_X_1997_08_27_yyk_map.gif/gif'
mapplot cln
quit
! Quitting program
! Log file J0416-1851_X_1997_08_27_yyk_uvs.log closed on Mon Jan  8 02:57:36 2007