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

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

Changed 2D model calculations to use a FIXED 25 integration points in an effort to get the number of integration points out of the fitting coefficient wave.

Added "Freeze Model" back to the SANS Models menu

Added the 2D model functions to the list on the model picker

Minor tweaks to the wrapper

File size: 1.6 KB
1#pragma rtGlobals=1             // Use modern global access method.
2#pragma version=3.01
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"                      version>=3.00
13//utility procedures
14#include "GaussUtils"                           version>=3.00
15#include "PlotUtilsMacro"                       version>=3.00
16#include "PlotManager"                          version>=3.00
18#include "Wrapper"
19#include "PlotUtils2D"
20#include "GizmoCylinder"
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        "Freeze Model"
27        "Write Model Data"
28        "-"
29        Submenu "Packages"
30                "Sum Two Models",Execute/P "INSERTINCLUDE \"SumSANSModels\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Init_SumModelPanel()"
31                "Global Fitting",Execute/P "INSERTINCLUDE \"GlobalFit2_NCNR\"";Execute/P "COMPILEPROCEDURES ";Execute/P "WM_NewGlobalFit1#InitNewGlobalFitPanel()"
32                "Determine Invariant",Execute/P "INSERTINCLUDE \"Invariant\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Make_Invariant_Panel()"
33                "Do Linear Fits",Execute/P "INSERTINCLUDE \"LinearizedFits\"";Execute/P "COMPILEPROCEDURES ";Execute/P "A_OpenFitPanel()"
34        End
35        "-"
36        "Feedback or Bug Report",OpenTracTicketPage()
39Function OpenTracTicketPage()
40        DoAlert 1,"Your web broser will open to a page where you can submit your bug report or feature request. OK?"
41        if(V_flag==1)
42                BrowseURL ""
43        endif
Note: See TracBrowser for help on using the repository browser.