Changes in sasmodels/kernel_header.c [b7e8b94:1e7b0db0] in sasmodels
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
sasmodels/kernel_header.c
rb7e8b94 r1e7b0db0 146 146 inline double square(double x) { return x*x; } 147 147 inline double cube(double x) { return x*x*x; } 148 inline double s inc(double x) { return x==0 ? 1.0 : sin(x)/x; }148 inline double sas_sinx_x(double x) { return x==0 ? 1.0 : sin(x)/x; } 149 149 150 150 #if 1 151 //think cos(theta) should be sin(theta) in new coords, RKH 11Jan2017152 151 #define ORIENT_SYMMETRIC(qx, qy, theta, phi, q, sn, cn) do { \ 153 152 SINCOS(phi*M_PI_180, sn, cn); \ 154 153 q = sqrt(qx*qx + qy*qy); \ 155 cn = (q==0. ? 1.0 : (cn*qx + sn*qy)/q * sin(theta*M_PI_180)); \154 cn = (q==0. ? 1.0 : (cn*qx + sn*qy)/q * cos(theta*M_PI_180)); \ 156 155 sn = sqrt(1 - cn*cn); \ 157 156 } while (0)
Note: See TracChangeset
for help on using the changeset viewer.