Changeset 218cdbc in sasmodels for sasmodels/kernel_header.c

Timestamp:

Oct 17, 2016 9:11:17 AM (8 years ago)

Author:

Paul Kienzle <pkienzle@…>

Branches:

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

Children:

1b49bf8

Parents:

52e9a45

Message:

use SasView? 3.x definition of angles for now

File:

• sasmodels/kernel_header.c (modified) (2 diffs)

sasmodels/kernel_header.c

@@ -148 +148 @@
 inline double sinc(double x) { return x==0 ? 1.0 : sin(x)/x; }
 
- #define ORIENT_SYMMETRIC(qx, qy, theta, phi, q, sn, cn) do { \
-     SINCOS(phi*M_PI_180, sn, cn); \
-     q = sqrt(qx*qx + qy*qy); \
-     cn  = (q==0. ? 1.0 : (cn*qx + sn*qy)/q * cos(theta*M_PI_180));  \
-     sn = sqrt(1 - cn*cn); \
- } while (0)
+#if 0
+#define ORIENT_SYMMETRIC(qx, qy, theta, phi, q, sn, cn) do { \
+    SINCOS(phi*M_PI_180, sn, cn); \
+    q = sqrt(qx*qx + qy*qy); \
+    cn  = (q==0. ? 1.0 : (cn*qx + sn*qy)/q * cos(theta*M_PI_180));  \
+    sn = sqrt(1 - cn*cn); \
+    } while (0)
+#else
+// SasView 3.x definition of orientation
+#define ORIENT_SYMMETRIC(qx, qy, theta, phi, q, sn, cn) do { \
+    SINCOS(theta*M_PI_180, sn, cn); \
+    q = sqrt(qx*qx + qy*qy);\
+    cn = (q==0. ? 1.0 : (cn*cos(phi*M_PI_180)*qx + sn*qy)/q); \
+    sn = sqrt(1 - cn*cn); \
+    } while (0)
+#endif
 
- #define ORIENT_ASYMMETRIC(qx, qy, theta, phi, psi, q, cos_alpha, cos_mu, cos_nu) do { \
+#define ORIENT_ASYMMETRIC(qx, qy, theta, phi, psi, q, cos_alpha, cos_mu, cos_nu) do { \
     q = sqrt(qx*qx + qy*qy); \
     const double qxhat = qx/q; \
@@ -168 +178 @@
     cos_mu = (-sin_theta*cos_psi*cos_phi - sin_psi*sin_phi)*qxhat + cos_theta*cos_psi*qyhat; \
     cos_nu = (-cos_phi*sin_psi*sin_theta + sin_phi*cos_psi)*qxhat + sin_psi*cos_theta*qyhat; \
- } while (0)
+    } while (0)