/*------------------------------------------------------------------------------------
ヒステリシス回路の方程式のリアプノフスペクトラムの計算
calculating the Lyapunov spectrum of the Hysteretic circuit equations
dx/dt = y + GAMMA * x + C * z;
dy/dt = OMEGA * x - DELTA2 * y;
dz/dt = ( (1.0 - z * z) * (S * x - D + z) - DELTA3 * z )/EPSILON;
hysteretic_circuit_lyap.h
------------------------------------------------------------------------------------*/
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#define ITERATION 10000000
#define SKIP 100000
#define DELTA_T 0.001 // step size of the fourth-order Runge-Kutta method
// 初期値
// initial values
#define X0 1.0
#define Y0 1.1
#define Z0 1.2
// parameters
#define GAMMA 0.2
#define C 2.2
#define DELTA2 0.001
#define DELTA3 0.0001
#define EPSILON 0.3
#define OMEGA -10.0
#define S 1.667
#define D 0.0
// 変数の数
// number of variables
#define DIM 3
/*------------------------------------------------------------------------*/
extern void solve_HC_eqs_using_RK4( double v[DIM], double u[DIM][DIM] );
extern void HC_eqs( double v[DIM], double dfu[DIM][DIM], double dvdt[DIM], double df_k[DIM][DIM] );
extern void gram_schmidt_orth( double u[DIM][DIM], double e[DIM][DIM] );
extern double calc_lyap_dim( double lambda[DIM] );
extern double log2( double x );