Changeset 4788822 in sasmodels for sasmodels/models/fractal.c

Timestamp:

Mar 19, 2017 11:21:34 PM (7 years ago)

Author:

butler

Branches:

master, core_shell_microgels, costrafo411, magnetic_model, ticket-1257-vesicle-product, ticket_1156, ticket_1265_superball, ticket_822_more_unit_tests

Children:

df89d77

Parents:

9f12fbe

Message:

added polydispersity back to fractal (as it used to be, as the
documentation implies and as core_shell_fractal already has). Also
formatted documentation according to current standard for references and
authorship/verification. Fixes #877

File:

• sasmodels/models/fractal.c (modified) (2 diffs)

sasmodels/models/fractal.c

@@ -1 +1 @@
 #define INVALID(p) (p.fractal_dim < 0.0)
+
+ static double
+ form_volume(double radius)
+ {
+     return M_4PI_3 * cube(radius);
+ }
 
 static double
@@ -13 +19 @@
 
     //calculate P(q) for the spherical subunits
-    const double V = M_4PI_3*cube(radius);
-    const double pq = V * square((sld_block-sld_solvent)*sas_3j1x_x(q*radius));
+    const double pq = square(form_volume(radius) * (sld_block-sld_solvent)
+                      *sas_3j1x_x(q*radius));
 
     // scale to units cm-1 sr-1 (assuming data on absolute scale)