source: sasview/sansmodels/src/sans/models/c_extensions/lamellar.c @ ef70686

/**
 * Scattering model for dilute lamellar model: polydipsersion in thickness (delta) included
 * @author: Gervaise B. Alina / UTK
 */

#include "lamellar.h"
#include <math.h>
//#include "libCylinder.h"
#include <stdio.h>
#include <stdlib.h>

/*      LamellarFFX  :  calculates the form factor of a lamellar structure - no S(q) effects included
                                                -NO polydispersion included
*/
double lamellar_kernel(double dp[], double q){
        double scale,del,sld_bi,sld_sol,contr,bkg;              //local variables of coefficient wave
        double inten, qval,Pq;
        double Pi;


        Pi = 4.0*atan(1.0);
        scale = dp[0];
        del = dp[1];
        sld_bi = dp[2];
        sld_sol = dp[3];
        bkg = dp[4];
        qval = q;
        contr = sld_bi -sld_sol;

        Pq = 2.0*contr*contr/qval/qval*(1.0-cos(qval*del));

        inten = 2.0*Pi*scale*Pq/(qval*qval);            //this is now dimensionless...

        inten /= del;                   //normalize by the thickness (in A)

        inten *= 1.0e8;         // 1/A to 1/cm

        return(inten+bkg);
}

/**
 * Function to evaluate 1D scattering function
 * @param pars: parameters of the lamellar
 * @param q: q-value
 * @return: function value
 */
double lamellar_analytical_1D(LamellarParameters *pars, double q) {
        double dp[5];

        // Fill paramater array
        dp[0] = pars->scale;
        dp[1] = pars->bi_thick;
        dp[2] = pars->sld_bi;
        dp[3] = pars->sld_sol;
        dp[4] = pars->background;


        // Call library function to evaluate model
        return lamellar_kernel(dp, q);
}


/**
 * Function to evaluate 2D scattering function
 * @param pars: parameters of the lamellar
 * @param q: q-value
 * @return: function value
 */


double lamellar_analytical_2D(LamellarParameters *pars, double q, double phi){
        return lamellar_analytical_1D(pars,q);
}
double lamellar_analytical_2DXY(LamellarParameters *pars, double qx, double qy){
        return lamellar_analytical_1D(pars,sqrt(qx*qx+qy*qy));
}