\documentclass[convert=true,convert={convertexe={convert},density=1200,outext=.png}]{standalone}

\input{figsDefs.tex}

\begin{document}

\shorthandoff{;}	% si babel
	
\begin{tikzpicture}[
	declare function={
%		https://fr.wikipedia.org/wiki/%C3%89quation_d%27Antoine
		pZero = 1;
		Aeau = 4.65;
		Beau = 1435.26;
		Ceau = -64.84;
		pSatEau(\T) = pZero*exp( ln(10)*(Aeau-Beau/(\T+Ceau)) ) ); 		
		Abenz = 4.72;
		Bbenz = 1660.65;
		Cbenz = -1.46;
		pSatBenz(\T) = pZero*exp( ln(10)*(Abenz-Bbenz/(\T+Cbenz)) ) ); 		
		Aethanol = 4.92;
		Bethanol = 1432.53;
		Cethanol = -61.81;
		pSatEthanol(\T) = pZero*exp( ln(10)*(Aethanol-Bethanol/(\T+Cethanol)) ) ); 		
	},
	xscale=.05
	]
	
	\newcommand{\pnt}[3][black]{%
		\begin{scope}[shift={#2}];
			\fill[color=#1,shift only] (0,0) circle(#3);
	\end{scope}}

	\newcommand{\vTick}[4][black]{%
	\begin{scope}[shift={#2}];
		\draw[#1,shift only] (0,0) +(0,#3) -- +(0,-#3) node[below] {#4};
	\end{scope}}

	\newcommand{\hTick}[4][black]{%
	\begin{scope}[shift={#2}];
		\draw[#1,shift only] (0,0) +(#3,0) -- +(-#3,0) node[left] {#4};
	\end{scope}}

	
	\draw[->] (320,0) node[below] {320} -- (420,0) node[below] {$T[\text{K}]$};
	\draw[->] (320,0) node[left] {0} -- +(0,5) node[above] {$p_\text{sat} [\text{atm}]$};
	
	\draw[smooth, domain={320}:{400}, variable=\T, blue] plot({\T},{pSatEau(\T)}) node[right] {eau};
	\draw[smooth, domain={320}:{400}, variable=\T, brown] plot({\T},{pSatBenz(\T)}) node[right] {benzène};
	\draw[smooth, domain={320}:{400}, variable=\T, orange] plot({\T},{pSatEthanol(\T)}) node[right] {ethanol};

	\pgfmathsetmacro{\theT}{373}
	\pgfmathsetmacro{\thepSat}{{pSatEau(\theT)}}	
%	\draw (\theT,\thepSat) circle (0.02cm);
	\pnt[blue]{(\theT,\thepSat)}{0.05}
	\vTick[blue]{(\theT,0)}{.1}{373}
	\hTick[blue]{(320,\thepSat)}{.1}{1}
	 
	
\end{tikzpicture}

\end{document}