はじめに

グラフ理論のグラフです。チャートではありません。

実装

今回は，隣接行列を内部に持つグラフ構造種類を定義して，その上でサクッとグラフを描いてくれるようにしたいと思います。
図形描画は面倒なので，今回はグラフ描画老舗最大手のgraphvizを使います。

コンストラクタ

日本語プログラミング言語なので，日本語をラベルに持ったノードも使うことがあるかもしれません。その際に問題になるのがフォントです。そこで，フォントを指定できるようにしておきます。

グラフ構造.rdr

グラフ構造とは
	＋隣接行列：行列
	＋ラベル：配列
	－フォント名：文字列
	－大きさ：整数
	はじめ（V）の手順
		隣接行列は，行列（V，V）を作ったもの。
		V回【あ】にカウントして繰り返す
			ラベル（あ）は，あ。
		繰り返し終わり。
		大きさは，V。
		フォント名は，「」。
	終わり
	はじめ（V，F）の手順
		隣接行列は，行列（V，V）を作ったもの。
		V回【あ】にカウントして繰り返す
			ラベル（あ）は，あ。
		繰り返し終わり。
		大きさは，V。
		フォント名は，「node ［[］fontname = "［F］"［]］;［改行］」。
	終わり
終わり

エッジを引く

これは隣接行列に1を立てるだけです。

自分で【始点：整数】から【終点：整数】にエッジを引く手順
	隣接行列の中身（始点，終点）は，1。
終わり

dotを作成する

有向グラフと無向グラフの場合で書き方が少し違うので，手順を2つ用意しました。

まず，有向グラフです。

自分を有向グラフとして描画する手順
	【ドット：文字列】は，「」。
	ドットは，ドット＆「digraph{［改行］［フォント名］」。
	大きさ回，【行】にカウントして繰り返す
		大きさ回，【列】にカウントして繰り返す
			もし隣接行列の中身（行，列）が1なら
				ドットは，ドット＆「［タブ］"［ラベル（行）］" -> "［ラベル（列）］";［改行］」。
			もし終わり
		繰り返し終わり
	繰り返し終わり
	ドットは，ドット＆「}」。
	ドットをよしなにする。
終わり

まあそうだよね，という感じです。次に，無向グラフ。

自分を無向グラフとして描画する手順
	【ドット：文字列】は，「」。
	ドットは，ドット＆「graph{［改行］［フォント名］」。
	大きさ回，【行】にカウントして繰り返す
		大きさ回，【列】にカウントして繰り返す
			もし隣接行列の中身（行，列）が1なら
				もし（行＜＝列）または（隣接行列の中身（列，行）が0）なら
					ドットは，ドット＆「［タブ］"［ラベル（行）］" -- "［ラベル（列）］";［改行］」。
				もし終わり
			もし終わり
		繰り返し終わり
	繰り返し終わり
	ドットは，ドット＆「}」。
	ドットをよしなにする。
終わり

無向グラフは，A→Bというエッジと，B→Aというエッジがあった場合に，2本エッジを引く意味が無いので，2回目の描画をしないようにしています。行＜＝列の場合に絞るという手もありますが，隣接行列にどのようにデータが入るか分からないので，採用しませんでした。

dotを起動して画像化し，表示する

【ドットデータ：文字列】をよしなにする手順
	ドットデータを「_temp.dot」へ「UTF8」で保存する。
	「dot.exe」を「-Tpng -O _temp.dot」として起動して待つ。
	グラフ画像という画像（「_temp.dot.png」）を作る。
	画像表示というウィンドウを作る。
		その実質大きさは，グラフ画像の大きさ。
		そのタイトルは，「グラフ」。
	画像表示へ画像領域というピクチャーを作る。
		その位置は，｛0，0｝。
		その大きさは，画像表示の実質大きさ。
		その画像は，グラフ画像。
	画像表示を表示。
	「_temp.dot」を削除する。
	「_temp.dot.png」を削除する。
終わり

仮に_temp.dotにdotファイルを出力し，dotを起動しています。dotはPATHが通っていることが前提です。出力されたPNG画像を読み込んで，ウィンドウに表示しています。

なんか描く

何か描いてみたいと思います。

「行列.rdr」を参照する。
「グラフ構造.rdr」を参照する。

路線図というグラフ構造（8，「Yu Gothic」）を作る。
路線図のラベルは，｛「荻窪」，「中野」，「新宿」，「飯田橋」，「四ツ谷」，「東京」，「大手町」，「御茶ノ水」｝。
’中央線
路線図で1から2にエッジを引く。
路線図で2から3にエッジを引く。
路線図で3から4にエッジを引く。
路線図で4から5にエッジを引く。
路線図で5から8にエッジを引く。
路線図で8から6にエッジを引く。
’東西線
路線図で2から4にエッジを引く。
路線図で4から7にエッジを引く。
’丸ノ内線
路線図で1から3にエッジを引く。
路線図で3から5にエッジを引く。
路線図で5から6にエッジを引く。
路線図で6から7にエッジを引く。
路線図で7から8にエッジを引く。

路線図を無向グラフとして描画する。
待機。

きちんと動きました。

有向グラフも描いてみます。

「行列.rdr」を参照する。
「グラフ構造.rdr」を参照する。

進路というグラフ構造（10，「Meiryo」）を作る。
進路のラベルは，｛「幼稚園」，「小学校」，「中学校」，「中等教育学校」，「高等学校」，「高等専門学校」，「大学」，「大学院」，「大学病院」，「通商産業省工業技術院」｝。
進路で1から2にエッジを引く。
進路で2から3にエッジを引く。
進路で2から4にエッジを引く。
進路で3から5にエッジを引く。
進路で3から6にエッジを引く。
進路で4から7にエッジを引く。
進路で5から7にエッジを引く。
進路で6から7にエッジを引く。
進路で6から8にエッジを引く。
進路で7から8にエッジを引く。
進路で7から9にエッジを引く。
進路で8から9にエッジを引く。
進路で9から8にエッジを引く。
進路で7から10にエッジを引く。

進路を有向グラフとして描画する。
待機。

きちんと動きました。

なお，グラフ構造.rdrでは，

路線図で「荻窪」から「中野」にエッジを引く。

などと書いても動きます。