政府調達時の支払を国債を発行して行った場合について、 Wrayによる記述を元にグラフを描く(参考: L.Randall Wray(2015) 'Modern Money Theory’ 2nd edition, pp.95-96)

mmt_graph.dot

//※要:graphviz
//$ dot -Tpng mmt_graph.dot -o mmt_graph.png
// #ref: https://twitter.com/tacmasi/status/1131576218304753664
digraph mmt {
	graph[label = "国債発行による政府調達時の金融資産・負債の発生,  実物資産(製品)の移動\n参考: L.Randall Wray(2015) 'Modern Money Theory, 2nd edition',pp.95-96.    作成:tacmasi",
	rankdir = TB,
	labelloc = b,
	bgcolor = "#343434",
	fontsize = 12,
	fontcolor = white,
	style = filled];
	node [shape = box,
	colorscheme = "rdylgn11"
	style = "solid, filled",
	fontsize = 12,
	fontcolor = 6,
	color = 7,
	fillcolor = 11];
	edge [dir = both
	colorscheme = "spectral11"
	fontsize = 10,
	fontcolor = 4,
	color = 4,
	];
	"政府\n資産" [shape = invhouse];
	"政府\n負債" [shape = invhouse];
	"民間銀行\n資産" [shape = note];
	"民間銀行\n負債" [shape = note];
	"中央銀行\n資産" [shape = folder];
	"中央銀行\n負債" [shape = folder];
	"民間(除銀行)\n資産" [shape = house];
	凡[shape = point]
	例[shape = point]
	subgraph t_0{
			edge [color = 3, fontcolor = 3];
			凡 -> 例 [label = phase1, arrowhead = none, dir = none,  headport = n, tailport = n];
			"政府\n資産" -> "民間銀行\n負債" [headlabel = "+預金" ];
			"政府\n負債" -> "民間銀行\n資産" [label = "+国債" ];
	}
	subgraph t_1{
			edge [color = 7, fontcolor = 7];
			凡 -> 例 [label = phase2, arrowhead = none,dir = none  ];
			"政府\n資産" -> "民間銀行\n資産" [label = "-預金"];
			"政府\n資産" -> "中央銀行\n負債" [label = "+預金"];
			"中央銀行\n資産" -> "民間銀行\n負債" [label = "+準備預金"];
	}
	subgraph t_2{
			edge [color = 8, fontcolor = 8];
			凡 -> 例 [label = phase3, arrowhead = none,dir = none ];
			"政府\n資産" -> "中央銀行\n負債" [label = "-預金"];
			"民間銀行\n負債" -> "民間(除銀行)\n資産" [label = "+預金"];
			"民間銀行\n負債" -> "中央銀行\n資産" [label = "-準備預金"];
			"政府\n資産" -> "民間(除銀行)\n資産" [dir = back, label = "製品(納品)"];
	}
	{rank = same; "政府\n資産" "政府\n負債"}
	{rank = same; "中央銀行\n資産" "中央銀行\n負債"}
	{rank = same; "民間銀行\n資産" "民間銀行\n負債"}
	{rank = same; "民間(除銀行)\n資産"}
	{rank = same; 凡 例}
}