Changeset 144


Ignore:
Timestamp:
Aug 14, 2007 3:40:40 PM (15 years ago)
Author:
srkline
Message:

Changed Gauss Utils to use double precision in quadrature

Location:
sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files
Files:
3 edited

Legend:

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

    r132 r144  
    6161EndStructure 
    6262 
    63 Function/S getHoldStr() 
    64  
    65         String str="0010" 
    66         return str 
    67 End 
    68  
    6963// utility used in the "PlotSmeared...() macros to get a list of data folders 
    7064// 
     
    8983                index += 1 
    9084        while(1) 
     85         
     86        // remove myGlobals from the folder list 
     87        if(type==4) 
     88                str = RemoveFromList("myGlobals", str , ";" ) 
     89        endif 
    9190         
    9291        return(str) 
     
    653652        // returned from the interpolation (as expected) 
    654653 
    655         Make/O/N=(DimSize(resW, 0)) sigQ,qbar,shad,qvals 
     654        Make/O/D/N=(DimSize(resW, 0)) sigQ,qbar,shad,qvals 
    656655        sigq = resW[p][0]               //std dev of resolution fn 
    657656        qbar = resW[p][1]               //mean q-value 
     
    684683                ii=0                    // loop counter 
    685684                // do the calculation as a single pass w/AAO function 
    686                 Make/O/N=(nord) Resoln,yyy,xGauss 
     685                Make/O/D/N=(nord) Resoln,yyy,xGauss 
    687686                do 
    688687                        // calculate Gauss points on integration interval (q-value for evaluation) 
     
    904903         
    905904        Print "in SANSModelAAO_proto function" 
     905        return(1) 
     906end 
     907 
     908// prototype function for fit wrapper 
     909// it intentionally does nothing 
     910Function SANSModelSTRUCT_proto(s) 
     911        Struct ResSmearAAOStruct &s      
     912 
     913        Print "in SANSModelSTRUCT_proto function" 
    906914        return(1) 
    907915end 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/Sphere.ipf

    r138 r144  
    199199        // ?? how can I get the hold string in correctly?? - from a global? - no, as string function 
    200200        // 
    201         FuncFit/H=getHoldStr() /NTHR=0 SmearedSphereForm cw, yw /X=xw /W=sw /I=1 /D=$(DF+"FitYw") /STRC=fs 
     201        FuncFit/H=getHoldStr() /NTHR=0 SmearedSphereForm, cw, yw /X=xw /W=sw /I=1 /STRC=fs 
     202//      FuncFit/H=getHoldStr() /NTHR=0 SphereForm cw, yw /X=xw /W=sw /I=1 /D=$(DF+"FitYw") 
    202203 
    203204//      FuncFit/H="0010"/NTHR=0 SmearedSphereForm cw, yw /X=xw /W=sw /I=1 /D=$(DF+"FitYw") /STRC=fs 
    204                  
    205         AppendToGraph $(DF+"FitYw") vs xw  
     205        Wave fityw =  $(DF+"FitYw") 
     206        fs.yW = fityw 
     207        SmearedSphereForm(fs) 
     208        AppendToGraph fityw vs xw  
    206209         
    207210        print "V_chisq = ",V_chisq 
     
    212215        return(0) 
    213216End 
     217 
     218Function/S getHoldStr() 
     219 
     220        String str="0010" 
     221        return str 
     222End 
Note: See TracChangeset for help on using the changeset viewer.