blechmusikの日記

キー・カスタマイズ・ソフトウェア "DvorakJ" の覚え書きをはじめとして様々なことを書いています。

時事新報の論説約6000編中福沢が関与したものを探し出す手順を考えてみた

福沢諭吉の真の考えを探究する書 平山洋『アジア独立論者 福沢諭吉――脱亜論・朝鮮滅亡論・尊皇論をめぐって』 - blechmusik2の日記の続きである。
「脱亜論」のような論説がカテゴリーIVに該当するか否かを判定し、該当しないときはカテゴリーIに該当するかを判定し、それでもまだ該当しないときにカテゴリーIIかカテゴリーIIIのどちらに該当するか判定するという手順を考えてみた。こうすれば、諸資料の不存在を理由として――具体的には、自筆草稿が残存せず、そして福沢自身や石河が言及してこなかったという事情に依拠して――当該論説をカテゴリーIVに分類してしまうことを防げるようになると思われる。もっとも、このような単純なモデルを利用すると、本来は福沢非関与の論説なのにカテゴリーIV以外に分類されてしまうという可能性には十分に対処できまい。

ソースは以下の通りである。

(defparameter *subgraphs* '(
                            ))
 

(defparameter *options* '(
                          (graph
                           (:label "平山洋『アジア独立論者 福沢諭吉――脱亜論・朝鮮滅亡論・尊皇論をめぐって』「おわりに」を参考にした\\n時事新報の論説約6000編中福沢が関与したものを探し出すには")
                           (:fontname  "APJapanesefont")
                           (:labelloc t)
                           )
                          (node
                           (:fontname  "APJapanesefont")
                           )
                          (edge
                           (:fontname  "APJapanesefont")
                           )
                          ))
 
(defparameter *nodes* '(
                        (jiji ("現行版『全集』「時事新報論集」所収?"))
                        (unrecorded ("約4500編\\n今後の分析対象"))
                        (jihitsu ("約1500編\\n自筆原稿あり?"))
                        (kanyo ("108編"))
                        (taisyou ("約1400編\\n大正版『全集』所収?"))
                        (kyakkan ("224編\\n※うち石河起草分14編"))
                        (nokori ("約1200編すべてが福沢の論説\\nという見解を採用?"))
                        (allfukuzawa ("約1200編すべて\\n福沢の論説"))
                        (exclusion-by-materials ("文体と諸資料から福沢非関与と判断?\\n(執筆・校閲関与への障害あり)"))
                        (other-reporter ("福沢偽筆\\n<カテゴリーIV>"))
                        (style-and-materials ("文体と諸資料から福沢起筆と判断?\\n(p.136の確認順序を参照)"))
                        (fukuzawa ("福沢真筆\\n<カテゴリーI>"))
                        (true-by-style-and-materials ("文体と諸資料から\\n福沢が立案者だと判断?"))
                        (fukuzawa-and-other-reporter ("福沢立案\\n記者起稿\\n<カテゴリーII>"))
                        (other-reporter-and-fukuzawa ("記者立案\\n福沢添削\\n<カテゴリーIII>"))
                        ))
 
(defparameter *edges* '(
                        (jiji
                         (jihitsu yes)
                         (unrecorded no)
                         )
                        (jihitsu
                         (kanyo yes)
                         (taisyou no)
                         )
                        (taisyou
                         (kyakkan yes)
                         (nokori no)
                         )
                        (nokori
                         (allfukuzawa yes)
                         (exclusion-by-materials no)
                         )
                        (exclusion-by-materials
                         (other-reporter yes)
                         (style-and-materials no "\\n福沢による何かしらの関与あり")
                         )
                        (style-and-materials
                         (fukuzawa yes)
                         (true-by-style-and-materials no "\\n福沢による一定程度の関与あり")
                         )
                        (true-by-style-and-materials
                         (fukuzawa-and-other-reporter yes)
                         (other-reporter-and-fukuzawa no)
                         )
                        ))