Ignore:
Timestamp:
Jun 20, 2017 3:17:19 PM (5 years ago)
Author:
srkline
Message:

event mode processing - splitting the binned data into 4 panels, speedup of binning, display of split panels.

fitting routines for fitting 5 peaks for nonlinear corrections.

all needs to documented, then expanded

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_TubeAdjustments.ipf

    r1024 r1047  
    8585End 
    8686 
     87Proc V_ArrayToTubes(wStr) 
     88        String wStr 
     89         
     90        Variable ii,numTubes=48 
     91        String str="tube" 
     92         
     93        Variable dim0,dim1 
     94        dim0 = DimSize($wStr,0) 
     95        dim1 = DimSize($wStr,1) 
     96         
     97        Make/O/D/N=128 tube_pixel 
     98        tube_pixel = p 
     99         
     100         
     101        ii=0 
     102        do 
     103                Make/O/D/N=128 $(str+num2str(ii)) 
     104                 
     105                if(dim0 == 128) 
     106                        $(str+num2str(ii)) = $(wStr)[p][ii] 
     107                else 
     108                        $(str+num2str(ii)) = $(wStr)[ii][p] 
     109                endif 
     110                 
     111                ii+=1 
     112        while(ii < numTubes) 
     113 
     114End 
     115 
     116 
    87117// (2) -- for each of the tubes, find the x-position (in pixels) of each of the (20) peaks 
    88118// -- load the Analysis Package "MultiPeakFit 2" 
     
    114144Proc V_Identify_AllPeaks() 
    115145 
    116         Variable ii,numTubes=8 
     146        Variable ii,numTubes=48 
    117147        String str="tube" 
    118148         
    119         ii=1 
    120         do 
    121                 V_Identify_Peaks(str+num2str(ii),ii-1) 
    122                 ii+=1 
    123         while(ii<=numTubes) 
     149        ii=0 
     150        do 
     151                V_Identify_Peaks(str+num2str(ii),ii) 
     152                ii+=1 
     153        while(ii < numTubes) 
    124154 
    125155End 
     
    197227Proc V_PlotFit_AllPeaks() 
    198228 
    199         Variable ii,numTubes=8 
    200          
    201         ii=1 
    202         do 
    203                 V_PlotFit_Peaks(ii-1) 
    204                 ii+=1 
    205         while(ii<=numTubes) 
     229        Variable ii,numTubes=48 
     230         
     231        ii=0 
     232        do 
     233                V_PlotFit_Peaks(ii) 
     234                ii+=1 
     235        while(ii<numTubes) 
    206236 
    207237End 
Note: See TracChangeset for help on using the changeset viewer.