1 // NOTE: compile with g++ filename.cpp -std=c++11    2 #include <iostream>  3 #include <cmath>  4 #include <cstdlib>   5 #define DIM 1024   6 #define DM1 (DIM-1)   7 #define _sq(x) ((x)*(x)) // square   8 #define _cb(x) abs((x)*(x)*(x)) // absolute value of cube   9 #define _cr(x) (unsigned char)(pow ((x),1.0/3.0)) // cube root 10 #define F 11   12 unsigned char GR (int,int); 13 unsigned char BL (int,int); 14   15 unsigned char RD (int i,int j){ 16     #ifdef A 17     return (char)(_sq(cos(atan2(j-512,i-512)/2))*255); 18     #endif 19  20     #ifdef B 21     #define r(n) (rand ()%n)  22     static char c[1024][1024]; 23     return!c[i][j]?c[i][j]=!r(999)?r(256):RD ((i+r(2))%1024,(j+r(2))%1024):c[i][j]; 24     #endif 25  26     #ifdef C 27     float x=0,y=0; 28     int k; 29     for(k=0;k++<256;){ 30         float a=x*x-y*y+ (i-768.0)/512; 31         y=2*x*y+ (j-512.0)/512; 32         x=a; 33         if(x*x+y*y>4)break; 34     } 35     return log (k)*47; 36     #endif 37  38     #ifdef D 39     double a=0,b=0,c,d,n=0; 40     while((c=a*a)+(d=b*b)<4&&n++<880){ 41         b=2*a*b+j*8e-9-.645411; 42         a=c-d+i*8e-9+.356888; 43     } 44     return 255*pow ((n-80)/800,3.); 45     #endif 46  47     #ifdef E 48     static double k; 49     k+=rand ()/1./RAND_MAX; 50     int l=k; 51     l%=512; 52     return l>255?511-l:l; 53     #endif 54  55     #ifdef F 56     float s=3./(j+99); 57     float y=(j+sin ((i*i+_sq (j-700)*5)/100./DIM)*35)*s; 58     return (int((i+DIM)*s+y)%2+int((DIM*2-i)*s+y)%2)*127; 59     #endif 60 /* 61     #ifdef G 62     #define D DIM  63     #define M m[(x+D+ (d==0)-(d==2))%D][(y+D+ (d==1)-(d==3))%D]  64     #define R rand ()%D  65     #define B m[x][y]  66     return(i+j)?256-(BL (i,j))/2:0; 67     #endif 68 */ 69 /* 70     #ifdef H 71     #define A float a=0,b,k,r,x  72     #define B int e,o  73     #define C (x) x>255?255:x  74     #define R return #define D DIM  75     R BL (i,j)*(D-i)/D; 76     #endif 77 */ 78     return 0; 79 } 80 unsigned char GR (int i,int j){ 81     #ifdef A 82     return (char)(_sq (cos (atan2(j-512,i-512)/2-2*acos (-1)/3))*255); 83     #endif 84  85     #ifdef B 86     static char c[1024][1024]; 87     return!c[i][j]?c[i][j]=!r(999)?r(256):GR ((i+r(2))%1024,(j+r(2))%1024):c[i][j]; 88     #endif 89  90     #ifdef C 91     float x=0,y=0; 92     int k; 93     for(k=0;k++<256;){ 94         float a=x*x-y*y+ (i-768.0)/512; 95         y=2*x*y+ (j-512.0)/512; 96         x=a; 97         if(x*x+y*y>4)break; 98     } 99     return log (k)*47;100     #endif101 102     #ifdef D103     double a=0,b=0,c,d,n=0;104     while((c=a*a)+(d=b*b)<4&&n++<880){105         b=2*a*b+j*8e-9-.645411;106         a=c-d+i*8e-9+.356888;107     }108     return 255*pow ((n-80)/800,.7);109     #endif110 111     #ifdef E112     static double k;113     k+=rand ()/1./RAND_MAX;114     int l=k;115     l%=512;116     return l>255?511-l:l;117     #endif118 119     #ifdef F120     float s=3./(j+99);121     float y=(j+sin ((i*i+_sq (j-700)*5)/100./DIM)*35)*s;122     return (int(5*((i+DIM)*s+y))%2+int(5*((DIM*2-i)*s+y))%2)*127;123     #endif124 /*125     #ifdef G126     #define A 127     static int m[D][D],e,x,y,d,c[4],f,n;128     if (i+j<1){129         for (d=D*D;d;d--){130             m[d%D][d/D]=d%6?0:rand ()%2000?1:255;131         }132         for (n=1 return RD (i,j);133     #endif134 */135 /*136     #ifdef H137     #define E DM1 138     #define F static float 139     #define G for ( 140     #define H r=a*1.6/D+2.4;x=1.0001*b/D141     R BL (i,j)*(D-j/2)/D;142     #endif143 */144     return 0;145 }146 unsigned char BL (int i,int j){147     #ifdef A148     return (char)(_sq (cos (atan2(j-512,i-512)/2+2*acos (-1)/3))*255);149     #endif150 151     #ifdef B152     static char c[1024][1024];153     return!c[i][j]?c[i][j]=!r(999)?r(256):BL((i+r(2))%1024,(j+r(2))%1024):c[i][j];154     #endif155 156     #ifdef C157     float x=0,y=0;158     int k;159     for(k=0;k++<256;){160         float a=x*x-y*y+ (i-768.0)/512;161         y=2*x*y+ (j-512.0)/512;162         x=a;163         if(x*x+y*y>4)break;164     }165     return 128-log (k)*23;166     #endif167 168     #ifdef D169     double a=0,b=0,c,d,n=0;170     while((c=a*a)+(d=b*b)<4&&n++<880){171         b=2*a*b+j*8e-9-.645411;172         a=c-d+i*8e-9+.356888;173     }174     return 255*pow ((n-80)/800,.5);175     #endif176 177     #ifdef E178         static double k;179         k+=rand ()/1./RAND_MAX;180         int l=k;181         l%=512;182         return l>255?511-l:l;183     #endif    184 185     #ifdef F186     float s=3./(j+99);187     float y=(j+sin ((i*i+_sq (j-700)*5)/100./DIM)*35)*s;188     return (int(29*((i+DIM)*s+y))%2+int(29*((DIM*2-i)*s+y))%2)*127;189     #endif190 /*191     #ifdef G192     A;n;n++){193         x=R;y=R;194         if(B==1){195             f=1;196             for(d=0;d<4;d++){197                 c[d]=M;198                 f=f<c[d]?c[d]:f;199             }200             if(f>2){B=f-1;}201             else{202                 ++e%=4;203                 d=e;204                 if(!c[e]){205                     B=0;M=1;206                 }}}}}207     return m[i][j];208     #endif209 */210 /*211     #ifdef H212     F c[D][D];213     if(i+j<1){A;B;G;a<D;a+=0.1){G b=0;b<D;b++){H;G k=0;k<D;k++){x=r*x*(1-x);214     if(k>D/2){e=a;o=(E*x);c[e][o]+=0.01;}}}}}215     R C (c[j][i])*i/D;216     #endif217 */218 219     return 0;220 }221  222 void pixel_write (int,int);223 FILE *fp;224 int main (){225     fp = fopen ("MathPic.ppm","wb");226     fprintf (fp, "P6\n%d %d\n255\n", DIM, DIM);227     for(int j=0;j<DIM;j++)228         for(int i=0;i<DIM;i++)229             pixel_write (i,j);230     fclose (fp);231     return 0;232 }233 void pixel_write (int i, int j){234     static unsigned char color[3];235     color[0] = RD (i,j)&255;236     color[1] = GR (i,j)&255;237     color[2] = BL (i,j)&255;238     fwrite (color, 1, 3, fp);239 }