Difference between revisions of "File:KellerPlotT.png"

Explicit plot of various iterations $t$ the Keller function

$ y=\mathrm{Keller}^t(x)=\mathrm{Shoka}\Big( t + \mathrm{ArcShoka}(x)\Big)$

To plot this graphic, the iterations of the Keller function are implemented through the Shoka function and the ArcShoka function.

C++ generator of curves]]

// File ado.cin shold be loaded to the working directory in order to compile the C++ code below.

#include <math.h> 
#include <stdio.h>
#include <stdlib.h>
#define DB double
#define DO(x,y) for(x=0;x<y;x++)
using namespace std;
#include <complex>
typedef complex<double> z_type;
#define Re(x) x.real()
#define Im(x) x.imag()
#define I z_type(0.,1.)

#include"ado.cin"

z_type Shoka(z_type  z)  { return z + log(exp(-z)+(M_E-1.)); }
z_type ArcShoka(z_type z){ return z + log((1.-exp(-z))/(M_E-1.)) ;}  

#define M(x,y) fprintf(o,"%6.3f %6.3f M\n",0.+x,0.+y);
#define L(x,y) fprintf(o,"%6.3f %6.3f L\n",0.+x,0.+y);
main(){ int j,k,m,n; DB x,y, a;
FILE *o;o=fopen("KellerPlot.eps","w");ado(o,408,412);
fprintf(o,"4 4 translate\n 100 100 scale 2 setlinecap 1 setlinejoin\n");
for(m=0;m<5;m++){ M(m,0)L(m,4)}
for(n=0;n<5;n++){ M(0,n)L(4,n)}
M(0,0)L(4,4)
fprintf(o,".01 W 0 0 0 RGB S\n");
DO(n,134){x=.005+.01*n;y=Re(Shoka(3.+ArcShoka(x)));if(n==0)M(x,y)else L(x,y)} fprintf(o,".02 W 0 0 .5 RGB S\n");
DO(n,216){x=.005+.01*n;y=Re(Shoka(2.+ArcShoka(x)));if(n==0)M(x,y)else L(x,y)} fprintf(o,".02 W 0 0 .5 RGB S\n");
DO(n,154){x=.005+.02*n;y=Re(Shoka(1.+ArcShoka(x)));if(n==0)M(x,y)else L(x,y)} fprintf(o,".02 W 0 0 .5 RGB S\n");
DO(n,101){x=.005+.04*n;y=Re(Shoka(-1.+ArcShoka(x)));if(n==0)M(x,y)else L(x,y)} fprintf(o,".02 W .5 0 0 RGB S\n");
DO(n,101){x=.005+.04*n;y=Re(Shoka(-2.+ArcShoka(x)));if(n==0)M(x,y)else L(x,y)} fprintf(o,".02 W .5 0 0 RGB S\n");
DO(n,101){x=.005+.04*n;y=Re(Shoka(-3.+ArcShoka(x)));if(n==0)M(x,y)else L(x,y)} fprintf(o,".02 W .5 0 0 RGB S\n");
fprintf(o,"showpage\n%cTrailer",'%'); fclose(o);
    system("epstopdf KellerPlot.eps");
    system(    "open KellerPlot.pdf"); //these 2 commands may be specific for macintosh
getchar(); system("killall Preview");// if run at another operational sysetm, may need to modify
}

Latex generator of labels

% File KellerPlot.pdf should be generated with the code above in order to compile the Latex document below.

%

Copyleft status

Copyleft 2012 by Dmitrii Kouznetsov. The image and the generators above may be used for free; attribute the source.

References