- Timestamp:
- Jul 7, 2009 6:33:13 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
sans/Dev/trunk/NCNR_User_Procedures/Analysis/Models/DAB_model_v40.ipf
r510 r533 5 5 // C. Glinka, 11-22-98 6 6 //////////////// 7 8 // SRK 6 JUL 2009 - converted the definition of the scale factor (A) to be 9 // independent of the correlation length. Changed the Igor, XOP, and documentation 7 10 8 11 … … 18 21 Make/O/D/n=(num) xwave_DAB, ywave_DAB 19 22 xwave_DAB = alog(log(qmin) + x*((log(qmax)-log(qmin))/num)) 20 Make/O/D coef_DAB = { 10.0, 40, 1.0}23 Make/O/D coef_DAB = {0.00015625, 40, 1.0} 21 24 make/o/t parameters_DAB = {"Scale Factor, A ", "Correlation Length (A)", "Incoherent Bgd (cm-1)"} 22 25 Edit parameters_DAB, coef_DAB … … 48 51 49 52 // Setup parameter table for model function 50 Make/O/D smear_coef_DAB = { 10.0, 40, 1.0} //model coef values to match unsmeared model above53 Make/O/D smear_coef_DAB = {0.00015625, 40, 1.0} //model coef values to match unsmeared model above 51 54 make/o/t smear_parameters_DAB = {"Scale Factor, A ", "Correlation Length (A)", "Incoherent Bgd (cm-1)"}// parameter names 52 55 Edit smear_parameters_DAB,smear_coef_DAB //display parameters in a table … … 82 85 End 83 86 87 // Izero is really now scale*range^3 88 // 84 89 Function fDAB_model(w,x) : FitFunc 85 90 Wave w … … 100 105 // do the calculation and return the function value 101 106 102 inten = Izero/(1 + (qval*range)^2)^2 + incoh107 inten = (Izero*range^3)/(1 + (qval*range)^2)^2 + incoh 103 108 Return (inten) 104 109 End
Note: See TracChangeset
for help on using the changeset viewer.