Changeset 690


Ignore:
Timestamp:
Apr 14, 2010 10:53:31 AM (12 years ago)
Author:
srkline
Message:

Added model documentation for FuzzySpheres? and CSParallelpiped

Added axis labels to data loaded through XML loader

Writing of XML USANS data is now properly handling cursors

Location:
sans/Dev/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Analysis/Models/NewModels_2009/FuzzySpheres_v40.ipf

    r682 r690  
    2828        xwave_fuzz = alog( log(qmin) + x*((log(qmax)-log(qmin))/num) ) 
    2929        Make/O/D coef_fuzz = {0.01,60,0.2,10,1e-6,3e-6,1,50,0.001} 
    30         make/O/T parameters_fuzz = {"Volume Fraction (scale)","mean radius (A)","polydisp (sig/avg)","interface thickness (A)","SLD sphere (A-2)","SLD solvent (A-2)","Lorentz Scale","Lorentz length","bkg (cm-1 sr-1)"} 
     30        make/O/T parameters_fuzz = {"Volume Fraction (scale)","mean radius (A)","polydisp (sig/avg)","interface thickness (A)","SLD sphere (A-2)","SLD solvent (A-2)","Lorentz Scale","Lorentz length (A)","bkg (cm-1 sr-1)"} 
    3131        Edit parameters_fuzz,coef_fuzz 
    3232         
     
    5656        // Setup parameter table for model function 
    5757        Make/O/D smear_coef_fuzz = {0.01,60,0.2,10,1e-6,3e-6,1,50,0.001}                                         
    58         make/o/t smear_parameters_fuzz = {"Volume Fraction (scale)","mean radius (A)","polydisp (sig/avg)","interface thickness (A)","SLD sphere (A-2)","SLD solvent (A-2)","Lorentz Scale","Lorentz length","bkg (cm-1 sr-1)"}  
     58        make/o/t smear_parameters_fuzz = {"Volume Fraction (scale)","mean radius (A)","polydisp (sig/avg)","interface thickness (A)","SLD sphere (A-2)","SLD solvent (A-2)","Lorentz Scale","Lorentz length (A)","bkg (cm-1 sr-1)"}      
    5959        Edit smear_parameters_fuzz,smear_coef_fuzz                                       
    6060         
  • sans/Dev/trunk/NCNR_User_Procedures/Common/NIST_XML_v40.ipf

    r670 r690  
    175175                                                                        ErrorBars/T=0 $w1 Y,wave=($w2,$w2) 
    176176                                                                        ModifyGraph tickUnit(left)=1 
     177                                                                        Label left "I(q)" 
     178                                                                        Label bottom "q (A\\S-1\\M)" 
    177179                                                                        Legend 
    178180                                                                endif 
     
    184186                                                                ErrorBars/T=0 $w1 Y,wave=($w2,$w2) 
    185187                                                                ModifyGraph tickUnit(left)=1 
     188                                                                Label left "I(q)" 
     189                                                                Label bottom "q (A\\S-1\\M)" 
    186190                                                                Legend 
    187191                                                        endif 
     
    302306                                                                ErrorBars/T=0 $w1 Y,wave=($w2,$w2) 
    303307                                                                ModifyGraph tickUnit(left)=1 
     308                                                                Label left "I(q)" 
     309                                                                Label bottom "q (A\\S-1\\M)" 
    304310                                                                Legend 
    305311                                                        endif 
     
    311317                                                        ErrorBars/T=0 $w1 Y,wave=($w2,$w2) 
    312318                                                        ModifyGraph tickUnit(left)=1 
     319                                                        Label left "I(q)" 
     320                                                        Label bottom "q (A\\S-1\\M)" 
    313321                                                        Legend 
    314322                                                endif 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/USANS/WriteUSANSData.ipf

    r669 r690  
    254254        Endif 
    255255         
     256        //write out partial set? 
     257        // duplicate the original data, all 3 waves 
     258        Duplicate/O qvals,tq,ti,te 
     259        ti=inten 
     260        te=sig 
     261        if( (lo!=hi) && (lo<hi)) 
     262                redimension/N=(hi-lo+1) tq,ti,te,dumWave                //lo to hi, inclusive 
     263                tq=qvals[p+lo] 
     264                ti=inten[p+lo] 
     265                te=sig[p+lo] 
     266        endif 
     267         
    256268        //Data 
    257         Wave nf.Q = qvals 
     269        Wave nf.Q = tq 
    258270        nf.unitsQ = "1/A" 
    259         Wave nf.I = inten 
     271        Wave nf.I = ti 
    260272        nf.unitsI = "1/cm" 
    261         Wave nf.Idev = sig 
     273        Wave nf.Idev = te 
    262274        nf.unitsIdev = "1/cm" 
    263275        // for slit-smeared USANS, set only a 4th column to  -dQv 
     
    268280        //fprintf refnum,"FILE: %s\t\t CREATED: %s\r\n",textw[0],textw[1] 
    269281         
    270                 //tailor the output given the type of data written out... 
     282        //tailor the output given the type of data written out... 
    271283        WAVE inten_EMP=$(USANSFolder+":EMP:DetCts") 
    272284        String samStr="",empStr="",dateStr="",samLabelStr="",paramStr="",empLevStr="",bkgLevStr="" 
     
    309321         
    310322        //AJJ to fix with sensible values 
    311         nf.run = "Test" 
     323        nf.run = "" 
    312324        nf.nameSASinstrument = "BT5 USANS" 
    313325        nf.SASnote = "" 
Note: See TracChangeset for help on using the changeset viewer.