File:AnalyticTetrtionBase2figure0.jpg: Difference between revisions

From Citizendium
Jump to navigation Jump to search
imported>Dmitrii Kouznetsov
No edit summary
imported>Dmitrii Kouznetsov
No edit summary
Line 1: Line 1:
{{Image notes
{{Image notes
|Description= Analytic tetration <math>f=sex_2(x)</math> versus <math>x</math>
|Description= Analytic tetration <math>f={\rm sex}_2(x)</math> versus <math>x</math>
|Author= Dmitrii Kouznetsov
|Author= Dmitrii Kouznetsov
|Date= 2008
|Date= 2008
|Source= Evaluation of super-exponential (tetration) source:
|Source= I made it by myself
#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
|Country first published in= Japan
|Copyright holder= Dmitrii Kouznetsov
|Copyright holder= Dmitrii Kouznetsov
Line 53: Line 9:
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)  
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=}}
|Other versions=}}
{{attribution}}
{{attribution}}

Revision as of 07:38, 20 May 2008

Template:Image notes

Black Copyright logo.png

This media, AnalyticTetrtionBase2figure0.jpg, is copyrighted but may be reused

The copyright holder has stipulated that anyone may freely copy, distribute, display and perform this work, as well as make derivative and commercial works, provided that you attribute the work in the manner specified by the author or licensor (but not in any way that suggests that they endorse you or your use of the work). This applies in perpetuity.

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=471274"