\documentclass[12pt,a4paper]{article}
\usepackage[francais]{babel}
\usepackage{mafr}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{amsmath}
\usepackage{amsfonts}
\usepackage{amssymb}
\usepackage{lmodern}
\usepackage[dvipsnames]{xcolor}
\usepackage{pstricks}
\usepackage{pst-eucl}
\begin{document}
\begin{pspicture}(0,0)(8.5,5)%
\pstGeonode(1,1){A}%
\pscircle(A){1}%
\pstGeonode(4,1){B}(5,1){C}%
\pstCircleOA{B}{C}%
\pstGeonode(6,1){D}(8,1){E}%
\pstCircleAB{D}{E}%
\pstGeonode(1,4){F}%
\pstCircleOA[Radius=\pstDistAB{B}{C}]{F}{}%
\pstGeonode(4,4){G}%
\pstCircleOA[Diameter=\pstDistAB{D}{E}]{G}{}%
\pstGeonode(7,4){H}%
\pstCircleOA[Radius=\pstDistVal{1}]{H}{}%
\end{pspicture}
\end{document}
