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...