鉱毒被害発生のメカニズム - Rackcdn.com

鉱毒被害発生のメカニズム
第2回　身近な動物から人間へ
—被害の拡大ー
AAN講座「土呂久に学ぶ」
Drawing by Kazuyuki Kawahara.
emacs org-mode Tables 表
#+CAPTION: 課程段階
#+name: nodes
| node
| label
|
|--------+------------------------------------|
| 採鉱
| 鉱石を掘る
|
| 精錬
| 亜ヒ焼き
|
| 坑内水 | (ヒ素)
|
| 廃石
| 鉛、亜砒、銅、カドミウム、砒素、鉄 |
| 鉱さい | (焼きがら)
|
| 煙
| (亜砒酸粉じん)(亜硫酸ガス)
|
| 水
| を汚染
|
| 土
| を汚染
|
| 農作物 | を汚染
|
| 大気
| を汚染
|
emacs-lisp code
#+name: nodelabels2dot
#+HEADERS: :colnames yes :results raw
#+BEGIN_SRC emacs-lisp :var table=nodes
(mapconcat (lambda (row)
(format "\"%s\" [label=\"%s\n%s\"]"
(car row) (car row) (car (cdr row))))
table "\n")
#+END_SRC
Table, 表
#+CAPTION: 被害
#+name: peoplerank
| Contaminated |
|----------|
| 人体
|
| 家畜
|
| 農作
|
| 川魚
|
| 樹木
|
#+CAPTION: 流れ、繋り
#+name: edges
| from
| to
| edge
|
|--------+--------+----------|
| 採鉱
| 坑内水 |
|
| 採鉱
| 廃石
|
|
| 精錬
| 鉱さい |
|
| 鉱さい | 水
|
|
| 精錬
| 煙
|
|
| 坑内水 | 水
| 川に流入 |
| 廃石
| 水
|
|
| 廃石
| 土
|
|
| 煙
| 農作物 |
|
| 煙
| 大気
|
|
| 水
| 土
| 用水
|
| 水
| 人体
| 飲む
|
| 土
| 農作物 |
|
| 農作物 | 人体
| 食べる
|
| 大気
| 人体
| 吸う
|
emacs-lisp code
#+name: ranker
#+HEADERS: :colnames yes
#+BEGIN_SRC emacs-lisp :var table=peoplerank
(mapconcat (lambda (row)
(format "\"%s\"" (car row)))
table ";")
#+END_SRC
#+name: edges2dot
#+HEADERS: :colnames yes
#+BEGIN_SRC emacs-lisp :var table=edges
(mapconcat (lambda (row)
(format "\"%s\"->\"%s\" [label=\"%s\"]"
(car row) (cadr row) (car (cddr row))))
table "\n")
#+END_SRC
graphviz dot code
#+name: Mechanism
#+HEADERS: :var nodecode=nodelabels2dot(nodes) edgecode=edges2dot(edges) rankcode=ranker(peoplerank)
#+BEGIN_SRC dot :file MechanismGraph.svg :exports both
digraph { size="6.7,5.4"; nodesep=.8; rankdir=LR
node [shape=box;color=lightgrey;style=dott-ed;fontsize=16]
edge [color=grey;style=dashed;arrowhead=vee;fontsize=16]
compound=true;
{ rank = same
$rankcode
}
$nodecode
$edgecode
}
煙
大気
(亜砒酸粉じん)(亜硫酸ガス)
#+END_SRC
を汚染
樹木
川魚
農作
吸う
精錬
亜ヒ焼き
鉱さい
(焼きがら)
川に流入
採鉱
鉱石を掘る
水
を汚染
用水
農作物
を汚染
土
を汚染
食べる
家畜
人体
飲む
坑内水
(ヒ素)
廃石
鉛、亜砒、銅、カドミウム、砒素、鉄
AAN,Asia Arsenic Network 講座: www.asia-arsenic.jp/top/?p=2202
Lispプログラミング入門:
http://bach.istc.kobe-u.ac.jp/lect/ProLang/org/lisp.html
org-mode emacs-lisp and dot code tutorial:
graphviz dot: http://graphviz.org/
http://orgmode.org/worg/org-contrib/babel/languages/ob-doc-dot.html
鉱毒被害発生のメカニズム
表
課程段階
node
流れ、繋り
label
from
to
被害
edge
Polluted
採鉱
鉱石を掘る
採鉱
坑内水
人体
精錬
亜ヒ焼き
採鉱
廃石
家畜
坑内水 (ヒ素)
精錬
鉱さい
農作
廃石
鉱さい 水
川魚
鉱さい (焼きがら)
鉛、亜砒、銅、カドミウム、砒素、鉄
精錬
樹木
煙
(亜砒酸粉じん)(亜硫酸ガス)
坑内水 水
水
を汚染
廃石
水
土
を汚染
廃石
土
農作物 を汚染
煙
農作物
大気
煙
大気
水
土
用水
水
人体
飲む
土
農作物
を汚染
煙
川に流入
農作物 人体
食べる
大気
吸う
人体
樹木
川魚
農作
煙
(亜砒酸粉じん)(亜硫酸ガス)
大気
を汚染
吸う
精錬
亜ヒ焼き
鉱さい
(焼きがら)
川に流入
採鉱
鉱石を掘る
坑内水
(ヒ素)
廃石
鉛、亜砒、銅、カドミウム、砒素、鉄
水
を汚染
用水
農作物
を汚染
土
を汚染
飲む
食べる
家畜
人体
Mining: Process of Contamination
Trees and Plants
River Fish
Farm Crops
Smoke
Arsenous Acid Dust, Sulfurous Acid Gas
Smelting
Arsenic Kiln
Slag
Kiln Waste
Through Rain
Into River
Mine Water
Arsenic Laden
Mining
Mineral Digging
Water
Polluted
Air
Polluted
Crops
Polluted
Soil
Polluted
Irrigating
Breathing
Eating
Drinking
Mine Debris
Lead, Sulphur, Copper, Cadmium, Arsenic, Iron
,#+CALL: Mechanism[:file MechanismEnglish.svg]
(nodecode=nodelabels2dot(nodesEnglish), edgecode=edges2dot(edgesEnglish),
rankcode=ranker(peoplerankEnglish)) :results file
Tables
ProcessSteps
node
Flow, Connections
label
from
to
Damage
edge
Contaminated
Mining
Mineral Digging
Mining
Mine Water
Human Body
Smelting
Arsenic Kiln
Mining
Mine Debris
Farm Animals
Mine Water Arsenic Laden
Smelting
Slag
Mine Debris Lead, Sulphur, Copper, Cadmium, Arsenic, Iron
Slag
Water
Slag
Kiln Waste
Smelting
Smoke
Smoke
Arsenous Acid Dust, Sulfurous Acid Gas
Mine Water Water
Water
Polluted
Mine Debris Water
Soil
Polluted
Mine Debris Soil
Crops
Polluted
Smoke
Crops
Air
Polluted
Smoke
Air
Water
Soil
Water
Human Body Drinking
Soil
Crops
Crops
Human Body Eating
Air
Human Body Breathing
Farm Crops
Through Rain
River Fish
Trees and Plants
Into River
Irrigating
Farm Animals
Human Body
digraph { size="6.7,5.4"; nodesep=.8;
rankdir=LR
compound=true;
Code
graphviz dot "Mechanism"
node [shape=box;color=lightgrey;style=dashed;fontsize=16]
edge [color=grey;style=dashed;arrowhead=vee;fontsize=16;fontcolor=grey]
{ rank = same
$rankcode
}
$nodecode
$edgecode
}
emacs-lisp "nodelabels2dot" -> $nodecode
(mapconcat (lambda (row)
(format "\"%s\" [label=\"%s\n%s\"]" (car row) (car row) (car (cdr row))))
table "\n")
"採鉱" [label="採鉱 鉱石を掘る"] "精錬" [label="精錬 亜ヒ焼き"] "坑内水" [label="坑内水 (ヒ素)"] "廃石"
[label="廃石 鉛、亜砒、銅、カドミウム、砒素、鉄"] "鉱さい" [label="鉱さい (焼きがら)"] "煙" [label="煙 (亜砒酸粉
じん)(亜硫酸ガス)"] "水" [label="水 を汚染"] "土" [label="土 を汚染"] "農作物" [label="農作物 を汚染"] "大気"
[label="大気 を汚染"]
emacs-lisp "edges2dot" -> $edgecode
(mapconcat (lambda (row)
(format "\"%s\"->\"%s\" [label=\"%s\"]" (car row) (cadr row) (car (cddr row))))
table "\n")
"採鉱"->"坑内水" [label=""] "採鉱"->"廃石" [label=""] "精錬"->"鉱さい" [label=""] "鉱さい"->"水" [label=""] "
精錬"->"煙" [label=""] "坑内水"->"水" [label="川に流入"] "廃石"->"水" [label=""] "廃石"->"土" [label=""] "
煙"->"農作物" [label=""] "煙"->"大気" [label=""] "水"->"土" [label="用水"] "水"->"人体" [label="飲む"] "土"->"
農作物" [label=""] "農作物"->"人体" [label="食べる"] "大気"->"人体" [label="吸う"]
emacs-lisp "ranker" -> $rankcode
(mapconcat (lambda (row)
(format "\"%s\"" (car row)))
table ";")
"人体";"家畜";"農作";"川魚";"樹木"