%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/her0/her01-5n
%%BoundingBox: 70 85 245 206

%START PDFDE011.EPS
/pdfmark16 where {pop} {userdict /pdfmark16 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[/Title (PostScript pictures: farbe.li.tu-berlin.de/her0/her0.htm)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
 /Keywords (image reproduction, colour devices)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2024120112000)
 /ModDate (D:20241201112000)
/DOCINFO pdfmark16
[ /View [ /Fit ]
/DOCVIEW pdfmark16
%END  PDFDE011

/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/Times-ISOL1 exch definefont pop
 
/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesI-ISOL1 exch definefont pop
 
/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesB-ISOL1 exch definefont pop
 
/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesBI-ISOL1 exch definefont pop
 
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
 
/TV {120 /Times-ISOL1 FS} bind def
/TS {160 /Times-ISOL1 FS} bind def
/TL {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIV {120 /TimesI-ISOL1 FS} bind def
/TIS {160 /TimesI-ISOL1 FS} bind def
/TIL {200 /TimesI-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBV {120 /TimesB-ISOL1 FS} bind def
/TBS {160 /TimesB-ISOL1 FS} bind def
/TBL {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIV {120 /TimesBI-ISOL1 FS} bind def
/TBIS {160 /TimesBI-ISOL1 FS} bind def
/TBIL {200 /TimesBI-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/SV {120 /Symbol FS} bind def
/SS {160 /Symbol FS} bind def
/SL {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/CV {120 /Courier FS} bind def
/CS {160 /Courier FS} bind def
/CL {200 /Courier FS} bind def
/CK {250 /Courier FS} bind def
/CM {300 /Courier FS} bind def
/CG {350 /Courier FS} bind def

/CIV {120 /Courier-Oblique FS} bind def
/CIS {160 /Courier-Oblique FS} bind def
/CIL {200 /Courier-Oblique FS} bind def
/CIK {250 /Courier-Oblique FS} bind def
/CIM {300 /Courier-Oblique FS} bind def
/CIG {350 /Courier-Oblique FS} bind def

/CBV {120 /Courier-Bold FS} bind def
/CBS {160 /Courier-Bold FS} bind def
/CBL {200 /Courier-Bold FS} bind def
/CBK {250 /Courier-Bold FS} bind def
/CBM {300 /Courier-Bold FS} bind def
/CBG {350 /Courier-Bold FS} bind def

/CBIV {120 /Courier-BoldOblique FS} bind def
/CBIS {160 /Courier-BoldOblique FS} bind def
/CBIL {200 /Courier-BoldOblique FS} bind def
/CBIK {250 /Courier-BoldOblique FS} bind def
/CBIM {300 /Courier-BoldOblique FS} bind def
/CBIG {350 /Courier-BoldOblique FS} bind def

/nshow1 {TG  show} bind def
/kshow1 {TIG show} bind def
/bshow1 {TBM show} bind def
/bkshow1 {TBIM show} bind def
/ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def
/eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def
 
/nshow2 {TM  show} bind def
/kshow2 {TIM show} bind def
/bshow2 {TBM show} bind def
/ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto TM} bind def
/eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto TM} bind def
/jshow2 {TBK 0 -50 rmoveto show 0 50 rmoveto TBM} bind def
/jshow20 {TBK -50 -70 rmoveto show 0 70 rmoveto TBM} bind def 

%XCHA03.PS BEG
/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colrecfi %x y width heigth c m y k
  {setrgbcolor rec fill} bind def

/colrecst %x y width heigth c m y k
  {setrgbcolor rec stroke} bind def

/rem %x, y width heigth
  {/heigth exch 0.5 mul def /width exch 0.5 mul def
   /yleftb exch heigth 0.5 mul add def
   /xleftb exch width  0.5 mul add def
   xleftb yleftb
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colremfi %x y width heigth c m y k
  {setrgbcolor rem fill} bind def

/colremst %x y width heigth c m y k
  {setrgbcolor rem stroke} bind def

/tzr {1 0 0} bind def %Reproduktionsfarben
/tzg {0 1 0} bind def
/tzb {0 0 1} bind def
/tzc {0 1 1} bind def
/tzm {1 0 1} bind def
/tzy {1 1 0} bind def
/tzo {1 0 0} bind def %Reproduktionsfarben
/tzl {0 1 0} bind def
/tzv {0 0 1} bind def

/tzn {0.00} bind def %Graureihe
/tzd {0.25} bind def
/tzz {0.50} bind def
/tzh {0.75} bind def
/tzw {1.00} bind def

/tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben
/tfg {0 1 0 setrgbcolor} bind def
/tfb {0 0 1 setrgbcolor} bind def
/tfc {0 1 1 setrgbcolor} bind def
/tfm {1 0 1 setrgbcolor} bind def
/tfy {1 1 0 setrgbcolor} bind def
/tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben
/tfl {0 1 0 setrgbcolor} bind def
/tfv {0 0 1 setrgbcolor} bind def

/tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben
/tfgn {0.0 0.5 0.0 setrgbcolor} bind def
/tfbn {0.0 0.0 0.5 setrgbcolor} bind def
/tfcn {0.0 0.5 0.5 setrgbcolor} bind def
/tfmn {0.5 0.0 0.5 setrgbcolor} bind def
/tfyn {0.5 0.5 0.0 setrgbcolor} bind def
/tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben
/tfln {0.0 0.5 0.0 setrgbcolor} bind def
/tfvn {0.0 0.0 0.5 setrgbcolor} bind def

/tfn {0.00 setgray} bind def %Graureihe
/tfd {0.25 setgray} bind def
/tfz {0.50 setgray} bind def
/tfh {0.75 setgray} bind def
/tfw {1.00 setgray} bind def
%XCHA03.PS BEG

%OUTLIN.PS BEG 
/outxshowf {show} bind def
 
/outxshow {show} bind def
 
/outSK {250 /Symbol FS outxshow} bind def
/outSM {290 /Symbol FS outxshow} bind def
/outSG {350 /Symbol FS outxshow} bind def
 
/outshowf {setrgbcolor show} bind def
%OUTLIN.PS END 
 
%%EndProlog
gsave
%LANINDL2 START  20000505
/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm  {6 lanind eq {show} {pop} ifelse} bind def
 
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 1 def /lanind2 1 def} ifelse
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave
%LANINDL2 END
 
4 /Times-ISOL1 FS
74 86 moveto
(her01-5n fek01-5n) show
 
72 90 translate
 
0.01 MM dup scale

30 setlinewidth

/xwidth 6000 def
/ywidth 4000 def

tfz %Z
0000 0000 moveto xwidth 0 rlineto 0 ywidth rlineto 
             xwidth neg 0 rlineto closepath fill

tfw
0000 1600  moveto xwidth 0 rlineto 0 0800 rlineto
              xwidth neg 0 rlineto closepath fill

tfw
0000 0000  moveto xwidth 0 rlineto 0 0800 rlineto
              xwidth neg 0 rlineto closepath fill
 
tfy 0000 3150 xwidth 0850 rec fill
 
tfn
/TRGu {350 /Times-Roman FS (\271) show} def
/TRGo {350 /Times-Roman FS (\272) show} def
/TRMu {300 /Times-Roman FS (\271) show} def
/TRMo {300 /Times-Roman FS (\272) show} def

/KLxr {20 0 rmoveto TBIK (x) show
        0 -40 rmoveto TBL (r) show 20 40 rmoveto} def
/MKxr {20 0 rmoveto TBIM (x) show
        0 -60 rmoveto TBK (r) show 20 60 rmoveto} def

/x0 50 def
x0 3650 moveto
/TBM2 {270 /TimesB-ISOL1 FS} bind def
TBM2
(Mathematikgleichungen der Hyperbelfunktionen) showde
(Mathematical equations of hyperbolic functions) showen

x0 3300 moveto TBL
(See: ) showen
(Siehe: ) showde
TBIL
(Handbook of mathematical functions, NBS, USA, Sec. 4.5) show

%*******************************************************
40 setlinewidth
/x00 x0   def
/x0a x0 1350 add def
/x0b x0 2950 add def
/x0c x0 4850 add def

/x01 x0 3000 add def
/x1a x0 1550 add def

/x2a x0 1550 add def

/x3a x0 1350 add 200 add def
/x3b x0 3650 add 200 add def 

/y00 2700 def
/y01 1950 def
/y02 1150 def
/y03 0350 def

%***********************************************
x00 y00 moveto
TBIM (F) show
TBK -60 -60 rmoveto (ab) show 0 60 rmoveto
TBIM (\050x/) show TBM (a\051) show

x0a 350 sub y00 moveto

TBM 20 0 rmoveto (=b) show
x0a 40 add y00 moveto
TBM (tanh\050) show
TBIM (x/) show TBM (a) show 0 0 rmoveto
TBM  (\051) show

x0b y00 70 add moveto 1500 0 rlineto stroke

x0b 400 sub y00 moveto
TBM 20 0 rmoveto (=b) show 20 0 rmoveto

x0b y00 120 add moveto
TBM (e) show
20 60 rmoveto TBIM (x/) show TBM (a) show 0 -60 rmoveto
10 0 rmoveto TBM (-) show 10 0 rmoveto
TBM (e) show
20 60 rmoveto TBIM (-x/) show TBM (a) show

x0b y00 240 sub moveto
TBM (e) show
20 60 rmoveto TBIM (x/) show TBM (a) show 0 -60 rmoveto
10 0 rmoveto TBM (+) show 10 0 rmoveto
TBM (e) show
20 60 rmoveto TBIM (-x/) show TBM (a) show

5650 y00 moveto TBK ([1]) show

%*******************************************************
x00 y01 70 add moveto 1200 0 rlineto stroke

x00 y01 160 add moveto
TBIM (dF) show
TBK -60 -60 rmoveto (ab) show 0 60 rmoveto
TBIM (\050x/) show TBM (a\051) show

x00 400 add y01 230 sub moveto
TBIM (dx) show

x3a y01 70 add moveto 2000 0 rlineto stroke

x3a 250 sub y01 moveto

TBM 20 0 rmoveto (=) show 20 0 rmoveto
x3a 800 add y01 140 add moveto
TBM (4) show 20 0 rmoveto (b) show

x3a y01 250 sub moveto
TBM (a[e) show
20 60 rmoveto TBIM (x/) show TBM (a) show 0 -60 rmoveto
10 0 rmoveto TBM (+) show 10 0 rmoveto
TBM (e) show
20 60 rmoveto TBIM (-x/) show TBM (a) show 0 -60 rmoveto
TBM (]) show
0 80 rmoveto TBM (2) show 0 -80 rmoveto

%**********************************************************
x3b y01 70 add moveto 1500 0 rlineto stroke

x3b 250 sub y01 moveto

TBM 20 0 rmoveto (=) show 20 0 rmoveto
x3b 500 add y01 140 add moveto
TBM (b) show

x3b y01 250 sub moveto
TBM (a cosh) show
0 100 rmoveto TBK (2) show 0 -100 rmoveto
TBIM (\050x/) show TBM (a\051) show

5650 y01 moveto TBK ([4]) show  

0 0 xwidth ywidth rec stroke


%**************************************************
x00 y02 70 add moveto 1300 0 rlineto stroke

x00 y02 170 add moveto
TBIM (dF) show
TBK -60 -60 rmoveto (ab) show 0 60 rmoveto
TBIM (\050) show MKxr TBM (/a\051) show

x00 400 add y02 230 sub moveto
TBIM (d) show MKxr

x3a y02 70 add moveto 2200 0 rlineto stroke

x3a 250 sub y02 moveto

TBM 20 0 rmoveto (=) show 20 0 rmoveto
x3a 800 add y02 140 add moveto
TBM (4) show 20 0 rmoveto (b) show

x3a y02 250 sub moveto
TBM (a[e) show
20 60 rmoveto MKxr TBM (/a) show 0 -60 rmoveto
10 0 rmoveto TBM (+) show 10 0 rmoveto
TBM (e) show
20 60 rmoveto TBIM (-) show MKxr TBM (/a) show 0 -60 rmoveto
TBM (]) show
0 100 rmoveto TBK (2) show 0 -100 rmoveto

%**********************************************************
%x3b y02 70 add moveto 1500 0 rlineto stroke

x3b y02 160 add moveto
MKxr TBM (=log) show TBIM (\050L/L) show
0 -60 rmoveto TBK (u) show 0 60 rmoveto TBIM (\051) show

x3b y02 250 sub moveto
TBIM (d) show MKxr TBM (/) show TBIM (dL) show TBM (=ln(10)) show
TBIM (/L) show


5650 y02 150 add moveto TBK ([5]) show  


%**************************************************
x00 y03 70 add moveto 1300 0 rlineto stroke

x00 y03 170 add moveto
TBIM (dF) show
TBK -60 -60 rmoveto (ab) show 0 60 rmoveto
TBIM (\050) show MKxr TBM (/a\051) show

x00 400 add y03 230 sub moveto
TBIM (d) show MKxr

x00 1400 add y03 70 add moveto 600 0 rlineto stroke

x00 1500 add y03 160 add moveto
TBIM (d) show MKxr

x00 1500 add y03 230 sub moveto
TBIM (dL) show

/x4a x3a 700 add def

x4a y03 70 add moveto 2200 0 rlineto stroke

x4a 250 sub y03 moveto

TBM 20 0 rmoveto (=) show 20 0 rmoveto
x4a 800 add y03 140 add moveto
TBM (4) show 20 0 rmoveto (b) show

x4a y03 250 sub moveto
TBM (a[e) show
20 60 rmoveto MKxr TBM (/a) show 0 -60 rmoveto
10 0 rmoveto TBM (+) show 10 0 rmoveto
TBM (e) show
20 60 rmoveto TBIM (-) show MKxr TBM (/a) show 0 -60 rmoveto
TBM (]) show
0 100 rmoveto TBK (2) show 0 -100 rmoveto

x4a 2300 add y03 070 add moveto 700 0 rlineto stroke

x4a 2300 add y03 160 add moveto TBM (ln(10)) show

x4a 2600 add y03 250 sub moveto TBIM (L) show

5650 y03 moveto TBK ([6]) show

0 0 xwidth ywidth rec stroke

showpage
grestore
} for %output with langind end
%%Trailer