File:AnalyticTetrtionBase2figure0.jpg: Difference between revisions

From Citizendium
Jump to navigation Jump to search
imported>Dmitrii Kouznetsov
({{Image notes |Description= Analytic tetration <math>f=sex_2(x)</math> versus <math>x</math> |Author= Dmitrii Kouznetsov |Date= 2008 |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,"%...)
 
(== Summary == Importing file)
Tag: Server-side upload
 
(3 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=
#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.
|Other versions=}}
{{attribution}}

Latest revision as of 18:57, 11 March 2022

Summary

Importing file

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current18:57, 11 March 2022Thumbnail for version as of 18:57, 11 March 20221,180 × 4,000 (279 KB)Maintenance script (talk | contribs)== Summary == Importing file

You cannot overwrite this file.

Metadata

This file contains additional information, probably added from the digital camera or scanner used to create or digitize it.

If the file has been modified from its original state, some details may not fully reflect the modified file.

Retrieved from "https://citizendium.org/wiki/index.php?title=File:AnalyticTetrtionBase2figure0.jpg&oldid=12151"