Changeset 70 for sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/Schematic.ipf

Timestamp:

Mar 29, 2007 4:02:33 PM (16 years ago)

Author:

srkline

Message:

more file adjustments to clean out NCNR bits

File:

• sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/Schematic.ipf (modified) (3 diffs)

sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/Schematic.ipf

@@ -107 +107 @@
         //attenuators used in sample measurement
 
-        text23 = "SAM Attenuator = "+num2str($"root:SAM:RealsRead"[3])
+        text23 = "SAM Attenuator = "+GetAttenNum("SAM")
         
         text11 = "Final 1-D Dataset"
@@ -438 +438 @@
         //attenuators used in sample measurement
 
-        text23 = "SAM Attenuator = "+num2str($"root:SAM:RealsRead"[3])
+        text23 = "SAM Attenuator = "+GetAttenNum("SAM")
         
         text11 = "Final 1-D Dataset"
@@ -617 +617 @@
 
 End
+
+
+//returns a string containg the transmision stored in the file that is 
+//currently in the "type" folder (not from the binary header)
+//returns "none" if the value (in RealsRead) cannot be found
+//
+Function/S GetTrans(type)
+        String type
+        
+        String name="root:"+type+":realsread"
+        WAVE reals = $name
+        if(waveExists(reals))
+                return(num2str(reals[4]))
+        else
+                return("none")
+        endif   
+End
+
+//returns a string containg the sample thickness stored in the file that is 
+//currently in the "type" folder (not from the binary header)
+//returns "none" if the value (in RealsRead) cannot be found
+//
+Function/S GetThick(type)
+        String type
+        
+        String name="root:"+type+":realsread"
+        WAVE reals = $name
+        if(waveExists(reals))
+                return(num2str(reals[5]))
+        else
+                return("none")
+        endif   
+End
+
+//returns a string containg the sample thickness stored in the file that is 
+//currently in the "type" folder (not from the binary header)
+//returns "none" if the value (in RealsRead) cannot be found
+//
+Function/S GetAttenNum(type)
+        String type
+        
+        String name="root:"+type+":realsread"
+        WAVE reals = $name
+        if(waveExists(reals))
+                return(num2str(reals[3]))
+        else
+                return("none")
+        endif   
+End