ot

I am very interested in running this program.
If someone could create a exe file that will run in windows.
I guess you could let me know if it even works, or post the exe here
it would help me.

It's called timewave zero and it supposed to project a factal wave
that you can look at that coresponds with dates. It was an idea of
Terence Mckenna's, the program is no longer available and there are
just different codes on the internet I have found.
This one seems to be the program to look at the fractal wave, and you
can give input on the date you want to look at and zoom in on.

/* TW_EN.C
* by Peter Meyer
* last revision: 2-AUG-91
*/

#include <MATH.H>
#include <ERRNO.H>
#include <FCNTL.H>
#include <SYS\TYPES.H>
#include <SYS\STAT.H>
#include <IO.H>
#include <STDIO.H>
#include <CONIO.H>
#include <STDLIB.H>

#define TRUE 1
#define FALSE 0
#define MAX_DATA_POINTS 400
#define MAX_INPUT_LENGTH 14
#define CALC_PREC 10
/* precision in calculation of wave values */

/* function declarations */
void main(void);
int read_data_points(void);
double f(double x);
double v(double y);

/* storage allocation */
int wave_factor = 64; /* the usual value */
int num_data_points;
int w[MAX_DATA_POINTS]; /* array holding the values */
/* of the data points */
char datafile[65] = "DATA.TWZ";
char buffer[2048]; /* input buffer */
double powers[20]; /* powers of wave_factor */
/* extern int errno not required when compiling with MSC 6.00
*/

/*-----------*/
void main(void)
{
int i;
double days;

if ( read_data_points() )
{
printf("\nError when reading data file.");
exit(1);
}
else
printf("\nNumber of data points = %d\n",num_data_points);

if ( num_data_points < 4 )
{
printf("Not enough values in data file.\n");
exit(2);
}

/* put powers[i] = wave_factor^i */
powers[0] = (double)1;
for ( i=1; i<sizeof(powers)/sizeof(double); i++ )
powers[i] = wave_factor*powers[i-1];

printf("\nThis program calculates the value of the timewave\n");
printf("for a given number of days prior to the zero point.\n");
printf("\nTo quit, press Enter.");

while ( TRUE )
{
printf("\n\nDays to zero date: ");
buffer[0] = MAX_INPUT_LENGTH + 1;
cgets(buffer);
printf("\n");
if ( !buffer[1] )
break;
days = atof(&buffer[2]);
if ( days < 0 )
printf("Number of days must not be negative.");
else
printf("Value = %.14f",f(days));
}
}

/* x is number of days to zero date;
* x may be non-integral
*/
/*--------------*/
double f(double x)
{
register int i;
double sum=0;

if ( x )
{
for ( i=0; x >= powers[i]; i++ )
sum += v(x/powers[i])*powers[i];

if ( !sum )
{
for ( i=1; i<CALC_PREC; i++ )
sum += v(x*powers[i])/powers[i];
}
else
{
/* sum must be > 1 */
for ( i=1; sum < powers[CALC_PREC-i]; i++ )
sum += v(x*powers[i])/powers[i];
/* sum < powers[CALC_PREC-i] if and only if */
/* 1/powers[i] > sum/powers[CALC_PREC] */
/* CALC_PREC defined as 10 in TWZ_DEF.H */
}
}

return ( sum/powers[3] );
}
/* dividing by 64^3 gives values consistent with
* the Apple // version of Timewave Zero
*/

/*--------------*/
double v(double y)
{
register int i = (int)(fmod(y,(double)num_data_points));
register int j = (i+1)%num_data_points;
double z = y - floor(y);

return ( z==0.0 ? (double)w[i] : ( w[j] - w[i] )*z + w[i] );
}

/* read integer values from the data file
* (normally DATA.TWZ) into the array w[];
* all values must be non-negative
* returns 0 if data read ok, otherwise an error code:
* -1 = file not found,
* -2 = error when opening file,
* -3 = error when reading file
*/
/*----------------------*/
int read_data_points(void)
{
int fh, result=0, i=-1, k;
int length, reading_number=FALSE;
char b;

num_data_points = 0;

if ( ( fh = open(datafile,O_RDONLY|O_BINARY) ) == - 1 )
result = -1;
else
{
length = (unsigned int)filelength(fh);
if ( ( read(fh,buffer,length) ) == -1 )
result = -2;
else
{
while ( ++i < length && num_data_points < MAX_DATA_POINTS )
{
b = buffer[i];
if ( b >= '0' && b <= '9' )
{
if ( !reading_number )
{
reading_number = TRUE;
k = b-'0';
}
else
k = 10*k + b-'0';
}
else
{
if ( reading_number )
{
reading_number = FALSE;
w[num_data_points++] = k;
}
}
}
}
close ( fh );
}
return ( result );
}

alex russell

save it as twz.c (NOT cpp) and it should compile just fine with borland
c/c++ v3.1.

--
Alex Russell
alexander.russell@telus.net