Next: 8.3 パスの長さ
Up: 8.2 コストの表現
Previous: 8.2 コストの表現
頂点をシンボルで表現し属性リストに隣接点リストを
表現するという例の場合には，隣接点リストの属性リストを
変更するのではなく，他の属性を利用するという手が考えられる．
ある頂点への辺への距離をデータとして頂点の属性リストに
蓄えるには，各隣接点ごとに距離を求めておく必要がある．
最初からその距離を登録しておき，使いたいときにそのデータをとり出して来
て使うという方法が考えられる．
たとえば，
(setq *graph1-with-cost*
'((a s 5.0) (b a 3.0) (c b 4.0)
(d a 6.0827627) (d s 4.2426405)
(e d 3.0) (e b 6.0827627)
(f e 5.8309517)))
(defun init-graph-cost (ee)
(mapc
#'(lambda (e)
(put (elt e 0) (elt e 1) (elt e 2))
(put (elt e 1) (elt e 0) (elt e 2)))
ee))
(defun node-distance (n1 n2)
(get n1 n2))
というぐあいに，辺間の距離をリストにしたデータから
頂点の属性として，属性を隣接する頂点の名前とし，値を距離に
するという具合に定義する．
> (init-graph-cost *graph1-with-cost*)
((a s 5.0) (b a 3.0) (c b 4.0)
(d a 6.0827627) (d s 4.2426405)
(e d 3.0) (e b 6.0827627) (f e 5.8309517))
> (get 'a 's)
5.0
> (get 's 'a)
5.0
> (get 's 'b)
nil
> (node-distance 'd 's)
4.2426405
> (node-distance 's 'd)
4.2426405
node-distanceは２つの頂点を与えるとその頂点間の距離を返す．
generated through LaTeX2HTML. M.Inaba 平成18年5月7日