source: sans/Dev/trunk/NCNR_User_Procedures/Analysis/SA_includes_v400.ipf @ 495

Last change on this file since 495 was 495, checked in by srkline, 13 years ago

Added a procedure file that does the necessary wrapping for GenCurveFit?, since it's not a perfect drop-in replacement for FuncFit?. Required modification of the FitWrapper? to switch to GenCurveFit? as needed.
Switch between regular L-M and GenOp? using a menu item.a (sets a gobal)
Still ridiculously slow to use.
Can't yet be used with global fitting. Would be a real pain to implement. Can't imagine how slow that would be to use...

Bug fixes in PatchFiles? (default button for filter type) and Correct (use tolerance of +/- 0.01 pixel for determining of what is a "mismatch" of the beam centers. Problem cropped up with ICE, but should be fixed anyways)

File size: 2.8 KB
1#pragma rtGlobals=1             // Use modern global access method.
2#pragma version=4.0
3#pragma IgorVersion=6.0
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
11//always include the picker
12#include "SANSModelPicker_v40"                  version>=4.00
13//utility procedures
14#include "GaussUtils_v40"                               version>=4.00
15#include "NIST_XML_V40"                                 //added September 2008
16#include "PlotUtilsMacro_v40"                   version>=4.00
17#include "PlotManager_v40"                              version>=4.00
18#include "NCNR_GenFitUtils"                     // April 2009, compiles OK if XOP not present
20#include "USANS_SlitSmearing_v40"
21#include "WriteModelData_v40"
22#include "Wrapper_v40"
23#include "PlotUtils2D_v40"
24#include "GizmoCylinder_v40"
26#include "CheckVersionFTP"                              //added June 2008
29Menu "SANS Models"
30        "Fit Manager", Init_WrapperPanel()
31        "Load Model Functions",Execute/P "INSERTINCLUDE \"SANSModelPicker_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "ModelPicker_Panel()"
32        "Load and Plot Manager", Show_Plot_Manager()
33        "Freeze Model"
34        "Write Model Data"
35        "-"
36        Submenu "Packages"
37                "Sum Two Models",Execute/P "INSERTINCLUDE \"SumSANSModels_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Init_SumModelPanel()"
38                "Global Fitting",Execute/P "INSERTINCLUDE \"GlobalFit2_NCNR_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "WM_NewGlobalFit1#InitNewGlobalFitPanel()"
39                "Simple Global Fitting",Execute/P "INSERTINCLUDE \"GlobalFit2_NCNR_v40\"";Execute/P "INSERTINCLUDE \"SimpleGlobalFit_NCNR_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Init_SimpleGlobalFit()"
40                "Determine Invariant",Execute/P "INSERTINCLUDE \"Invariant_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Make_Invariant_Panel()"
41                "Do Linear Fits",Execute/P "INSERTINCLUDE \"LinearizedFits_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "A_OpenFitPanel()"
42                GenOpFlagEnable()+"Genetic Optimization Enabled", Init_GenOp()
43                GenOpFlagDisable()+"Genetic Optimization Disabled", UnSet_GenOp()
44        End
45        "-"
46        Submenu "2D Utilities"
47                "Generate Fake QxQy Data",FakeQxQy()
48                "Show Cylinder Orientation"
49                "Change Angle"
50        end
51        "-"
52        "Feedback or Bug Report",OpenTracTicketPage()
53        "Open Help Movie Page",OpenHelpMoviePage()
54        "Check for Updates",CheckForLatestVersion()
57Function OpenTracTicketPage()
58        DoAlert 1,"Your web browser will open to a page where you can submit your bug report or feature request. OK?"
59        if(V_flag==1)
60                BrowseURL ""
61        endif
64Function OpenHelpMoviePage()
65        DoAlert 1,"Your web browser will open to a page where you can view help movies. OK? (You must have QuickTime installed)"
66        if(V_flag==1)
67                BrowseURL ""
68                // Andrew has set up a http page too. Try to use this in the future
69                //BrowseURL ""
70        endif
Note: See TracBrowser for help on using the repository browser.