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

Changed Gauss Utils to use double precision in quadrature

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.