imported>Dmitrii Kouznetsov |
|
| (2 intermediate revisions by 2 users not shown) |
| Line 1: |
Line 1: |
| {{Image notes
| | == Summary == |
| |Description= Analytic tetration <math>f=sex_2(x)</math> versus <math>x</math>
| | Importing file |
| |Author= Dmitrii Kouznetsov
| |
| |Date= 2008
| |
| |Source= Evaluation of super-exponential (tetration) source:
| |
| #include <math.h>
| |
| #include <stdio.h>
| |
| #include <stdlib.h>
| |
| #define DB double
| |
| #define DO(x,y) for(x=0;x<y;x++)
| |
| #include <complex.h>
| |
| #define z_type complex<double>
| |
| #define Re(x) x.real()
| |
| #define Im(x) x.imag()
| |
| #define I z_type(0.,1.)
| |
| #include "f4c.cin"
| |
| void ado(FILE *O, int X, int Y)
| |
| { fprintf(O,"%c!PS-Adobe-2.0 EPSF-2.0\n",'%');
| |
| fprintf(O,"%c%cBoundingBox: 0 0 %d %d\n",'%','%',X,Y);
| |
| fprintf(O,"/M {moveto} bind def\n");
| |
| fprintf(O,"/L {lineto} bind def\n");
| |
| fprintf(O,"/S {stroke} bind def\n");
| |
| fprintf(O,"/s {show newpath} bind def\n");
| |
| fprintf(O,"/F {fill} bind def\n");
| |
| fprintf(O,"/W {setlinewidth} bind def\n");
| |
| fprintf(O,"/RGB {setrgbcolor} bind def\n");}
| |
| main(){ int j,k,m,n; DB x,y, p,q, t; z_type z,c,d, cu,cd;
| |
| printf("Tetration plot. Copyleft 2008 by Dmitii Kouznetsov. Output fig0.eps\n");
| |
| FILE *o;o=fopen("fig0.eps","w");ado(o,590,2000);
| |
| fprintf(o,"10 10 scale\n");
| |
| fprintf(o,"23 30 translate\n");
| |
| #define M(x,y) fprintf(o,"%5.2f %5.3f M\n",10.*(x),10.*(y));
| |
| #define L(x,y) fprintf(o,"%5.2f %5.3f L\n",10.*(x),10.*(y));
| |
| for(n=-2;n< 4;n++){ if(n!=0){M(n,-2)L(n,16)}}
| |
| for(n=-2;n<17;n++){ if(n!=0){ M(-2,n)L(3,n)}} fprintf(o,".05 W S\n");
| |
| M(-2.5,0)L(3.5,0) M(0,-2.4)L(0,16.6) fprintf(o,".12 W S\n");
| |
| fprintf(o,"/adobe-Roman findfont 4 scalefont setfont\n");
| |
| for(n=-2;n< 0;n++){ M(n-.3,-.3) fprintf(o,"(%2d)s\n",n);}
| |
| for(n= 1;n< 4;n++){ M(n-.1,-.3) fprintf(o,"(%1d)s\n",n);}
| |
| for(n=-2;n< 0;n++){ M(-.5,n-.1) fprintf(o,"(%2d)s\n",n);}
| |
| for(n= 1;n<17;n++){ M(-.5,n-.1) fprintf(o,"(%2d)s\n",n);}
| |
| fprintf(o,"/Times-Italic findfont 4 scalefont setfont\n");
| |
| M(-.3,16.5)fprintf(o,"(f)s\n");
| |
| M(3.4,-.3)fprintf(o,"(x)s\n");
| |
| for(n=0;n<101;n++) {x=-1.9+.05*n; z=x; c=F4(z); y=Re(c);
| |
| if(n==0)M(x,y)else L(x,y); }
| |
| fprintf(o,".3 W 1 0 0 RGB S\n");
| |
| fprintf(o,"showpage\n\%\%\%Trailer"); fclose(o);
| |
| }
| |
| |Country first published in= Japan
| |
| |Copyright holder= Dmitrii Kouznetsov
| |
| |Notes=Feel free to use the image, but attribute the source. You may modify it; in order to reproduce the figure, you neer also file f4c.cin which evaluates the contour integral and terurn superesponential (tetration) on the base 2.
| |
| Sorry about the size: the fig0.eps is only 3K... After to collect all the pics and formulas, I shall think about reduction of size. [[User:Dmitrii Kouznetsov|Dmitrii Kouznetsov]] 08:32, 20 May 2008 (CDT)
| |
| |Other versions=}}
| |
| {{attribution}}
| |
