Ignore:
Timestamp:
Jul 6, 2010 5:15:32 PM (12 years ago)
Author:
ajj
Message:

Tweaks to FuzzySphere? model

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Analysis/Models/NewModels_2009/FuzzySpheres_v40.ipf

    r690 r713  
    100100        Variable scale,rad,pd,sig,rho,rhos,bkg,delrho,sig_surf,lor_sf,lor_len 
    101101        Variable I0, L 
    102         I0 = w[0] 
    103         L = w[1] 
     102        //I0 = w[0] 
     103        //L = w[1] 
    104104 
    105105        //set up the coefficient values 
     
    246246        return(retval) 
    247247End 
     248 
     249Proc PlotFuzzySphereSLD() 
     250 
     251        Variable scale,rad,pd,sig,rho,rhos,bkg,delrho,sig_surf,lor_sf,lor_len 
     252        Variable I0, L 
     253        scale=coef_fuzz[0] 
     254        rad=coef_fuzz[1] 
     255        pd=coef_fuzz[2] 
     256        sig=pd*rad 
     257        sig_surf = coef_fuzz[3] 
     258        rho=coef_fuzz[4] 
     259        rhos=coef_fuzz[5] 
     260        delrho=rho-rhos 
     261        I0 = coef_fuzz[6]               //for the Lorentzian 
     262        L = coef_fuzz[7] 
     263        bkg=coef_fuzz[8] 
     264 
     265        Make/O/N=1000 fuzzy_rwave 
     266        Make/O/N=1000 fuzzy_sldwave 
     267         
     268        fuzzy_rwave = p*(rad+4*sig_surf)/numpnts(fuzzy_rwave) 
     269         
     270         
     271        fuzzy_sldwave = erf(fuzzy_rwave) 
     272         
     273        Display fuzzy_sldwave vs fuzzy_rwave 
     274 
     275End 
Note: See TracChangeset for help on using the changeset viewer.