这里，介绍一下用Mathematica处理数论问题的内容！
2、再来绘制一个有向图：Graph[{1 -> 2, 2 -> 3, 3 -> 1}]
4、还可以把样式封装起来：Graph[{1, 2, Style[3, Red],Style[6,Green],Style[5,Blue]}, { 2 <-> 3, Style[3 <-> 1, Blue], Style[5<-> 1, Yellow], Style[6<->2, Red], Style[2 <-> 1, Green]}]
应用一例
1、求前100个数字的平方，除以17的余数，并把这个映射画成图！先做列表：Table[i -> Mod[i^2, 17], {i, 100}]再构造图：Graph[%]
2、这是换了一个除数的结果：Graph[Table[i -> Mod[i^2, 69], {i, 100}]]
应用二例
1、列举以plot开头的所有英文单词：words = DictionaryLookup["plot*"]
3、作图，并显示标签：Graph[%, VertexLabels -> "Name", ImageSize ->365]
