Changeset 840 for sans/Dev/trunk/NCNR_User_Procedures

Ignore:
Timestamp:
Feb 29, 2012 11:36:57 AM (11 years ago)
Message:

fixing the shape filling functions to explicitly take fill as a parameter, and make the default fill value = 10 == 10 e-7 A-2

More additions to the RealSpeca? help file

Location:
sans/Dev/trunk/NCNR_User_Procedures/Analysis/Alpha/Tinker
Files:
9 edited

Unmodified
Removed

• sans/Dev/trunk/NCNR_User_Procedures/Analysis/Alpha/Tinker/FFT_ConnectedRods.ipf

 r798 Variable ranType Variable ii,np,frac,nocc Variable ii,np,frac,nocc,fill Wave m=root:mat NVAR grid=root:FFT_T np = 0 frac = 0 fill = 10 for(ii=0;ii

• sans/Dev/trunk/NCNR_User_Procedures/Analysis/Alpha/Tinker/FFT_Cylinder_2D_Fill.ipf

 r798 Proc Test2D() Variable fill = 10 Make/O/N=(100,100) plane DoWindow/F Plane_View endif plane=0 RandomPoints2D(plane,10) RandomPoints2D(plane,10,fill) End //for the 3D equivalent, see RandomFill3DMat(mat,num) // Function RandomPoints2D(w,num) Function RandomPoints2D(w,num,fill) Wave w variable num            //number of spheres to add Variable fill Variable row,col,ii,xt,yt,zt,fail=0 yt=trunc(abs(enoise(col))) if( w[xt][yt] == 0 ) w[xt][yt] = 1 w[xt][yt] = fill ii+=1           //increment number of spheres actually added //Print "point ",ii // the Sobol sequence MUST be initlalized before passing to thie routine Function SobolPoints2D(w,num) Function SobolPoints2D(w,num,fill) Wave w variable num            //number of spheres to add Variable fill Variable row,col,ii,xt,yt,zt,fail=0 xt = Sobol2D[0] *row yt = Sobol2D[1] *col w[xt][yt] = 1 w[xt][yt] = fill endfor