Ignore:
Timestamp:
Jul 25, 2007 5:05:04 PM (16 years ago)
Author:
srkline
Message:

Correcting typos found during initial testing of the modified functions

File:
1 edited

Legend:

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

    r128 r129  
    8585// 76 points is slower, but reccommended to remove high-q oscillations 
    8686// 
    87 Function fLogNormalPolySphere(w,x): FitFunc 
     87Function fLogNormalPolySphere(w,xx): FitFunc 
    8888        wave w 
    89         variable x 
     89        variable xx 
    9090         
    9191        Variable scale,rad,sig,rho,rhos,bkg,delrho,mu,r3 
     
    153153         
    154154        summ = 0.0              // initialize integral 
    155         Make/O/N=1 tmp_w 
     155        Make/O/N=1 tmp_yw,tmp_xw 
     156        tmp_xw[0] = xx 
    156157        for(ii=0;ii<nord;ii+=1) 
    157158                // calculate Gauss points on integration interval (r-value for evaluation) 
     
    159160                sphere_temp[1] = zi 
    160161                // calculate sphere scattering 
    161                 SphereForm(sphere_temp,tmp_w,x)                 //AAO calculation, one point wave 
    162                 yy = gauWt[ii] *  LogNormal_distr(sig,mu,zi) * tmp_w[0] 
     162                SphereForm(sphere_temp,tmp_yw,tmp_xw)                   //AAO calculation, one point wave 
     163                yy = gauWt[ii] *  LogNormal_distr(sig,mu,zi) * tmp_yw[0] 
    163164                yy *= 4*pi/3*zi*zi*zi           //un-normalize by current sphere volume 
    164165                 
Note: See TracChangeset for help on using the changeset viewer.