Difference between revisions of "File:KellerDoyaT.png"

Comparison of the transfer functions for realistic laser amplifiers at the continuous–wave operation (the Doya function) and for the short pulses (the Keller function).

C++ Generator of cureves

// Files doya.cin and ado.cin should 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"
#include"doya.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("KellerDoya.eps","w");ado(o,308,410);
fprintf(o,"4 4 translate\n 100 100 scale 2 setlinecap 1 setlinejoin\n");
for(m=0;m<4;m++){ M(m,0)L(m,4)}
for(n=0;n<5;n++){ M(0,n)L(3,n)}
// M(0,0)L(3,3) 
fprintf(o,".004 W 0 0 0 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 .6 RGB S\n");
DO(n,154){x=.005+.02*n;y=Re(Tania(1.+ArcTania(x)));if(n==0)M(x,y)else L(x,y)} fprintf(o,".02 W .6 0 0 RGB S\n");
fprintf(o,"showpage\n%cTrailer",'%'); fclose(o);
    system("epstopdf KellerDoya.eps");
    system(    "open KellerDoya.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 KellerDoya.pdf should be generated with the code above in order to compile the Latex document below.

%

References