Difference between revisions of "File:KellerDoyaT.png"
(Importing image file) |
|||
Line 1: | Line 1: | ||
+ | Comparison of the [[transfer function]]s for realistic laser amplifiers at the continuous–wave operation (the [[Doya function]]) and for the short pulses (the [[Keller function]]). |
||
− | Importing image file |
||
+ | |||
+ | ==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. |
||
+ | %<nomathjax>%<br> |
||
+ | \documentclass[12pt]{article} %<br> |
||
+ | \usepackage{geometry} %<br> |
||
+ | \usepackage{graphicx} %<br> |
||
+ | \usepackage{rotating} %<br> |
||
+ | \paperwidth 318pt %<br> |
||
+ | \paperheight 424pt %<br> |
||
+ | \topmargin -104pt %<br> |
||
+ | \oddsidemargin -83pt %<br> |
||
+ | \textwidth 1200pt %<br> |
||
+ | \textheight 600pt %<br> |
||
+ | \pagestyle {empty} %<br> |
||
+ | \newcommand \sx {\scalebox} %<br> |
||
+ | \newcommand \rot {\begin{rotate}} %<br> |
||
+ | \newcommand \ero {\end{rotate}} %<br> |
||
+ | \newcommand \ing {\includegraphics} %<br> |
||
+ | \begin{document} %<br> |
||
+ | \sx{1}{ \begin{picture}(310,410) %<br> |
||
+ | \put(1,9){\ing{KellerDoya}} % <br> |
||
+ | \put(-12,400){\sx{2.8}{$y$}} % <br> |
||
+ | \put(-12,303){\sx{2.8}{$3$}} % <br> |
||
+ | \put(-12,203){\sx{2.8}{$2$}} % <br> |
||
+ | \put(-12,103){\sx{2.8}{$1$}} % <br> |
||
+ | \put(0,-8){\sx{2.5}{$0$}} % <br> |
||
+ | \put(100,-8){\sx{2.5}{$1$}} % <br> |
||
+ | \put(200,-8){\sx{2.5}{$2$}} % <br> |
||
+ | %\put(300,-9){\sx{2.5}{$3$}} % <br> |
||
+ | \put(292,-7){\sx{2.6}{$x$}} % <br> |
||
+ | %\put(560,214){\rot{37}\sx{4}{$y=\mathrm{Tania}(x)$}\ero} % <br> |
||
+ | %\put( 88,354){\rot{53}\sx{2.8}{$t\!=\!3$}\ero} %<br> |
||
+ | %\put(160,354){\rot{50}\sx{2.8}{$t\!=\!2$}\ero} %<br> |
||
+ | \put(158,264){\rot{48}\sx{2.8}{$y\!=\!\mathrm{Keller}(x)$}\ero} %<br> |
||
+ | \put(190,231){\rot{47}\sx{2.8}{$y\!=\!\mathrm{Doya}(x)$}\ero} %<br> |
||
+ | \end{picture} %<br> |
||
+ | } %<br> |
||
+ | \end{document}$<br> |
||
+ | % Copyleft 2011 by Dmitrii Kouznetsov %<br> |
||
+ | %</nomathjax> |
||
+ | |||
+ | %[[Category:Keller function]] |
||
+ | %[[Category:Doya function]] |
||
+ | %[[Category:Transfer function]] |
||
+ | %[[Category:Elementary function]] |
||
+ | %[[Category:Explicit plot]] |
||
+ | %[[Category:Laser science]] |
||
+ | %[[Category:C++]] |
||
+ | %[[Category:Latex]] |
||
+ | %[[Category:TORI]] |
Revision as of 20:24, 20 June 2013
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.
%%
\documentclass[12pt]{article} %
\usepackage{geometry} %
\usepackage{graphicx} %
\usepackage{rotating} %
\paperwidth 318pt %
\paperheight 424pt %
\topmargin -104pt %
\oddsidemargin -83pt %
\textwidth 1200pt %
\textheight 600pt %
\pagestyle {empty} %
\newcommand \sx {\scalebox} %
\newcommand \rot {\begin{rotate}} %<br>
\newcommand \ero {\end{rotate}} %
\newcommand \ing {\includegraphics} %
\begin{document} %<br>
\sx{1}{ \begin{picture}(310,410) %<br>
\put(1,9){\ing{KellerDoya}} % <br>
\put(-12,400){\sx{2.8}{$y$}} % <br>
\put(-12,303){\sx{2.8}{$3$}} % <br>
\put(-12,203){\sx{2.8}{$2$}} % <br>
\put(-12,103){\sx{2.8}{$1$}} % <br>
\put(0,-8){\sx{2.5}{$0$}} % <br>
\put(100,-8){\sx{2.5}{$1$}} % <br>
\put(200,-8){\sx{2.5}{$2$}} % <br>
%\put(300,-9){\sx{2.5}{$3$}} % <br>
\put(292,-7){\sx{2.6}{$x$}} % <br>
%\put(560,214){\rot{37}\sx{4}{$y=\mathrm{Tania}(x)$}\ero} % <br>
%\put( 88,354){\rot{53}\sx{2.8}{$t\!=\!3$}\ero} %<br>
%\put(160,354){\rot{50}\sx{2.8}{$t\!=\!2$}\ero} %<br>
\put(158,264){\rot{48}\sx{2.8}{$y\!=\!\mathrm{Keller}(x)$}\ero} %<br>
\put(190,231){\rot{47}\sx{2.8}{$y\!=\!\mathrm{Doya}(x)$}\ero} %<br>
\end{picture} %
} %
\end{document}$
% Copyleft 2011 by Dmitrii Kouznetsov %
%
% % % % % % % % %
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 17:50, 20 June 2013 | 661 × 881 (70 KB) | Maintenance script (talk | contribs) | Importing image file |
You cannot overwrite this file.
File usage
The following 3 pages use this file: