Changeset becded3 in sasmodels for sasmodels/models/capped_cylinder.c


Ignore:
Timestamp:
Oct 17, 2017 6:21:27 PM (7 years ago)
Author:
Paul Kienzle <pkienzle@…>
Branches:
master, core_shell_microgels, magnetic_model, ticket-1257-vesicle-product, ticket_1156, ticket_1265_superball, ticket_822_more_unit_tests
Children:
8698a0d
Parents:
2a602c7
Message:

update oriented models to new interface (which will be in the next commit)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sasmodels/models/capped_cylinder.c

    r2a0b2b1 rbecded3  
    1 double form_volume(double radius, double radius_cap, double length); 
    2 double Iq(double q, double sld, double solvent_sld, 
    3     double radius, double radius_cap, double length); 
    4 double Iqxy(double qx, double qy, double sld, double solvent_sld, 
    5     double radius, double radius_cap, double length, double theta, double phi); 
    6  
    71#define INVALID(v) (v.radius_cap < v.radius) 
    82 
     
    1711static double 
    1812_cap_kernel(double qab, double qc, double h, double radius_cap, 
    19             double half_length) 
     13    double half_length) 
    2014{ 
    2115    // translate a point in [-1,1] to a point in [lower,upper] 
     
    6054} 
    6155 
    62 double form_volume(double radius, double radius_cap, double length) 
     56static double 
     57form_volume(double radius, double radius_cap, double length) 
    6358{ 
    6459    // cap radius should never be less than radius when this is called 
     
    8984} 
    9085 
    91 double Iq(double q, double sld, double solvent_sld, 
    92           double radius, double radius_cap, double length) 
     86static double 
     87Iq(double q, double sld, double solvent_sld, 
     88    double radius, double radius_cap, double length) 
    9389{ 
    9490    const double h = sqrt(radius_cap*radius_cap - radius*radius); 
     
    118114 
    119115 
    120 double Iqxy(double qx, double qy, 
     116static double 
     117Iqxy(double qab, double qc, 
    121118    double sld, double solvent_sld, double radius, 
    122     double radius_cap, double length, 
    123     double theta, double phi) 
     119    double radius_cap, double length) 
    124120{ 
    125     double q, sin_alpha, cos_alpha; 
    126     ORIENT_SYMMETRIC(qx, qy, theta, phi, q, sin_alpha, cos_alpha); 
    127     const double qab = q*sin_alpha; 
    128     const double qc = q*cos_alpha; 
    129  
    130121    const double h = sqrt(radius_cap*radius_cap - radius*radius); 
    131122    const double Aq = _fq(qab, qc, h, radius_cap, radius, 0.5*length); 
Note: See TracChangeset for help on using the changeset viewer.