Мультиграфы в Mathematica 8

Я просто потратил пару часов, пытаясь преобразовать какой-то старый код , который использует GraphPlot из Mathematica 7 для использования нового Mathematica 8 Графические функции. Это казалось разумным, поскольку новый рисунок графика намного лучше, и в него встроены такие вещи, как AdjacencyMatrix и KirchhoffMatrix .

Проблема в том, что я не могу понять, как заставить графы с несколькими ребрами работать в Mma 8.

Граф Фейнмана, который я использую в качестве своего канонического примера, - это двухпетлевой вакуумный граф

GraphPlot[{1 -> 2, 1 -> 2, 1 -> 2}, MultiedgeStyle -> .5, 
          DirectedEdges -> True, VertexCoordinateRules -> {{-1, 0}, {1, 0}}]

Попытка создать подобный граф в Mma 8

Graph[{DirectedEdge[1, 2], DirectedEdge[1, 2], DirectedEdge[1, 2]}, 
      VertexCoordinates -> {{-1, 0}, {1, 0}}]

приводит к сообщению об ошибке

Graph::supp: Mixed graphs and multigraphs are not supported. >>

Как я могу построить (и работать) подобный граф, используя объекты Graph [] в системе Mathematica 8?

Редактировать : Эта проблема все еще существует в Mathematica 9