Changeset 278
 Timestamp:
 Feb 19, 2008 12:30:43 PM (15 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v4.00/HardSphereStruct_v40.ipf
r252 r278 75 75 76 76 // Local variables 77 Variable denom,dnum,alpha, beta,gamm,q,a,asq,ath,afor,rca,rsa77 Variable denom,dnum,alpha,fbeta,gamm,q,a,asq,ath,afor,rca,rsa 78 78 Variable calp,cbeta,cgam,prefac,c,vstruc 79 79 // COMPUTE CONSTANTS … … 82 82 DNUM = (1.0 + 2.0*PHI)^2 83 83 ALPHA = DNUM/DENOM 84 BETA = 6.0*PHI*((1.0 + PHI/2.0)^2)/DENOM84 fBETA = 6.0*PHI*((1.0 + PHI/2.0)^2)/DENOM 85 85 GAMM = 0.50*PHI*DNUM/DENOM 86 86 // … … 98 98 RSA = SIN(A) 99 99 CALP = ALPHA*(RSA/ASQ  RCA/A) 100 CBETA = BETA*(2.0*RSA/ASQ  (ASQ  2.0)*RCA/ATH  2.0/ATH)100 CBETA = fBETA*(2.0*RSA/ASQ  (ASQ  2.0)*RCA/ATH  2.0/ATH) 101 101 CGAM = GAMM*(RCA/A + (4.0/A)*((3.0*ASQ  6.0)*RCA/AFOR + (ASQ  6.0)*RSA/ATH + 6.0/AFOR)) 102 102 PREFAC = 24.0*PHI/A
Note: See TracChangeset
for help on using the changeset viewer.