Ignore:
Timestamp:
Nov 2, 2015 10:28:35 AM (7 years ago)
Author:
srkline
Message:

intermediate changes to the VSANS r/w routines, a utility for processing ISO8601 dates, and some testing procedures for working with the banks of tubes.

File:
1 edited

Legend:

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

    r964 r965  
    3232//      FillMatrix_Pix_Center(ind) 
    3333// 
     34// 
     35// -or- (note that the pack_image wave that is generated here is for display ONLY) 
     36// --since it is interpolated 
     37// 
     38// Interpolate_mm_tubes() 
     39 
    3440 
    3541// The function most used externally is: 
     
    414420 
    415421 
    416  
    417  
    418  
    419  
    420  
     422// set the (linear) range of the y-axis of the matrix to be the 
     423// range of the 1st tube. This is completely arbitrary 
     424// 
     425Proc Interpolate_mm_tubes() 
     426 
     427        Duplicate/O pack pack_image 
     428 
     429        Variable ii,numTubes=8 
     430        Variable p1,p2 
     431        p1 = tube1_mm[0] 
     432        p2 = tube1_mm[numpnts(tube1_mm)-1] 
     433         
     434        SetScale/I y p1,p2,"", pack_image 
     435         
     436        // then make a temporary 1D wave to help with the interpolation 
     437        Duplicate/O tube1_mm lin_mm,lin_val 
     438        SetScale/I x p1,p2,"", lin_mm 
     439        lin_mm = x                      //fill with the linear mm spacing 
     440        lin_val=0 
     441         
     442        ii=1 
     443        do 
     444                lin_val = interp(lin_mm, $("tube"+num2str(ii)+"_mm"), $("tube"+num2str(ii))) 
     445                pack_image[ii-1][] = lin_val[q] 
     446                 
     447                ii+=1 
     448        while(ii<=numTubes) 
     449         
     450        display;appendimage pack_image 
     451        ModifyImage pack_image ctab= {*,*,ColdWarm,0} 
     452         
     453End 
    421454 
    422455 
Note: See TracChangeset for help on using the changeset viewer.