Metropoli BBS
VIEWER: bifurc.c MODE: TEXT (ASCII)
#include <conio.h>
#include <stdio.h>
#include <dos.h>
#include <math.h>
#include "tools.h"

char ch;
int LINEWIDTH = 1;
unsigned long int PATTERN = 0xFFFFFFFF;

void main()
{
	float r=.95,x,delta_r;
	int i,j, row, col;

	setMode(16);

	for (j=0; j<2; j++)
	{
		delta_r = 0.005;
		if (j == 1)
		{
			cls(0);
			r = 3.55;
			delta_r = 0.0005;
		}
		for (col=0; col<639; col++)
		{
			x = .5;
			r += delta_r;
			for (i=0; i<256; i++)
			{
				x = r*x*(1-x);
				if ((x>1000000) || (x<-1000000))
					break;
/*  COMPUTATION FOR rx(1-x)  */

				row = 349 -(x*350);
/*  COMPUTATION FOR x(1-x)
				row = 349 -((x/r)*700);
*/
				if ((i>64) && (row<349) && (row>=0) &&
					(col>=0) && (col<639))
				{
					plot(col,row,15);
				}
			}
		}
		getch();
	}
}


[ RETURN TO DIRECTORY ]