Changeset 3a48772 in sasmodels for sasmodels/models/lib
- Timestamp:
- Oct 14, 2016 3:23:40 PM (8 years ago)
- Branches:
- master, core_shell_microgels, costrafo411, magnetic_model, ticket-1257-vesicle-product, ticket_1156, ticket_1265_superball, ticket_822_more_unit_tests
- Children:
- a5b6997
- Parents:
- b716cc6
- Location:
- sasmodels/models/lib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
sasmodels/models/lib/core_shell.c
r7d4b2ae r3a48772 17 17 const double core_contrast = core_sld - shell_sld; 18 18 const double core_bes = sph_j1c(core_qr); 19 const double core_volume = 4.0 * M_PI / 3.0 * radius * radius * radius;19 const double core_volume = M_4PI_3 * cube(radius); 20 20 double f = core_volume * core_bes * core_contrast; 21 21 … … 24 24 const double shell_contrast = shell_sld - solvent_sld; 25 25 const double shell_bes = sph_j1c(shell_qr); 26 const double shell_volume = 4.0 * M_PI / 3.0 * pow((radius + thickness), 3);26 const double shell_volume = M_4PI_3 * cube(radius + thickness); 27 27 f += shell_volume * shell_bes * shell_contrast; 28 28 return f * f * 1.0e-4; -
sasmodels/models/lib/gfn.c
r177c1a1 r3a48772 12 12 { 13 13 // local variables 14 const double pi43=4.0/3.0*M_PI;15 14 const double aa = crmaj; 16 15 const double bb = crmin; … … 20 19 //const double siq = (uq == 0.0 ? 1.0 : 3.0*(sin(uq)/uq/uq - cos(uq)/uq)/uq); 21 20 const double siq = sph_j1c(uq); 22 const double vc = pi43*aa*aa*bb;21 const double vc = M_4PI_3*aa*aa*bb; 23 22 const double gfnc = siq*vc*delpc; 24 23 25 24 const double ut2 = (trmin*trmin*xx*xx + trmaj*trmaj*(1.0-xx*xx)); 26 25 const double ut= sqrt(ut2)*qq; 27 const double vt = pi43*trmaj*trmaj*trmin;26 const double vt = M_4PI_3*trmaj*trmaj*trmin; 28 27 //const double sit = (ut == 0.0 ? 1.0 : 3.0*(sin(ut)/ut/ut - cos(ut)/ut)/ut); 29 28 const double sit = sph_j1c(ut); … … 33 32 const double result = tgfn*tgfn; 34 33 35 return (result);34 return result; 36 35 }
Note: See TracChangeset
for help on using the changeset viewer.