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

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

Change (1):
In preparation for release, updated pragma IgorVersion?=6.1 in all procedures

Change (2):
As a side benefit of requiring 6.1, we can use the MultiThread? keyword to thread any model function we like. The speed benefit is only noticeable on functions that require at least one integration and at least 100 points (resolution smearing is NOT threaded, too many threadSafe issues, too little benefit). I have chosen to use the MultiThread? only on the XOP assignment. In the Igor code there are too many functions that are not explicitly declared threadsafe, making for a mess.

File size: 2.9 KB
1#pragma rtGlobals=1             // Use modern global access method.
2#pragma version=4.0
3#pragma IgorVersion=6.1
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        "ReWrite Experimental Data",ReWrite1DData()
36        "-"
37        Submenu "Packages"
38                "Sum Two Models",Execute/P "INSERTINCLUDE \"SumSANSModels_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Init_SumModelPanel()"
39                "Global Fitting",Execute/P "INSERTINCLUDE \"GlobalFit2_NCNR_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "WM_NewGlobalFit1#InitNewGlobalFitPanel()"
40                "Simple Global Fitting",Execute/P "INSERTINCLUDE \"GlobalFit2_NCNR_v40\"";Execute/P "INSERTINCLUDE \"SimpleGlobalFit_NCNR_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Init_SimpleGlobalFit()"
41                "Determine Invariant",Execute/P "INSERTINCLUDE \"Invariant_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Make_Invariant_Panel()"
42                "Do Linear Fits",Execute/P "INSERTINCLUDE \"LinearizedFits_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "A_OpenFitPanel()"
43                GenOpFlagEnable()+"Genetic Optimization Enabled", Init_GenOp()
44                GenOpFlagDisable()+"Genetic Optimization Disabled", UnSet_GenOp()
45        End
46        "-"
47        Submenu "2D Utilities"
48                "Generate Fake QxQy Data",FakeQxQy()
49                "Show Cylinder Orientation"
50                "Change Angle"
51        end
52        "-"
53        "Feedback or Bug Report",OpenTracTicketPage()
54        "Open Help Movie Page",OpenHelpMoviePage()
55        "Check for Updates",CheckForLatestVersion()
58Function OpenTracTicketPage()
59        DoAlert 1,"Your web browser will open to a page where you can submit your bug report or feature request. OK?"
60        if(V_flag==1)
61                BrowseURL ""
62        endif
65Function OpenHelpMoviePage()
66        DoAlert 1,"Your web browser will open to a page where you can view help movies. OK? (You must have QuickTime installed)"
67        if(V_flag==1)
68                BrowseURL ""
69                // Andrew has set up a http page too. Try to use this in the future
70                //BrowseURL ""
71        endif
Note: See TracBrowser for help on using the repository browser.