Six Components


SCRIPT SIMULATING 6-COMPONENT SOURCE

; sim_multiple_src
gg1 = {gaussian_source_str}
  gg1.amplitude = 1.
  gg1.xysigma = [1., 1.]
  gg1.xypos = [-25,-5.]
  gg1.tilt_angle_deg = 0.
 gg2 = {gaussian_source_str}
  gg2.amplitude = 1.
  gg2.xysigma = [1., 1.]
  gg2.xypos = [25.,5.]
  gg2.tilt_angle_deg = 0.
 gg3 = {gaussian_source_str}
  gg3.amplitude = 0.5
  gg3.xysigma = [1., 1.]
  gg3.xypos = [-20.,-5.]
  gg3.tilt_angle_deg = 0.
 gg4 = {gaussian_source_str}
  gg4.amplitude = 0.5
  gg4.xysigma = [1., 1.]
  gg4.xypos = [-15.,5.]
  gg4.tilt_angle_deg = 0.

 gg5 = {gaussian_source_str}
  gg5.amplitude = 0.5
  gg5.xysigma = [1., 1.]
  gg5.xypos = [15.,5.]
  gg5.tilt_angle_deg = 0.

 gg6 = {gaussian_source_str}
  gg6.amplitude = 0.5
  gg6.xysigma = [1., 1.]
  gg6.xypos = [20.,10.]
  gg6.tilt_angle_deg = 0.

  
  
  
model = [gg1,gg2,gg3,gg4,gg5,gg6]
obj_im = hsi_image() 
obj_im->set,pixel_size=4
obj_im->set,det_index=[0,1,1,1,1,1,1,1,0]

 im = obj_im -> getdata(/plot,sim_model=model,sim_photons=6000,$
 sim_energy_band=[6,100],energy_band=[6,100],$
 /force) 

cbe=obj_im->getdata(class_name='hsi_calib_eventlist')

!p.multi=[0,1,4]
!x.style=1 & !P.CHARSIZE=2
;tj=['1)','2)','3)','4)']
tj=['5)','6)','7)','8)']
ti="OVER RESOLVED COUNT PROFILE FOR 15'' SOURCE (DET="
for j=0,3 do plot,(*cbe(j+4,0)).count,psym=10,$
  TIT=TI+TJ[j],xtIT='TIME BIN',YTIT='COUNTS/S'

obj_im->plotman

end

Ed Schmahl
Last modified: Mon Feb 26 17:24:00 EST 2001