Changeset 713 for sans/Dev/trunk/NCNR_User_Procedures
 Timestamp:
 Jul 6, 2010 5:15:32 PM (13 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

sans/Dev/trunk/NCNR_User_Procedures/Analysis/Models/NewModels_2009/FuzzySpheres_v40.ipf
r690 r713 100 100 Variable scale,rad,pd,sig,rho,rhos,bkg,delrho,sig_surf,lor_sf,lor_len 101 101 Variable I0, L 102 I0 = w[0]103 L = w[1]102 //I0 = w[0] 103 //L = w[1] 104 104 105 105 //set up the coefficient values … … 246 246 return(retval) 247 247 End 248 249 Proc 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=rhorhos 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 275 End
Note: See TracChangeset
for help on using the changeset viewer.