Changeset 251f54b in sasmodels


Ignore:
Timestamp:
Oct 18, 2016 11:10:48 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:
6f676fb
Parents:
0a3d9b2
Message:

elliptical_cylinder: remove unused _kernel function

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sasmodels/models/elliptical_cylinder.c

    r68425bf r251f54b  
    66 
    77 
    8  
    9 static double 
    10 _kernel(double q, double radius_minor, double r_ratio, double theta) 
    11 { 
    12     // This is the function LAMBDA1^2 in Feigin's notation 
    13     // q is the q-value for the calculation (1/A) 
    14     // radius_minor is the transformed radius"a" in Feigin's notation 
    15     // r_ratio is the ratio (major radius)/(minor radius) of the Ellipsoid [=] --- 
    16     // theta is the dummy variable of the integration 
    17  
    18     double retval,arg; 
    19  
    20     arg = q*radius_minor*sqrt((1.0+r_ratio*r_ratio)/2+(1.0-r_ratio*r_ratio)*cos(theta)/2); 
    21     //retval = 2.0*J1(arg)/arg; 
    22     retval = sas_J1c(arg); 
    23     return retval*retval ; 
    24 } 
    25  
    26  
    27 double form_volume(double radius_minor, double r_ratio, double length) 
     8double 
     9form_volume(double radius_minor, double r_ratio, double length) 
    2810{ 
    2911    return M_PI * radius_minor * radius_minor * r_ratio * length; 
Note: See TracChangeset for help on using the changeset viewer.