Раскрашивание краев на графике в Wolfram Mathematica

Question

Можно ли окрасить ребро графа в Wolfram Mathematica с использованием цветовой функции, которая зависит от координаты на краю? Как и использование опции ColorFunction в Plot [].

У меня есть функция, указанная на краю графика, в зависимости от координаты на краю. Возможно ли нарисовать плотность этой функции на краю? Спасибо за ответ.

PS: Первая идея - использовать Inset [] для подключения графического цветного объекта в EdgeRenderingFunction, но это кажется совершенно неестественным. Есть ли какие-либо упрощенные способы?

Answer 1

Один из способов использования ColorFunction для цветных ребер в графе является:

ClearAll[colorededge]; 
    colorededge[pts_, colorfunc_: Function[{x, y}, ColorData["TemperatureMap"][y]]] := 
    ListPlot[pts, Joined -> True, PlotStyle -> Thick, Axes -> False, 
    ColorFunction -> colorfunc, ColorFunctionScaling -> True]; 
    edgshpfnc = (If[Last[#2] == "B", First@colorededge[#1], 
    First@colorededge[#1, Function[{x, y}, Blend[{Yellow, Red}, x]]]] &); 
    Graph[{"A" -> "B", "B" -> "C", "C" -> "A"}, 
    VertexCoordinates -> {"A" -> {0, 0}, "B" -> {1, 1}, "C" -> {2, 0}}, 
    EdgeShapeFunction -> edgshpfnc, VertexLabels -> "Name", ImagePadding -> 10] 

дает

и

GraphPlot[{"A" -> "B", "B" -> "C", "C" -> "A"}, 
EdgeRenderingFunction -> edgshpfnc, VertexLabeling -> True] 

дает