公害被害メカニズム

Graphiz dot $ dot -Tpng KouGai-Mechanism-rcrds.dot -oKouGai-Mechanism-rcrds.png

digraph kdm {
	labelloc="t"
	label="鉱毒被害発生のメカニズム"
/*	
	KouDoku [shape=none,label=<
		 <ruby>鉱毒<rp>(</rp><rt>こうどく</rt><rp>)</ruby>
		 >] */
/*Error: Unknown HTML element <ruby> on line 2 
in label of node KouDoku */
{rank=same;

		mining [shape=box;style=dotted;label=<
			<table border="0" cellborder="0" cellspacing="0" cellpadding="4">
			<tr><td bgcolor="lightgrey">採鉱</td></tr>
			<tr><td>砒素</td></tr></table>>]
		// [label="採鉱\n砒素",shape="box"];
	        KouDoku [label="鉱毒・公害",shape=ellipse,style=dotted]


		smelting [shape=box;style=dotted;label=<
			  <table border="0" cellborder="0" cellspacing="0" cellpadding="4">
			  <tr><td  bgcolor="lightgrey">製錬</td></tr>
			  <tr><td>亜ヒ焼き</td></tr></table>>]
		//[label="製錬\n亜ヒ焼き",shape="box"];}
		}
		
        {rank=same;
	minewater [shape=none,label=<
		   <table border="0" cellborder="0" cellspacing="0" cellpadding="4">
		   <tr><td port="KouNai">坑内水</td></tr>
		   <tr><td bgcolor="lightgrey">砒素</td></tr>
		   </table>>]


	smoke [shape="none",label=<
	<table border="0" cellborder="0" cellspacing="0" cellpadding="4">
	<tr><td port="kemuri">煙</td></tr>
	<tr><td bgcolor="lightgrey">亜砒酸粉塵</td></tr>
	<tr><td bgcolor="lightgrey">亜硫酸ガス</td></tr>
	</table>>]

	joint [shape="none",label=<
	       <table border="0" cellborder="0" cellspacing="0" cellpadding="4">
	       <tr>
	       <td port="tailings" rowspan="3">廃石</td>
	       <td bgcolor="lightgrey">鉛、亜砒、銅</td>
	       <td port="slag" rowspan="3">鉱滓</td>
	       </tr>
	       <tr>
	       <td port="cadmium" bgcolor="lightgrey">カドミウム</td>
	       </tr>
	       <tr>
	       <td bgcolor="lightgrey">砒素、鉄</td>
	       </tr>
	       </table>>]
	}
	{rank=same;
	water [label="水を汚染",shape="none"];
	dirt [label="土を汚染",shape="none"];
	farm [label="農を汚染",shape="none"];
        air  [label="大気を汚染",shape="none"];}

	damage [shape=none,label=<
		<table border="0" cellborder="0" cellspacing="0" cellpadding="4">
		<tr>
		<td rowspan="2">被<br/>害</td>
		<td port="people" colspan="4"
		bgcolor="lightgrey">人体被害</td>
		<td rowspan="2">被<br/>害</td></tr>
		<tr>
		<td>川魚</td><td>農作物</td><td>樹木</td><td>家畜</td></tr>
		</table>>]
		

	// KouDoku -> { mining; smelting; }
	mining -> KouDoku
	smelting -> KouDoku
	mining -> minewater
	smelting -> smoke
	mining -> joint:tailings:nw
	smelting -> joint:slag:ne
	joint -> water [label="川に流入"] // ,weight=8]
	minewater -> water
	joint -> dirt

	subgraph smokedouble {
		ordering=out;
		smoke -> farm:n // [weight=8]
		smoke -> air
	}

	subgraph mingledPollutions {
		ordering=out
		water -> dirt [label="用水"]
		dirt -> farm:nw // [weight=8]
		air -> farm
		//smoke:e -> farm:ne // [weight=8]
	}


	KouDoku -> damage [style=dashed]
	water -> damage:people:nw [label="飲む"]
	farm -> damage:people:ne [label="食う"]
	air -> damage:people:n [label="吸う"]
	} 			//end kdm KouDokuMechanism