Ví dụ 2 bước, chạy theo thứ tự trong một phiên. Từng bước đều được thực thi trên bộ máy và đầu ra bên dưới là những gì nó tạo ra.
n = 2 Prime[5];
p = PrimitiveRoot[n];
{n, p}{22, 13}Graph[Table[PowerMod[p, k, n] -> PowerMod[p, k + 1, n], {k, EulerPhi[n]}], DirectedEdges -> True, VertexLabels -> Placed["Name", Center], VertexSize -> 0.4, VertexStyle -> LightOrange]Graph[<10>, <10>]Tất cả công thức · Tài liệu tham chiếu hàm · Dùng cái này từ một client MCP