TABLE_SHIFT
Shift a Table Dataset

TABLE_SHIFT is a FORTRAN90 program which adjusts an M dimensional dataset of N points by adding a shift vector to each entry.

TABLE_SHIFT expects the input data file to be in the simple TABLE format.

This program was written partly to provide a visual check of the results of the CVT_MOD_DATASET program, which purports to produce a set of CVT points that "don't know about" the boundary. If that's true, then the picture should be roughly isotropic. That is, you shouldn't notice any significant difference between the pattern near or far from the boundaries. It's hard to tell from a plot of the data whether this is so, but it is possible to use this program to make 3 more copies of the data, shifted by (0,1), (1,0) and (1,1), then concatenate the original and three copies, and make a plot of the new data over [0,0] x [2,2], and see whether there are boundary effects. Such a comparison is made in the test data below.

Example:

For some reason, you need to concatenate two graphics files. For technical reasons, this will work, as long as we can increment all the indices in the second file by 100.

File 1 looks like this:

        1  2  3
        4  5  6
        7  8  9
       10 11 12
      

        3  2  1
        6  5  4
        9  8  7
       12 11 10
      

        table_shift file2.txt
      

        103  102 101
        106  105 104
        109  108 107
        112  111 110
      

Usage:

table_shift file.txt

reads the user's data file file.txt, prompts for a shift vector from the user, and then writes the shifted data to a file which will be called file.shift.txt.

Related Data and Programs:

TABLE is a file format which is used for the input to this program.

TABLE_BARPLOT_PPMA is an executable FORTRAN90 program which reads a table file and creates a PPMA bargraph of the data.

TABLE_BORDER is an executable FORTRAN90 program which can be used to add a border (of zero values) to a table file.

TABLE_COLUMNS is an executable FORTRAN90 program which can extract specific columns of data from a table file.

TABLE_COLUMNS_PERMUTE is an executable FORTRAN90 program which permutes the columns of a table file.

TABLE_DELAUNAY is an executable FORTRAN90 program which computes the Delaunay triangulation of a set of points.

TABLE_DIAPHONY is an executable FORTRAN90 program which computes the diaphony of a set of points stored in a table file.

TABLE_HISTOGRAM is an executable FORTRAN90 program which can make a histogram of a set of points stored in a table file.

TABLE_IO is a FORTRAN90 library of routines which supplies the routines used to read the TABLE file.

TABLE_LATINIZE is an executable FORTRAN90 program which reads a file of points and creates a "latinized" version by adjusting the data.

TABLE_MERGE is an executable FORTRAN90 program which reads a file of points, and removes duplicates, and points that are close to each other.

TABLE_ORTHONORMALIZE is an executable FORTRAN90 program which reads a file of points and orthonormalizes the columns.

TABLE_QUALITY is an executable FORTRAN90 program which reads a file of points and computes the quality of dispersion.

TABLE_READ is a MATLAB script that can read in a TABLE file.

TABLE_RECORD_MATCH is an executable FORTRAN90 program which can be used to find close records in a table file.

TABLE_SCALE is an executable FORTRAN90 program which can be used to multiply the entries of a table file by a scale vector.

TABLE_STATS is an executable FORTRAN90 program which can read a table file and compute certain statistics.

TABLE_TET_MESH is an executable FORTRAN90 program which can read a table file of 3D data, and compute a tetrahedral mesh.

TABLE_TOP is an executable FORTRAN90 program which can read a table file of M-dimensional data and make a table of plots of all pairs of coordinates.

TABLE_UNBORDER is an executable FORTRAN90 program which can be used to remove the border from a table file.

TABLE_UNIFORM_NOISE is an executable FORTRAN90 program which can be used to add a uniform noise term to the data in a table file.

TABLE_VORONOI is an executable FORTRAN90 program which can be used to compute information about the Voronoi diagram of the points.

Source Code:

• table_shift.f90, the source code.
• table_shift.csh, commands to compile, link and load the source code.

Examples and Tests:

CVT consists of 100 CVT points computed in a way that incurs boundary effects. Files you may copy include:

• cvt_00.txt, 100 CVT points in 2D.
• cvt_00.png, a PNG image of image of the points.
• cvt_01.txt, 100 CVT points in 2D, shifted by (0,1).
• cvt_10.txt, 100 CVT points in 2D, shifted by (1,0).
• cvt_11.txt, 100 CVT points in 2D, shifted by (1,1).
• cvt_all.txt, 400 CVT points in 2D, containing the original data and the three shifted sets.
• cvt_all.png, a PNG image of the 400 points.

CVT MOD consists of 100 CVT points computed in a way that purports to avoid boundary effects. Files you may copy include:

• cvt_mod_00.txt, 100 CVT MOD points in 2D.
• cvt_mod_00.png, a PNG image of the points.
• cvt_mod_01.txt, 100 CVT MOD points in 2D, shifted by (0,1).
• cvt_mod_10.txt, 100 CVT MOD points in 2D, shifted by (1,0).
• cvt_mod_11.txt, 100 CVT MOD points in 2D, shifted by (1,1).
• cvt_mod_all.txt, 400 CVT MOD points in 2D, containing the original data and the three shifted sets.
• cvt_mod_all.png, a PNG image of the 400 points.

FILE1 and FILE2 are simple integer files that we take to refer to indices of graphical objects. Before merging the two files, we need to add 100 to each entry in FILE2. Files you may copy include:

• file1.txt, the first file (4 lines, 3 columns).
• file2.txt, the second file (4 lines, 3 columns).
• file2.shift.txt, the second file, shifted by (100,100,100).
• file3.txt, the file made by merging file1.txt and file2.shift.txt.

List of Routines:

• MAIN is the main program for TABLE_SHIFT.
• CH_CAP capitalizes a single character.
• CH_EQI is a case insensitive comparison of two characters for equality.
• CH_TO_DIGIT returns the integer value of a base 10 digit.
• DTABLE_DATA_PRINT_SOME prints some of a double precision table dataset.
• DTABLE_DATA_READ reads double precision table data from a file.
• DTABLE_DATA_WRITE writes a double precision table dataset to a file.
• DTABLE_HEADER_READ reads header data from a file.
• DTABLE_HEADER_WRITE writes the table header data to a file.
• DTABLE_SHIFTED_WRITE writes a real shifted table dataset to a file.
• FILE_COLUMN_COUNT counts the number of columns in the first line of a file.
• FILE_NAME_EXT_GET determines the "extension" of a file name.
• FILE_NAME_EXT_SWAP replaces the current "extension" of a file name.
• FILE_ROW_COUNT counts the number of row records in a file.
• GET_UNIT returns a free FORTRAN unit number.
• S_BLANK_DELETE removes blanks from a string, left justifying the remainder.
• S_INDEX_LAST finds the LAST occurrence of a given substring.
• S_TO_R8 reads an R8 from a string.
• S_TO_R8VEC reads an R8VEC from a string.
• S_WORD_COUNT counts the number of "words" in a string.
• TIMESTAMP prints the current YMDHMS date as a time stamp.
• TIMESTRING writes the current YMDHMS date into a string.

You can go up one level to the FORTRAN90 source codes.