Ignore:
Timestamp:
Nov 15, 2007 11:27:16 AM (15 years ago)
Author:
srkline
Message:

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:
1 edited

Legend:

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

    r198 r200  
    148148        list = RemoveFromList("WM_Make3DBarChartParametricWave", list) 
    149149        list = RemoveFromList("UpdateQxQy2Mat", list) 
     150        list = RemoveFromList("MakeBSMask", list) 
    150151         
    151152 
     
    290291                        // farm the work out to another function? 
    291292                        Variable num=numpnts($popStr) 
    292                         // make the necessary waves 
    293                         Make/O/D/N=(num) $("epsilon_"+suffix),$("Hold_"+suffix) 
    294                         Make/O/T/N=(num) $("LoLim_"+suffix),$("HiLim_"+suffix) 
    295                          
     293                        // make the necessary waves if they don't exist already 
     294                        if(exists("Hold_"+suffix) == 0) 
     295                                Make/O/D/N=(num) $("epsilon_"+suffix),$("Hold_"+suffix) 
     296                                Make/O/T/N=(num) $("LoLim_"+suffix),$("HiLim_"+suffix) 
     297                        endif 
    296298                        // default epsilon values, sometimes needed for the fit 
    297299                        Wave eps = $("epsilon_"+suffix) 
     
    300302                        WAVE/T LoLim = $("LoLim_"+suffix) 
    301303                        WAVE/T HiLim = $("HiLim_"+suffix) 
    302                         LoLim = ""              //should have nicer way of keeping the previous values 
    303                         HiLim = "" 
    304304                         
    305305                        // clear the table (a subwindow) 
     
    409409        Variable useCursors,useEps,useConstr 
    410410         
     411        Variable killWhat=0             //kill nothing as default 
     412         
    411413        switch( ba.eventCode ) 
    412414                case 2: // mouse up 
     
    426428                                        sprintf cmdStr, "Plot%s(\"%s\",)",funcStr,folderStr             //yes RPA, leave a comma for input 
    427429                                endif 
     430                                killWhat = 1 
    428431                        else 
    429                                 // it's not,                     
     432                                // it's not,    don't kill the graph, just the table             
    430433                                sprintf cmdStr, "Plot%s()",funcStr 
     434                                killWhat = 2 
    431435                        endif 
    432436                         
     
    441445                        Function_PopMenuProc(pa) 
    442446         
     447                        KillTopGraphAndTable(killWhat)          // crude 
     448         
    443449                        break 
    444450        endswitch 
    445451         
    446452        return 0 
     453End 
     454 
     455// passing 0 kills nothing 
     456// passing 1 kills the top graph and table 
     457// passing 2 kills the top table only 
     458// 
     459Function KillTopGraphAndTable(killwhat) 
     460        Variable killWhat 
     461         
     462        String topGraph= WinName(0,1)   //this is the topmost graph      
     463        String topTable= WinName(0,2)   //this is the topmost table 
     464 
     465        if(killWhat == 0) 
     466                return(0) 
     467        endif 
     468         
     469        if(killWhat == 1) 
     470                KillWindow $topGraph 
     471                KillWindow $topTable 
     472        endif 
     473         
     474        if(killWhat == 2) 
     475                KillWindow $topTable 
     476        endif 
     477         
     478        return(0) 
    447479End 
    448480 
Note: See TracChangeset for help on using the changeset viewer.