source: sasmodels/sasmodels/models/lib/sphere_form.c @ ba32cdd

core_shell_microgelscostrafo411magnetic_modelrelease_v0.94release_v0.95ticket-1257-vesicle-productticket_1156ticket_1265_superballticket_822_more_unit_tests
Last change on this file since ba32cdd was ba32cdd, checked in by Paul Kienzle <pkienzle@…>, 8 years ago

fix opencl compile; still doesn't run

  • Property mode set to 100644
File size: 424 bytes
Line 
1double sphere_volume(double radius);
2double sphere_form(double q, double radius, double sld, double solvent_sld);
3
4double sphere_volume(double radius)
5{
6    return M_4PI_3*cube(radius);
7}
8
9double sphere_form(double q, double radius, double sld, double solvent_sld)
10{
11    const double fq = sphere_volume(radius) * sph_j1c(q*radius);
12    const double contrast = (sld - solvent_sld);
13    return 1.0e-4*square(contrast * fq);
14}
Note: See TracBrowser for help on using the repository browser.