Cómo trazar un gráfico de 2 (gráfico de Königsberg, Euler)

Question

Quiero trazar un gráfico de 2, el gráfico de Königsberg. Tengo esto: V={A,B,C,D} el conjunto de vértices E={e1={A,B}, e2={A,B}, e3={A,D}, e4= {C,D}, e5={B,C}, e6={B,C}, e7={B,D}} el conjunto de nodos (eje, aristas)

Gracias

Answer 1

Puedes hacerlo con pst-eucl, si quieres probarlo pstricks. Aquí hay un código corto, compilable pdflatexsi usa el interruptor shell-escape(TeX Live, MacTeX) o --enable-write18(MiKTeX):

\documentclass[12pt, pdf, x11names]{article}%

\usepackage{pst-eucl}

\begin{document}

\begin{pspicture*}(-1, -1.2)(2, 1.2)
\psset{linewidth=0.5pt, linecolor=SteelBlue3, fillcolor=SteelBlue3, PointNameSep=0.8em}
\pstGeonode[PointSymbol=none, PointName=none](0.5,-0.5){O1}(-0.5, -0.5){P1}(0.5,0.5){O2}(-0.5,0.5){P2}
\pstGeonode[PointSymbol=o, PosAngle={180,180,180,0}](0,-1){A}(0,0){B}(0,1){C}(1.5,0){D}
\ncline{A}{D} \ncline{B}{D} \ncline{C}{D}
\pstArcOAB{O1}{B}{A}\pstArcOAB{P1}{A}{B}
\pstArcOAB{O2}{C}{B}\pstArcOAB{P2}{B}{C}
\end{pspicture*}

\end{document}