Changeset 6794301 in sasmodels for sasmodels/models/surface_fractal.c

Timestamp:

Mar 20, 2016 10:23:05 AM (8 years ago)

Author:

wojciech

Branches:

master, core_shell_microgels, costrafo411, magnetic_model, release_v0.94, release_v0.95, ticket-1257-vesicle-product, ticket_1156, ticket_1265_superball, ticket_822_more_unit_tests

Children:

3a45c2c, 9da407c

Parents:

8b935d1

Message:

NR gamma function replaced

File:

• sasmodels/models/surface_fractal.c (modified) (1 diff)

sasmodels/models/surface_fractal.c

@@ -26 +26 @@
     //calculate S(q)
     mmo = 5.0 - surface_dim;
-    sq  = exp(lanczos_gamma(mmo))*sin(-(mmo)*atan(q*cutoff_length));
+    sq  = sas_gamma(mmo)*sin(-(mmo)*atan(q*cutoff_length));
     sq *= pow(cutoff_length, mmo);
     sq /= pow((1.0 + (q*cutoff_length)*(q*cutoff_length)),(mmo/2.0));