File: flexible_cylinder.c

package info (click to toggle)
mccode 3.5.19%2Bds5-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,113,256 kB
  • sloc: ansic: 40,697; python: 25,137; yacc: 8,438; sh: 5,405; javascript: 4,596; lex: 1,632; cpp: 742; perl: 296; lisp: 273; makefile: 226; fortran: 132
file content (20 lines) | stat: -rw-r--r-- 503 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
static double
form_volume(double length, double kuhn_length, double radius)
{
    return 1.0;
}

static double
Iq(double q,
   double length,
   double kuhn_length,
   double radius,
   double sld,
   double solvent_sld)
{
    const double contrast = sld - solvent_sld;
    const double cross_section = sas_2J1x_x(q*radius);
    const double volume = M_PI*radius*radius*length;
    const double flex = Sk_WR(q, length, kuhn_length);
    return 1.0e-4 * volume * square(contrast*cross_section) * flex;
}