Changeset 47 for sans/SANSReduction/trunk/Put in User Procedures/SANS_Reduction_v5.00/CircSectAve.ipf

Timestamp:

Feb 6, 2007 3:58:38 PM (16 years ago)

Author:

srkline

Message:

bug fixes and performance tweaks

File:

• sans/SANSReduction/trunk/Put in User Procedures/SANS_Reduction_v5.00/CircSectAve.ipf (modified) (4 diffs)

sans/SANSReduction/trunk/Put in User Procedures/SANS_Reduction_v5.00/CircSectAve.ipf

@@ -104 +104 @@
         //
         //pixels within rcentr of beam center are broken into 9 parts (units of mm)
-        rcentr = 100
+        rcentr = 100            //original
+//      rcentr = 0
         // values for error if unable to estimate value
         //large_num = 1e10
@@ -299 +300 @@
                 else
                         //large arg, exact correction
-                        aveint[ii] *= uval*arg/(1-exp(-uval*arg))
+                        aveint[ii] /= (1-exp(-uval*arg))/(uval*arg)
                 endif
                 ii+=1
@@ -392 +393 @@
         //get rid of the default mask, if one was created (it is in the current folder)
         //don't just kill "mask" since it might be pointing to the one in the MSK folder
-        Killwaves/z $(destPath+":mask")
+        Killwaves/Z $(destPath+":mask")
         
         //return to root folder (redundant)
@@ -423 +424 @@
 //function determines azimuthal angle dphi that a vector connecting
 //center of detector to pixel makes with respect to vector
-//at chosen azimuthal angle phi -> [cos(phi),sin(phi0] = [phi_x,phi_y]
+//at chosen azimuthal angle phi -> [cos(phi),sin(phi)] = [phi_x,phi_y]
 //dphi is always positive, varying from 0 to Pi
 //