Changeset 71b751d in sasmodels for sasmodels/models/core_shell_ellipsoid.c
- Timestamp:
- Aug 14, 2018 10:09:34 AM (6 years ago)
- Branches:
- master, core_shell_microgels, magnetic_model, ticket-1257-vesicle-product, ticket_1156, ticket_1265_superball, ticket_822_more_unit_tests
- Children:
- 86aa992
- Parents:
- 2f8cbb9
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
sasmodels/models/core_shell_ellipsoid.c
r108e70e r71b751d 38 38 } 39 39 40 static double 41 Iq(double q, 40 static void 41 Fq(double q, 42 double *F1, 43 double *F2, 42 44 double radius_equat_core, 43 45 double x_core, … … 58 60 const double m = 0.5; 59 61 const double b = 0.5; 60 double total = 0.0; //initialize intergral 62 double total_F1 = 0.0; //initialize intergral 63 double total_F2 = 0.0; //initialize intergral 61 64 for(int i=0;i<GAUSS_N;i++) { 62 65 const double cos_theta = GAUSS_Z[i]*m + b; … … 66 69 equat_shell, polar_shell, 67 70 sld_core_shell, sld_shell_solvent); 68 total += GAUSS_W[i] * fq * fq; 71 total_F1 += GAUSS_W[i] * fq; 72 total_F2 += GAUSS_W[i] * fq * fq; 69 73 } 70 total *= m; 74 total_F1 *= m; 75 total_F2 *= m; 71 76 72 77 // convert to [cm-1] 73 return 1.0e-4 * total; 78 *F1 = 1.0e-2 * total_F1; 79 *F2 = 1.0e-4 * total_F2; 74 80 } 81 75 82 76 83 static double
Note: See TracChangeset
for help on using the changeset viewer.