Changeset 797 for sans/Dev/trunk/NCNR_User_Procedures
- Timestamp:
- Apr 8, 2011 12:58:26 PM (12 years ago)
- Location:
- sans/Dev/trunk/NCNR_User_Procedures
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
sans/Dev/trunk/NCNR_User_Procedures/Common/GaussUtils_v40.ipf
r794 r797 810 810 if (va<0) 811 811 va=0 //to avoid numerical error when va<0 (-ve q-value) 812 Print "truncated Gaussian at nominal q = ",x812 // Print "truncated Gaussian at nominal q = ",x 813 813 endif 814 814 vb = 3*i_sigq + i_qbar … … 906 906 endif 907 907 908 //answer = Smear_Model_N(fcn,w,x,resW,weightW,abscissW,nord)909 Smear_Model_N_AAO(fcn,w,x,resW,weightW,abscissW,nord,answer)908 answer = Smear_Model_N(fcn,w,x,resW,weightW,abscissW,nord) 909 // Smear_Model_N_AAO(fcn,w,x,resW,weightW,abscissW,nord,answer) 910 910 911 911 Return (0) … … 956 956 endif 957 957 958 //answer = Smear_Model_N(fcn,w,x,resW,weightW,abscissW,nord)959 Smear_Model_N_AAO(fcn,w,x,resW,weightW,abscissW,nord,answer)958 answer = Smear_Model_N(fcn,w,x,resW,weightW,abscissW,nord) 959 // Smear_Model_N_AAO(fcn,w,x,resW,weightW,abscissW,nord,answer) 960 960 961 961 Return (0) … … 1012 1012 endif 1013 1013 1014 //answer = Smear_Model_N(fcn,w,x,resW,weightW,abscissW,nord)1015 Smear_Model_N_AAO(fcn,w,x,resW,weightW,abscissW,nord,answer)1014 answer = Smear_Model_N(fcn,w,x,resW,weightW,abscissW,nord) 1015 // Smear_Model_N_AAO(fcn,w,x,resW,weightW,abscissW,nord,answer) 1016 1016 1017 1017 Return (0) … … 1060 1060 endif 1061 1061 1062 //answer = Smear_Model_N(fcn,w,x,resW,weightW,abscissW,nord)1063 Smear_Model_N_AAO(fcn,w,x,resW,weightW,abscissW,nord,answer)1062 answer = Smear_Model_N(fcn,w,x,resW,weightW,abscissW,nord) 1063 // Smear_Model_N_AAO(fcn,w,x,resW,weightW,abscissW,nord,answer) 1064 1064 1065 1065 Return (0) … … 1612 1612 // provides some speedup. 1613 1613 // 1614 // 1615 // 1616 // "backwards" wrapped to reduce redundant code 1617 // there are only 4 choices of N (5,10,20,76) for smearing 1614 //// APRIL 2011 *** this function is NOT YET CURSOR-AWARE. This needs to be addressed before it can be used 1618 1615 // 1619 1616 // -
sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/WriteQIS.ipf
r794 r797 817 817 //********************* 818 818 819 // // generate my own error wave for I(qx,qy) 819 // generate my own error wave for I(qx,qy) 820 // // sw = 0.05*sw // uniform 5% error? tends to favor the low intensity too strongly 821 // after teh SQRT(), get rid of the "bad" errors by replacing the NaN, Inf, and zero with V_avg 822 // THIS IS EXTREMEMLY IMPORTANT - if this is not done, there are some "bad" values in the 823 // error wave (things that are not numbers) - and this wrecks the smeared model fitting. 824 // It appears to have no effect on fitting with the unsmeared model. 820 825 // Duplicate/O z_val sw 821 // sw = sqrt(z_val) //assumes Poisson statistics for each cell (counter) 822 // // sw = 0.05*sw // uniform 5% error? tends to favor the low intensity too strongly 823 // // get rid of the "bad" errorsby replacing the NaN, Inf, and zero with V_avg 824 // // THIS IS EXTREMEMLY IMPORTANT - if this is not done, there are some "bad" values in the 825 // // error wave (things that are not numbers) - and this wrecks the smeared model fitting. 826 // // It appears to have no effect on the unsmeared model. 826 // sw = sqrt(z_val) //assumes Poisson statistics for each cell (counter) - which is wrong, since this is corrected data 827 // 827 828 // WaveStats/Q sw 828 829 // sw = numtype(sw[p]) == 0 ? sw[p] : V_avg 829 830 // sw = sw[p] != 0 ? sw[p] : V_avg 830 831 // now use the properly propagated 2D error 831 832 833 // // April 2011 -- now use the properly propagated 2D error 832 834 Duplicate/O data_err sw 833 835 Redimension/N=(pixelsX*pixelsY) sw
Note: See TracChangeset
for help on using the changeset viewer.