JSOC/proj/limbfit/apps/expmax.c - view

Return to expmax.c CVS log

Up to [Development] / JSOC / proj / limbfit / apps

File: [Development] / JSOC / proj / limbfit / apps / expmax.c (download)
Revision: 1.1, Wed Jul 21 00:10:01 2010 UTC (12 years, 8 months ago) by arta
Branch: MAIN
CVS Tags: Ver_LATEST, Ver_9-5, Ver_9-41, Ver_9-4, Ver_9-3, Ver_9-2, Ver_9-1, Ver_9-0, Ver_8-8, Ver_8-7, Ver_8-6, Ver_8-5, Ver_8-4, Ver_8-3, Ver_8-2, Ver_8-12, Ver_8-11, Ver_8-10, Ver_8-1, Ver_8-0, Ver_7-1, Ver_7-0, Ver_6-4, Ver_6-3, Ver_6-2, Ver_6-1, Ver_6-0, Ver_5-14, Ver_5-13, Ver_5-12, Ver_5-11, Ver_5-10, HEAD

Add Isabelles limbfit code to cvs

#include "expmax.h"

double exp_plus_quadratic_function (double x, void *params)
     {
       struct exp_plus_quadratic_params *p 
         = (struct exp_plus_quadratic_params *) params;
     
       double A0 = p->A0;
       double A1 = p->A1;
       double A2 = p->A2;
       double A3 = p->A3;
       double A4 = p->A4;
       double A5 = p->A5;
     
       double z = (x - A1) / A2;
       return -(A0 * exp (-z * z / 2.) +A3 + A4 *x + A5 * x * x);
     }

Karen Tian