; OSPEX script created Wed Aug 24 22:24:58 2005 by OSPEX writescript method.               
;                                                                                          
;  Call this script with the keyword argument, obj=obj to return the                       
;  OSPEX object reference for use at the command line as well as in the GUI.               
;  For example:                                                                            
;     fitresult, obj=obj                                                                   
;                                                                                          
;  Note that this script simply sets parameters in the OSPEX object as they                
;  were when you wrote the script, and optionally restores fit results.                    
;  To make OSPEX do anything in this script, you need to add some action commands.         
;  For instance, the command                                                               
;     obj -> dofit, /all                                                                   
;  would tell OSPEX to do fits in all your fit time intervals.                             
;  See the OSPEX methods section in the OSPEX documentation at                             
;  http://hesperia.gsfc.nasa.gov/ssw/packages/spex/doc/ospex_explanation.htm               
;  for a complete list of methods and their arguments.                                     
;                                                                                          
pro fitresult, obj=obj                                                                     
if not is_class(obj,'SPEX',/quiet) then obj = ospex()                                      
obj-> set, $                                                                               
 spex_specfile= '/home/flare/hxt/matuzaki/SP/20050824/rhessi_spec/try21/hsi_spectrum_20041231_233000.fits'
obj-> set, $                                                                               
 spex_drmfile= '/home/flare/hxt/matuzaki/SP/20050824/rhessi_spec/try21/hsi_srm_20041231_233000.fits'      
obj-> set, spex_fit_reverse= 1                                                             
obj-> set, spex_erange= [100.00000D, 300.00000D]                                           
obj-> set, spex_fit_time_interval= [[' 1-Jan-2005 00:25:20.000', $                         
 ' 1-Jan-2005 00:25:32.000'], [' 1-Jan-2005 00:25:32.000', ' 1-Jan-2005 00:25:44.000'], $  
 [' 1-Jan-2005 00:25:44.000', ' 1-Jan-2005 00:25:56.000'], [' 1-Jan-2005 00:25:56.000', $  
 ' 1-Jan-2005 00:26:08.000'], [' 1-Jan-2005 00:26:08.000', ' 1-Jan-2005 00:26:20.000'], $  
 [' 1-Jan-2005 00:26:20.000', ' 1-Jan-2005 00:26:32.000'], [' 1-Jan-2005 00:26:32.000', $  
 ' 1-Jan-2005 00:26:44.000'], [' 1-Jan-2005 00:26:44.000', ' 1-Jan-2005 00:26:56.000'], $  
 [' 1-Jan-2005 00:26:56.000', ' 1-Jan-2005 00:27:08.000'], [' 1-Jan-2005 00:27:08.000', $  
 ' 1-Jan-2005 00:27:20.000'], [' 1-Jan-2005 00:27:20.000', ' 1-Jan-2005 00:27:32.000'], $  
 [' 1-Jan-2005 00:27:32.000', ' 1-Jan-2005 00:27:44.000'], [' 1-Jan-2005 00:27:44.000', $  
 ' 1-Jan-2005 00:27:56.000'], [' 1-Jan-2005 00:27:56.000', ' 1-Jan-2005 00:28:08.000'], $  
 [' 1-Jan-2005 00:28:08.000', ' 1-Jan-2005 00:28:20.000'], [' 1-Jan-2005 00:28:20.000', $  
 ' 1-Jan-2005 00:28:32.000'], [' 1-Jan-2005 00:28:32.000', ' 1-Jan-2005 00:28:44.000'], $  
 [' 1-Jan-2005 00:28:44.000', ' 1-Jan-2005 00:28:56.000'], [' 1-Jan-2005 00:28:56.000', $  
 ' 1-Jan-2005 00:29:08.000'], [' 1-Jan-2005 00:29:08.000', ' 1-Jan-2005 00:29:20.000'], $  
 [' 1-Jan-2005 00:29:20.000', ' 1-Jan-2005 00:29:32.000'], [' 1-Jan-2005 00:29:32.000', $  
 ' 1-Jan-2005 00:29:44.000'], [' 1-Jan-2005 00:29:44.000', ' 1-Jan-2005 00:29:56.000'], $  
 [' 1-Jan-2005 00:29:56.000', ' 1-Jan-2005 00:30:08.000'], [' 1-Jan-2005 00:30:08.000', $  
 ' 1-Jan-2005 00:30:20.000'], [' 1-Jan-2005 00:30:20.000', ' 1-Jan-2005 00:30:32.000'], $  
 [' 1-Jan-2005 00:30:32.000', ' 1-Jan-2005 00:30:44.000']]                                 
obj-> set, spex_bk_time_interval=['31-Dec-2004 23:35:00.000', '31-Dec-2004 23:49:56.814']  
obj-> set, fit_function= 'bpow'                                                            
obj-> set, fit_comp_params= [0.109808, 3.80000, 400.000, 1.93000]                          
obj-> set, fit_comp_minima= [1.00000e-10, 1.70000, 10.0000, 1.70000]                       
obj-> set, fit_comp_maxima= [1.00000e+10, 10.0000, 400.000, 10.0000]                       
obj-> set, fit_comp_free_mask= [1.00000, 0.00000, 0.00000, 0.00000]                        
obj-> set, spex_autoplot_units= 'Flux'                                                     
obj-> set, spex_eband= [[10.0000, 12.0000], [12.0000, 25.0000], [25.0000, 50.0000], $      
 [50.0000, 100.000]]                                                                       
obj -> restorefit, $                                                                       
 file='/home/flare/hxt/matuzaki/SP/20050824/fit/ospex_results_24_Aug_2005.fits'               
end