Changeset 43b7eea in sasmodels for sasmodels/models/stacked_disks.c

Timestamp:

Mar 19, 2016 2:34:39 PM (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:

26141cb

Parents:

81d3a0c

Message:

Initial clean-up of Bessel functions

File:

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

sasmodels/models/stacked_disks.c

@@ -52 +52 @@
         const double sinarg2 = qq*(halfheight+layer_thick)*cos(zi);
 
-    const double be1 = J1(besarg1)/besarg1;
-        const double be2 = J1(besarg2)/besarg2;
+    const double be1 = sas_J1c(besarg1);
+        const double be2 = sas_J1c(besarg2);
         const double si1 = sin(sinarg1)/sinarg1;
         const double si2 = sin(sinarg2)/sinarg2;
@@ -62 +62 @@
         const double totald=2.0*(layer_thick+halfheight);
 
-        const double t1 = 2.0*area*(2.0*halfheight)*dr1*(si1)*(be1);
-        const double t2 = 2.0*area*dr2*(totald*si2-2.0*halfheight*si1)*(be2);
+        const double t1 = area*(2.0*halfheight)*dr1*(si1)*(be1);
+        const double t2 = area*dr2*(totald*si2-2.0*halfheight*si1)*(be2);