+++ /dev/null
-/*
- * This file is part of TISEAN
- *
- * Copyright (c) 1998-2007 Rainer Hegger, Holger Kantz, Thomas Schreiber
- *
- * TISEAN is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * TISEAN is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with TISEAN; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
- */
-/*Author: Rainer Hegger. Last modified: Sep 3, 1999*/
-#include <math.h>
-#include <limits.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "routines/tsa.h"
-
-#define WID_STR "Estimates the maximal Lyapunov exponent using the Kantz\n\t\
-algorithm"
-
-#define BOX 128
-const unsigned int ibox=BOX-1;
-
-unsigned long length=ULONG_MAX;
-unsigned long exclude=0;
-unsigned long reference=ULONG_MAX;
-unsigned int maxdim=2;
-unsigned int mindim=2;
-unsigned int delay=1;
-unsigned int column=1;
-unsigned int epscount=5;
-unsigned int maxiter=50;
-unsigned int window=0;
-unsigned int verbosity=0xff;
-double epsmin=1.e-3,epsmax=1.e-2;
-char eps0set=0,eps1set=0;
-char *outfile=NULL;
-char *infile=NULL;
-
-double *series,**lyap;
-long box[BOX][BOX],*liste,**lfound,*found,**count;
-double max,min;
-
-void show_options(char *progname)
-{
- what_i_do(progname,WID_STR);
-
- fprintf(stderr," Usage: %s [options]\n",progname);
- fprintf(stderr," Options:\n");
- fprintf(stderr,"Everything not being a valid option will be "
- "interpreted as a possible datafile.\nIf no datafile "
- "is given stdin is read. Just - also means stdin\n");
- fprintf(stderr,"\t-l # of data [default: whole file]\n");
- fprintf(stderr,"\t-x # of lines to be ignored [default: 0]\n");
- fprintf(stderr,"\t-c column to read [default: 1]\n");
- fprintf(stderr,"\t-M maxdim [default: 2]\n");
- fprintf(stderr,"\t-m mindim [default: 2]\n");
- fprintf(stderr,"\t-d delay [default: 1]\n");
- fprintf(stderr,"\t-r mineps [default: (data interval)/1000]\n");
- fprintf(stderr,"\t-R maxeps [default: (data interval)/100]\n");
- fprintf(stderr,"\t-# # of eps [default: 5]\n");
- fprintf(stderr,"\t-n # of reference points [default: # of data]\n");
- fprintf(stderr,"\t-s # of iterations [default: 50]\n");
- fprintf(stderr,"\t-t time window [default: 0]\n");
- fprintf(stderr,"\t-o outfile [default: 'datafile'.lyap]\n");
- fprintf(stderr,"\t-V verbosity level [default: 3]\n\t\t"
- "0='only panic messages'\n\t\t"
- "1='+ input/output messages'\n\t\t"
- "2='+ plus statistics'\n");
- fprintf(stderr,"\t-h show these options\n");
- exit(0);
-}
-
-void scan_options(int n,char **str)
-{
- char *out;
-
- if ((out=check_option(str,n,'l','u')) != NULL)
- sscanf(out,"%lu",&length);
- if ((out=check_option(str,n,'x','u')) != NULL)
- sscanf(out,"%lu",&exclude);
- if ((out=check_option(str,n,'c','u')) != NULL)
- sscanf(out,"%u",&column);
- if ((out=check_option(str,n,'M','u')) != NULL)
- sscanf(out,"%u",&maxdim);
- if ((out=check_option(str,n,'m','u')) != NULL)
- sscanf(out,"%u",&mindim);
- if ((out=check_option(str,n,'d','u')) != NULL)
- sscanf(out,"%u",&delay);
- if ((out=check_option(str,n,'r','f')) != NULL) {
- eps0set=1;
- sscanf(out,"%lf",&epsmin);
- }
- if ((out=check_option(str,n,'R','f')) != NULL) {
- eps1set=1;
- sscanf(out,"%lf",&epsmax);
- }
- if ((out=check_option(str,n,'#','u')) != NULL)
- sscanf(out,"%u",&epscount);
- if ((out=check_option(str,n,'n','u')) != NULL)
- sscanf(out,"%lu",&reference);
- if ((out=check_option(str,n,'s','u')) != NULL)
- sscanf(out,"%u",&maxiter);
- if ((out=check_option(str,n,'t','u')) != NULL)
- sscanf(out,"%u",&window);
- if ((out=check_option(str,n,'V','u')) != NULL)
- sscanf(out,"%u",&verbosity);
- if ((out=check_option(str,n,'o','o')) != NULL)
- if (strlen(out) > 0)
- outfile=out;
-}
-
-void put_in_boxes(double eps)
-{
- unsigned long i;
- long j,k;
- static unsigned long blength;
-
- blength=length-(maxdim-1)*delay-maxiter;
-
- for (i=0;i<BOX;i++)
- for (j=0;j<BOX;j++)
- box[i][j]= -1;
-
- for (i=0;i<blength;i++) {
- j=(long)(series[i]/eps)&ibox;
- k=(long)(series[i+delay]/eps)&ibox;
- liste[i]=box[j][k];
- box[j][k]=i;
- }
-}
-
-void lfind_neighbors(long act,double eps)
-{
- unsigned int hi,k,k1;
- long i,j,i1,i2,j1,element;
- static long lwindow;
- double dx,eps2=sqr(eps);
-
- lwindow=(long)window;
- for (hi=0;hi<maxdim-1;hi++)
- found[hi]=0;
- i=(long)(series[act]/eps)&ibox;
- j=(long)(series[act+delay]/eps)&ibox;
- for (i1=i-1;i1<=i+1;i1++) {
- i2=i1&ibox;
- for (j1=j-1;j1<=j+1;j1++) {
- element=box[i2][j1&ibox];
- while (element != -1) {
- if ((element < (act-lwindow)) || (element > (act+lwindow))) {
- dx=sqr(series[act]-series[element]);
- if (dx <= eps2) {
- for (k=1;k<maxdim;k++) {
- k1=k*delay;
- dx += sqr(series[act+k1]-series[element+k1]);
- if (dx <= eps2) {
- k1=k-1;
- lfound[k1][found[k1]]=element;
- found[k1]++;
- }
- else
- break;
- }
- }
- }
- element=liste[element];
- }
- }
- }
-}
-
-void iterate_points(long act)
-{
- double **lfactor;
- double *dx;
- unsigned int i,j,l,l1;
- long k,element,**lcount;
-
- check_alloc(lfactor=(double**)malloc(sizeof(double*)*(maxdim-1)));
- check_alloc(lcount=(long**)malloc(sizeof(long*)*(maxdim-1)));
- for (i=0;i<maxdim-1;i++) {
- check_alloc(lfactor[i]=(double*)malloc(sizeof(double)*(maxiter+1)));
- check_alloc(lcount[i]=(long*)malloc(sizeof(long)*(maxiter+1)));
- }
- check_alloc(dx=(double*)malloc(sizeof(double)*(maxiter+1)));
-
- for (i=0;i<=maxiter;i++)
- for (j=0;j<maxdim-1;j++) {
- lfactor[j][i]=0.0;
- lcount[j][i]=0;
- }
-
- for (j=mindim-2;j<maxdim-1;j++) {
- for (k=0;k<found[j];k++) {
- element=lfound[j][k];
- for (i=0;i<=maxiter;i++)
- dx[i]=sqr(series[act+i]-series[element+i]);
- for (l=1;l<j+2;l++) {
- l1=l*delay;
- for (i=0;i<=maxiter;i++)
- dx[i] += sqr(series[act+i+l1]-series[element+l1+i]);
- }
- for (i=0;i<=maxiter;i++)
- if (dx[i] > 0.0){
- lcount[j][i]++;
- lfactor[j][i] += dx[i];
- }
- }
- }
- for (i=mindim-2;i<maxdim-1;i++)
- for (j=0;j<=maxiter;j++)
- if (lcount[i][j]) {
- count[i][j]++;
- lyap[i][j] += log(lfactor[i][j]/lcount[i][j])/2.0;
- }
-
- for (i=0;i<maxdim-1;i++){
- free(lfactor[i]);
- free(lcount[i]);
- }
- free(lcount);
- free(lfactor);
- free(dx);
-}
-
-int main(int argc,char **argv)
-{
- char stdi=0;
- double eps_fak;
- double epsilon;
- unsigned int i,j,l;
- FILE *fout;
-
- if (scan_help(argc,argv))
- show_options(argv[0]);
-
- scan_options(argc,argv);
-#ifndef OMIT_WHAT_I_DO
- if (verbosity&VER_INPUT)
- what_i_do(argv[0],WID_STR);
-#endif
-
- infile=search_datafile(argc,argv,&column,verbosity);
- if (infile == NULL)
- stdi=1;
-
- if (outfile == NULL) {
- if (!stdi) {
- check_alloc(outfile=(char*)calloc(strlen(infile)+6,1));
- sprintf(outfile,"%s.lyap",infile);
- }
- else {
- check_alloc(outfile=(char*)calloc(11,1));
- sprintf(outfile,"stdin.lyap");
- }
- }
- test_outfile(outfile);
-
- series=get_series(infile,&length,exclude,column,verbosity);
- rescale_data(series,length,&min,&max);
-
- if (eps0set)
- epsmin /= max;
- if (eps1set)
- epsmax /= max;
-
- if (epsmin >= epsmax) {
- epsmax=epsmin;
- epscount=1;
- }
-
- if (reference > (length-maxiter-(maxdim-1)*delay))
- reference=length-maxiter-(maxdim-1)*delay;
- if ((maxiter+(maxdim-1)*delay) >= length) {
- fprintf(stderr,"Too few points to handle these parameters!\n");
- exit(LYAP_K__MAXITER_TOO_LARGE);
- }
-
- if (maxdim < 2)
- maxdim=2;
- if (mindim < 2)
- mindim=2;
- if (mindim > maxdim)
- maxdim=mindim;
-
- check_alloc(liste=(long*)malloc(sizeof(long)*(length)));
- check_alloc(found=(long*)malloc(sizeof(long)*(maxdim-1)));
- check_alloc(lfound=(long**)malloc(sizeof(long*)*(maxdim-1)));
- for (i=0;i<maxdim-1;i++)
- check_alloc(lfound[i]=(long*)malloc(sizeof(long)*(length)));
- check_alloc(count=(long**)malloc(sizeof(long*)*(maxdim-1)));
- for (i=0;i<maxdim-1;i++)
- check_alloc(count[i]=(long*)malloc(sizeof(long)*(maxiter+1)));
- check_alloc(lyap=(double**)malloc(sizeof(double*)*(maxdim-1)));
- for (i=0;i<maxdim-1;i++)
- check_alloc(lyap[i]=(double*)malloc(sizeof(double)*(maxiter+1)));
-
- if (epscount == 1)
- eps_fak=1.0;
- else
- eps_fak=pow(epsmax/epsmin,1.0/(double)(epscount-1));
-
- fout=fopen(outfile,"w");
- if (verbosity&VER_INPUT)
- fprintf(stderr,"Opened %s for writing\n",outfile);
- for (l=0;l<epscount;l++) {
- epsilon=epsmin*pow(eps_fak,(double)l);
- for (i=0;i<maxdim-1;i++)
- for (j=0;j<=maxiter;j++) {
- count[i][j]=0;
- lyap[i][j]=0.0;
- }
- put_in_boxes(epsilon);
- for (i=0;i<reference;i++) {
- lfind_neighbors(i,epsilon);
- iterate_points(i);
- }
- if (verbosity&VER_USR1)
- fprintf(stderr,"epsilon= %e\n",epsilon*max);
- for (i=mindim-2;i<maxdim-1;i++) {
- fprintf(fout,"#epsilon= %e dim= %d\n",epsilon*max,i+2);
- for (j=0;j<=maxiter;j++)
- if (count[i][j])
- fprintf(fout,"%d %e %ld\n",j,lyap[i][j]/count[i][j],count[i][j]);
- fprintf(fout,"\n");
- }
- fflush(fout);
- }
- fclose(fout);
- return 0;
-}