flo= 2000. flo5=flo+500 frq= findgen( flo5) ilow= fltarr( flo5) ihi= fltarr( flo5) ilow_rev= fltarr( flo5) ihi_rev= fltarr( flo5) ilowz= flo- 400 ilow[ ilowz:ilowz+299]= 0.3 ilow_rev=ilow ilow[ilowz+100]= ilow[ilowz+100] + .4 ilow[ilowz+200]= ilow[ilowz+200] + .2 ilow_rev[ilowz+200]= ilow_rev[ilowz+200] + .4 ilow_rev[ilowz+100]= ilow_rev[ilowz+100] + .2 ihiz= flo+100 ihi[ ihiz:ihiz+299]= 0.8 ihi_rev=ihi ihi[ihiz+75]= ihi[ihiz+75] + .2 ihi[ihiz+150]= ihi[ihiz+150] + .4 ihi[ihiz+225]= ihi[ihiz+225] + .5 ihi_rev[ihiz+75]= ihi_rev[ihiz+75] + .5 ihi_rev[ihiz+150]= ihi_rev[ihiz+150] + .4 ihi_rev[ihiz+225]= ihi_rev[ihiz+225] + .2 iboth0= ilow_rev + shift(ihi, -500) iboth1= shift(ilow, 500) + ihi_rev iboth0= shift(ilow_rev,500) + ihi iboth1= ilow + shift(ihi_rev,-500) !p.multi=[0,1,5] charsize=1.6 chr=1.0 if ps eq 1 then psopen, 'sideband.ps', /times, /bold, /isolatin1 ;RF SPECTRUM........ plot, frq, ilow, yra=[0,2], xtit= 'Freq', font=ps-1, xra=2500*[-1,1], /xsty, $ title='RF Spectrum', charsize=charsize oplot, frq, ihi arrow, flo, 0, flo, 1.7, /data xyouts, flo, 1.75, 'LO', font=ps-1, align=0.5, charsize=chr xyouts, flo-250, 0.9, 'LSB', align=0.5, font=ps-1, charsize=chr xyouts, flo+250, 1.4, 'USB', align=0.5, font=ps-1, charsize=chr ;DSB FOR UPPER SIDEBAND.......... plot, frq-flo, ihi, yra=[0,2], xtit= 'Freq', font=ps-1, $ xra=2500*[-1,1], /xsty, tit= 'DSB mixer output for ONLY the USB', charsize=charsize ;oplot, frq-flo, ihi ;arrow, flo, 0, flo, 1.7, /data oplot, [0,0], [0,2], lines=1 oplot, frq-flo-500, ihi_rev ;arrow, flo, 0, flo, 1.7, /data ;xyouts, flo, 1.75, 'LO', font=ps-1, align=0.5 xyouts, flo-250-flo, 1.4, 'USB', align=0.5, font=ps-1, charsize=chr xyouts, flo+250-flo, 1.4, 'USB', align=0.5, font=ps-1, charsize=chr ;DSB FOR LOWER SIDEBAND.......... plot, frq-flo, ilow, yra=[0,2], xtit= 'Freq', font=ps-1, $ xra=2500*[-1,1], /xsty, tit= 'DSB mixer output for ONLY the LSB', charsize=charsize ;oplot, frq-flo, ihi ;arrow, flo, 0, flo, 1.7, /data oplot, [0,0], [0,2], lines=1 oplot, frq-flo+500, ilow_rev ;arrow, flo, 0, flo, 1.7, /data ;xyouts, flo, 1.75, 'LO', font=ps-1, align=0.5 xyouts, flo-250-flo, 0.9, 'LSB', align=0.5, font=ps-1, charsize=chr xyouts, flo+250-flo, 0.9, 'LSB', align=0.5, font=ps-1, charsize=chr ;DSB FOR BOTH SIDEBANDS.......... plot, frq-flo, iboth0, yra=[0,2], xtit= 'Freq', font=ps-1, $ xra=2500*[-1,1], /xsty, tit= 'DSB mixer output for BOTH LSB and USB', charsize=charsize ;oplot, frq-flo, ihi ;arrow, flo, 0, flo, 1.7, /data oplot, frq-flo, iboth1 oplot, [0,0], [0,2], lines=1 ;arrow, flo, 0, flo, 1.7, /data ;xyouts, flo, 1.75, 'LO', font=ps-1, align=0.5 xyouts, flo-250-flo, 1.8, 'LSB+USB', align=0.5, font=ps-1, charsize=chr xyouts, flo+250-flo, 1.65, 'LSB+USB', align=0.5, font=ps-1, charsize=chr ;SSB FOR BOTH SIDEBANDS..... plot, frq-flo, ilow, yra=[0,2], xtit= 'Freq', font=ps-1, $ xra=2500*[-1,1], /xsty, tit= 'SSB mixer output', charsize=charsize oplot, frq-flo, ihi oplot, [0,0], [0,2], lines=1 ;arrow, flo, 0, flo, 1.7, /data ;xyouts, flo, 1.75, 'LO', font=ps-1, align=0.5 xyouts, flo-250-flo, 0.9, 'LSB', align=0.5, font=ps-1, charsize=chr xyouts, flo+250-flo, 1.4, 'USB', align=0.5, font=ps-1, charsize=chr !p.multi=0 if ps eq 1 then psclose