source: sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/SA_includes_v301.ipf @ 198

Last change on this file since 198 was 198, checked in by srkline, 15 years ago

Adding three new 2D functions, the easy ones that use a Gaussian distribution of parameters.

Changed the parsing of constraints to only build a constraint wave for those parameters that are not being held. failing to do so results in an "unknown error" from curve fitting. This fix was done in both the 1D and 2D wrappers.

Changed the default mask that was two pixels all around to now mask out the beamstop for 2D data sets. 8 pixel radius is currently hard-wired in PlotUtils2D - and is generated as the fit is dispatched, automatically determining the beam center from the data set.

File size: 1.6 KB
Line 
1#pragma rtGlobals=1             // Use modern global access method.
2#pragma version=3.01
3#pragma IgorVersion=6.0
4
5//*************
6// the list of files to include in the SANS reduction experiment
7//  - files must be located somewhere in the User Procedures folder
8// or sub-folders
9//
10
11//always include the picker
12#include "SANSModelPicker"                      version>=3.00
13//utility procedures
14#include "GaussUtils"                           version>=3.00
15#include "PlotUtilsMacro"                       version>=3.00
16#include "PlotManager"                          version>=3.00
17
18#include "Wrapper"
19#include "PlotUtils2D"
20#include "GizmoCylinder"
21
22Menu "SANS Models"
23        "Fit Manager", Init_WrapperPanel()
24        "Load Model Functions",Execute/P "INSERTINCLUDE \"SANSModelPicker\"";Execute/P "COMPILEPROCEDURES ";Execute/P "ModelPicker_Panel()"
25        "Plot Manager", Show_Plot_Manager()
26        "Write Model Data"
27        "-"
28        Submenu "Packages"
29                "Sum Two Models",Execute/P "INSERTINCLUDE \"SumSANSModels\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Init_SumModelPanel()"
30                "Global Fitting",Execute/P "INSERTINCLUDE \"GlobalFit2_NCNR\"";Execute/P "COMPILEPROCEDURES ";Execute/P "WM_NewGlobalFit1#InitNewGlobalFitPanel()"
31                "Determine Invariant",Execute/P "INSERTINCLUDE \"Invariant\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Make_Invariant_Panel()"
32                "Do Linear Fits",Execute/P "INSERTINCLUDE \"LinearizedFits\"";Execute/P "COMPILEPROCEDURES ";Execute/P "A_OpenFitPanel()"
33        End
34        "-"
35        "Feedback or Bug Report",OpenTracTicketPage()
36End
37
38Function OpenTracTicketPage()
39        DoAlert 1,"Your web broser will open to a page where you can submit your bug report or feature request. OK?"
40        if(V_flag==1)
41                BrowseURL "http://danse.chem.utk.edu/trac/newticket"
42        endif
43End
Note: See TracBrowser for help on using the repository browser.