経路の図を描く．
&ref(shortest_path.png,,title=,width=400,)
&ref(shortest_path.zip)
・画面上に線分と点をとる．
Addax(0);
Pointdata("1",B,["Size=8"]);
Pointdata("2",K,["Size=8"]);
Pointdata("3",Q,["Size=8"]);
／／点を黒丸で描く．
Listplot("1",[A,K,L,B,A]);
Listplot("2",[C,D]);
Listplot("3",[E,F]);
Listplot("4",[G,H]);
Listplot("5",[M,N]);
Listplot("6",[O,P]);
／／経路の線分を描く．
Letter([B,"n1w1","A",K,"s1e1","B",Q,"s1w1","C"]);
／／点の名前を描く．
