<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=text/html;charset=iso-8859-1 http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 9.00.8112.16440"></HEAD>
<BODY style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px"
id=MailContainerBody leftMargin=0 topMargin=0 CanvasTabStop="true"
name="Compose message area">
<DIV><FONT face=Calibri>Hello,</FONT></DIV>
<DIV><FONT face=Calibri></FONT> </DIV>
<DIV><FONT face=Calibri>a few days ago, I asked about a problem by drawing a
scheme of a carbon power-station.</FONT></DIV>
<DIV><FONT face=Calibri>Now, here is my (not perfect) solution for anyone you
are interested.</FONT></DIV>
<DIV><FONT face=Calibri></FONT> </DIV>
<DIV><FONT face=Calibri>Thomas</FONT></DIV>
<DIV><FONT face=Calibri></FONT> </DIV>
<DIV><FONT
face=Calibri>\documentclass[a4paper,12pt]{article}<BR>\usepackage[T1]{fontenc}<BR>\usepackage[latin1]{inputenc}<BR>\usepackage{ngerman}<BR>\usepackage{amsmath,amsthm}<BR>\usepackage{amsfonts}<BR>\usepackage[psamsfonts]{amssymb}<BR>\renewcommand{\familydefault}{\sfdefault}<BR>\usepackage{mathpazo}<BR>\usepackage[scaled=.95]{helvet}<BR>\usepackage{courier}<BR>%\linespread{1.05}
% Zeilenabstand um 5%
erhöhen<BR>\usepackage{upgreek}<BR>\usepackage{multido}
% From
PSTricks<BR>\usepackage[dvips]{graphics}<BR>\usepackage[dvips]{graphicx}<BR>\usepackage[dvips,usenames,dvipsnames]{xcolor}
%% Farben sind im Dokument xcolor.pdf
definiert<BR>\usepackage{pst-plot}<BR>\usepackage{pst-node}<BR>\usepackage{pst-tree}<BR>\usepackage{pst-eps}<BR>\usepackage[tiling]{pst-fill}<BR>\usepackage{pst-text}<BR>\usepackage{pst-grad}<BR>\usepackage{pst-coil}<BR>\usepackage{pstricks-add}</FONT></DIV>
<DIV> </DIV><FONT face=Calibri>
<DIV><BR>%---------------- Kontinuierlicher Farbverlauf bei Kurven
-------------------------<BR>\makeatletter<BR>\pst@addfams{pst-HSB}<BR>\define@key[psset]{pst-HSB}{HueBegin}{%
Between 0 and 1<BR>
\def\PstParametricplotHSB@HueBegin{#1}}<BR>\define@key[psset]{pst-HSB}{HueEnd}{%
Between 0 and 1<BR>
\def\PstParametricplotHSB@HueEnd{#1}}<BR>\define@boolkey[psset]{pst-HSB}[Pst@]{HSB}[true]{}<BR>%
Default
values<BR>\psset[pst-HSB]{HueBegin=0,HueEnd=1,HSB=true}<BR>\psset{dimen=outer}</DIV>
<DIV> </DIV>
<DIV>\def\parametricplotHSB{\pst@object{parametricplotHSB}}<BR>\def\parametricplotHSB@i#1#2#3{{%<BR>
\begin@ClosedObj<BR> \addto@pscode{%<BR> /t #1
def<BR> /dt #2 t sub \psk@plotpoints\space div
def<BR> /t t dt sub def<BR> /Counter 0
def<BR> 1 setlinejoin<BR> \psk@plotpoints
{<BR> /t t dt add
def<BR> /Counter Counter 1 add
def<BR> #3<BR>
\pst@number\psyunit mul exch<BR>
\pst@number\psxunit mul exch<BR> 1 Counter eq {
moveto currentpoint /OldY ED /OldX ED } % First
point<BR> {\ifPst@HSB % Other points
than the first one<BR>
/PointY exch def<BR>
/PointX exch def<BR>
Counter \psk@plotpoints\space
div<BR>
\PstParametricplotHSB@HueEnd\space<BR>
\PstParametricplotHSB@HueBegin\space sub
mul<BR>
\PstParametricplotHSB@HueBegin\space
add<BR> 1 1
sethsbcolor<BR> OldX OldY
PointX PointY lineto
lineto<BR>
stroke<BR> PointX PointY
moveto<BR> /OldX PointX def /OldY PointY
def<BR> \else lineto \fi }
ifelse<BR> } repeat }% fin du code ps<BR>
\end@ClosedObj}%<BR> \ignorespaces} % fin de la commande
PSTricks<BR>\makeatother</DIV>
<DIV> </DIV>
<DIV>%-------------------------------------------------------------------------------</DIV>
<DIV> </DIV>
<DIV>\begin{document}</DIV>
<DIV> </DIV>
<DIV>%\rput[l](-2.12,-0.1){\includegraphics[width=12cm]{Kohlekraftwerk1.eps}}%\\</DIV>
<DIV> </DIV>
<DIV>%\vspace{5.8cm}</DIV>
<DIV> </DIV>
<DIV>\rput(0,0){%<BR>%\psgrid(-3,-3)(10,4)%<BR>\psframe[fillstyle=solid,fillcolor=gray!40,
opacity=0.9,linewidth=0.8pt](-1.85,-2.65)(8.8,3.45)%<BR>\psframe[fillstyle=solid,fillcolor=white,
opacity=0.9,linewidth=0.8pt](-1.7,-2.5)(8.65,3.3)%<BR>\pspolygon[fillstyle=solid,fillcolor=gray!40,
opacity=0.9,linewidth=0.8pt]%<BR>(-1.7,3.15)(-1,2)(-1,-1.7)(1,-1.7)(1,2.5)(-0.25,2.5)(-0.8,3.3)(-1.7,3.3)%<BR>\pspolygon[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=10,gradbegin=orange!80,gradend=white]%<BR>(-1.665,3.3)(-0.88,2)(-0.88,-1.6)(0.9,-1.6)(0.9,2.4)(-0.32,2.4)(-0.93,3.3)(-1.665,3.3)%<BR>\pspolygon[fillstyle=solid,fillcolor=black,
opacity=1,linewidth=0.8pt]%<BR>(-1.35,-0.92)(-1.25,-0.85)(-1,-0.85)(-1,-0.95)(-0.88,-0.95)(-0.88,-1.15)(-1,-1.15)(-1,-1.45)(-1.25,-1.45)(-1.35,-1.38)%<BR>%<BR>%---------------
Flammen
------------------------------------------------------------------<BR>%-------------------------------------------------------------------------------------------<BR>\pscustom[fillstyle=solid,fillcolor=yellow!50,linestyle=none]{%<BR>
\pscurve(-0.87,-1)(-0.4,-0.75)(-0.55,-0.4)(-0.4,-0.13)%<BR>
\pscurve(-0.45,-0.33)(-0.2,-0.53)%<BR>
\psline(-0.2,-0.53)(-0.2,-0.97)%<BR>
\pscurve(-0.2,-0.97)(-0.6,-1.05)(-0.87,-1.01)%<BR>}%<BR>\pscustom[fillstyle=solid,fillcolor=yellow!50,linestyle=none]{%<BR>
\pscurve(-0.2,-0.53)(-0.17,-0.35)(0.1,-0.1)%<BR>
\pscurve(0.1,-0.1)(-0.01,-0.4)(0,-0.6)%<BR>
\pscurve(0,-0.6)(0.04,-0.52)(0.16,-0.46)%<BR>
\pscurve(0.16,-0.46)(0.1,-0.6)(0.17,-0.8)(0,-0.98)(-0.2,-0.97)%<BR>
\psline(-0.2,-0.97)(-0.2,-0.53)%<BR>}%<BR>\pscustom[fillstyle=solid,fillcolor=yellow!50,linestyle=none]{%<BR>
\pscurve(0.1,-0.7)(0.2,-0.6)(0.2,-0.36)(0.4,-0.1)%<BR>
\pscurve(0.4,-0.1)(0.31,-0.29)(0.33,-0.4)(0.39,-0.6)(0.3,-0.8)(0.1,-0.86)%<BR>
\psline(0.1,-0.86)(0.1,-0.7)%<BR>}%<BR>%-------------------------------------------------------------------------------------------<BR>%---------------
Kondensator
---------------------------------------------------------------<BR>%-------------------------------------------------------------------------------------------<BR>\pspolygon[fillstyle=gradient,linestyle=none,gradmidpoint=0,gradangle=0,gradbegin=blue,gradend=cyan]%<BR>(4.9,-0.7)(4.85,-0.55)(6.75,-0.55)(6.7,-0.7)%<BR>\pscurve[linewidth=0.8pt](4.9,-0.7)(4.8,-0.2)(4.9,0.3)%<BR>\psline[linewidth=0.8pt](4.9,0.3)(6.7,0.3)%<BR>\pscurve[linewidth=0.8pt](6.7,0.3)(6.8,-0.2)(6.7,-0.7)%<BR>\psline[linewidth=0.8pt](6.7,-0.7)(4.9,-0.7)%<BR>%<BR>%-----------------------------------------------------------------------------------------<BR>\rput[l](-1.47,3.1){\tiny
Rauch-}%<BR>\rput[l](-1.2,2.8){\tiny gas-}%<BR>\rput[l](-1.05,2.6){\tiny
kanal}%<BR>\rput[l](-1.5,-1.9){\tiny Brenner}
\psline[linewidth=0.6pt](-1.2,-1.75)(-1.2,-1.2)%<BR>\rput[l](0,-2){\tiny
Brennkammer}
\psline[linewidth=0.6pt](0.25,-1.9)(0.25,-1.2)%<BR>\rput[l](2.9,-0.15){\tiny
Vor-} \rput[l](2.9,-0.35){\tiny wärm-} \rput[l](2.9,-0.55){\tiny
anlage}%<BR>\rput[l](2.9,-1.5){\tiny Pumpe}%<BR>%<BR>%----
Wasserwendel----------------------------------------------------------------------<BR>%-----------------------------------------------------------------------------------------<BR>\psset{coilheight=0.495,coilwidth=1.3cm,coilaspect=52}%<BR>\rput{90}(0,0){\psCoil[doubleline=true,linecolor=black,linewidth=0.07cm]{250}{720}}%<BR>\rput(0.235,0.4){%<BR>\parametricplotHSB[plotpoints=500,linewidth=1.73mm,HueBegin=0.65,HueEnd=0.84]{270}{90}{0.88
t cos mul 0.365 t sin
mul}}%<BR>\rput{90}(0,0){\psCoil[doubleline=true,linecolor=black,linewidth=0.07cm]{600}{1200}}<BR>\rput{90}(0,0){\psCoil[doubleline=true,linecolor=magenta,linewidth=0.045cm]{470}{1200}}<BR>\rput{90}(0,0){\psCoil[doubleline=true,linecolor=black,linewidth=0.07cm]{850}{1400}}<BR>\rput{90}(0,0){\psCoil[doubleline=true,linecolor=magenta,linewidth=0.045cm]{850}{1400}}<BR>\rput{90}(0,0){\psCoil[doubleline=true,linecolor=black,linewidth=0.07cm]{1260}{1550}}<BR>\rput{90}(0,0){\psCoil[doubleline=true,linecolor=magenta,linewidth=0.045cm]{1220}{1550}}<BR>%---------------------------------------------------------------------------------------------------------------<BR>\psline[linewidth=1.47mm,linecolor=magenta,linearc=0.15,bordercolor=black,border=1.1pt](0.2,1.943)(4.1,1.943)(4.1,1.6)%<BR>\psline[linewidth=1.47mm,linecolor=magenta,linearc=0.15,bordercolor=black,border=1.1pt](4.85,1.6)(4.85,1.943)(5.8,1.943)(5.8,1.6)%<BR>\psline[linewidth=1.47mm,linecolor=white,linearc=0.15,bordercolor=black,border=1.1pt](5.25,0.285)(5.25,0.9)%<BR>\psline[linewidth=1.47mm,linecolor=white,linearc=0.15,bordercolor=black,border=1.1pt](6.4,0.285)(6.4,0.9)%<BR>\psframe[fillstyle=gradient,linestyle=none,gradmidpoint=0,gradangle=0,gradbegin=white,gradend=magenta!70](5.162,0.27)(5.338,0.92)%<BR>\psframe[fillstyle=gradient,linestyle=none,gradmidpoint=0,gradangle=0,gradbegin=white,gradend=magenta!70](6.312,0.27)(6.488,0.92)%<BR>\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.8pt]{->}(5.25,0.5)(5.25,0.1)%<BR>\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.8pt]{->}(6.4,0.5)(6.4,0.1)%<BR>\pscircle[linewidth=0.8pt,fillstyle=solid,fillcolor=blue!20!green!70](8.3,-0.4){0.17}%<BR>\psline[linewidth=1.3mm,linecolor=blue!20!green!70,linearc=0.15,bordercolor=black,border=1.1pt]%<BR>(8.18,-0.4)(5.1,-0.4)(5.1,-0.1)(9.4,-0.1)(9.4,-1.2)%<BR>\psline[linewidth=1.3mm,linecolor=blue!20!green!70,linearc=0.15,bordercolor=black,border=1.1pt]%<BR>(8.423,-0.4)(9.1,-0.4)(9.1,-1.2)%<BR>%-------------------------------------------------------------------------------------------<BR>%--------------------------- Fluss
----------------------------------------------------------<BR>\psplot[linecolor=blue]{8.9}{9.8}{x
1600 mul sin 0.02 mul 1.05 sub}%<BR>\psplot[linecolor=blue]{8.9}{9.8}{x 1600 mul
sin 0.02 mul 1.15 sub}%<BR>\psplot[linecolor=blue]{8.9}{9.8}{x 1600 mul sin 0.02
mul 1.25 sub}%<BR>\psplot[linecolor=blue]{8.9}{9.8}{x 1600 mul sin 0.02 mul 1.35
sub}%<BR>\psplot[linecolor=blue]{8.9}{9.8}{x 1600 mul sin 0.02 mul 1.45
sub}%<BR>\psplot[linecolor=blue]{8.9}{9.8}{x 1600 mul sin 0.02 mul 1.55
sub}%<BR>%-------------------------------------------------------------------------------------------<BR>%--------------------------
Turbine
------------------------------------------------------------<BR>\psframe[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=0,gradbegin=blue!20!green!70,gradend=green!10]%<BR>(3.9,0.9)(6.6,1.6)%<BR>\psline(4.6,0.9)(4.6,1.6)%<BR>\psframe[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=0,gradbegin=blue!20!green!70,gradend=green!10,dimen=inner]%<BR>(3.8,1.05)(3.9,1.45)%<BR>\psframe[fillstyle=solid,linecolor=black,fillcolor=black](3.7,1.2)(3.8,1.3)%<BR>\psframe[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=0,gradbegin=blue!20!green!70,gradend=green!10,dimen=inner]%<BR>(6.6,1.1)(6.7,1.4)%<BR>%-------------------------------------------------------------------------------------------<BR>%------------------------------
Generator
--------------------------------------------------<BR>\psframe[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=0,gradbegin=blue!60!green!70,gradend=green!10,dimen=inner]%<BR>(6.95,1.1)(7,1.4)%<BR>\psframe[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=0,gradbegin=blue!60!green!70,gradend=green!10]%<BR>(7,0.9)(8,1.6)%<BR>\psframe[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=0,gradbegin=blue!60!green!70,gradend=green!10,dimen=inner]%<BR>(8,1.05)(8.4,1.45)%<BR>\psframe[fillstyle=solid,linecolor=black,fillcolor=black](8.4,1.2)(8.47,1.3)%<BR>\psframe[fillstyle=solid,linecolor=black,fillcolor=black](6.7,1.2)(7,1.3)%<BR>\psline[linecolor=black,linewidth=0.8pt](7.7,0.9)(7.7,0.8)(8.3,0.8)%<BR>\psline[linecolor=black,linewidth=0.8pt](7.6,0.9)(7.6,0.7)(8.3,0.7)%<BR>\psline[linecolor=black,linewidth=0.8pt](7.5,0.9)(7.5,0.6)(8.3,0.6)%<BR>\rput[l](8.38,0.8){\psplot[linecolor=black,linewidth=0.6pt]{-0.01}{0.16}{x
2500 mul sin 0.02
mul}}<BR>\rput[l](8.38,0.7){\psplot[linecolor=black,linewidth=0.6pt]{-0.01}{0.16}{x
2500 mul sin 0.02
mul}}<BR>\rput[l](8.38,0.6){\psplot[linecolor=black,linewidth=0.6pt]{-0.01}{0.16}{x
2500 mul sin 0.02
mul}}<BR>%-------------------------------------------------------------------------------------------<BR>\pspolygon[fillstyle=solid,fillcolor=black](8.2,-0.4)(8.36,-0.31)(8.36,-0.49)%<BR>\psframe[fillstyle=vlines,hatchangle=90,hatchsep=1.5pt,hatchcolor=red,linewidth=0.8pt](2.2,-0.8)(2.8,-0.2)%<BR>\pscircle[linewidth=0.8pt,fillstyle=solid,fillcolor=blue](3.2,-1.1){0.25}%<BR>\pspolygon[fillstyle=solid,fillcolor=black](3.05,-1.1)(3.3,-0.96)(3.3,-1.24)%<BR>\psline[linewidth=1.47mm,linecolor=blue,linearc=0.15,bordercolor=black,border=1.1pt](0.2,0.035)(2.5,0.035)(2.5,-1.1)(2.99,-1.1)%<BR>\psline[linewidth=1.47mm,linecolor=blue,linearc=0.15,bordercolor=black,border=1.1pt](3.4,-1.1)(5.8,-1.1)(5.8,-0.688)%<BR>\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.8pt]{->}(1.6,0.035)(1.2,0.035)%<BR>\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.8pt]{->}(0.2,0.82)(-0.2,0.85)%<BR>\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.8pt]{->}(1.2,1.943)(1.6,1.943)%<BR>\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.8pt]{->}(5.2,1.943)(5.6,1.943)%<BR>\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.6pt]{->}(7.5,-0.4)(7.1,-0.4)%<BR>\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.6pt]{->}(7.5,-0.1)(7.9,-0.1)%<BR>\rput[l](2.05,2.7){\tiny
Frischdampf}
\psline[linewidth=0.6pt](2.7,1.95)(2.7,2.55)%<BR>\rput[l](1.5,0.6){\tiny
Speise-}
\psline[linewidth=0.6pt](1.77,0.035)(1.77,0.22)%<BR>\rput[l](1.5,0.3){\tiny
wasser} %<BR>\rput[l](4,2.7){\tiny Turbine}
\psline[linewidth=0.6pt](4.5,1.4)(4.5,2.5)%<BR>\rput[l](7.0,2.7){\tiny
Generator}
\psline[linewidth=0.6pt](7.5,1.4)(7.5,2.5)%<BR>\rput[l](7.3,-0.8){\tiny
Kühlwasser}
\psline[linewidth=0.6pt](7.7,-0.4)(7.7,-0.6)%<BR>\rput[l](9.1,-1.8){\tiny
Fluss}%<BR>}</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>\end{document} </FONT></DIV></BODY></HTML>