Posted By: Jovo (Jovo) on 'CZprogram'
Title:     Fraktalek :)
Date:      Mon Jan 20 13:29:23 1997

// Nazdar,
//   Tohle je programek pocitajici fraktal mandelbrota.
// Nic moc, ale udelalo nam to radost. Pouzijte BC.
// Bye, Jusoft & Jovo.
#include <graphics.h>
#include <conio.h>   // jen kvuli getch();
#include <complex.h>
#define max 16       // jako, ze mame k dispozici jen 16 barev :)

complex iterace(complex z,complex c) {
// z:=z^2+c je original mandelbrota, zkuste treba z:=z*sin(z)+c; a dalsi
// volovinky :)
return(z*z+c);
};

void main (void) {

complex z,c;
int gdriver = DETECT, gmode;
int mx,my,krok,i,j;
initgraph(&gdriver, &gmode, "c:\bc\bgi");
mx=getmaxx();my=getmaxy();
// -2|--------|--------| 0
//   |-2      |       2|
//   |        |0       |
//   |--------|--------|    <- obrazovka
//   |       0|        |
//   |        |        |
//  2|--------|--------| my
//   0                 mx
for(i=0;i<mx;i++)
for(j=0;j<my;j++) {
z=complex(0.0,0.0);
c=complex(i/(double)mx*4-2,j/(double)my*4-2);
// c je v <-2,2>
krok=0;
while ( (abs(z)<=2) && (krok<max) ) {
krok++;
z=iterace(z,c);
};
 putpixel(i,j,krok);
};
getch();
closegraph();
};
//ted se koukam, ze nam to pri paste vykopalo mezery .... no nic...