Ignore:
Timestamp:
Mar 29, 2007 4:02:33 PM (16 years ago)
Author:
srkline
Message:

more file adjustments to clean out NCNR bits

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/Schematic.ipf

    r41 r70  
    107107        //attenuators used in sample measurement 
    108108 
    109         text23 = "SAM Attenuator = "+num2str($"root:SAM:RealsRead"[3]) 
     109        text23 = "SAM Attenuator = "+GetAttenNum("SAM") 
    110110         
    111111        text11 = "Final 1-D Dataset" 
     
    438438        //attenuators used in sample measurement 
    439439 
    440         text23 = "SAM Attenuator = "+num2str($"root:SAM:RealsRead"[3]) 
     440        text23 = "SAM Attenuator = "+GetAttenNum("SAM") 
    441441         
    442442        text11 = "Final 1-D Dataset" 
     
    617617 
    618618End 
     619 
     620 
     621//returns a string containg the transmision stored in the file that is  
     622//currently in the "type" folder (not from the binary header) 
     623//returns "none" if the value (in RealsRead) cannot be found 
     624// 
     625Function/S GetTrans(type) 
     626        String type 
     627         
     628        String name="root:"+type+":realsread" 
     629        WAVE reals = $name 
     630        if(waveExists(reals)) 
     631                return(num2str(reals[4])) 
     632        else 
     633                return("none") 
     634        endif    
     635End 
     636 
     637//returns a string containg the sample thickness stored in the file that is  
     638//currently in the "type" folder (not from the binary header) 
     639//returns "none" if the value (in RealsRead) cannot be found 
     640// 
     641Function/S GetThick(type) 
     642        String type 
     643         
     644        String name="root:"+type+":realsread" 
     645        WAVE reals = $name 
     646        if(waveExists(reals)) 
     647                return(num2str(reals[5])) 
     648        else 
     649                return("none") 
     650        endif    
     651End 
     652 
     653//returns a string containg the sample thickness stored in the file that is  
     654//currently in the "type" folder (not from the binary header) 
     655//returns "none" if the value (in RealsRead) cannot be found 
     656// 
     657Function/S GetAttenNum(type) 
     658        String type 
     659         
     660        String name="root:"+type+":realsread" 
     661        WAVE reals = $name 
     662        if(waveExists(reals)) 
     663                return(num2str(reals[3])) 
     664        else 
     665                return("none") 
     666        endif    
     667End 
Note: See TracChangeset for help on using the changeset viewer.