diff -cp5r dstool-enterprise/bin/dstool_tk dstool_tk-redhat8/bin/dstool_tk *** dstool-enterprise/bin/dstool_tk 2004-03-05 01:23:01.000000000 +1100 --- dstool_tk-redhat8/bin/dstool_tk 2001-09-05 23:39:24.000000000 +1000 *************** *** 2,16 **** # # Run dstool_tk # # This line records the location of the DSTOOL installation: ! : ${DSTOOL=/enm/local/dstool} # The following determines machine type according to whatever clues your # system makes available. - ARCH=linux # PJN 4/3/2004 if [ -z "${ARCH}" ]; then case "$CPU" in iris4) ARCH=iris;; sun4os4) ARCH=sun4;; "") ARCH=unknown;; --- 2,15 ---- # # Run dstool_tk # # This line records the location of the DSTOOL installation: ! : ${DSTOOL=/u/pkg/dstool_tk} # The following determines machine type according to whatever clues your # system makes available. if [ -z "${ARCH}" ]; then case "$CPU" in iris4) ARCH=iris;; sun4os4) ARCH=sun4;; "") ARCH=unknown;; diff -cp5r dstool-enterprise/config/Makedefs.linux dstool_tk-redhat8/config/Makedefs.linux *** dstool-enterprise/config/Makedefs.linux 2004-09-06 23:43:22.000000000 +1000 --- dstool_tk-redhat8/config/Makedefs.linux 2001-09-05 23:39:25.000000000 +1000 *************** *** 4,11 **** # CC = cc WFLAGS = -Wall ! TCL_INCLUDES = -I/enm/local/include ! X11_LIBS = -L/enm/local/X11R6/lib -lX11 OTHER_SYS_LIBS = -ldl --- 4,11 ---- # CC = cc WFLAGS = -Wall ! TCL_INCLUDES = -I/usr/include/tcl ! X11_LIBS = -L/usr/X11R6/lib -lX11 OTHER_SYS_LIBS = -ldl diff -cp5r dstool-enterprise/config/Makefile.defs dstool_tk-redhat8/config/Makefile.defs *** dstool-enterprise/config/Makefile.defs 2004-03-04 23:39:51.000000000 +1100 --- dstool_tk-redhat8/config/Makefile.defs 2001-09-05 23:39:25.000000000 +1000 *************** *** 13,31 **** # # standard directories # ! TCL_INCLUDES = -I/enm/local/include ! TCL_LIBS = -L/enm/local/lib -ltk -ltcl # # standard exectuables # ! CC = gcc INSTALL = $(CP) MAKE = make MKDIRHIER = mkdirhier CP = /bin/cp RM = /bin/rm -f --- 13,31 ---- # # standard directories # ! TCL_INCLUDES = -I/usr/local/include ! TCL_LIBS = -L/usr/local/lib -ltk -ltcl # # standard exectuables # ! CC = cc INSTALL = $(CP) MAKE = make MKDIRHIER = mkdirhier CP = /bin/cp RM = /bin/rm -f diff -cp5r dstool-enterprise/config/site.def dstool_tk-redhat8/config/site.def *** dstool-enterprise/config/site.def 2004-03-05 00:47:28.000000000 +1100 --- dstool_tk-redhat8/config/site.def 2001-12-19 04:58:47.000000000 +1100 *************** *** 1,18 **** # # site.def # # At Cornell CAM on the Suns do : ! TCL_LIBS = -L/enm/local/lib -ltk8.4 -ltcl8.4 TCLSH = tclsh # if using solaris cc, do: #CC = cc #WFLAGS = #X11_LIBS = -L/usr/openwin/lib -R/usr/openwin/lib -lX11 - CC = gcc -B/enm/local/bin -Wl,--rpath -Wl,/enm/local/lib -Wl,-dynamic-linker=/enm/local/lib/ld-linux.so.2 # Uncomment if you are installing the pvm version # #PVM = -DPVM --- 1,17 ---- # # site.def # # At Cornell CAM on the Suns do : ! TCL_LIBS = -L/usr/lib -ltk -ltcl TCLSH = tclsh # if using solaris cc, do: #CC = cc #WFLAGS = #X11_LIBS = -L/usr/openwin/lib -R/usr/openwin/lib -lX11 # Uncomment if you are installing the pvm version # #PVM = -DPVM Only in dstool_tk-redhat8: fileslist diff -cp5r dstool-enterprise/Makefile dstool_tk-redhat8/Makefile *** dstool-enterprise/Makefile 2004-03-05 00:45:20.000000000 +1100 --- dstool_tk-redhat8/Makefile 2001-09-05 23:39:19.000000000 +1000 *************** *** 4,14 **** TOP = . CONFIG = config CURRENT_DIR = . TARFILE = dstool_tk.tar - CC = gcc -B/enm/local/bin -Wl,--rpath -Wl,/enm/local/lib -Wl,-dynamic-linker=/enm/local/lib/ld-linux.so.2 include $(CONFIG)/Makefile.defs SUBDIRS = config oogl help src tcl my_dstool --- 4,13 ---- diff -cp5r dstool-enterprise/src/fixed/fp_eval.c dstool_tk-redhat8/src/fixed/fp_eval.c *** dstool-enterprise/src/fixed/fp_eval.c 1998-03-12 16:41:17.000000000 +1100 --- dstool_tk-redhat8/src/fixed/fp_eval.c 2001-09-05 23:39:36.000000000 +1000 *************** fp_eval( struct Fixpt_DataS* fp) *** 51,67 **** fp_jac(fp,0); /* for a map, the jacobian computed was for f^r(x)-x */ if (fp->prop_cntl.mapping_flag) for (i=0; ijacobian[i][i] += 1.0; ! /* Debugging code: print Jacobian fprintf(stderr,"Jacobian: \n"); for (i=0; ijacobian[i][j]); fprintf(stderr,"\n"); } ! */ if (var_dim==1) { fp->eval[0][0] = fp->jacobian[0][0]; } else { --- 51,67 ---- fp_jac(fp,0); /* for a map, the jacobian computed was for f^r(x)-x */ if (fp->prop_cntl.mapping_flag) for (i=0; ijacobian[i][i] += 1.0; ! /* Debugging code: print Jacobian fprintf(stderr,"Jacobian: \n"); for (i=0; ijacobian[i][j]); fprintf(stderr,"\n"); } ! */ if (var_dim==1) { fp->eval[0][0] = fp->jacobian[0][0]; } else { diff -cp5r dstool-enterprise/src/fixed/fp_jac.c dstool_tk-redhat8/src/fixed/fp_jac.c *** dstool-enterprise/src/fixed/fp_jac.c 1998-03-12 16:43:15.000000000 +1100 --- dstool_tk-redhat8/src/fixed/fp_jac.c 2001-09-05 23:39:36.000000000 +1000 *************** fp_jac( struct Fixpt_DataS* fp, int fd_f *** 90,111 **** { /* vector field */ if (fp->prop_cntl.dfdx && fd_flag == 0) { /* jacobian is given */ ! status = dfdx(fp->jacobian, var_dim, NULL, fp->x1, fp->prop_cntl.parameters, ! 0, fp->prop_cntl.manifold, ! fp->prop_cntl.mapping_flag, fp->prop_cntl.function, fp->prop_cntl.dfdx, ! ANALYTIC, fp->prop_cntl.workspace); } else { /* compute finite difference jacobian */ ! status = dfdx(fp->jacobian, var_dim, fp->x2, fp->x1, fp->prop_cntl.parameters, ! 0, fp->prop_cntl.manifold, ! fp->prop_cntl.mapping_flag, fp->prop_cntl.function, fp->prop_cntl.dfdx, ! CEN_DIFF, fp->prop_cntl.workspace); } fp->prop_cntl.function(fp->fx, fp->x1, fp->prop_cntl.parameters); } return(status); } --- 90,111 ---- { /* vector field */ if (fp->prop_cntl.dfdx && fd_flag == 0) { /* jacobian is given */ ! status = dfdx(fp->jacobian, var_dim, NULL, fp->x1, ! fp->prop_cntl.parameters, 0, fp->prop_cntl.manifold, ! fp->prop_cntl.mapping_flag, fp->prop_cntl.function, ! fp->prop_cntl.dfdx, ANALYTIC, fp->prop_cntl.workspace); } else { /* compute finite difference jacobian */ ! status = dfdx(fp->jacobian, var_dim, fp->x2, fp->x1, ! fp->prop_cntl.parameters, 0, fp->prop_cntl.manifold, ! fp->prop_cntl.mapping_flag, fp->prop_cntl.function, ! fp->prop_cntl.dfdx, CEN_DIFF, fp->prop_cntl.workspace); } fp->prop_cntl.function(fp->fx, fp->x1, fp->prop_cntl.parameters); } return(status); } diff -cp5r dstool-enterprise/src/include/constants.h dstool_tk-redhat8/src/include/constants.h *** dstool-enterprise/src/include/constants.h 1998-03-12 16:45:48.000000000 +1100 --- dstool_tk-redhat8/src/include/constants.h 2001-09-05 23:39:26.000000000 +1000 *************** enhancement. *** 33,42 **** --- 33,45 ---- #define TRUE 1 #define FALSE 0 + /* fix for interrupt.c in $DSTOOL/src/utilities */ + #define DST_NONE 1 + /* general error conditions */ #define MINOR_ERROR 1 #define NO_ERROR 0 #define MAJOR_ERROR -1 #define NO_KEY -1 Only in dstool_tk-redhat8/src/man1d: COPYRIGHT Only in dstool_tk-redhat8/src/man1d: help_man1d.tk diff -cp5r dstool-enterprise/src/man1d/Makefile dstool_tk-redhat8/src/man1d/Makefile *** dstool-enterprise/src/man1d/Makefile 2004-09-08 02:12:59.000000000 +1000 --- dstool_tk-redhat8/src/man1d/Makefile 2003-04-12 00:41:39.000000000 +1000 *************** include $(CONFIG)/Makefile.defs *** 15,24 **** man1d_compute.c man1d_noinv_build.c man1d_noinv_acc.c OBJS = man1d_install.o man1d_list.o man1d_load.o \ man1d_linear.o man1d_acc.o man1d_funct.o man1d_build.o \ man1d_compute.o man1d_noinv_build.o man1d_noinv_acc.o ! INCLUDE_FILES = man1d.h man1d_list.h man1d_funct.h all:: $(LIB_NAME) install include $(CONFIG)/Makefile.rules --- 15,24 ---- man1d_compute.c man1d_noinv_build.c man1d_noinv_acc.c OBJS = man1d_install.o man1d_list.o man1d_load.o \ man1d_linear.o man1d_acc.o man1d_funct.o man1d_build.o \ man1d_compute.o man1d_noinv_build.o man1d_noinv_acc.o ! INCLUDE_FILES = man1d.h man1d_list.h man1d_funct.h all:: $(LIB_NAME) install include $(CONFIG)/Makefile.rules Only in dstool_tk-redhat8/src/man1d: man1d.tk diff -cp5r dstool-enterprise/src/man1d/man1d_help.txt dstool_tk-redhat8/src/man1d/man1d_help.txt *** dstool-enterprise/src/man1d/man1d_help.txt 2004-09-08 03:13:10.000000000 +1000 --- dstool_tk-redhat8/src/man1d/man1d_help.txt 2003-04-11 16:52:33.000000000 +1000 *************** *** 48,58 **** IMA Vol. Math. Appl. 119, pp. 199-208, Springer-Verlag 2000. [3] J. England, B. Krauskopf and H.M. Osinga, "Computing one-dimensional stable manifolds of planar maps without the inverse", ! SIAM J. on Applied Dynamical Systems 3(2): 161-190, 2004. ====================================================================== Explanation of the parameters --- 48,59 ---- IMA Vol. Math. Appl. 119, pp. 199-208, Springer-Verlag 2000. [3] J. England, B. Krauskopf and H.M. Osinga, "Computing one-dimensional stable manifolds of planar maps without the inverse", ! Bristol Centre for Applied Nonlinear Mathematics ! preprint #2003.02, April 2003. ====================================================================== Explanation of the parameters diff -cp5r dstool-enterprise/src/man1d/man1d_linear.c dstool_tk-redhat8/src/man1d/man1d_linear.c *** dstool-enterprise/src/man1d/man1d_linear.c 2004-09-07 02:35:15.000000000 +1000 --- dstool_tk-redhat8/src/man1d/man1d_linear.c 2003-04-11 02:38:22.000000000 +1000 *************** *** 10,20 **** */ #include "flow.h" #include "eigen.h" #include "fixed.h" ! #include "/home/enhmo/src/dstool_tk/src/fixed/fixed_local.h" /* replace $DSTOOL with full address */ #include "man1d.h" int man1d_linear(struct Man1D_DataS *s, struct Fixpt_DataS *fp, --- 10,20 ---- */ #include "flow.h" #include "eigen.h" #include "fixed.h" ! #include "../fixed/fixed_local.h" /* replace $DSTOOL with full address */ #include "man1d.h" int man1d_linear(struct Man1D_DataS *s, struct Fixpt_DataS *fp, Only in dstool_tk-redhat8/src/man1d: README diff -cp5r dstool-enterprise/src/utilities/interrupt.c dstool_tk-redhat8/src/utilities/interrupt.c *** dstool-enterprise/src/utilities/interrupt.c 2004-03-05 00:16:43.000000000 +1100 --- dstool_tk-redhat8/src/utilities/interrupt.c 2001-09-05 23:39:36.000000000 +1000 *************** enhancement. *** 34,45 **** #include #include #include - #define DST_NONE 0 - static int stop_flag; struct timeval lasttime = {0,0}; struct timezone tz = {0, DST_NONE}; int --- 34,43 ---- diff -cp5r dstool-enterprise/src/utilities/Makefile dstool_tk-redhat8/src/utilities/Makefile *** dstool-enterprise/src/utilities/Makefile 2004-03-05 00:12:26.000000000 +1100 --- dstool_tk-redhat8/src/utilities/Makefile 2001-09-05 23:39:36.000000000 +1000 *************** *** 1,11 **** # # Makefile # TOP = ../.. ! CONFIG = /enm/local/dstool/config CURRENT_DIR = src/utilities INCLUDE_DIR = ../include include $(CONFIG)/Makefile.defs --- 1,11 ---- # # Makefile # TOP = ../.. ! CONFIG = $(TOP)/config CURRENT_DIR = src/utilities INCLUDE_DIR = ../include include $(CONFIG)/Makefile.defs Only in dstool_tk-redhat8/src: version.c diff -cp5r dstool-enterprise/tcl/cmd.tk dstool_tk-redhat8/tcl/cmd.tk *** dstool-enterprise/tcl/cmd.tk 2004-09-07 02:32:19.000000000 +1000 --- dstool_tk-redhat8/tcl/cmd.tk 2001-09-05 23:39:40.000000000 +1000 *************** proc cmd(build) name { *** 38,48 **** {"Multiple..." "window(open) multiple"} \ {"Fixed points..." "window(open) fixed"} \ {"Periodic orbits..." "window(open) periodic"} \ {"Equilibrium Continuation..." "window(open) continuation"} \ {} \ ! {"One-D Manifolds... Discrete" "window(open) man1d"} \ } # create message labels if { [ winfo exists $name.cmd ] == 0 } { set cmd [build_CmdFrame $name cmd] --- 38,48 ---- {"Multiple..." "window(open) multiple"} \ {"Fixed points..." "window(open) fixed"} \ {"Periodic orbits..." "window(open) periodic"} \ {"Equilibrium Continuation..." "window(open) continuation"} \ {} \ ! {"One-D Manifolds... Discrete" "window(open) man1d"} \ } # create message labels if { [ winfo exists $name.cmd ] == 0 } { set cmd [build_CmdFrame $name cmd]