Changeset 713 for sans/Dev/trunk/NCNR_User_Procedures

Timestamp:

Jul 6, 2010 5:15:32 PM (13 years ago)

Author:

ajj

Message:

Tweaks to FuzzySphere? model

File:

• sans/Dev/trunk/NCNR_User_Procedures/Analysis/Models/NewModels_2009/FuzzySpheres_v40.ipf (modified) (2 diffs)

sans/Dev/trunk/NCNR_User_Procedures/Analysis/Models/NewModels_2009/FuzzySpheres_v40.ipf

@@ -100 +100 @@
         Variable scale,rad,pd,sig,rho,rhos,bkg,delrho,sig_surf,lor_sf,lor_len
         Variable I0, L
-        I0 = w[0]
-        L = w[1]
+        //I0 = w[0]
+        //L = w[1]
 
         //set up the coefficient values
@@ -246 +246 @@
         return(retval)
 End
+
+Proc PlotFuzzySphereSLD()
+
+        Variable scale,rad,pd,sig,rho,rhos,bkg,delrho,sig_surf,lor_sf,lor_len
+        Variable I0, L
+        scale=coef_fuzz[0]
+        rad=coef_fuzz[1]
+        pd=coef_fuzz[2]
+        sig=pd*rad
+        sig_surf = coef_fuzz[3]
+        rho=coef_fuzz[4]
+        rhos=coef_fuzz[5]
+        delrho=rho-rhos
+        I0 = coef_fuzz[6]               //for the Lorentzian
+        L = coef_fuzz[7]
+        bkg=coef_fuzz[8]
+
+        Make/O/N=1000 fuzzy_rwave
+        Make/O/N=1000 fuzzy_sldwave
+        
+        fuzzy_rwave = p*(rad+4*sig_surf)/numpnts(fuzzy_rwave)
+        
+        
+        fuzzy_sldwave = erf(fuzzy_rwave)
+        
+        Display fuzzy_sldwave vs fuzzy_rwave
+
+End