Changeset 171


Ignore:
Timestamp:
Sep 28, 2007 12:57:32 PM (15 years ago)
Author:
srkline
Message:

Added PlotManager?.ipf (1st incarnation) to allow batch loading and plotting of data sets. Panel can be accessed from the macros menu.

PlotManager? is loaded as part of the Includes_3.01, and is completely stand-alone.

Needs some stress-testing.

Location:
sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/Packages/Wrapper.ipf

    r165 r171  
    3737Window WrapperPanel() 
    3838        PauseUpdate; Silent 1           // building window... 
    39         NewPanel /W=(459,44,1113,499)/N=wrapperPanel as "Curve Fit Setup" 
     39        NewPanel /W=(459,44,1113,499)/N=wrapperPanel/K=1 as "Curve Fit Setup" 
    4040         
    4141        GroupBox grpBox_0,pos={18,11},size={350,113} 
     
    716716        // need to manage duplicate copies 
    717717        // Don't plot the full curve if cursors were used (set fitYw to NaN on entry...) 
    718         String traces=TraceNameList("", ";", 1 ) 
     718        String traces=TraceNameList("", ";", 1 )                //"" as first parameter == look on the target graph 
    719719        if(strsearch(traces,"FitYw",0) == -1) 
    720                 AppendToGraph fitYw vs xw  
    721         endif 
     720                AppendToGraph FitYw vs xw 
     721        else 
     722                RemoveFromGraph FitYw 
     723                AppendToGraph FitYw vs xw 
     724        endif 
     725        ModifyGraph lsize(FitYw)=2,rgb(FitYw)=(0,0,0) 
    722726         
    723727        DoUpdate                //force update of table and graph with fitted values (why doesn't this work? - the table still does not update) 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/SA_includes_v301.ipf

    r157 r171  
    1414#include "GaussUtils"                           version>=3.00 
    1515#include "PlotUtilsMacro"                       version>=3.00 
     16#include "PlotManager"                          version>=3.00 
    1617 
    1718#include "Wrapper" 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/USANS_SlitSmearing.ipf

    r162 r171  
    3737        Wave weights = $(basestr+"_res") 
    3838 
    39         Variable/G USANS_m = EnterSlope() 
     39        Variable/G USANS_m = EnterSlope(baseStr) 
    4040 
     41        if (USANS_m == 999) 
     42                KillWaves/Z  $(basestr+"_res"),W1Mat,W2mat,Rmat 
     43                return(1) 
     44        endif 
     45         
    4146        Variable tref = startMSTimer 
    4247        print "Calculating W1..." 
     
    5560 
    5661// This is far from satisfactory! 
    57 Function EnterSlope() 
     62Function EnterSlope(baseStr) 
     63        String baseStr 
    5864         
    5965        Variable slope=-4 
    6066 
    61         Prompt slope "Enter a slope" 
     67        Prompt slope "Enter a slope for the file \""+ baseStr + "\"" 
    6268        DoPrompt "Enter Slope", slope 
    6369                If (V_Flag) 
Note: See TracChangeset for help on using the changeset viewer.