simobserve(project='psimvla1', 
                    skymodel='ppdisk672_GHz_50pc.fits', 
                    inbright='3e-5Jy/pixel', 
                    incenter='44GHz', 
                    inwidth='128MHz' , 
                    setpointings=True, 
                    integration='2s',  
                    direction='J2000 18h00m00.031s -22d59m59.6s',  
                    mapsize= '0.78arcsec', 
                    obsmode='int', 
                    antennalist='vla.a.cfg', 
                    hourangle='transit', 
                    totaltime='3600s',  
                    thermalnoise='', 
                    graphics='both', 
                    overwrite=True)
simanalyze(project='psimvla1', 
                    image=True, 
                    vis='psimvla1.vla.a.ms',  
                    imsize=[192, 192], 
                    interactive=False, 
                    niter=0, 
                    weighting='briggs',  
                    pbcor=False, 
                    stokes='I', 
                    analyze=True, 
                    showuv=False, 
                    showpsf=True, 
                    showmodel=True, 
                    showconvolved=True, 
                    showclean=True, 
                    showresidual=True, 
                    showdifference=True, 
                    showfidelity=True, 
                    graphics='both', 
                    overwrite=True)
simobserve(project='psimvla2', skymodel='ppdisk672_GHz_50pc.fits', inbright='3e-5Jy/pixel', incenter='44GHz', inwidth='128MHz' , setpointings=True, integration='2s',  direction='J2000 18h00m00.031s -22d59m59.6s',  mapsize= '0.78arcsec', obsmode='int', antennalist='vla.a.cfg', hourangle='transit', totaltime='3600s',  thermalnoise='', graphics='both', overwrite=True)
simanalyze(project='psimvla2', image=True, vis='psimvla2.vla.a.ms',  imsize=[192, 192], interactive=False, niter=1000, threshold='1e-4Jy', weighting='briggs',  pbcor=False, stokes='I', analyze=True, showuv=False, showpsf=True, showmodel=True, showconvolved=True, showclean=True, showresidual=True, showdifference=True, showfidelity=True, graphics='both', overwrite=True)
simobserve(project='psimvla3', skymodel='ppdisk672_GHz_50pc.fits', inbright='3e-5Jy/pixel', incenter='44GHz', inwidth='128MHz' , setpointings=True, integration='2s',  direction='J2000 18h00m00.031s -22d59m59.6s',  mapsize= '0.78arcsec', obsmode='int', antennalist='vla.a.cfg', hourangle='transit', totaltime='3600s',  thermalnoise='tsys-manual', tau0=0.065, t_sky=20, graphics='both', overwrite=True)
simanalyze(project='psimvla3', image=True, vis='psimvla3.vla.a.noisy.ms', imsize=[192, 192], interactive=False, niter=1000, threshold='1e-4Jy', weighting='briggs',  pbcor=False, stokes='I', analyze=True, showuv=False, showpsf=True, showmodel=True, showconvolved=True, showclean=True, showresidual=True, showdifference=True, showfidelity=True, graphics='both', overwrite=True)
tclean(vis='psimvla3/psimvla3.vla.a.noisy.ms', imagename='psim3-bigimage', imsize=[640, 640], cell='3.11e-3arcsec',  specmode='mfs',  gridder= 'standard', deconvolver='hogbom', weighting='briggs', pblimit=-0.1, robust=0.5, niter=1000, threshold='1e-4Jy')
simobserve(project='psimvla4',   skymodel='ppdisk672_GHz_50pc.fits', inbright='3e-5Jy/pixel', incenter='44GHz', inwidth='8GHz' , setpointings=True, integration='2s',  direction='J2000 18h00m00.031s -22d59m59.6s',  mapsize= '0.78arcsec', obsmode='int', antennalist='vla.a.cfg', hourangle='transit', totaltime='3600s',  thermalnoise='tsys-manual', tau0=0.065, t_sky=20, graphics='both', overwrite=True)
simanalyze(project='psimvla4', image=True, vis='psimvla4.vla.a.noisy.ms',  imsize=[192, 192], interactive=False, niter=10000, threshold='5e-5Jy', weighting='briggs',  pbcor=False, stokes='I', analyze=True, showuv=False, showpsf=True, showmodel=True, showconvolved=True, showclean=True, showresidual=True, showdifference=True, showfidelity=True, graphics='both', overwrite=True)
importfits(fitsimage="ppdisk672_GHz_50pc.fits", imagename="ppdisk_Q_50pc.im")
stats=imstat(imagename='ppdisk_Q_50pc.im')
maximum=stats['max'][0]
ratio=3e-5/maximum
for x in range (0, 64):
     y=40+x*0.128
     immath(imagename="ppdisk_Q_50pc.im", mode='evalexpr', expr="IM0*"+str(ratio)+"*(("+str(y)+"/40)^-1.5)", outfile="ppdisk_Q_50pc_spx_"+str(x)+".im")
     imhead(imagename="ppdisk_Q_50pc_spx_"+str(x)+".im", mode="put", hdkey="crval4", hdvalue=str(y)+"GHz")
     imhead(imagename="ppdisk_Q_50pc_spx_"+str(x)+".im", mode="put", hdkey="cdelt4", hdvalue="128MHz")
comb=ia.imageconcat(outfile="ppdisk-combined_spx.im", infiles="ppdisk_Q_50pc_spx*.im",  axis=3, relax=True, tempclose=False, reorder=True, overwrite=True)
comb.close()
simobserve(project='psimvla4mfs',   skymodel='ppdisk-combined_spx.im',  setpointings=True, integration='2s',  direction='J2000 18h00m00.031s -22d59m59.6s',  mapsize= '0.78arcsec', obsmode='int', antennalist='vla.a.cfg', hourangle='transit', totaltime='3600s',  thermalnoise='tsys-manual', tau0=0.065, t_sky=20, graphics='none', overwrite=True)
plotms(vis='psimvla4mfs/psimvla4mfs.vla.a.noisy.ms', xaxis='Uwave', yaxis='Vwave',coloraxis='channel', plotfile='psimvla4mfs_uvcoverage.png', showgui=False)
tclean(vis='psimvla4mfs/psimvla4mfs.vla.a.noisy.ms', imagename='psimvla4mfs/8GHzmfs', imsize=[192, 192], cell='3.11e-3arcsec', specmode='mfs', gridder='standard', deconvolver='mtmfs', nterms=2, scales=[0,2,4,8,13,20,40],  niter=1000, threshold='2e-4Jy', weighting='briggs', pblimit=-0.1, robust=0.5)
simobserve(project='psimvla5',   skymodel='ppdisk672_GHz_50pc.fits', inbright='3e-5Jy/pixel',  incenter='44GHz', inwidth='8GHz' , setpointings=True, integration='2s',  direction='J2000 18h00m00.031s -22d59m59.6s',  mapsize= '0.78arcsec', obsmode='int', antennalist='vla.a.cfg', hourangle='transit', totaltime='14400s',  thermalnoise='tsys-manual', tau0=0.065, t_sky=20, graphics='both', overwrite=True)
simanalyze(project='psimvla5', image=True, vis='psimvla5.vla.a.noisy.ms',  imsize=[192, 192], interactive=False, niter=1000, threshold='2e-5Jy', weighting='briggs',  pbcor=False, stokes='I', analyze=True, showuv=False, showpsf=True, showmodel=True, showconvolved=True, showclean=True, showresidual=True, showdifference=True, showfidelity=True, graphics='both', overwrite=True)
tclean(vis='psimvla5/psimvla5.vla.a.noisy.ms', imagename='psim5-bigimage', imsize=[640, 640], cell='3.11e-3arcsec',  specmode='mfs',  gridder= 'standard', deconvolver='hogbom', weighting='briggs', pblimit=-0.1, robust=0.5, niter=10000, threshold='2e-5Jy')
simobserve(project='psimvla6',   skymodel='ppdisk672_GHz_50pc.fits', inbright='3e-5Jy/pixel',  incenter='44GHz', inwidth='8GHz' , setpointings=True, integration='2s',  direction='J2000 18h00m00.031s -22d59m59.6s',  mapsize= '0.78arcsec', obsmode='int', antennalist='vla.c.cfg', hourangle='transit', totaltime='3600s',  thermalnoise='tsys-manual', tau0=0.065, t_sky=20, graphics='both', overwrite=True)
simanalyze(project='psimvla6', image=True, vis='psimvla6.vla.c.noisy.ms',  imsize=[1728, 1728], interactive=False, niter=1000, threshold='1e-4Jy', weighting='briggs',  pbcor=False, stokes='I', analyze=True, showuv=False, showpsf=True, showmodel=True, showconvolved=True, showclean=True, showresidual=True, showdifference=True, showfidelity=True, graphics='both', overwrite=True)
simobserve(project='psimvla7',   skymodel='ppdisk672_GHz_50pc.fits', inbright='1e-5Jy/pixel',  incenter='10GHz', inwidth='4GHz' , setpointings=True, integration='2s',  direction='J2000 18h00m00.031s -22d59m59.6s',  mapsize= '0.78arcsec', obsmode='int', antennalist='vla.a.cfg', hourangle='transit', totaltime='3600s',  thermalnoise='tsys-manual', tau0=0.006, t_sky=11, graphics='both', overwrite=True)
simanalyze(project='psimvla7', image=True, vis='psimvla7.vla.a.noisy.ms',  imsize=[192, 192], interactive=False, niter=1000, threshold='3e-5Jy', weighting='briggs',  pbcor=False, stokes='I', analyze=True, showuv=False, showpsf=True, showmodel=True, showconvolved=True, showclean=True, showresidual=True, showdifference=True, showfidelity=True, graphics='both', overwrite=True)