[General Information]

Function Name=BlNeldSmp	; name show up in the select function dialog
Brief Description=Simplified Bleasdale-Nelder Model
Function Type=Built-in		; source type, built-in, user-defined, external dll
Function Form=Expression	; function form;
Function Source=fgroup.BlNeldSmp
Number Of Parameters=3
Number Of Independent Variables=1
Number Of Dependent Variables=1


[Fitting Parameters]

Naming Method=user-defined
Names=a,b,c
Lower bounds=--,--,--
Upper bounds=--,--,--
Meanings=coefficient,coefficient,coefficient

[Independent Variables]

x =


[Dependent Variables]

y =


[Constants]


[Formula]

y = (a + b*x)^(-1/c)

[Constraints]

[Parameters Initialization]
sort(x_y_curve);
//smooth(x_y_curve, 2);
double x1,y1,x2,y2,x3;
x1=min(x_data);
y1=Curve_yfromX(&x_y_curve,x1);
x2=max(x_data);
y2=Curve_yfromX(&x_y_curve,x2);
double y3=(max(x_y_curve)+min(x_y_curve))/2.0;
if(y3==1) 
   y3=0.6*max(x_y_curve)+0.4*min(x_y_curve);
x3=Curve_xfromY(&x_y_curve,y3);
double x4=0.95*x1+0.05*x2;
double y4=Curve_yfromX(&x_y_curve,x4);
x2=(1-y1)*(x4-x1)/(y4-y1)+x1;
if(x2<x1) x1=2*x2-x1;
b=1/(x2-x1);
a=-b*x1;
c=-ln(a+b*x3)/ln(y3);


[Initializations]


[After fitting]


[Controls]
General Linear Constraints=Off
Initialization scripts=Off
Scripts After fitting=Off
