rosace_bench/assemblage_includes.c

#include <math.h>

#include "assemblage_includes.h"
#ifdef USE_FLOAT
#define MATH_COS cosf
#define MATH_SIN sinf
#else
#define MATH_COS cos
#define MATH_SIN sin
#endif
/*
 * The following include file is generated by the Prelude compiler
 * Theoretically we should include main node specific include
 * i.e. assemblage_vX.h but we know that every main node
 * assemblage, assemblage_v2, assemblage_v3, etc... share the
 * very same data type.
 */
//#include "assemblage.h"

/* Period/Frequency of the nodes */
// const REAL_TYPE Ts_h    = 1.0/50.0;
// const REAL_TYPE Ts_K1   = 1.0/50.0;
// const REAL_TYPE Ts_K2   = 1.0/50.0;
// const REAL_TYPE Ts_f_Va = 1.0/100.0;
// const REAL_TYPE Ts_f_Vz = 1.0/100.0;
// const REAL_TYPE Ts_f_q  = 1.0/100.0;
// const REAL_TYPE Ts_f_az = 1.0/100.0;
// const REAL_TYPE Ts_f_h  = 1.0/100.0;
const REAL_TYPE dt       = 1.0f/200.0;
const REAL_TYPE dt_de    = 1.0/200.0;
const REAL_TYPE dt_dx    = 1.0/200.0;

/* Controller parameters */
/* Altitude hold */
const REAL_TYPE Kp_h       = 0.1014048;
const REAL_TYPE Ki_h       = 0.0048288;
const REAL_TYPE h_switch   = 50.0;


// Setpoint commands
REAL_TYPE Vz_c     = -2.5;
REAL_TYPE Va_c     =  0.0;
REAL_TYPE h_c      =  10000;

/* Va Speed controller */

// const REAL_TYPE K1_intVa =  0.06018;
// const REAL_TYPE K1_Va    = -0.53115;
// const REAL_TYPE K1_Vz    = -0.08956;
// const REAL_TYPE K1_q     =  24.44890;

const REAL_TYPE K1_intVa =   0.049802610664357;
const REAL_TYPE K1_Va     = -0.486813084356079;
const REAL_TYPE K1_Vz     = -0.077603095495388;
const REAL_TYPE K1_q      = 21.692383376322041;

/* Vz Speed controller */

// const REAL_TYPE K2_intVz =  0.0006545;
// const REAL_TYPE K2_Vz    = -0.0031107;
// const REAL_TYPE K2_q     =  0.4490749;
// const REAL_TYPE K2_az    = -0.0002038;

const REAL_TYPE K2_intVz   = 0.000627342822264;
const REAL_TYPE K2_Vz     = -0.003252836726554;
const REAL_TYPE K2_q       = 0.376071446897134;
const REAL_TYPE K2_az     = -0.001566907423747;


/* Trimming parameters */
const REAL_TYPE h_eq        = 10000.0;
const REAL_TYPE Va_eq       = 230.0;
const REAL_TYPE Vz_eq       = 0.0;
const REAL_TYPE alpha_eq    = 0.026485847681737;
const REAL_TYPE theta_eq  = 0.026485847681737;

/* Atmosphere parameters */
const REAL_TYPE rho0   = 1.225;
const REAL_TYPE g0     = 9.80665;
const REAL_TYPE T0_0   = 288.15;
const REAL_TYPE T0_h  = -0.0065;
const REAL_TYPE Rs     = 287.05;

/* Aircraft parameters */
const REAL_TYPE masse       = 57837.5;
const REAL_TYPE I_y         = 3781272.0;
const REAL_TYPE S          =  122.6;
const REAL_TYPE cbar        = 4.29;
const REAL_TYPE CD_0        = 0.016;
const REAL_TYPE CD_alpha    = 2.5;
const REAL_TYPE CD_deltae   = 0.05;
const REAL_TYPE CL_alpha    = 5.5;
const REAL_TYPE CL_deltae   = 0.193;
const REAL_TYPE alpha_0    = -0.05;
const REAL_TYPE Cm_0        = 0.04;
const REAL_TYPE Cm_alpha   = -0.83;
const REAL_TYPE Cm_deltae  = -1.5;
const REAL_TYPE Cm_q       = -30;

/* in-memory buffer for traces */
//REAL_TYPE sample[SPL_SIZE][NBMAX_SAMPLE];
//static unsigned long instant = 0;
//static unsigned long sample_instant=0;

#define FMTFLOAT "%5.15f"

/* Va filter 100 Hz */
REAL_TYPE
Va_filter_100(REAL_TYPE Va) {
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 100 Hz coefficients */
	static REAL_TYPE a0 = 0.956543675476034;
	static REAL_TYPE a1 = -1.955578398054313;
	static REAL_TYPE b0 = 0.000479064865372430;
	static REAL_TYPE b1 =  0.000486212556348925;

	if (debut) {
		debut  = 0;
		x1     = Va_eq * (1.0 + a1 - b1);
		x2     = Va_eq;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * Va;
	x2_tmp =  x1 - a1 * x2 + b1 * Va;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of Va filter 100 Hz */

/* Va filter 50 Hz */
REAL_TYPE
Va_filter_50(REAL_TYPE Va) {
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 50 Hz coefficients */
	static REAL_TYPE a0 = 0.914975803093201;
	static REAL_TYPE a1 = -1.911199519984605;
	static REAL_TYPE b0 = 0.001860178914816;
	static REAL_TYPE b1 =  0.001916104193780;

	if (debut) {
		debut  = 0;
		x1     = Va_eq * (1.0 + a1 - b1);
		x2     = Va_eq;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * Va;
	x2_tmp =  x1 - a1 * x2 + b1 * Va;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of Va filter 50 Hz */

/* Va filter 33 Hz */
REAL_TYPE
Va_filter_33(REAL_TYPE Va) {
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 33 Hz coefficients */
	static REAL_TYPE a0 = 0.874036784828483;
	static REAL_TYPE a1 = -1.865563793814790;
	static REAL_TYPE b0 = 0.004141433623051;
	static REAL_TYPE b1 =  0.004331557390642;

	if (debut) {
		debut  = 0;
		x1     = Va_eq * (1.0 + a1 - b1);
		x2     = Va_eq;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * Va;
	x2_tmp =  x1 - a1 * x2 + b1 * Va;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of Va filter 33 Hz */

/* Va filter 25 Hz */
REAL_TYPE
Va_filter_25(REAL_TYPE Va) {
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE	x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 25 Hz coefficients */
	static REAL_TYPE a0 = 0.837180720246048;
	static REAL_TYPE a1 = -1.822731999002980;
	static REAL_TYPE b0 = 0.007010380719078;
	static REAL_TYPE b1 =  0.007438340523990;

	if (debut) {
		debut  = 0;
		x1     = Va_eq * (1.0 + a1 - b1);
		x2     = Va_eq;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * Va;
	x2_tmp =  x1 - a1 * x2 + b1 * Va;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of Va filter 25 Hz */


/* Vz filter 100 Hz */
REAL_TYPE
Vz_filter_100(REAL_TYPE Vz) {
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 100 Hz coefficients */
	static REAL_TYPE a0 = 0.956543675476034;
	static REAL_TYPE 	a1 = -1.955578398054313;
	static REAL_TYPE b0 = 0.000479064865372430;
	static REAL_TYPE 	b1 =  0.000486212556348925;

	if (debut) {
		debut  = 0;
		x1     = 0.0;
		x2     = 0.0;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * Vz;
	x2_tmp =  x1 - a1 * x2 + b1 * Vz;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of Vz filter 100 Hz */

/* Vz filter 50 Hz */
REAL_TYPE
Vz_filter_50(REAL_TYPE Vz) {
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0, x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 50 Hz coefficients */
	static REAL_TYPE a0 = 0.914975803093201;
	static REAL_TYPE a1 = -1.911199519984605;
	static REAL_TYPE b0 = 0.001860178914816;
	static REAL_TYPE b1 =  0.001916104193780;

	if (debut) {
		debut  = 0;
		x1     = 0.0;
		x2     = 0.0;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * Vz;
	x2_tmp =  x1 - a1 * x2 + b1 * Vz;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of Vz filter 50 Hz */

/* Vz filter 33 Hz */
REAL_TYPE
Vz_filter_33(REAL_TYPE Vz) {
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0, x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 33 Hz coefficients */
	static REAL_TYPE a0 = 0.874036784828483;
	static REAL_TYPE a1 = -1.865563793814790;
	static REAL_TYPE b0 = 0.004141433623051;
	static REAL_TYPE b1 =  0.004331557390642;

	if (debut) {
		debut  = 0;
		x1     = 0.0;
		x2     = 0.0;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * Vz;
	x2_tmp =  x1 - a1 * x2 + b1 * Vz;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of Vz filter 33 Hz */

/* Vz filter 25 Hz */
REAL_TYPE
Vz_filter_25(REAL_TYPE Vz) {
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 25 Hz coefficients */
	static REAL_TYPE a0 = 0.837180720246048;
	static REAL_TYPE a1 = -1.822731999002980;
	static REAL_TYPE b0 = 0.007010380719078;
	static REAL_TYPE b1 =  0.007438340523990;

	if (debut) {
		debut  = 0;
		x1     = 0.0;
		x2     = 0.0;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * Vz;
	x2_tmp =  x1 - a1 * x2 + b1 * Vz;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of Vz filter 25 Hz */

/* q filter 100 Hz */
REAL_TYPE
q_filter_100(REAL_TYPE q){
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 100 Hz coefficients */
	static REAL_TYPE a0 = 0.766000101841272;
	static REAL_TYPE a1 = -1.734903205885821;
	static REAL_TYPE b0 = 0.014857648981438;
	static REAL_TYPE b1 =  0.016239246974013;

	if (debut) {
		debut  = 0;
		x1     = 0.0;
		x2     = 0.0;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * q;
	x2_tmp =  x1 - a1 * x2 + b1 * q;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of q filter 100 Hz */

/* q filter 50 Hz */
REAL_TYPE
q_filter_50(REAL_TYPE q){
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 50 Hz coefficients */
	static REAL_TYPE a0 = 0.586756156020839;
	static REAL_TYPE a1 = -1.477888930110354;
	static REAL_TYPE b0 = 0.049596808318647; 
	static REAL_TYPE b1 =  0.059270417591839;

	if (debut) {
		debut  = 0;
		x1     = 0.0;
		x2     = 0.0;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * q;
	x2_tmp =  x1 - a1 * x2 + b1 * q;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of q filter 50 Hz */

/* q filter 33 Hz */
REAL_TYPE
q_filter_33(REAL_TYPE q){
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 33 Hz coefficients */
	static REAL_TYPE a0 = 0.445839214374383;
	static REAL_TYPE a1 = -1.227970132817902;
	static REAL_TYPE b0 = 0.094268996251840;
	static REAL_TYPE b1 =  0.123600085304640;

	if (debut) {
		debut  = 0;
		x1     = 0.0;
		x2     = 0.0;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * q;
	x2_tmp =  x1 - a1 * x2 + b1 * q;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of q filter 33 Hz */

/* q filter 25 Hz */
REAL_TYPE
q_filter_25(REAL_TYPE q){
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 25 Hz coefficients */
	static REAL_TYPE a0 = 0.344282786628352;
	static REAL_TYPE a1 = -1.010643377701049;
	static REAL_TYPE b0 = 0.137177088974822;
	static REAL_TYPE b1 =  0.196462319952482;

	if (debut) {
		debut  = 0;
		x1     = 0.0;
		x2     = 0.0;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * q;
	x2_tmp =  x1 - a1 * x2 + b1 * q;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of q filter 25 Hz */

/* az filter 100 Hz */
REAL_TYPE
az_filter_100(REAL_TYPE az){
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 100 Hz coefficient */
	static REAL_TYPE a0 = 0.411240701442774;
	static REAL_TYPE a1 = -1.158045899830964;
	static REAL_TYPE b0 = 0.107849979167580;
	static REAL_TYPE b1 =  0.145344822444230;

	if (debut) {
		debut  = 0;
		x1     = 0.0;
		x2     = 0.0;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * az;
	x2_tmp =  x1 - a1 * x2 + b1 * az;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of az filter 100 Hz */

/* az filter 50 Hz */
REAL_TYPE
az_filter_50(REAL_TYPE az){
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 50 Hz coefficients */
	static REAL_TYPE a0 = 0.169118914523145;
	static REAL_TYPE a1 = -0.518588903229759;
	static REAL_TYPE b0 = 0.229019233988375;
	static REAL_TYPE b1 =  0.421510777305010;

	if (debut) {
		debut  = 0;
		x1     = 0.0;
		x2     = 0.0;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * az;
	x2_tmp =  x1 - a1 * x2 + b1 * az;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of az filter 50 Hz */

/* az filter 33 Hz */
REAL_TYPE
az_filter_33(REAL_TYPE az){
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 33 Hz coefficients */
	static REAL_TYPE a0 = 0.067700864731348;
	static REAL_TYPE a1 = -0.115832026705568;
	static REAL_TYPE b0 = 0.263451167882487;
	static REAL_TYPE b1 =  0.688417670143293;

	if (debut) {
		debut  = 0;
		x1     = 0.0;
		x2     = 0.0;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * az;
	x2_tmp =  x1 - a1 * x2 + b1 * az;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of az filter 33 Hz */

/* az filter 25 Hz */
REAL_TYPE
az_filter_25(REAL_TYPE az){
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 25 Hz coefficients */
	static REAL_TYPE a0 = 0.028601207249487;
	static REAL_TYPE a1 =  0.069303378493245;
	static REAL_TYPE b0 = 0.228783762747218;
	static REAL_TYPE b1 =  0.869120822995514;

	if (debut) {
		debut  = 0;
		x1     = 0.0;
		x2     = 0.0;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * az;
	x2_tmp =  x1 - a1 * x2 + b1 * az;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of az filter 25 Hz */

/* h filter 100 Hz*/
REAL_TYPE
h_filter_100(REAL_TYPE h){
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 100 Hz coefficients */
	static REAL_TYPE a0 = 0.766000101841272;
	static REAL_TYPE a1 = -1.734903205885821;
	static REAL_TYPE b0 = 0.014857648981438;
	static REAL_TYPE b1 =  0.016239246974013;

	if (debut) {
		debut  = 0;
		x1     = h_eq * (1.0 + a1 - b1);
		x2     = h_eq;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * h;
	x2_tmp =  x1 - a1 * x2 + b1 * h;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of h filter 100 Hz */

/* h filter 50 Hz*/
REAL_TYPE
h_filter_50(REAL_TYPE h){
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 50 Hz coefficients */
	static REAL_TYPE a0 = 0.586756156020839;
	static REAL_TYPE a1 = -1.477888930110354;
	static REAL_TYPE b0 = 0.049596808318647;
	static REAL_TYPE b1 =  0.059270417591839;

	if (debut) {
		debut  = 0;
		x1     = h_eq * (1.0 + a1 - b1);
		x2     = h_eq;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * h;
	x2_tmp =  x1 - a1 * x2 + b1 * h;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of h filter 50 Hz */

/* h filter 33 Hz*/
REAL_TYPE
h_filter_33(REAL_TYPE h){
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 33 Hz coefficients */
	static REAL_TYPE a0 = 0.445839214374383;
	static REAL_TYPE a1 = -1.227970132817902;
	static REAL_TYPE b0 = 0.094268996251840;
	static REAL_TYPE b1 =  0.123600085304640;

	if (debut) {
		debut  = 0;
		x1     = h_eq * (1.0 + a1 - b1);
		x2     = h_eq;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * h;
	x2_tmp =  x1 - a1 * x2 + b1 * h;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of h filter 33 Hz */

/* h filter 25 Hz*/
REAL_TYPE
h_filter_25(REAL_TYPE h){
	static REAL_TYPE y  = 0.0;
	static REAL_TYPE x1 = 0.0;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_tmp = 0.0;
	static REAL_TYPE x2_tmp = 0.0;
	static unsigned short debut = 1;
	/* 25 Hz coefficients */
	static REAL_TYPE a0 = 0.344282786628352;
	static REAL_TYPE a1 = -1.010643377701049;
	static REAL_TYPE b0 = 0.137177088974822;
	static REAL_TYPE b1 =  0.196462319952482; /**/

	if (debut) {
		debut  = 0;
		x1     = h_eq * (1.0 + a1 - b1);
		x2     = h_eq;
	}
	// Output
	y = x2;
	// State
	x1_tmp =     - a0 * x2 + b0 * h;
	x2_tmp =  x1 - a1 * x2 + b1 * h;
	// Update
	x1 = x1_tmp;
	x2 = x2_tmp;

	return y;
} /* end of h filter 25 Hz */


/* Altitude hold controller 50 Hz */

REAL_TYPE
altitude_hold_50(REAL_TYPE h_f, REAL_TYPE h_c){
	static REAL_TYPE y = 0.0;
	static REAL_TYPE Ts_h = 1.0/50.0;
	static REAL_TYPE integrator = 532.2730285;

	if ((h_f - h_c) < -50) {
		// Output
		y = Vz_c;
	}
	else if ((h_f - h_c) > 50) {
		// Output
		y = -Vz_c;
	}
	else {
		// Output
		y = Kp_h * (h_f - h_c) + Ki_h * integrator;
		// State
		integrator += Ts_h * (h_f - h_c);
	}

	return y;
}

/* Altitude hold controller 33 Hz */

REAL_TYPE
altitude_hold_33(REAL_TYPE h_f, REAL_TYPE h_c){
	static REAL_TYPE y = 0.0;
	static REAL_TYPE Ts_h = 1.0/33.0;
	static REAL_TYPE integrator = 532.2730285;

	if ((h_f - h_c) < -50) {
		// Output
		y = Vz_c;
	}
	else if ((h_f - h_c) > 50) {
		// Output
		y = -Vz_c;
	}
	else {
		// Output
		y = Kp_h * (h_f - h_c) + Ki_h * integrator;
		// State
		integrator += Ts_h * (h_f - h_c);
	}

	return y;
}

/* Altitude hold controller 25 Hz */

REAL_TYPE
altitude_hold_25(REAL_TYPE h_f, REAL_TYPE h_c){
	static REAL_TYPE y = 0.0;
	static REAL_TYPE Ts_h = 1.0/25.0;
	static REAL_TYPE integrator = 532.2730285;

	if ((h_f - h_c) < -50) {
		// Output
		y = Vz_c;
	}
	else if ((h_f - h_c) > 50) {
		// Output
		y = -Vz_c;
	}
	else {
		// Output
		y = Kp_h * (h_f - h_c) + Ki_h * integrator;
		// State
		integrator += Ts_h * (h_f - h_c);
	}

	return y;
}

/* Altitude hold controller 10 Hz */

REAL_TYPE
altitude_hold_10(REAL_TYPE h_f, REAL_TYPE h_c){
	static REAL_TYPE y = 0.0;
	static REAL_TYPE Ts_h = 1.0/10.0;
	static REAL_TYPE integrator = 532.2730285;

	if ((h_f - h_c) < -50) {
		// Output
		y = Vz_c;
	}
	else if ((h_f - h_c) > 50) {
		// Output
		y = -Vz_c;
	}
	else {
		// Output
		y = Kp_h * (h_f - h_c) + Ki_h * integrator;
		// State
		integrator += Ts_h * (h_f - h_c);
	}

	return y;
}

/* Va Speed controller 50 Hz */
REAL_TYPE
Va_control_50(REAL_TYPE Va_f, REAL_TYPE Vz_f, REAL_TYPE q_f, REAL_TYPE Va_c){
	static REAL_TYPE y = 0.0;
	static REAL_TYPE Ts_K1 = 1.0/50.0;
	static REAL_TYPE integrator = 0.0;

	// Output
	y = K1_intVa * integrator + K1_Va * (Va_f - Va_eq) + K1_Vz * Vz_f + K1_q * q_f + delta_th_eq;
	// State
	integrator += Ts_K1 * (Va_c - Va_f + Va_eq);

	return y;
}

/* Va Speed controller 33 Hz */
REAL_TYPE
Va_control_33(REAL_TYPE Va_f, REAL_TYPE Vz_f, REAL_TYPE q_f, REAL_TYPE Va_c){
	static REAL_TYPE y = 0.0;
	static REAL_TYPE Ts_K1 = 1.0/33.0;
	static REAL_TYPE integrator = 0.0;

	// Output
	y = K1_intVa * integrator + K1_Va * (Va_f - Va_eq) + K1_Vz * Vz_f + K1_q * q_f + delta_th_eq;
	// State
	integrator += Ts_K1 * (Va_c - Va_f + Va_eq);

	return y;
}

/* Va Speed controller 25 Hz */
REAL_TYPE
Va_control_25(REAL_TYPE Va_f, REAL_TYPE Vz_f, REAL_TYPE q_f, REAL_TYPE Va_c){
	static REAL_TYPE y = 0.0;
	static REAL_TYPE Ts_K1 = 1.0/25.0;
	static REAL_TYPE integrator = 0.0;

	// Output
	y = K1_intVa * integrator + K1_Va * (Va_f - Va_eq) + K1_Vz * Vz_f + K1_q * q_f + delta_th_eq;
	// State
	integrator += Ts_K1 * (Va_c - Va_f + Va_eq);

	return y;
}

/* Va Speed controller 10 Hz */
REAL_TYPE
Va_control_10(REAL_TYPE Va_f, REAL_TYPE Vz_f, REAL_TYPE q_f, REAL_TYPE Va_c){
	static REAL_TYPE y = 0.0;
	static REAL_TYPE Ts_K1 = 1.0/10.0;
	static REAL_TYPE integrator = 0.0;

	// Output
	y = K1_intVa * integrator + K1_Va * (Va_f - Va_eq) + K1_Vz * Vz_f + K1_q * q_f + delta_th_eq;
	// State
	integrator += Ts_K1 * (Va_c - Va_f + Va_eq);

	return y;
}

/* Vz Speed controller 50 Hz */
REAL_TYPE
Vz_control_50(REAL_TYPE Vz_f, REAL_TYPE Vz_c, REAL_TYPE q_f, REAL_TYPE az_f){
	static REAL_TYPE y = 0.0;
	static REAL_TYPE Ts_K2 = 1.0/50.0;
	static REAL_TYPE integrator = 0.0;

	// Output
	y = K2_intVz * integrator + K2_Vz * Vz_f + K2_q * q_f + K2_az * az_f + delta_e_eq;
	// State
	integrator += Ts_K2 * (Vz_c - Vz_f);

	return y;
}

/* Vz Speed controller 33 Hz */
REAL_TYPE
Vz_control_33(REAL_TYPE Vz_f, REAL_TYPE Vz_c, REAL_TYPE q_f, REAL_TYPE az_f){
	static REAL_TYPE y = 0.0;
	static REAL_TYPE Ts_K2 = 1.0/33.0;
	static REAL_TYPE integrator = 0.0;

	// Output
	y = K2_intVz * integrator + K2_Vz * Vz_f + K2_q * q_f + K2_az * az_f + delta_e_eq;
	// State
	integrator += Ts_K2 * (Vz_c - Vz_f);

	return y;
}

/* Vz Speed controller 25 Hz */
REAL_TYPE
Vz_control_25(REAL_TYPE Vz_f, REAL_TYPE Vz_c, REAL_TYPE q_f, REAL_TYPE az_f){
	static REAL_TYPE y = 0.0;
	static REAL_TYPE Ts_K2 = 1.0/25.0;
	static REAL_TYPE integrator = 0.0;

	// Output
	y = K2_intVz * integrator + K2_Vz * Vz_f + K2_q * q_f + K2_az * az_f + delta_e_eq;
	// State
	integrator += Ts_K2 * (Vz_c - Vz_f);

	return y;
}

/* Vz Speed controller 10 Hz */
REAL_TYPE
Vz_control_10(REAL_TYPE Vz_f, REAL_TYPE Vz_c, REAL_TYPE q_f, REAL_TYPE az_f){
	static REAL_TYPE y = 0.0;
	static REAL_TYPE Ts_K2 = 1.0/10.0;
	static REAL_TYPE integrator = 0.0;

	// Output
	y = K2_intVz * integrator + K2_Vz * Vz_f + K2_q * q_f + K2_az * az_f + delta_e_eq;
	// State
	integrator += Ts_K2 * (Vz_c - Vz_f);

	return y;
}

/* Engine */
REAL_TYPE
engine(REAL_TYPE delta_th_c) {

	static REAL_TYPE y      = delta_th_eq;
	static REAL_TYPE x1     = delta_th_eq;
	static REAL_TYPE x1_dot = 0.0;
	static REAL_TYPE tau    = 0.75;

	// Output
	y = 26350.0 * x1;
	// State Equation
	x1_dot = -tau * x1 + tau * delta_th_c;
	// Update State
	x1 += dt_dx * x1_dot;

	return y;
}

/* Elevator */
REAL_TYPE
elevator(REAL_TYPE delta_e_c) {

	static REAL_TYPE y  = delta_e_eq;
	static REAL_TYPE x1 = delta_e_eq;
	static REAL_TYPE x2 = 0.0;
	static REAL_TYPE x1_dot = 0.0;
	static REAL_TYPE x2_dot = 0.0;
	static REAL_TYPE omega = 25.0;
	static REAL_TYPE xi = 0.85;

	// Output
	y = x1;
	// State Equation
	x1_dot = x2;
	x2_dot = -omega * omega * x1 - 2.0 * xi * omega * x2 + omega * omega * delta_e_c;
	// Update State
	x1 += dt_de * x1_dot;
	x2 += dt_de * x2_dot;

	return y;
}


/* Flight dynamics */
void aircraft_dynamics (REAL_TYPE delta_e, REAL_TYPE T,  struct aircraft_dynamics_outs_t *outputs){

	static int debut = 1;

	static REAL_TYPE u 	= 0.0;
	static REAL_TYPE w 	= 0.0;
	static REAL_TYPE q 	= 0.0;
	static REAL_TYPE theta 	= 0.0;
	static REAL_TYPE h 	= 0.0;
	static REAL_TYPE u_dot 	= 0.0;
	static REAL_TYPE w_dot 	= 0.0;
	static REAL_TYPE q_dot 	= 0.0;
	static REAL_TYPE theta_dot = 0.0;
	static REAL_TYPE h_dot 	= 0.0;

	static REAL_TYPE CD 	= 0.0;
	static REAL_TYPE CL 	= 0.0;
	static REAL_TYPE Cm 	= 0.0;

	static REAL_TYPE Xa 	= 0.0;
	static REAL_TYPE Za 	= 0.0;
	static REAL_TYPE Ma 	= 0.0;

	static REAL_TYPE alpha 	= 0.0;
	static REAL_TYPE qbar 	= 0.0;
	static REAL_TYPE V 	= 0.0;
	static REAL_TYPE rho 	= 0.0;

	if (debut) {
		debut = 0;
		u     = Va_eq * MATH_COS(theta_eq);
		w     = Va_eq * MATH_SIN(theta_eq);
		q     = 0.0;
		theta = theta_eq;
		h     = h_eq;
	}

	rho   = rho0 * pow(1.0 + T0_h / T0_0 * h,- g0 / (Rs * T0_h) - 1.0);
	alpha = atan(w/u);
	V     = sqrt(u * u + w * w);
	qbar  = 0.5 * rho * V * V;
	CL    = CL_deltae * delta_e + CL_alpha * (alpha - alpha_0);
	CD    = CD_0 + CD_deltae * delta_e + CD_alpha * (alpha - alpha_0) * (alpha - alpha_0);
	Cm    = Cm_0 + Cm_deltae * delta_e + Cm_alpha * alpha + 0.5 * Cm_q * q * cbar / V;
	Xa    = - qbar * S * (CD * MATH_COS(alpha) - CL * MATH_SIN(alpha));
	Za    = - qbar * S * (CD * MATH_SIN(alpha) + CL * MATH_COS(alpha));
	Ma    = qbar * cbar * S * Cm;

	// Output
	outputs -> Va = V;
	outputs -> Vz = w * MATH_COS(theta) - u * MATH_SIN(theta);
	outputs -> q  = q;
	outputs -> az = g0 * MATH_COS(theta) + Za / masse;
	outputs -> h  = h;
	// State Equation
	u_dot     = - g0 * sin (theta) - q * w + (Xa + T) / masse;
	w_dot     = g0 * MATH_COS (theta) + q * u + Za / masse;
	q_dot     = Ma / I_y;
	theta_dot = q;
	h_dot     = u * MATH_SIN(theta) - w * MATH_COS(theta);
	// Update State
	u     += dt * u_dot;
	w     += dt * w_dot;
	q     += dt * q_dot;
	theta += dt * theta_dot;
	h     += dt * h_dot;


	static REAL_TYPE Time = 0.0;


	// instant++;
	Time = Time + dt;
}

/*
 * The commanded altitude
 */
REAL_TYPE input_h_c() {
	return h_c;
}

/*
 * The commanded airspeed
 */
REAL_TYPE input_Va_c() {
	return Va_c;
}

void output_delta_th_c(REAL_TYPE delta_th_c){

}

void output_delta_e_c(REAL_TYPE delta_e_c){

}