import jsclasses files and add them to collection-langcjk

git-svn-id: svn://tug.org/texlive/trunk@18430 c570f23f-e606-0410-a88d-b1316a301751

19 files changed, 15424 insertions, 0 deletions

diff --git a/Master/texmf-dist/source/platex/jsclasses/jsclasses.dtx b/Master/texmf-dist/source/platex/jsclasses/jsclasses.dtx
new file mode 100644
index 00000000000..700a4887a77
--- /dev/null
+++ b/Master/texmf-dist/source/platex/jsclasses/jsclasses.dtx
@@ -0,0 +1,5430 @@
+% ^^A -*- japanese-latex -*-
+% \iffalse meta-comment
+%
+%  pLaTeX2ε新ドキュメントクラス
+%
+%  これは LaTeX3 Project の classes.dtx と株式会社アスキーの jclasses.dtx
+%  に基づいて奥村 <okumura@edu.mie-u.ac.jp> が改変したものです。
+%  奥村の改変部分については何の権利も主張しません。
+%  オリジナルの著作権の許す範囲で自由にご利用ください。
+%
+%  [2002-12-19] いろいろなものに収録していただく際にライセンスを明確にする
+%  必要が生じてきました。アスキーのものが最近はmodified BSDライセンスになっ
+%  ていますので，私のものもそれに準じてmodified BSDとすることにします。
+%
+%  Copyright 1993 1994 1995 1996 1997 1998 1999
+%  The LaTeX3 Project and any individual authors listed elsewhere
+%  in this file. 
+%
+%  Copyright 1995-1999 ASCII Corporation.
+%
+% \fi
+% \CheckSum{5481}
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+%
+% \iffalse
+%
+%    \begin{macrocode}
+%<article|book|jspf|kiyou>\NeedsTeXFormat{pLaTeX2e}
+%<article>\ProvidesClass{jsarticle}
+%<book>\ProvidesClass{jsbook}
+%<jspf>\ProvidesClass{jspf}
+%<kiyou>\ProvidesClass{kiyou}
+%<*driver>
+\ProvidesFile{jsclasses.dtx}
+%</driver>
+  [2010/03/14 okumura]
+%<*driver>
+\documentclass{jsarticle}
+\usepackage{doc}
+\addtolength{\textwidth}{-1in}
+\addtolength{\evensidemargin}{1in}
+\addtolength{\oddsidemargin}{1in}
+\addtolength{\marginparwidth}{1in}
+\setlength\marginparpush{0pt}
+% \OnlyDescription
+\DisableCrossrefs
+\setcounter{StandardModuleDepth}{1}
+\GetFileInfo{jsclasses.dtx}
+\begin{document}
+  \DocInput{jsclasses.dtx}
+\end{document}
+%</driver>
+%    \end{macrocode}
+%
+% \fi
+%
+% \title{\pLaTeXe 新ドキュメントクラス}
+% \author{奥村晴彦}
+% \date{\filedate}
+% \maketitle
+%
+% \MakeShortVerb{\|}
+%
+% \section{はじめに}
+%
+% これは\LaTeX3 Projectの \texttt{classes.dtx} と
+% 株式会社アスキーの \texttt{jclasses.dtx} に基づいて
+% 奥村が改変したものです。
+% 権利については両者のものに従います。
+% 奥村は何の権利も主張しません。
+%
+% [2009-02-22] 田中琢爾氏によるup\LaTeX 対応パッチを取り込みました。
+%
+% ここでは次のドキュメントクラス（スタイルファイル）を作ります。
+% \begin{quote}
+%   \begin{tabular}{lll}
+%     $\langle$\textsf{article}$\rangle$ & \texttt{jsarticle.cls}  & 論文・レポート用 \\
+%     $\langle$\textsf{book}$\rangle$    & \texttt{jsbook.cls}     & 書籍用 \\
+%     $\langle$\textsf{jspf}$\rangle$    & \texttt{jspf.cls}       & 某学会誌用 \\
+%     $\langle$\textsf{kiyou}$\rangle$   & \texttt{kiyou.cls}      & 某紀要用
+%   \end{tabular}
+% \end{quote}
+%
+% \LaTeXe あるいは\pLaTeXe 標準のドキュメントクラスとの違いを説明してお
+% きます。
+%
+% \paragraph{JISフォントメトリックの使用}
+%
+% ここでは和文TFM（\TeX フォントメトリック）として東京書籍印刷の小林肇さ
+% んの作られたJISフォントメトリック \texttt{jis.tfm}，\texttt{jisg.tfm}
+% を標準で使います。従来のフォントメトリック \texttt{min10.tfm}，
+% \texttt{goth10.tfm} の類を使うには
+% \begin{quote}
+%   |\documentclass[mingoth]{jsarticle}|
+% \end{quote}
+% のように \texttt{mingoth} オプションを付けます。
+%
+% \paragraph{サイズオプションの扱いが違う}
+%
+% 標準のドキュメントクラスでは本文のポイント数を指定するオプションがあり
+% ましたが，ポイント数は10，11，12しかなく，それぞれ別のクラスオプション
+% ファイルを読み込むようになっていました。しかも，標準の10ポイント以外で
+% は多少フォントのバランスが崩れることがあり，あまり便利ではありませんで
+% した。ここでは文字サイズを増すとページを小さくし，\TeX の |\mag| プリ
+% ミティブで全体的に拡大するという手を使って，9ポイントや21，25，30，36，
+% 43ポイント，12Q，14Qの指定を可能にしています。
+%
+% \StopEventually{}
+%
+% 以下では実際のコードに即して説明します。
+%
+% \section{オプション}
+%
+% これらのクラスは |\documentclass{jsarticle}|
+% あるいは |\documentclass[オプション]{jsarticle}|
+% のように呼び出します。
+%
+% まず，オプションに関連するいくつかのコマンドやスイッチ（論理変数）を定
+% 義します。
+%
+% \begin{macro}{\if@restonecol}
+%
+% 段組のときに真になる論理変数です。
+%
+%    \begin{macrocode}
+\newif\if@restonecol
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\if@titlepage}
+%
+% これを真にすると表題，概要を独立したページに出力します。
+%
+%    \begin{macrocode}
+\newif\if@titlepage
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\if@openright}
+%
+% |\chapter|，|\part| を奇数ページ起こしにするかどうかです。
+% 書籍では真が標準です。
+%
+%    \begin{macrocode}
+%<book>\newif\if@openright
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\if@mainmatter}
+%
+% 真なら本文，偽なら前付け・後付けです。
+% 偽なら |\chapter| で章番号が出ません。
+%
+%    \begin{macrocode}
+%<book>\newif\if@mainmatter \@mainmattertrue
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\if@enablejfam}
+%
+% 和文フォントを数式フォントとして登録するかどうかを示すスイッチです。
+%
+%    \begin{macrocode}
+\newif\if@enablejfam \@enablejfamtrue
+%    \end{macrocode}
+% \end{macro}
+%
+% 以下で各オプションを宣言します。
+%
+% \paragraph{用紙サイズ}
+%
+% JISやISOのA0判は面積 $1\,\mathrm{m}^2$，縦横比 $1:\sqrt{2}$
+% の長方形の辺の長さを mm 単位に切り捨てたものです。
+% これを基準として順に半截しては mm 単位に切り捨てたものがA1，A2，…です。
+%
+% B判はJISとISOで定義が異なります。
+% JISではB0判の面積が $1.5\,\mathrm{mm}^2$ ですが，
+% ISOではB1判の辺の長さがA0判とA1判の辺の長さの幾何平均です。
+% したがってISOのB0判は $1000\,\mathrm{mm} \times 1414\,\mathrm{mm}$ です。
+% このため，\LaTeXe の \texttt{b5paper}
+% は $250\,\mathrm{mm} \times 176\,\mathrm{mm}$ ですが，
+% \pLaTeXe の \texttt{b5paper}
+% は $257\,\mathrm{mm} \times 182\,\mathrm{mm}$ になっています。
+% ここでは\pLaTeXe にならってJISに従いました。
+% 
+% デフォルトは \texttt{a4paper} です。
+%
+% \texttt{b5var}（B5変形，182mm×230mm），
+% \texttt{a4var}（A4変形，210mm×283mm）を追加しました。
+%
+%    \begin{macrocode}
+\DeclareOption{a3paper}{%
+  \setlength\paperheight {420mm}%
+  \setlength\paperwidth  {297mm}}
+\DeclareOption{a4paper}{%
+  \setlength\paperheight {297mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{a5paper}{%
+  \setlength\paperheight {210mm}%
+  \setlength\paperwidth  {148mm}}
+\DeclareOption{a6paper}{%
+  \setlength\paperheight {148mm}%
+  \setlength\paperwidth  {105mm}}
+\DeclareOption{b4paper}{%
+  \setlength\paperheight {364mm}%
+  \setlength\paperwidth  {257mm}}
+\DeclareOption{b5paper}{%
+  \setlength\paperheight {257mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{b6paper}{%
+  \setlength\paperheight {182mm}%
+  \setlength\paperwidth  {128mm}}
+\DeclareOption{a4j}{%
+  \setlength\paperheight {297mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{a5j}{%
+  \setlength\paperheight {210mm}%
+  \setlength\paperwidth  {148mm}}
+\DeclareOption{b4j}{%
+  \setlength\paperheight {364mm}%
+  \setlength\paperwidth  {257mm}}
+\DeclareOption{b5j}{%
+  \setlength\paperheight {257mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{a4var}{%
+  \setlength\paperheight {283mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{b5var}{%
+  \setlength\paperheight {230mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{letterpaper}{%
+  \setlength\paperheight {11in}%
+  \setlength\paperwidth  {8.5in}}
+\DeclareOption{legalpaper}{%
+  \setlength\paperheight {14in}%
+  \setlength\paperwidth  {8.5in}}
+\DeclareOption{executivepaper}{%
+  \setlength\paperheight {10.5in}%
+  \setlength\paperwidth  {7.25in}}
+%    \end{macrocode}
+%
+% \paragraph{横置き}
+%
+% 用紙の縦と横の長さを入れ換えます。
+%
+%    \begin{macrocode}
+\newif\if@landscape
+\@landscapefalse
+\DeclareOption{landscape}{\@landscapetrue}
+%    \end{macrocode}
+%
+% \paragraph{slide}
+%
+% オプション \texttt{slide} を新設しました。
+%
+%    \begin{macrocode}
+\newif\if@slide
+\@slidefalse
+%    \end{macrocode}
+%
+% \paragraph{サイズオプション}
+%
+% 10pt，11pt，12pt のほかに，8pt，9pt，14pt，17pt，21pt，25pt，30pt，36pt，43pt を追加しました。
+% これは等比数列になるように選んだものです（従来の 20pt も残しました）。
+% |\@ptsize| の定義が変だったのでご迷惑をおかけしましたが，
+% 標準的なドキュメントクラスと同様にポイント数から10を引いたものに直しました。
+%
+% [2003-03-22] 14Qオプションを追加しました。
+%
+% [2003-04-18] 12Qオプションを追加しました。
+%
+%    \begin{macrocode}
+\newcommand{\@ptsize}{0}
+\DeclareOption{slide}{\@slidetrue\renewcommand{\@ptsize}{26}\@landscapetrue\@titlepagetrue}
+\DeclareOption{8pt}{\renewcommand{\@ptsize}{-2}}
+\DeclareOption{9pt}{\renewcommand{\@ptsize}{-1}}
+\DeclareOption{10pt}{\renewcommand{\@ptsize}{0}}
+\DeclareOption{11pt}{\renewcommand{\@ptsize}{1}}
+\DeclareOption{12pt}{\renewcommand{\@ptsize}{2}}
+\DeclareOption{14pt}{\renewcommand{\@ptsize}{4}}
+\DeclareOption{17pt}{\renewcommand{\@ptsize}{7}}
+\DeclareOption{20pt}{\renewcommand{\@ptsize}{10}}
+\DeclareOption{21pt}{\renewcommand{\@ptsize}{11}}
+\DeclareOption{25pt}{\renewcommand{\@ptsize}{15}}
+\DeclareOption{30pt}{\renewcommand{\@ptsize}{20}}
+\DeclareOption{36pt}{\renewcommand{\@ptsize}{26}}
+\DeclareOption{43pt}{\renewcommand{\@ptsize}{33}}
+\DeclareOption{12Q}{\renewcommand{\@ptsize}{1200}}
+\DeclareOption{14Q}{\renewcommand{\@ptsize}{1400}}
+%    \end{macrocode}
+%
+% \paragraph{トンボオプション}
+%
+% トンボ（crop marks）を出力します。
+% 実際の処理は\pLaTeXe 本体で行います（\texttt{plcore.dtx} 参照）。
+% オプション \texttt{tombow} で日付付きのトンボ，
+% オプション \texttt{tombo} で日付なしのトンボを出力します。
+% これらはアスキー版のままです。
+% カウンタ |\hour|，|\minute| はp\LaTeXe 本体で宣言されています。
+%
+%    \begin{macrocode}
+\hour\time \divide\hour by 60\relax
+\@tempcnta\hour \multiply\@tempcnta 60\relax
+\minute\time \advance\minute-\@tempcnta
+\DeclareOption{tombow}{%
+  \tombowtrue \tombowdatetrue
+  \setlength{\@tombowwidth}{.1\p@}%
+  \@bannertoken{%
+     \jobname\space(\number\year-\two@digits\month-\two@digits\day
+     \space\two@digits\hour:\two@digits\minute)}%
+  \maketombowbox}
+\DeclareOption{tombo}{%
+  \tombowtrue \tombowdatefalse
+  \setlength{\@tombowwidth}{.1\p@}%
+  \maketombowbox}
+%    \end{macrocode}
+%
+% \paragraph{面付け}
+%
+% オプション \texttt{mentuke} で幅ゼロのトンボを出力します。
+% 面付けに便利です。これもアスキー版のままです。
+%
+%    \begin{macrocode}
+\DeclareOption{mentuke}{%
+  \tombowtrue \tombowdatefalse
+  \setlength{\@tombowwidth}{\z@}%
+  \maketombowbox}
+%    \end{macrocode}
+%
+% \paragraph{両面，片面オプション}
+%
+% \texttt{twoside} で奇数ページ・偶数ページのレイアウトが変わります。
+%
+% [2003-04-29] \texttt{vartwoside} でどちらのページも傍注が右側になります。
+%
+%    \begin{macrocode}
+\DeclareOption{oneside}{\@twosidefalse \@mparswitchfalse}
+\DeclareOption{twoside}{\@twosidetrue \@mparswitchtrue}
+\DeclareOption{vartwoside}{\@twosidetrue \@mparswitchfalse}
+%    \end{macrocode}
+%
+% \paragraph{二段組}
+%
+% \texttt{twocolumn} で二段組になります。
+%
+%    \begin{macrocode}
+\DeclareOption{onecolumn}{\@twocolumnfalse}
+\DeclareOption{twocolumn}{\@twocolumntrue}
+%    \end{macrocode}
+%
+% \paragraph{表題ページ}
+%
+% \texttt{titlepage} で表題・概要を独立したページに出力します。
+%
+%    \begin{macrocode}
+\DeclareOption{titlepage}{\@titlepagetrue}
+\DeclareOption{notitlepage}{\@titlepagefalse}
+%    \end{macrocode}
+%
+% \paragraph{右左起こし}
+%
+% 書籍では章は通常は奇数ページ起こしになりますが，
+% \texttt{openany} で偶数ページからでも始まるようになります。
+%
+%    \begin{macrocode}
+%<book>\DeclareOption{openright}{\@openrighttrue}
+%<book>\DeclareOption{openany}{\@openrightfalse}
+%    \end{macrocode}
+%
+% \paragraph{eqnarray環境と数式の位置}
+%
+% 森本さんのご教示にしたがって前に移動しました。
+%
+% \begin{environment}{eqnarray}
+%
+%    \LaTeX の |eqnarray| 環境では |&| でできるアキが大きすぎる
+%    ようですので，少し小さくします。
+%    また，中央の要素も |\displaystyle| にします。
+%
+%    \begin{macrocode}
+\def\eqnarray{%
+   \stepcounter{equation}%
+   \def\@currentlabel{\p@equation\theequation}%
+   \global\@eqnswtrue
+   \m@th
+   \global\@eqcnt\z@
+   \tabskip\@centering
+   \let\\\@eqncr
+   $$\everycr{}\halign to\displaywidth\bgroup
+       \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
+      &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
+      &\global\@eqcnt\tw@ $\displaystyle{##}$\hfil\tabskip\@centering
+      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
+         \tabskip\z@skip
+      \cr}
+%    \end{macrocode}
+% \end{environment}
+%
+% \texttt{leqno} で数式番号が左側になります。
+% \texttt{fleqn} で数式が本文左端から一定距離のところに出力されます。
+% 森本さんにしたがって訂正しました。
+%
+%    \begin{macrocode}
+\DeclareOption{leqno}{\input{leqno.clo}}
+\DeclareOption{fleqn}{\input{fleqn.clo}%
+% fleqn用のeqnarray環境の再定義
+  \def\eqnarray{%
+    \stepcounter{equation}%
+    \def\@currentlabel{\p@equation\theequation}%
+    \global\@eqnswtrue\m@th
+    \global\@eqcnt\z@
+    \tabskip\mathindent
+    \let\\=\@eqncr
+    \setlength\abovedisplayskip{\topsep}%
+    \ifvmode
+      \addtolength\abovedisplayskip{\partopsep}%
+    \fi
+    \addtolength\abovedisplayskip{\parskip}%
+    \setlength\belowdisplayskip{\abovedisplayskip}%
+    \setlength\belowdisplayshortskip{\abovedisplayskip}%
+    \setlength\abovedisplayshortskip{\abovedisplayskip}%
+    $$\everycr{}\halign to\linewidth% $$
+    \bgroup
+      \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
+      &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
+      &\global\@eqcnt\tw@
+        $\displaystyle{##}$\hfil \tabskip\@centering
+      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
+    \tabskip\z@skip\cr
+    }}
+%    \end{macrocode}
+%
+% \paragraph{文献リスト}
+%
+% 文献リストをopen形式（著者名や書名の後に改行が入る）で出力します。
+% これは使われることはないのでコメントアウトしてあります。
+%
+%    \begin{macrocode}
+% \DeclareOption{openbib}{%
+%   \AtEndOfPackage{%
+%    \renewcommand\@openbib@code{%
+%       \advance\leftmargin\bibindent
+%       \itemindent -\bibindent
+%       \listparindent \itemindent
+%       \parsep \z@}%
+%    \renewcommand\newblock{\par}}}
+%    \end{macrocode}
+%
+% \paragraph{数式フォントとして和文フォントを登録しないオプション}
+%
+% 数式中では16通りのフォントしか使えません。
+% AMSFontsや \texttt{mathptmx} パッケージを使って数式フォントを
+% たくさん使うと ``Too many math alphabets \ldots'' というエラーが
+% 起こってしまいます。\texttt{disablejfam} オプションを付ければ，
+% 明朝・ゴシックを数式用フォントとして登録するのをやめますので，
+% 数式用フォントが二つ節約できます。
+% いずれにしても |\textmc| や |\mbox| や \texttt{amsmath}
+% パッケージの |\text| を使えば数式中で和文フォントが使えますので，
+% この新ドキュメントクラスでは標準で和文フォントを数式用に登録
+% しないことにしていたのですが，従来のドキュメントクラスの仕様に
+% 合わせることにしました。
+%
+%    \begin{macrocode}
+\DeclareOption{disablejfam}{\@enablejfamfalse}
+%    \end{macrocode}
+%
+% \paragraph{ドラフト}
+%
+% \texttt{draft} でoverfull boxの起きた行末に5ptの罫線を引きます。
+%
+%    \begin{macrocode}
+\newif\ifdraft
+\DeclareOption{draft}{\drafttrue \setlength\overfullrule{5pt}}
+\DeclareOption{final}{\draftfalse \setlength\overfullrule{0pt}}
+%    \end{macrocode}
+%
+% \paragraph{和文フォントメトリックの選択}
+%
+% ここでは新しい \texttt{jis} フォントメトリックを標準で使いますが，
+% 古い \texttt{min10}，\texttt{goth10} などを使いたいときは \texttt{mingoth}
+% というオプションを指定します。
+% また，\texttt{winjis} オプションで \texttt{winjis} メトリックが使えます。
+%
+%    \begin{macrocode}
+\newif\ifwinjis
+\winjisfalse
+\newif\ifmingoth
+\mingothfalse
+\newif\ifjisfont
+\jisfontfalse
+\newif\if@jsc@uplatex
+\@jsc@uplatexfalse
+\DeclareOption{mingoth}{\mingothtrue}
+\DeclareOption{winjis}{\winjistrue}
+\DeclareOption{jis}{\jisfonttrue}
+\DeclareOption{uplatex}{\@jsc@uplatextrue\winjisfalse}
+\def\jsc@JYn{\if@jsc@uplatex JY2\else JY1\fi}
+\def\jsc@JTn{\if@jsc@uplatex JT2\else JT1\fi}
+\def\jsc@pfx@{\if@jsc@uplatex u\else \fi}
+%    \end{macrocode}
+%
+% \paragraph{papersizeスペシャルの利用}
+%
+% dvipsやdvioutで用紙設定を自動化するには
+% オプション \texttt{papersize} を与えます。
+%
+%    \begin{macrocode}
+\newif\ifpapersize
+\papersizefalse
+\DeclareOption{papersize}{\papersizetrue}
+%    \end{macrocode}
+%
+% \paragraph{英語化}
+%
+% オプション \texttt{english} を新設しました。
+%
+%    \begin{macrocode}
+\newif\if@english
+\@englishfalse
+\DeclareOption{english}{\@englishtrue}
+%    \end{macrocode}
+%
+% \paragraph{jsreport相当}
+%
+% オプション \texttt{report} を新設しました。
+%
+%    \begin{macrocode}
+%<*book>
+\newif\if@report
+\@reportfalse
+\DeclareOption{report}{\@reporttrue\@openrightfalse\@twosidefalse\@mparswitchfalse}
+%</book>
+%    \end{macrocode}
+%
+% \paragraph{オプションの実行}
+%
+% デフォルトのオプションを実行し，|dvi| ファイルの先頭にdvipsのpapersize
+% specialを書き込みます。このspecialはdvipsや最近のdvioutが対応しています。
+% |multicols| や |url| を |\RequirePackage| するのはやめました。
+%
+%    \begin{macrocode}
+%<article>\ExecuteOptions{a4paper,oneside,onecolumn,notitlepage,final}
+%<book>\ExecuteOptions{a4paper,twoside,onecolumn,titlepage,openright,final}
+%<jspf>\ExecuteOptions{a4paper,twoside,twocolumn,notitlepage,fleqn,final}
+%<kiyou>\ExecuteOptions{a4paper,twoside,twocolumn,notitlepage,final}
+\ProcessOptions
+%    \end{macrocode}
+%
+% 後処理
+%
+%    \begin{macrocode}
+\if@slide
+  \def\maybeblue{\@ifundefined{ver@color.sty}{}{\color{blue}}}
+\fi
+\if@landscape
+  \setlength\@tempdima  {\paperheight}
+  \setlength\paperheight{\paperwidth}
+  \setlength\paperwidth {\@tempdima}
+\fi
+%    \end{macrocode}
+%
+% \paragraph{papersizeスペシャルの出力}
+%
+% dvipsのpapersizeスペシャルを出力します。
+% これでdvipsや新しいdvioutで出力領域が自動設定できます。
+% トンボの付いたときの用紙サイズは無意味ですが，
+% いわゆる「ノビ」サイズという縦横1インチずつ長い用紙に出力することを考えて，
+% 1インチずつ加えました。
+% ところが\pLaTeXe はトンボ出力幅を両側に1インチとっていますので，
+% dvips使用時に
+% \begin{quote}
+%   |-O -0.5in,-0.5in|
+% \end{quote}
+% というオプションを与えて両側0.5インチのトンボにするといいでしょう。
+%
+% [2003-05-17] トンボをプレビューに使うことを考えて1インチを2インチにしました。
+%
+%    \begin{macrocode}
+\ifpapersize
+  \setlength{\@tempdima}{\paperwidth}
+  \setlength{\@tempdimb}{\paperheight}
+  \iftombow
+    \advance \@tempdima 2in
+    \advance \@tempdimb 2in
+  \fi
+  \AtBeginDvi{\special{papersize=\the\@tempdima,\the\@tempdimb}}
+\fi
+%    \end{macrocode}
+%
+% \paragraph{基準となる行送り}
+%
+% \begin{macro}{\n@baseline}
+%
+% 基準となる行送りをポイント単位で表したものです。
+%
+%    \begin{macrocode}
+%<article|book>\if@slide\def\n@baseline{13}\else\def\n@baseline{16}\fi
+%<jspf>\def\n@baseline{14.554375}
+%<kiyou>\def\n@baseline{14.897}
+%    \end{macrocode}
+% \end{macro}
+%
+% \paragraph{拡大率の設定}
+%
+% サイズの変更は\TeX のプリミティブ |\mag| を使って行います。
+% 9ポイントについては行送りも若干縮めました。
+% サイズについては全面的に見直しました。
+%
+% [2008-12-26] 1000 / |\mag| に相当する |\inv@mag| を定義しました。
+% |truein| を使っていたところを |\inv@mag in| に直しましたので，
+% |geometry| パッケージと共存できると思います。
+% なお，新ドキュメントクラス側で |10pt| 以外にする場合の注意：
+% \begin{itemize}
+% \item |geometry| 側でオプション |truedimen| を指定してください。
+% \item |geometry| 側でオプション |mag| は使えません。
+% \end{itemize}
+%
+%    \begin{macrocode}
+\def\inv@mag{1}
+\ifnum\@ptsize=-2
+  \mag 833
+  \def\inv@mag{1.20048}
+  \def\n@baseline{15}%
+\fi
+\ifnum\@ptsize=-1
+  \mag 913 % formerly 900
+  \def\inv@mag{1.09529}
+  \def\n@baseline{15}%
+\fi
+\ifnum\@ptsize=1
+  \mag 1095 % formerly 1100
+  \def\inv@mag{0.913242}
+\fi
+\ifnum\@ptsize=2
+  \mag 1200
+  \def\inv@mag{0.833333}
+\fi
+\ifnum\@ptsize=4
+  \mag 1440
+  \def\inv@mag{0.694444}
+\fi
+\ifnum\@ptsize=7
+  \mag 1728
+  \def\inv@mag{0.578704}
+\fi
+\ifnum\@ptsize=10
+  \mag 2000
+  \def\inv@mag{0.5}
+\fi
+\ifnum\@ptsize=11
+  \mag 2074
+  \def\inv@mag{0.48216}
+\fi
+\ifnum\@ptsize=15
+  \mag 2488
+  \def\inv@mag{0.401929}
+\fi
+\ifnum\@ptsize=20
+  \mag 2986
+  \def\inv@mag{0.334896}
+\fi
+\ifnum\@ptsize=26
+  \mag 3583
+  \def\inv@mag{0.279096}
+\fi
+\ifnum\@ptsize=33
+  \mag 4300
+  \def\inv@mag{0.232558}
+\fi
+\ifnum\@ptsize=1200
+  \mag 923
+  \def\inv@mag{1.0834236}
+\fi
+\ifnum\@ptsize=1400
+  \mag 1077
+  \def\inv@mag{0.928505}
+\fi
+%<*kiyou>
+\mag 977
+\def\inv@mag{1.02354}
+%</kiyou>
+\setlength\paperwidth{\inv@mag\paperwidth}%
+\setlength\paperheight{\inv@mag\paperheight}%
+%    \end{macrocode}
+%
+% \paragraph{pagesizeスペシャルの出力}
+%
+% [2003-05-17] dvipdfm(x)のpagesizeスペシャルを出力します。
+%
+% [2004-08-08] 今のdvipdfmxはdvips用スペシャルを理解するようなので外しました。
+%
+%    \begin{macrocode}
+% \ifpapersize
+%   \setlength{\@tempdima}{\paperwidth}
+%   \setlength{\@tempdimb}{\paperheight}
+%   \iftombow
+%     \advance \@tempdima 2truein
+%     \advance \@tempdimb 2truein
+%   \fi
+%   \AtBeginDvi{\special{pdf: pagesize width \the\@tempdima\space height \the\@tempdimb}}
+% \fi
+%    \end{macrocode}
+%
+% \section{和文フォントの変更}
+%
+% JISの1ポイントは0.3514mm（約1/72.28インチ），
+% PostScriptの1ポイントは1/72インチですが，
+% \TeX では1/72.27インチを1pt（ポイント），
+% 1/72インチを1bp（ビッグポイント）と表します。
+% QuarkXPressなどのDTPソフトは標準で1/72インチを1ポイント
+% としますが，以下ではすべて1/72.27インチを1ptとしています。
+% 1インチは定義により25.4mmです。
+%
+% さらにややこしいことに，\pTeX （アスキーが日本語化した\TeX ）
+% の公称10ポイントの和文フォント（\texttt{min10} など）は，
+% 実寸（標準の字送り量）が9.62216ptです。
+% これは3.3818mm，写研の写植機の単位では13.527級，
+% PostScriptの単位では9.5862ポイントになります。
+% \texttt{jis} フォントなどもこの値を踏襲しています。
+%
+% この公称10ポイントのフォントをここでは13級に縮小して
+% 使うことにします。そのためには，$13/13.527 = 0.961$ 倍
+% すればいいことになります。
+%
+% また，ここでは和文TFMとして東京書籍印刷の小林肇さんの
+% 作られたJISフォントメトリック（\texttt{jis}，\texttt{jisg}）
+% を標準で使うことにしますが，\texttt{mingoth} オプションを付けると
+% 従来のフォントメトリック（\texttt{min}，\texttt{goth}）
+% を使うようにします。
+%
+%    \begin{macrocode}
+%<*!jspf>
+\ifwinjis
+  \DeclareFontShape{JY1}{mc}{m}{n}{<-> s * [0.961] winjis}{}
+  \DeclareFontShape{JY1}{gt}{m}{n}{<-> s * [0.961] winjisg}{}
+  \DeclareFontShape{JT1}{mc}{m}{n}{<-> s * [0.961] winjis-v}{}
+  \DeclareFontShape{JT1}{gt}{m}{n}{<-> s * [0.961] winjisg-v}{}
+\else
+  \ifmingoth
+    \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ min10}{}
+    \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ goth10}{}
+    \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
+    \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
+  \else
+    \ifjisfont
+      \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ jis}{}
+      \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ jisg}{}
+      \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
+      \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
+    \else
+      \if@jsc@uplatex
+        \DeclareFontShape{JY2}{mc}{m}{n}{<-> s * [0.924690] upjisr-h}{}
+        \DeclareFontShape{JY2}{gt}{m}{n}{<-> s * [0.924690] upjisg-h}{}
+        \DeclareFontShape{JT2}{mc}{m}{n}{<-> s * [0.924690] upjisr-v}{}
+        \DeclareFontShape{JT2}{gt}{m}{n}{<-> s * [0.924690] upjisg-v}{}
+      \else
+        \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ jis}{}
+        \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ jisg}{}
+        \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
+        \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
+      \fi
+    \fi
+  \fi
+\fi
+%</!jspf>
+%    \end{macrocode}
+%
+% 9.62216ポイントの和文フォントをさらに0.961倍したことにより，
+% 約9.25ポイント，
+% DTPで使う単位（1/72インチ）では9.21ポイントということになり，
+% 公称10ポイントといっても実は9ポイント強になります。
+%
+% 某学会誌では，
+% 和文フォントをPostScriptの9ポイントにするために，
+% $9/(9.62216*72/72.27) = 0.93885$ 倍します。
+%
+%    \begin{macrocode}
+%<*jspf>
+\ifwinjis
+  \DeclareFontShape{JY1}{mc}{m}{n}{<-> s * [0.93885] winjis}{}
+  \DeclareFontShape{JY1}{gt}{m}{n}{<-> s * [0.93885] winjisg}{}
+  \DeclareFontShape{JT1}{mc}{m}{n}{<-> s * [0.93885] winjis-v}{}
+  \DeclareFontShape{JT1}{gt}{m}{n}{<-> s * [0.93885] winjisg-v}{}
+\else
+  \ifmingoth
+    \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.93885] \jsc@pfx@ min10}{}
+    \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.93885] \jsc@pfx@ goth10}{}
+    \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.93885] \jsc@pfx@ tmin10}{}
+    \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.93885] \jsc@pfx@ tgoth10}{}
+  \else
+    \ifjisfont
+      \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.93885] \jsc@pfx@ jis}{}
+      \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.93885] \jsc@pfx@ jisg}{}
+      \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.93885] \jsc@pfx@ tmin10}{}
+      \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.93885] \jsc@pfx@ tgoth10}{}
+    \else
+      \if@jsc@uplatex
+        \DeclareFontShape{JY2}{mc}{m}{n}{<-> s * [0.903375] upjisr-h}{}
+        \DeclareFontShape{JY2}{gt}{m}{n}{<-> s * [0.903375] upjisg-h}{}
+        \DeclareFontShape{JT2}{mc}{m}{n}{<-> s * [0.903375] upjisr-v}{}
+        \DeclareFontShape{JT2}{gt}{m}{n}{<-> s * [0.903375] upjisg-v}{}
+      \else
+        \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.93885] \jsc@pfx@ jis}{}
+        \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.93885] \jsc@pfx@ jisg}{}
+        \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.93885] \jsc@pfx@ tmin10}{}
+        \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.93885] \jsc@pfx@ tgoth10}{}
+      \fi
+    \fi
+  \fi
+\fi
+%</jspf>
+%    \end{macrocode}
+%
+% 和文でイタリック体，斜体，サンセリフ体，
+% タイプライタ体の代わりにゴシック体を使うことにします。
+%
+% [2003-03-16] イタリック体，斜体について，和文でゴシックを当てていましたが，
+% 数学の定理環境などで多量のイタリック体を使うことがあり，ゴシックに
+% すると黒々となってしまうという弊害がありました。
+% |amsthm| を使わない場合は定理の本文が明朝になるように |\newtheorem|
+% 環境を手直ししてしのいでいましたが，
+% \TeX が数学で多用されることを考えると，イタリック体に明朝体を
+% 当てたほうがいいように思えてきましたので，
+% イタリック体・斜体に対応する和文を明朝体に変えることにしました。
+%
+% [2004-11-03] |\rmfamily| も和文対応にしました。
+%
+%    \begin{macrocode}
+% \DeclareFontShape{\jsc@JYn}{mc}{bx}{n}{<->ssub*gt/m/n}{} % in \jsc@JYnmc
+% \DeclareFontShape{\jsc@JYn}{gt}{bx}{n}{<->ssub*gt/m/n}{} % in \jsc@JYngt
+\DeclareFontShape{\jsc@JYn}{mc}{m}{it}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{m}{sl}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{m}{sc}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{gt}{m}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{gt}{m}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{bx}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
+% \DeclareFontShape{\jsc@JTn}{mc}{bx}{n}{<->ssub*gt/m/n}{} % in \jsc@JTnmc
+% \DeclareFontShape{\jsc@JTn}{gt}{bx}{n}{<->ssub*gt/m/n}{} % in \jsc@JTngt
+\DeclareFontShape{\jsc@JTn}{mc}{m}{it}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{sl}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{sc}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{gt}{m}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{gt}{m}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{bx}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
+\DeclareRobustCommand\rmfamily
+        {\not@math@alphabet\rmfamily\mathrm
+         \romanfamily\rmdefault\kanjifamily\mcdefault\selectfont}
+\DeclareRobustCommand\sffamily
+        {\not@math@alphabet\sffamily\mathsf
+         \romanfamily\sfdefault\kanjifamily\gtdefault\selectfont}
+\DeclareRobustCommand\ttfamily
+        {\not@math@alphabet\ttfamily\mathtt
+         \romanfamily\ttdefault\kanjifamily\gtdefault\selectfont}
+%    \end{macrocode}
+%
+% \begin{macro}{\textmc}
+% \begin{macro}{\textgt}
+%
+% 次のコマンドはイタリック補正なども含めて定義されていますが，
+% 和文ではイタリック補正はあまり役に立たず，
+% 欧文・和文間のグルーが入らないという副作用もありますので，
+% 単純な定義に直します。
+%
+%    \begin{macrocode}
+\def\textmc#1{\relax\ifmmode\hbox\fi{\mcfamily #1}}
+\def\textgt#1{\relax\ifmmode\hbox\fi{\gtfamily #1}}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% 新クラスでも \texttt{disablejfam} オプションを与えなければ数式内で
+% 日本語が使えるようにしました。
+%
+% さらに2005/12/01版のLaTeXに対応したpLaTeXに対応しました
+% （Thanks: ymtさん）。
+%
+% [2010-03-14] |http://oku.edu.mie-u.ac.jp/tex/mod/forum/discuss.php?d=411|
+% での山本さんのご指摘に従って修正しました。
+%
+%    \begin{macrocode}
+\def\reDeclareMathAlphabet#1#2#3{%
+  \edef\@tempa{\expandafter\@gobble\string#2}%
+  \edef\@tempb{\expandafter\@gobble\string#3}%
+  \edef\@tempc{\string @\expandafter\@gobbletwo\string#2}%
+  \ifx\@tempc\@tempa%
+    \edef\@tempa{\expandafter\@gobbletwo\string#2}%
+    \edef\@tempb{\expandafter\@gobbletwo\string#3}%
+  \fi
+  \begingroup
+    \let\protect\noexpand
+    \def\@tempaa{\relax}%
+    \expandafter\ifx\csname RDMAorg@\@tempa\endcsname\relax
+      \edef\@tempaa{\expandafter\def\expandafter\noexpand%
+        \csname RDMAorg@\@tempa\endcsname{%
+          \expandafter\noexpand\csname\@tempa\endcsname}}%
+    \fi
+    \def\@tempbb{\relax}%
+    \expandafter\ifx\csname RDMAorg@\@tempb\endcsname\relax
+      \edef\@tempbb{\expandafter\def\expandafter\noexpand%
+        \csname RDMAorg@\@tempb\endcsname{%
+          \expandafter\noexpand\csname\@tempb\endcsname}}%
+    \fi
+    \edef\@tempc{\@tempaa\@tempbb}%
+  \expandafter\endgroup\@tempc%
+  \edef#1{\noexpand\protect\expandafter\noexpand\csname%
+    \expandafter\@gobble\string#1\space\space\endcsname}%
+  \expandafter\edef\csname\expandafter\@gobble\string#1\space\space\endcsname%
+    {\noexpand\DualLang@mathalph@bet%
+      {\expandafter\noexpand\csname RDMAorg@\@tempa\endcsname}%
+      {\expandafter\noexpand\csname RDMAorg@\@tempb\endcsname}%
+  }%
+}
+\@onlypreamble\reDeclareMathAlphabet
+\def\DualLang@mathalph@bet#1#2{%
+  \relax\ifmmode
+    \ifx\math@bgroup\bgroup%     2e normal style     (\mathrm{...})
+      \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
+    \else
+      \ifx\math@bgroup\relax%    2e two letter style (\rm->\mathrm)
+        \let\DualLang@Mfontsw\DLMfontsw@oldstyle
+      \else
+        \ifx\math@bgroup\@empty% 2.09 oldlfont style ({\mathrm ...})
+          \let\DualLang@Mfontsw\DLMfontsw@oldlfont
+        \else%                   panic! assume 2e normal style
+          \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
+        \fi
+      \fi
+    \fi
+  \else
+    \let\DualLang@Mfontsw\@firstoftwo
+  \fi
+  \DualLang@Mfontsw{#1}{#2}%
+}
+\def\DLMfontsw@standard#1#2#3{#1{#2{#3}}\egroup}
+\def\DLMfontsw@oldstyle#1#2{#1\relax\@fontswitch\relax{#2}}
+\def\DLMfontsw@oldlfont#1#2{#1\relax#2\relax}
+\if@enablejfam
+  \if@compatibility\else
+    \DeclareSymbolFont{mincho}{\jsc@JYn}{mc}{m}{n}
+    \DeclareSymbolFontAlphabet{\mathmc}{mincho}
+    \SetSymbolFont{mincho}{bold}{\jsc@JYn}{gt}{m}{n}
+    \jfam\symmincho
+    \DeclareMathAlphabet{\mathgt}{\jsc@JYn}{gt}{m}{n}
+  \fi
+  \AtBeginDocument{%
+    \reDeclareMathAlphabet{\mathrm}{\@mathrm}{\@mathmc}
+    \reDeclareMathAlphabet{\mathbf}{\@mathbf}{\@mathgt}}
+\fi
+%    \end{macrocode}
+%
+% \begin{macro}{\textsterling}
+%
+% これは |\pounds| 命令で実際に呼び出される文字です。
+% 従来からのOT1エンコーディングでは |\$| のイタリック体が |\pounds|
+% なので \texttt{cmti} が使われていましたが，
+% 1994年春からは \texttt{cmu}（upright italic，直立イタリック体）
+% に変わりました。
+% しかし \texttt{cmu} はその性格からして実験的なものであり，
+% |\pounds| 以外で使われるとは思えないので，
+% ここでは \texttt{cmti} に戻してしまいます。
+%
+% [2003-08-20] Computer Modernフォントを使う機会も減り，T1エンコーディング
+% が一般的になってきました。この定義はもうあまり意味がないので消します。
+%
+%    \begin{macrocode}
+% \DeclareTextCommand{\textsterling}{OT1}{{\itshape\char`\$}}
+%    \end{macrocode}
+% \end{macro}
+%
+% 禁則パラメータも若干修正します。
+%
+% アスキーの \texttt{kinsoku.dtx} では次の三つが5000に設定されています。
+% これを10000に再設定します。
+%
+%    \begin{macrocode}
+\prebreakpenalty\jis"2147=10000      % 5000   ’
+\postbreakpenalty\jis"2148=10000     % 5000   “
+\prebreakpenalty\jis"2149=10000      % 5000   ”
+%    \end{macrocode}
+%
+% 「〒515」の記号と数字の間に四分アキが入らないようにします。
+%
+%    \begin{macrocode}
+\inhibitxspcode`〒=2
+%    \end{macrocode}
+%
+% 以前の版では，たとえば「ベース名.拡張子」のように和文文字で書いたとき，
+% ピリオドの後に四分アキが入らないようにするために
+%    \begin{macrocode}
+% \xspcode`.=0
+%    \end{macrocode}
+% のようにしていました。ただ，「Foo Inc.は……」のように書いたときにも
+% スペースが入らなくなるので，ちょっとまずい修正だったかもしれません。
+% 元に戻しました。
+%
+% とりあえず「|ベース名.\mbox{}拡張子|」と書いてください。
+%
+% 「CやC++では……」と書くと，C++の直後に四分アキが入らないのでバランスが悪くなります。
+% 四分アキが入るようにしました。\% の両側も同じです。
+%
+%    \begin{macrocode}
+\xspcode`+=3
+\xspcode`\%=3
+%    \end{macrocode}
+% 
+% これ以外にT1エンコーディングで80〜ffの文字もすべて欧文文字ですので，
+% 両側の和文文字との間にスペースが入らなければなりません。
+% 
+%    \begin{macrocode}
+\xspcode`^^80=3
+\xspcode`^^81=3
+\xspcode`^^82=3
+\xspcode`^^83=3
+\xspcode`^^84=3
+\xspcode`^^85=3
+\xspcode`^^86=3
+\xspcode`^^87=3
+\xspcode`^^88=3
+\xspcode`^^89=3
+\xspcode`^^8a=3
+\xspcode`^^8b=3
+\xspcode`^^8c=3
+\xspcode`^^8d=3
+\xspcode`^^8e=3
+\xspcode`^^8f=3
+\xspcode`^^90=3
+\xspcode`^^91=3
+\xspcode`^^92=3
+\xspcode`^^93=3
+\xspcode`^^94=3
+\xspcode`^^95=3
+\xspcode`^^96=3
+\xspcode`^^97=3
+\xspcode`^^98=3
+\xspcode`^^99=3
+\xspcode`^^9a=3
+\xspcode`^^9b=3
+\xspcode`^^9c=3
+\xspcode`^^9d=3
+\xspcode`^^9e=3
+\xspcode`^^9f=3
+\xspcode`^^a0=3
+\xspcode`^^a1=3
+\xspcode`^^a2=3
+\xspcode`^^a3=3
+\xspcode`^^a4=3
+\xspcode`^^a5=3
+\xspcode`^^a6=3
+\xspcode`^^a7=3
+\xspcode`^^a8=3
+\xspcode`^^a9=3
+\xspcode`^^aa=3
+\xspcode`^^ab=3
+\xspcode`^^ac=3
+\xspcode`^^ad=3
+\xspcode`^^ae=3
+\xspcode`^^af=3
+\xspcode`^^b0=3
+\xspcode`^^b1=3
+\xspcode`^^b2=3
+\xspcode`^^b3=3
+\xspcode`^^b4=3
+\xspcode`^^b5=3
+\xspcode`^^b6=3
+\xspcode`^^b7=3
+\xspcode`^^b8=3
+\xspcode`^^b9=3
+\xspcode`^^ba=3
+\xspcode`^^bb=3
+\xspcode`^^bc=3
+\xspcode`^^bd=3
+\xspcode`^^be=3
+\xspcode`^^bf=3
+\xspcode`^^c0=3
+\xspcode`^^c1=3
+\xspcode`^^c2=3
+\xspcode`^^c3=3
+\xspcode`^^c4=3
+\xspcode`^^c5=3
+\xspcode`^^c6=3
+\xspcode`^^c7=3
+\xspcode`^^c8=3
+\xspcode`^^c9=3
+\xspcode`^^ca=3
+\xspcode`^^cb=3
+\xspcode`^^cc=3
+\xspcode`^^cd=3
+\xspcode`^^ce=3
+\xspcode`^^cf=3
+\xspcode`^^d0=3
+\xspcode`^^d1=3
+\xspcode`^^d2=3
+\xspcode`^^d3=3
+\xspcode`^^d4=3
+\xspcode`^^d5=3
+\xspcode`^^d6=3
+\xspcode`^^d7=3
+\xspcode`^^d8=3
+\xspcode`^^d9=3
+\xspcode`^^da=3
+\xspcode`^^db=3
+\xspcode`^^dc=3
+\xspcode`^^dd=3
+\xspcode`^^de=3
+\xspcode`^^df=3
+\xspcode`^^e0=3
+\xspcode`^^e1=3
+\xspcode`^^e2=3
+\xspcode`^^e3=3
+\xspcode`^^e4=3
+\xspcode`^^e5=3
+\xspcode`^^e6=3
+\xspcode`^^e7=3
+\xspcode`^^e8=3
+\xspcode`^^e9=3
+\xspcode`^^ea=3
+\xspcode`^^eb=3
+\xspcode`^^ec=3
+\xspcode`^^ed=3
+\xspcode`^^ee=3
+\xspcode`^^ef=3
+\xspcode`^^f0=3
+\xspcode`^^f1=3
+\xspcode`^^f2=3
+\xspcode`^^f3=3
+\xspcode`^^f4=3
+\xspcode`^^f5=3
+\xspcode`^^f6=3
+\xspcode`^^f7=3
+\xspcode`^^f8=3
+\xspcode`^^f9=3
+\xspcode`^^fa=3
+\xspcode`^^fb=3
+\xspcode`^^fc=3
+\xspcode`^^fd=3
+\xspcode`^^fe=3
+\xspcode`^^ff=3
+%    \end{macrocode}
+%
+% \begin{macro}{\@}
+%
+% 欧文といえば，\LaTeX の |\def\@{\spacefactor\@m}| という定義（|\@m| は1000）
+% では |I watch TV\@.| と書くと V とピリオドのペアカーニングが効かなくなります。
+% そこで，次のような定義に直し，|I watch TV.\@| と書くことにします。
+%
+%    \begin{macrocode}
+\def\@{\spacefactor3000\space}
+%    \end{macrocode}
+% \end{macro}
+%
+% \section{フォントサイズ}
+%
+% フォントサイズを変える命令（|\normalsize|，|\small| など）
+% の実際の挙動の設定は，三つの引数をとる命令 |\@setfontsize| を使って，
+% たとえば
+% \begin{quote}
+%   |\@setfontsize{\normalsize}{10}{16}|
+% \end{quote}
+% のようにして行います。これは
+% \begin{quote}
+%   |\normalsize| は10ポイントのフォントを使い，行送りは16ポイントである
+% \end{quote}
+% という意味です。
+% ただし，処理を速くするため，
+% 以下では10と同義の\LaTeX の内部命令 |\@xpt| を使っています。
+% この |\@xpt| の類は次のものがあり，\LaTeX 本体で定義されています。
+%\begin{verbatim}
+%   \@vpt      5         \@vipt    6      \@viipt   7
+%   \@viiipt   8         \@ixpt    9      \@xpt    10
+%   \@xipt    10.95      \@xiipt  12      \@xivpt  14.4
+%\end{verbatim}
+%
+% \begin{macro}{\@setfontsize}
+%
+% ここでは |\@setfontsize| の定義を少々変更して，
+% 段落の字下げ |\parindent|，
+% 和文文字間のスペース |\kanjiskip|，
+% 和文・欧文間のスペース |\xkanjiskip| を変更しています。
+%
+% |\kanjiskip| は\pLaTeXe で |0pt plus .4pt minus .5pt| に設定していますが，
+% これはそもそも文字サイズの変更に応じて変わるべきものです。
+% それに，プラスになったりマイナスになったりするのは，
+% 追い出しと追い込みの混在が生じ，統一性を欠きます。
+% なるべく追い出しになるようにプラスの値だけにしたいところですが，
+% ごくわずかなマイナスは許すことにしました。
+%
+% |\xkanjiskip| については，四分つまり全角の1/4を標準として，
+% 追い出すために三分あるいは二分まで延ばすのが一般的ですが，
+% ここではTimesやPalatinoのスペースがほぼ四分であることに着目して，
+% これに一致させています。これなら書くときにスペースを空けても
+% 空けなくても同じ出力になります。
+%
+% |\parindent| については，0（以下）でなければ全角幅（1zw）に直します。
+%
+% [2008-02-18] |english| オプションで |\parindent| を 1em にしました。
+%
+%    \begin{macrocode}
+\def\@setfontsize#1#2#3{%
+% \@nomath#1%
+  \ifx\protect\@typeset@protect
+    \let\@currsize#1%
+  \fi
+  \fontsize{#2}{#3}\selectfont
+  \ifdim\parindent>\z@
+    \if@english
+      \parindent=1em
+    \else
+      \parindent=1zw
+    \fi
+  \fi
+  \kanjiskip=0zw plus .1zw minus .01zw
+  \ifdim\xkanjiskip>\z@
+    \if@slide \xkanjiskip=0.1em \else
+      \xkanjiskip=0.25em plus 0.15em minus 0.06em
+    \fi
+  \fi}
+%    \end{macrocode}
+% \end{macro}
+%
+% これらのグルーをもってしても行分割ができない場合は，
+% |\emergencystretch| に訴えます。
+%
+%    \begin{macrocode}
+\emergencystretch 3zw
+%    \end{macrocode}
+%
+% \begin{macro}{\ifnarrowbaselines}
+% \begin{macro}{\narrowbaselines}
+% \begin{macro}{\widebaselines}
+%
+% 欧文用に行間を狭くする論理変数と，それを真・偽にするためのコマンドです。
+%
+% [2003-06-30] 数式に入るところで |\narrowbaselines|
+% を実行しているので |\abovedisplayskip| 等が初期化
+% されてしまうというshintokさんのご指摘に対して，
+% しっぽ愛好家さんが次の修正を教えてくださいました。
+%
+% [2008-02-18] |english| オプションで最初の段落のインデントをしないようにしました。
+%
+% TODO: Hasumiさん [qa:54539] のご指摘は考慮中です。
+%
+%    \begin{macrocode}
+\newif\ifnarrowbaselines
+\if@english
+  \narrowbaselinestrue
+\fi
+\def\narrowbaselines{%
+  \narrowbaselinestrue
+  \skip0=\abovedisplayskip
+  \skip2=\abovedisplayshortskip
+  \skip4=\belowdisplayskip
+  \skip6=\belowdisplayshortskip
+  \@currsize\selectfont
+  \abovedisplayskip=\skip0
+  \abovedisplayshortskip=\skip2
+  \belowdisplayskip=\skip4
+  \belowdisplayshortskip=\skip6\relax}
+\def\widebaselines{\narrowbaselinesfalse\@currsize\selectfont}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\normalsize}
+%
+% 標準のフォントサイズと行送りを選ぶコマンドです。
+%
+% 本文10ポイントのときの行送りは，
+% 欧文の標準クラスファイルでは12ポイント，
+% アスキーの和文クラスファイルでは15ポイントになっていますが，
+% ここでは16ポイントにしました。
+% ただし |\narrowbaselines| で欧文用の12ポイントになります。
+%
+% 公称10ポイントの和文フォントが約9.25ポイント
+% （アスキーのものの0.961倍）であることもあり，
+% 行送りがかなりゆったりとしたと思います。
+% 実際，$16/9.25 \approx 1.73$ であり，
+% 和文の推奨値の一つ「二分四分」（1.75）
+% に近づきました。
+%
+%    \begin{macrocode}
+\renewcommand{\normalsize}{%
+  \ifnarrowbaselines
+    \@setfontsize\normalsize\@xpt\@xiipt
+  \else
+    \@setfontsize\normalsize\@xpt{\n@baseline}%
+  \fi
+%    \end{macrocode}
+%
+% 数式の上のアキ（|\abovedisplayskip|），
+% 短い数式の上のアキ（|\abovedisplayshortskip|），
+% 数式の下のアキ（|\belowdisplayshortskip|）の設定です。
+%
+% [2003-02-16] ちょっと変えました。
+%
+% [2009-08-26] \TeX\ Q\,\&\,A 52569から始まる議論について逡巡して
+% いましたが，結局，微調節してみることにしました。
+%
+%    \begin{macrocode}
+  \abovedisplayskip 11\p@ \@plus3\p@ \@minus4\p@
+  \abovedisplayshortskip \z@ \@plus3\p@
+  \belowdisplayskip 9\p@ \@plus3\p@ \@minus4\p@
+  \belowdisplayshortskip \belowdisplayskip
+%    \end{macrocode}
+%
+% 最後に，リスト環境のトップレベルのパラメータ |\@listI| を，
+% |\@listi| にコピーしておきます。|\@listI| の設定は後で出てきます。
+%
+%    \begin{macrocode}
+  \let\@listi\@listI}
+%    \end{macrocode}
+%
+% ここで実際に標準フォントサイズで初期化します。
+%
+%    \begin{macrocode}
+\normalsize
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}{\Cht}
+% \begin{macro}{\Cdp}
+% \begin{macro}{\Cwd}
+% \begin{macro}{\Cvs}
+% \begin{macro}{\Chs}
+%
+% 基準となる長さの設定をします。
+% \pLaTeXe カーネル（\texttt{plfonts.dtx}）で宣言されている
+% パラメータに実際の値を設定します。
+% たとえば |\Cwd| は |\normalfont| の全角幅（1zw）です。
+%
+%    \begin{macrocode}
+\setbox0\hbox{\char\euc"A1A1}%
+\setlength\Cht{\ht0}
+\setlength\Cdp{\dp0}
+\setlength\Cwd{\wd0}
+\setlength\Cvs{\baselineskip}
+\setlength\Chs{\wd0}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\small}
+%
+% |\small| も |\normalsize| と同様に設定します。
+% 行送りは，|\normalsize| が16ポイントなら，
+% 割合からすれば $16 \times 0.9 = 14.4$ ポイントになりますが，
+% |\small| の使われ方を考えて，ここでは和文13ポイント，
+% 欧文11ポイントとします。
+% また，|\topsep| と |\parsep| は，元はそれぞれ $4 \pm 2$，$2 \pm 1$
+% ポイントでしたが，ここではゼロ（|\z@|）にしました。
+%
+%    \begin{macrocode}
+\newcommand{\small}{%
+  \ifnarrowbaselines
+%<!kiyou>    \@setfontsize\small\@ixpt{11}%
+%<kiyou>    \@setfontsize\small{8.8888}{11}%
+  \else
+%<!kiyou>    \@setfontsize\small\@ixpt{13}%
+%<kiyou>    \@setfontsize\small{8.8888}{13.2418}%
+  \fi
+  \abovedisplayskip 9\p@ \@plus3\p@ \@minus4\p@
+  \abovedisplayshortskip  \z@ \@plus3\p@
+  \belowdisplayskip \abovedisplayskip
+  \belowdisplayshortskip \belowdisplayskip
+  \def\@listi{\leftmargin\leftmargini
+              \topsep \z@
+              \parsep \z@
+              \itemsep \parsep}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\footnotesize}
+%
+% |\footnotesize| も同様です。
+% |\topsep| と |\parsep| は，元はそれぞれ $3 \pm 1$，$2 \pm 1$
+% ポイントでしたが，ここではゼロ（|\z@|）にしました。
+%
+%    \begin{macrocode}
+\newcommand{\footnotesize}{%
+  \ifnarrowbaselines
+%<!kiyou>    \@setfontsize\footnotesize\@viiipt{9.5}%
+%<kiyou>    \@setfontsize\footnotesize{8.8888}{11}%
+  \else
+%<!kiyou>    \@setfontsize\footnotesize\@viiipt{11}%
+%<kiyou>    \@setfontsize\footnotesize{8.8888}{13.2418}%
+  \fi
+  \abovedisplayskip 6\p@ \@plus2\p@ \@minus3\p@
+  \abovedisplayshortskip  \z@ \@plus2\p@
+  \belowdisplayskip \abovedisplayskip
+  \belowdisplayshortskip \belowdisplayskip
+  \def\@listi{\leftmargin\leftmargini
+              \topsep \z@
+              \parsep \z@
+              \itemsep \parsep}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\scriptsize}
+% \begin{macro}{\tiny}
+% \begin{macro}{\large}
+% \begin{macro}{\Large}
+% \begin{macro}{\LARGE}
+% \begin{macro}{\huge}
+% \begin{macro}{\Huge}
+% \begin{macro}{\HUGE}
+%
+% それ以外のサイズは，本文に使うことがないので，
+% 単にフォントサイズと行送りだけ変更します。
+% 特に注意すべきは |\large| で，
+% これは二段組のときに節見出しのフォントとして使い，
+% 行送りを |\normalsize| と同じにすることによって，
+% 節見出しが複数行にわたっても段間で行が揃うようにします。
+%
+% [2004-11-03] |\HUGE| を追加。
+%
+%    \begin{macrocode}
+\newcommand{\scriptsize}{\@setfontsize\scriptsize\@viipt\@viiipt}
+\newcommand{\tiny}{\@setfontsize\tiny\@vpt\@vipt}
+\if@twocolumn
+%<!kiyou>  \newcommand{\large}{\@setfontsize\large\@xiipt{\n@baseline}}
+%<kiyou>  \newcommand{\large}{\@setfontsize\large{11.111}{\n@baseline}}
+\else
+%<!kiyou>  \newcommand{\large}{\@setfontsize\large\@xiipt{17}}
+%<kiyou>  \newcommand{\large}{\@setfontsize\large{11.111}{17}}
+\fi
+%<!kiyou>\newcommand{\Large}{\@setfontsize\Large\@xivpt{21}}
+%<kiyou>\newcommand{\Large}{\@setfontsize\Large{12.222}{21}}
+\newcommand{\LARGE}{\@setfontsize\LARGE\@xviipt{25}}
+\newcommand{\huge}{\@setfontsize\huge\@xxpt{28}}
+\newcommand{\Huge}{\@setfontsize\Huge\@xxvpt{33}}
+\newcommand{\HUGE}{\@setfontsize\HUGE{30}{40}}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% 別行立て数式の中では |\narrowbaselines| にします。
+% 和文の行送りのままでは，行列や場合分けの行送り，
+% 連分数の高さなどが不釣合いに大きくなるためです。
+%
+% 本文中の数式の中では |\narrowbaselines| にしていません。
+% 本文中ではなるべく行送りが変わるような大きいものを使わず，
+% 行列は |amsmath| の |smallmatrix| 環境を使うのがいいでしょう。
+%
+%    \begin{macrocode}
+\everydisplay=\expandafter{\the\everydisplay \narrowbaselines}
+%    \end{macrocode}
+%
+% しかし，このおかげで別行数式の上下のスペースが少し違ってしまいました。
+% とりあえず |amsmath| の |equation| 関係は |okumacro| のほうで逃げていますが，
+% もっとうまい逃げ道があればお教えください。
+%
+% 見出し用のフォントは |\bfseries| 固定ではなく，|\headfont|
+% という命令で定めることにします。
+% これは太ゴシックが使えるときは |\sffamily| |\bfseries|
+% でいいと思いますが，通常の中ゴシックでは単に |\sffamily|
+% だけのほうがよさそうです。
+% 『p\LaTeXe 美文書作成入門』（1997年）では |\sffamily|
+% |\fontseries{sbc}| として新ゴMと合わせましたが，
+% |\fontseries{sbc}| はちょっと幅が狭いように感じました。
+%
+%    \begin{macrocode}
+% \newcommand{\headfont}{\bfseries}
+\newcommand{\headfont}{\gtfamily\sffamily}
+% \newcommand{\headfont}{\sffamily\fontseries{sbc}\selectfont}
+%    \end{macrocode}
+%
+% \section{レイアウト}
+%
+% \paragraph{二段組}
+%
+% \begin{macro}{\columnsep}
+% \begin{macro}{\columnseprule}
+%
+% |\columnsep| は二段組のときの左右の段間の幅です。
+% 元は10ptでしたが，2zwにしました。
+% このスペースの中央に |\columnseprule| の幅の罫線が引かれます。
+%
+%    \begin{macrocode}
+%<!kiyou>\setlength\columnsep{2zw}
+%<kiyou>\setlength\columnsep{28truebp}
+\setlength\columnseprule{0\p@}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \paragraph{段落}
+%
+% \begin{macro}{\lineskip}
+% \begin{macro}{\normallineskip}
+% \begin{macro}{\lineskiplimit}
+% \begin{macro}{\normallineskiplimit}
+%
+% 上下の行の文字が |\lineskiplimit| より接近したら，
+% |\lineskip| より近づかないようにします。
+% 元は0ptでしたが1ptに変更しました。
+% \texttt{normal...} の付いた方は保存用です。
+%
+%    \begin{macrocode}
+\setlength\lineskip{1\p@}
+\setlength\normallineskip{1\p@}
+\setlength\lineskiplimit{1\p@}
+\setlength\normallineskiplimit{1\p@}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\baselinestretch}
+%
+% 実際の行送りが |\baselineskip| の何倍かを表すマクロです。たとえば
+% \begin{quote}
+%   |\renewcommand{\baselinestretch}{2}|
+% \end{quote}
+% とすると，行送りが通常の2倍になります。ただし，
+% これを設定すると，たとえ |\baselineskip| が伸縮するように
+% 設定しても，行送りの伸縮ができなくなります。
+% 行送りの伸縮はしないのが一般的です。
+%
+%    \begin{macrocode}
+\renewcommand{\baselinestretch}{}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\parskip}
+% \begin{macro}{\parindent}
+%
+% |\parskip| は段落間の追加スペースです。
+% 元は 0pt plus 1pt になっていましたが，ここではゼロにしました。
+% |\parindent| は段落の先頭の字下げ幅です。
+%
+%    \begin{macrocode}
+\setlength\parskip{0\p@}
+\if@slide
+  \setlength\parindent{0zw}
+\else
+  \setlength\parindent{1zw}
+\fi
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\@lowpenalty}
+% \begin{macro}{\@medpenalty}
+% \begin{macro}{\@highpenalty}
+%
+% |\nopagebreak|，|\nolinebreak| は引数に応じて次のペナルティ値
+% のうちどれかを選ぶようになっています。
+% ここはオリジナル通りです。
+%
+%    \begin{macrocode}
+\@lowpenalty   51
+\@medpenalty  151
+\@highpenalty 301
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\interlinepenalty}
+%
+% 段落中の改ページのペナルティです。デフォルトは 0 です。
+%
+%    \begin{macrocode}
+% \interlinepenalty 0
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\brokenpenalty}
+%
+% ページの最後の行がハイフンで終わる際のペナルティです。
+% デフォルトは 100 です。
+%
+%    \begin{macrocode}
+% \brokenpenalty 100
+%    \end{macrocode}
+% \end{macro}
+%
+% \subsection{ページレイアウト}
+%
+% \paragraph{縦方向のスペース}
+%
+% \begin{macro}{\headheight}
+% \begin{macro}{\topskip}
+%
+% |\topskip| は本文領域上端と本文1行目のベースラインとの距離です。
+% あまりぎりぎりの値にすると，本文中に $\int$ のような高い文字が
+% 入ったときに1行目のベースラインが他のページより下がってしまいます。
+% ここでは本文の公称フォントサイズ（10pt）にします。
+%
+% [2003-06-26] |\headheight| はヘッダの高さで，
+% 元は12ptでしたが，新ドキュメントクラスでは |\topskip|
+% と等しくしていました。ところが，|fancyhdr| パッケージ
+% で |\headheight| が小さいとおかしいことになるようです
+% ので，2倍に増やしました。代わりに，版面の上下揃えの
+% 計算では |\headheight| ではなく |\topskip| を使う
+% ことにしました。
+%
+%    \begin{macrocode}
+\setlength\topskip{10\p@}
+\if@slide
+  \setlength\headheight{0\p@}
+\else
+  \setlength\headheight{2\topskip}
+\fi
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\footskip}
+%
+% |\footskip| は本文領域下端とフッタ下端との距離です。
+% 標準クラスファイルでは，book で0.35in（約8.89mm），
+% book 以外で30pt（約10.54mm）となっていましたが，
+% ここではA4判のときちょうど1cmとなるように，
+% |\paperheight| の0.03367倍（最小 |\baselineskip|）としました。
+% 書籍については，フッタは使わないことにして，ゼロにしました。
+%
+%    \begin{macrocode}
+%<*article|kiyou>
+\if@slide
+  \setlength\footskip{0pt}
+\else
+  \setlength\footskip{0.03367\paperheight}
+  \ifdim\footskip<\baselineskip
+    \setlength\footskip{\baselineskip}
+  \fi
+\fi
+%</article|kiyou>
+%<jspf>\setlength\footskip{9mm}
+%<*book>
+\if@report
+  \setlength\footskip{0.03367\paperheight}
+  \ifdim\footskip<\baselineskip
+    \setlength\footskip{\baselineskip}
+  \fi
+\else
+  \setlength\footskip{0pt}
+\fi
+%</book>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\headsep}
+%
+% |\headsep| はヘッダ下端と本文領域上端との距離です。
+% 元は book で18pt（約6.33mm），
+% それ以外で25pt（約8.79mm）になっていました。
+% ここでは article は |\footskip| $-$ |\topskip| としました。
+%
+%    \begin{macrocode}
+%<*article>
+\if@slide
+  \setlength\headsep{0\p@}
+\else
+  \setlength\headsep{\footskip}
+  \addtolength\headsep{-\topskip}
+\fi
+%</article>
+%<*book>
+\if@report
+  \setlength\headsep{\footskip}
+  \addtolength\headsep{-\topskip}
+\else
+  \setlength\headsep{6mm}
+\fi
+%</book>
+%<*jspf>
+\setlength\headsep{9mm}
+\addtolength\headsep{-\topskip}
+%</jspf>
+%<*kiyou>
+\setlength\headheight{0\p@}
+\setlength\headsep{0\p@}
+%</kiyou>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\maxdepth}
+%
+% |\maxdepth| は本文最下行の最大の深さで，
+% plain \TeX や\LaTeX~2.09では4ptに固定でした。
+% \LaTeX2e では |\maxdepth| $+$ |\topskip| を本文フォントサイズ
+% の1.5倍にしたいのですが，|\topskip| は本文フォントサイズ
+% （ここでは10pt）に等しいので，結局 |\maxdepth| は |\topskip|
+% の半分の値（具体的には5pt）にします。
+%
+%    \begin{macrocode}
+\setlength\maxdepth{.5\topskip}
+%    \end{macrocode}
+% \end{macro}
+%
+% \paragraph{本文の幅と高さ}
+%
+% \begin{macro}{\fullwidth}
+%
+% 本文の幅が全角40文字を超えると読みにくくなります。
+% そこで，書籍の場合に限って，
+% 紙の幅が広いときは外側のマージンを余分にとって全角40文字に押え，
+% ヘッダやフッタは本文領域より広く取ることにします。
+% このときヘッダやフッタの幅を表す |\fullwidth| という長さを定義します。
+%
+%    \begin{macrocode}
+\newdimen\fullwidth
+%    \end{macrocode}
+%
+% この |\fullwidth| は article では紙幅 |\paperwidth|の0.76倍を超えない
+% 全角幅の整数倍（二段組では全角幅の偶数倍）にします。0.76倍という数値は
+% A4縦置きの場合に紙幅から約2インチを引いた値になるように選びました。
+% book では紙幅から36ミリを引いた値にしました。
+%
+% \begin{macro}{\textwidth}
+%
+% 書籍以外では本文領域の幅 |\textwidth| は |\fullwidth| と等しくします。
+% |article| ではA4縦置きで49文字となります。
+% 某学会誌スタイルでは50zw（25文字×2段）＋段間8mmとします。
+%
+%    \begin{macrocode}
+%<*article>
+\if@slide
+  \setlength\fullwidth{0.9\paperwidth}
+\else
+  \setlength\fullwidth{0.76\paperwidth}
+\fi
+\if@twocolumn \@tempdima=2zw \else \@tempdima=1zw \fi
+\divide\fullwidth\@tempdima \multiply\fullwidth\@tempdima
+\setlength\textwidth{\fullwidth}
+%</article>
+%<*book>
+\if@report
+  \setlength\fullwidth{0.76\paperwidth}
+\else
+  \setlength\fullwidth{\paperwidth}
+  \addtolength\fullwidth{-36mm}
+\fi
+\if@twocolumn \@tempdima=2zw \else \@tempdima=1zw \fi
+\divide\fullwidth\@tempdima \multiply\fullwidth\@tempdima
+\setlength\textwidth{\fullwidth}
+\if@report \else
+  \if@twocolumn \else
+    \ifdim \fullwidth>40zw
+      \setlength\textwidth{40zw}
+    \fi
+  \fi
+\fi
+%</book>
+%<*jspf>
+\setlength\fullwidth{50zw}
+\addtolength\fullwidth{8mm}
+\setlength\textwidth{\fullwidth}
+%</jspf>
+%<*kiyou>
+\setlength\fullwidth{48zw}
+\addtolength\fullwidth{\columnsep}
+\setlength\textwidth{\fullwidth}
+%</kiyou>
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\textheight}
+%
+% 紙の高さ |\paperheight| は，1インチと |\topmargin|
+% と |\headheight| と |\headsep| と |\textheight|
+% と |\footskip| とページ下部の余白を加えたものです。
+%
+% 本文部分の高さ |\textheight| は，
+% 紙の高さ |\paperheight| の0.83倍から，
+% ヘッダの高さ，ヘッダと本文の距離，本文とフッタ下端の距離，
+% |\topskip| を引き，
+% それを |\baselineskip| の倍数に切り捨て，
+% 最後に |\topskip| を加えます。
+% 念のため0.1ポイント余分に加えておきます。
+% 0.83倍という数値は，A4縦置きの場合に紙の高さから
+% 上下マージン各約1インチを引いた値になるように選びました。
+%
+% 某学会誌スタイルでは44行にします。
+%
+% [2003-06-26] |\headheight| を |\topskip| に直しました。
+% 以前はこの二つは値が同じであったので，変化はないはずです。
+%
+%    \begin{macrocode}
+%<*article|book>
+\if@slide
+  \setlength{\textheight}{0.95\paperheight}
+\else
+  \setlength{\textheight}{0.83\paperheight}
+\fi
+\addtolength{\textheight}{-\topskip}
+\addtolength{\textheight}{-\headsep}
+\addtolength{\textheight}{-\footskip}
+\addtolength{\textheight}{-\topskip}
+\divide\textheight\baselineskip
+\multiply\textheight\baselineskip
+%</article|book>
+%<jspf>\setlength{\textheight}{51\baselineskip}
+%<kiyou>\setlength{\textheight}{47\baselineskip}
+\addtolength{\textheight}{\topskip}
+\addtolength{\textheight}{0.1\p@}
+%<jspf>\setlength{\mathindent}{10mm}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\marginparsep}
+% \begin{macro}{\marginparpush}
+%
+% |\marginparsep| は欄外の書き込みと本文との間隔です。
+% |\marginparpush| は欄外の書き込みどうしの最小の間隔です。
+%
+%    \begin{macrocode}
+\setlength\marginparsep{\columnsep}
+\setlength\marginparpush{\baselineskip}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\oddsidemargin}
+% \begin{macro}{\evensidemargin}
+%
+% それぞれ奇数ページ，偶数ページの左マージンから1インチ引いた値です。
+% 片面印刷では |\oddsidemargin| が使われます。
+% \TeX は上・左マージンに |1truein| を挿入しますが，
+% トンボ関係のオプションが指定されるとp\LaTeXe （|plcore.ltx|）
+% はトンボの内側に |1in| のスペース（|1truein| ではなく）を挿入するので，
+% 場合分けしています。
+%
+%    \begin{macrocode}
+\setlength{\oddsidemargin}{\paperwidth}
+\addtolength{\oddsidemargin}{-\fullwidth}
+\setlength{\oddsidemargin}{.5\oddsidemargin}
+\iftombow
+  \addtolength{\oddsidemargin}{-1in}
+\else
+  \addtolength{\oddsidemargin}{-\inv@mag in}
+\fi
+\setlength{\evensidemargin}{\oddsidemargin}
+\if@mparswitch
+  \addtolength{\evensidemargin}{\fullwidth}
+  \addtolength{\evensidemargin}{-\textwidth}
+\fi
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\marginparwidth}
+%
+% |\marginparwidth| は欄外の書き込みの横幅です。
+% 外側マージンの幅（|\evensidemargin| $+$ 1インチ）から1センチを引き，
+% さらに |\marginparsep|（欄外の書き込みと本文のアキ）を引いた値に
+% しました。最後に1\,zwの整数倍に切り捨てます。
+%
+%    \begin{macrocode}
+\setlength\marginparwidth{\paperwidth}
+\addtolength\marginparwidth{-\oddsidemargin}
+\addtolength\marginparwidth{-\inv@mag in}
+\addtolength\marginparwidth{-\textwidth}
+\addtolength\marginparwidth{-1cm}
+\addtolength\marginparwidth{-\marginparsep}
+\@tempdima=1zw
+\divide\marginparwidth\@tempdima
+\multiply\marginparwidth\@tempdima
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\topmargin}
+%
+% 上マージン（紙の上端とヘッダ上端の距離）
+% から1インチ引いた値です。
+%
+% [2003-06-26] |\headheight| を |\topskip| に直しました。
+% 以前はこの二つは値が同じであったので，変化はないはずです。
+%
+%    \begin{macrocode}
+\setlength\topmargin{\paperheight}
+\addtolength\topmargin{-\textheight}
+\if@slide
+  \addtolength\topmargin{-\headheight}
+\else
+  \addtolength\topmargin{-\topskip}
+\fi
+\addtolength\topmargin{-\headsep}
+\addtolength\topmargin{-\footskip}
+\setlength\topmargin{0.5\topmargin}
+%<kiyou>\setlength\topmargin{81truebp}
+\iftombow
+  \addtolength\topmargin{-1in}
+\else
+  \addtolength\topmargin{-\inv@mag in}
+\fi
+%    \end{macrocode}
+% \end{macro}
+%
+% \paragraph{脚注}
+%
+% \begin{macro}{\footnotesep}
+%
+% 各脚注の頭に入る支柱（strut）の高さです。
+% 脚注間に余分のアキが入らないように，
+% |\footnotesize| の支柱の高さ（行送りの0.7倍）に等しくします。
+%
+%    \begin{macrocode}
+{\footnotesize\global\setlength\footnotesep{\baselineskip}}
+\setlength\footnotesep{0.7\footnotesep}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\footins}
+%
+% |\skip\footins| は本文の最終行と最初の脚注との間の距離です。
+% 標準の10ポイントクラスでは 9 plus 4 minus 2 ポイントになっていますが，
+% 和文の行送りを考えてもうちょっと大きくします。
+%
+%    \begin{macrocode}
+\setlength{\skip\footins}{16\p@ \@plus 5\p@ \@minus 2\p@}
+%    \end{macrocode}
+% \end{macro}
+%
+% \paragraph{フロート関連}
+%
+% フロート（図，表）関連のパラメータは\LaTeXe 本体で定義されていますが，
+% ここで設定変更します。本文ページ（本文とフロートが共存するページ）
+% ちなみに，カウンタは内部では |\c@| を名前に冠したマクロになっています。
+% とフロートだけのページで設定が異なります。
+%
+% \begin{macro}{\c@topnumber}
+%
+% |topnumber| カウンタは本文ページ上部のフロートの最大数です。
+%
+% [2003-08-23] ちょっと増やしました。
+%
+%    \begin{macrocode}
+\setcounter{topnumber}{9}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\topfraction}
+%
+% 本文ページ上部のフロートが占有できる最大の割合です。
+% フロートが入りやすいように，元の値 0.7 を 0.8 [2003-08-23: 0.85] に変えてあります。
+%
+%    \begin{macrocode}
+\renewcommand{\topfraction}{.85}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\c@bottomnumber}
+%
+% |bottomnumber| カウンタは本文ページ下部のフロートの最大数です。
+%
+% [2003-08-23] ちょっと増やしました。
+%
+%    \begin{macrocode}
+\setcounter{bottomnumber}{9}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\bottomfraction}
+%
+% 本文ページ下部のフロートが占有できる最大の割合です。元は 0.3 でした。
+%
+%    \begin{macrocode}
+\renewcommand{\bottomfraction}{.8}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\c@totalnumber}
+%
+% |totalnumber| カウンタは本文ページに入りうるフロートの最大数です。
+%
+% [2003-08-23] ちょっと増やしました。
+%
+%    \begin{macrocode}
+\setcounter{totalnumber}{20}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\textfraction}
+%
+% 本文ページに最低限入らなければならない本文の割合です。
+% フロートが入りやすいように元の 0.2 を 0.1 に変えました。
+%
+%    \begin{macrocode}
+\renewcommand{\textfraction}{.1}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\floatpagefraction}
+%
+% フロートだけのページでのフロートの最小割合です。
+% これも 0.5 を 0.8 に変えてあります。
+%
+%    \begin{macrocode}
+\renewcommand{\floatpagefraction}{.8}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\c@dbltopnumber}
+%
+% 二段組のとき本文ページ上部に出力できる
+% 段抜きフロートの最大数です。
+%
+% [2003-08-23] ちょっと増やしました。
+%
+%    \begin{macrocode}
+\setcounter{dbltopnumber}{9}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\dbltopfraction}
+%
+% 二段組のとき本文ページ上部に出力できる
+% 段抜きフロートが占めうる最大の割合です。
+% 0.7 を 0.8 に変えてあります。
+%
+%    \begin{macrocode}
+\renewcommand{\dbltopfraction}{.8}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\dblfloatpagefraction}
+%
+% 二段組のときフロートだけのページに入るべき
+% 段抜きフロートの最小割合です。
+% 0.5 を 0.8 に変えてあります。
+%
+%    \begin{macrocode}
+\renewcommand{\dblfloatpagefraction}{.8}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\floatsep}
+% \begin{macro}{\textfloatsep}
+% \begin{macro}{\intextsep}
+%
+% |\floatsep| はページ上部・下部のフロート間の距離です。
+% |\textfloatsep| はページ上部・下部のフロートと本文との距離です。
+% |\intextsep| は本文の途中に出力されるフロートと本文との距離です。
+%
+%    \begin{macrocode}
+\setlength\floatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\textfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}
+\setlength\intextsep   {12\p@ \@plus 2\p@ \@minus 2\p@}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\dblfloatsep}
+% \begin{macro}{\dbltextfloatsep}
+%
+% 二段組のときの段抜きのフロートについての値です。
+%
+%    \begin{macrocode}
+\setlength\dblfloatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\dbltextfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\@fptop}
+% \begin{macro}{\@fpsep}
+% \begin{macro}{\@fpbot}
+%
+% フロートだけのページに入るグルーです。
+% |\@fptop| はページ上部，
+% |\@fpbot| はページ下部，
+% |\@fpsep| はフロート間に入ります。
+%
+%    \begin{macrocode}
+\setlength\@fptop{0\p@ \@plus 1fil}
+\setlength\@fpsep{8\p@ \@plus 2fil}
+\setlength\@fpbot{0\p@ \@plus 1fil}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\@dblfptop}
+% \begin{macro}{\@dblfpsep}
+% \begin{macro}{\@dblfpbot}
+%
+% 段抜きフロートについての値です。
+%
+%    \begin{macrocode}
+\setlength\@dblfptop{0\p@ \@plus 1fil}
+\setlength\@dblfpsep{8\p@ \@plus 2fil}
+\setlength\@dblfpbot{0\p@ \@plus 1fil}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \section{ページスタイル}\label{sec:pagestyle}
+%
+% ページスタイルとして，\LaTeXe （欧文版）の標準クラス
+% では |empty|，|plain|，|headings|，|myheadings| があります。
+% このうち |empty|，|plain| スタイルは\LaTeXe 本体
+% で定義されています。 
+%
+% アスキーのクラスファイルでは |headnombre|，|footnombre|，
+% |bothstyle|，|jpl@in| が追加されていますが，
+% ここでは欧文標準のものだけにしました。
+%
+% ページスタイルは |\ps@...| の形のマクロで定義されています。
+%
+% \begin{macro}{\@evenhead}
+% \begin{macro}{\@oddhead}
+% \begin{macro}{\@evenfoot}
+% \begin{macro}{\@oddfoot}
+%
+% |\@oddhead|，|\@oddfoot|，|\@evenhead|，|\@evenfoot| は
+% 偶数・奇数ページの柱（ヘッダ，フッタ）を出力する命令です。
+% これらは |\fullwidth| 幅の |\hbox| の中で呼び出されます。
+% |\ps@...| の中で定義しておきます。
+%
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% 柱の内容は，|\chapter| が呼び出す |\chaptermark{何々}|，
+% |\section| が呼び出す |\sectionmark{何々}| で設定します。
+% 柱を扱う命令には次のものがあります。
+%
+% \begin{quote}
+%   \begin{tabbing}
+%     |\markboth{左}{右} | \= 両方の柱を設定します。\\
+%     |\markright{右}|     \> 右の柱を設定します。\\
+%     |\leftmark|          \> 左の柱を出力します。\\
+%     |\rightmark|         \> 右の柱を出力します。
+%   \end{tabbing}
+% \end{quote}
+%
+% 柱を設定する命令は，右の柱が左の柱の下位にある場合は十分まともに
+% 動作します。たとえば左マークを |\chapter|，右マークを |\section|
+% で変更する場合がこれにあたります。
+% しかし，同一ページに複数の |\markboth| があると，
+% おかしな結果になることがあります。
+%
+% |\tableofcontents| のような命令で使われる |\@mkboth| は，
+% |\ps@...| コマンド中で |\markboth| か |\@gobbletwo|（何もしない）
+% に |\let| されます。
+%
+% \begin{macro}{\ps@empty}
+%
+% |empty| ページスタイルの定義です。
+% \LaTeX 本体で定義されているものをコメントアウトした形で
+% 載せておきます。
+%
+%    \begin{macrocode}
+% \def\ps@empty{%
+%   \let\@mkboth\@gobbletwo
+%   \let\@oddhead\@empty
+%   \let\@oddfoot\@empty
+%   \let\@evenhead\@empty
+%   \let\@evenfoot\@empty}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\ps@plainhead}
+% \begin{macro}{\ps@plainfoot}
+% \begin{macro}{\ps@plain}
+%
+% |plainhead| はシンプルなヘッダだけのページスタイルです。
+%
+% |plainfoot| はシンプルなフッタだけのページスタイルです。
+%
+% |plain| は |book| では |plainhead|，それ以外では |plainfoot| になります。
+%
+%    \begin{macrocode}
+\def\ps@plainfoot{%
+  \let\@mkboth\@gobbletwo
+  \let\@oddhead\@empty
+  \def\@oddfoot{\normalfont\hfil\thepage\hfil}%
+  \let\@evenhead\@empty
+  \let\@evenfoot\@oddfoot}
+\def\ps@plainhead{%
+  \let\@mkboth\@gobbletwo
+  \let\@oddfoot\@empty
+  \let\@evenfoot\@empty
+  \def\@evenhead{%
+    \if@mparswitch \hss \fi
+    \hbox to \fullwidth{\textbf{\thepage}\hfil}%
+    \if@mparswitch\else \hss \fi}%
+  \def\@oddhead{%
+    \hbox to \fullwidth{\hfil\textbf{\thepage}}\hss}}
+%<book>\if@report \let\ps@plain\ps@plainfoot \else \let\ps@plain\ps@plainhead \fi
+%<!book>\let\ps@plain\ps@plainfoot
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\ps@headings}
+%
+% |headings| スタイルはヘッダに見出しとページ番号を出力します。
+% ここではヘッダにアンダーラインを引くようにしてみました。
+%
+% まず article の場合です。
+%
+%    \begin{macrocode}
+%<*article|kiyou>
+\if@twoside
+  \def\ps@headings{%
+    \let\@oddfoot\@empty
+    \let\@evenfoot\@empty
+    \def\@evenhead{\if@mparswitch \hss \fi
+      \underline{\hbox to \fullwidth{\textbf{\thepage}\hfil\leftmark}}%
+      \if@mparswitch\else \hss \fi}%
+    \def\@oddhead{%
+      \underline{%
+        \hbox to \fullwidth{{\rightmark}\hfil\textbf{\thepage}}}\hss}%
+    \let\@mkboth\markboth
+    \def\sectionmark##1{\markboth{%
+       \ifnum \c@secnumdepth >\z@ \thesection \hskip1zw\fi
+       ##1}{}}%
+    \def\subsectionmark##1{\markright{%
+       \ifnum \c@secnumdepth >\@ne \thesubsection \hskip1zw\fi
+       ##1}}%
+  }
+\else % if not twoside
+  \def\ps@headings{%
+    \let\@oddfoot\@empty
+    \def\@oddhead{%
+      \underline{%
+        \hbox to \fullwidth{{\rightmark}\hfil\textbf{\thepage}}}\hss}%
+    \let\@mkboth\markboth
+    \def\sectionmark##1{\markright{%
+        \ifnum \c@secnumdepth >\z@ \thesection \hskip1zw\fi
+        ##1}}}
+\fi
+%</article|kiyou>
+%    \end{macrocode}
+%
+% 次は book の場合です。
+%
+%    \begin{macrocode}
+%<*book>
+\def\ps@headings{%
+  \let\@oddfoot\@empty
+  \let\@evenfoot\@empty
+  \def\@evenhead{%
+    \if@mparswitch \hss \fi
+    \underline{\hbox to \fullwidth{\autoxspacing
+        \textbf{\thepage}\hfil\leftmark}}%
+    \if@mparswitch\else \hss \fi}%
+  \def\@oddhead{\underline{\hbox to \fullwidth{\autoxspacing
+        {\if@twoside\rightmark\else\leftmark\fi}\hfil\textbf{\thepage}}}\hss}%
+  \let\@mkboth\markboth
+  \def\chaptermark##1{\markboth{%
+    \ifnum \c@secnumdepth >\m@ne
+      \if@mainmatter
+        \@chapapp\thechapter\@chappos\hskip1zw
+      \fi
+    \fi
+    ##1}{}}%
+  \def\sectionmark##1{\markright{%
+    \ifnum \c@secnumdepth >\z@ \thesection \hskip1zw\fi
+    ##1}}}%
+%</book>
+%    \end{macrocode}
+%
+% 最後は学会誌の場合です。
+%
+%    \begin{macrocode}
+%<*jspf>
+\def\ps@headings{%
+  \def\@oddfoot{\normalfont\hfil\thepage\hfil}
+  \def\@evenfoot{\normalfont\hfil\thepage\hfil}
+  \def\@oddhead{\normalfont\hfil \@title \hfil}
+  \def\@evenhead{\normalfont\hfil プラズマ・核融合学会誌\hfil}}
+%</jspf>
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}{\ps@myheadings}
+%
+% |myheadings| ページスタイルではユーザが |\markboth| や |\markright| で
+% 柱を設定するため，ここでの定義は非常に簡単です。
+%
+% [2004-01-17] 渡辺徹さんのパッチを適用しました。
+%
+%    \begin{macrocode}
+\def\ps@myheadings{%
+  \let\@oddfoot\@empty\let\@evenfoot\@empty
+  \def\@evenhead{%
+    \if@mparswitch \hss \fi%
+    \hbox to \fullwidth{\thepage\hfil\leftmark}%
+    \if@mparswitch\else \hss \fi}%
+  \def\@oddhead{%
+    \hbox to \fullwidth{\rightmark\hfil\thepage}\hss}%
+  \let\@mkboth\@gobbletwo
+%<book>  \let\chaptermark\@gobble
+  \let\sectionmark\@gobble
+%<!book>  \let\subsectionmark\@gobble
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \section{文書のマークアップ}
+%
+% \subsection{表題}
+%
+% \begin{macro}{\title}
+% \begin{macro}{\author}
+% \begin{macro}{\date}
+%
+%    これらは\LaTeX 本体で次のように定義されています。
+%    ここではコメントアウトした形で示します。
+%
+%    \begin{macrocode}
+% \newcommand*{\title}[1]{\gdef\@title{#1}}
+% \newcommand*{\author}[1]{\gdef\@author{#1}}
+% \newcommand*{\date}[1]{\gdef\@date{#1}}
+% \date{\today}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\etitle}
+% \begin{macro}{\eauthor}
+% \begin{macro}{\keywords}
+%
+% 某学会誌スタイルで使う英語のタイトル，英語の著者名，キーワード，メールアドレスです。
+%
+%    \begin{macrocode}
+%<*jspf>
+\newcommand*{\etitle}[1]{\gdef\@etitle{#1}}
+\newcommand*{\eauthor}[1]{\gdef\@eauthor{#1}}
+\newcommand*{\keywords}[1]{\gdef\@keywords{#1}}
+\newcommand*{\email}[1]{\gdef\authors@mail{#1}}
+\newcommand*{\AuthorsEmail}[1]{\gdef\authors@mail{author's e-mail:\ #1}}
+%</jspf>
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\plainifnotempty}
+%
+% 従来の標準クラスでは，文書全体のページスタイルを |empty| に
+% しても表題のあるページだけ |plain| になってしまうことが
+% ありました。これは |\maketitle| の定義中
+% に |\thispagestyle|\hspace{0pt}|{plain}| が入っている
+% ためです。この問題を解決するために，
+% 「全体のページスタイルが |empty| でないなら
+% このページのスタイルを |plain| にする」という次の
+% 命令を作ることにします。
+%
+%    \begin{macrocode}
+\def\plainifnotempty{%
+  \ifx \@oddhead \@empty
+    \ifx \@oddfoot \@empty
+    \else
+      \thispagestyle{plainfoot}%
+    \fi
+  \else
+    \thispagestyle{plainhead}%
+  \fi}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\maketitle}
+%
+% 表題を出力します。
+% 著者名を出力する部分は，欧文の標準クラスファイルでは |\large|，
+% 和文のものでは |\Large| になっていましたが，ここでは |\large|
+% にしました。
+%
+%    \begin{macrocode}
+%<*article|book|kiyou>
+\if@titlepage
+  \newcommand{\maketitle}{%
+    \begin{titlepage}%
+      \let\footnotesize\small
+      \let\footnoterule\relax
+      \let\footnote\thanks
+      \null\vfil
+      \if@slide
+        {\footnotesize \@date}%
+        \begin{center}
+          \mbox{} \\[1zw]
+          \large
+          {\maybeblue\hrule height0pt depth2pt\relax}\par
+          \smallskip
+          \@title
+          \smallskip
+          {\maybeblue\hrule height0pt depth2pt\relax}\par
+          \vfill
+          {\small \@author}%
+        \end{center}
+      \else
+      \vskip 60\p@
+      \begin{center}%
+        {\LARGE \@title \par}%
+        \vskip 3em%
+        {\large
+          \lineskip .75em
+          \begin{tabular}[t]{c}%
+            \@author
+          \end{tabular}\par}%
+        \vskip 1.5em
+        {\large \@date \par}%
+      \end{center}%
+      \fi
+      \par
+      \@thanks\vfil\null
+    \end{titlepage}%
+    \setcounter{footnote}{0}%
+    \global\let\thanks\relax
+    \global\let\maketitle\relax
+    \global\let\@thanks\@empty
+    \global\let\@author\@empty
+    \global\let\@date\@empty
+    \global\let\@title\@empty
+    \global\let\title\relax
+    \global\let\author\relax
+    \global\let\date\relax
+    \global\let\and\relax
+  }%
+\else
+  \newcommand{\maketitle}{\par
+    \begingroup
+      \renewcommand\thefootnote{\@fnsymbol\c@footnote}%
+      \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%
+      \long\def\@makefntext##1{\advance\leftskip 3zw
+        \parindent 1zw\noindent
+        \llap{\@textsuperscript{\normalfont\@thefnmark}\hskip0.3zw}##1}%
+      \if@twocolumn
+        \ifnum \col@number=\@ne
+          \@maketitle
+        \else
+          \twocolumn[\@maketitle]%
+        \fi
+      \else
+        \newpage
+        \global\@topnum\z@  % Prevents figures from going at top of page.
+        \@maketitle
+      \fi
+      \plainifnotempty
+      \@thanks
+    \endgroup
+    \setcounter{footnote}{0}%
+    \global\let\thanks\relax
+    \global\let\maketitle\relax
+    \global\let\@thanks\@empty
+    \global\let\@author\@empty
+    \global\let\@date\@empty
+    \global\let\@title\@empty
+    \global\let\title\relax
+    \global\let\author\relax
+    \global\let\date\relax
+    \global\let\and\relax
+  }
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@maketitle}
+%
+% 独立した表題ページを作らない場合の表題の出力形式です。
+%
+%    \begin{macrocode}
+  \def\@maketitle{%
+    \newpage\null
+    \vskip 2em
+    \begin{center}%
+      \let\footnote\thanks
+      {\LARGE \@title \par}%
+      \vskip 1.5em
+      {\large
+        \lineskip .5em
+        \begin{tabular}[t]{c}%
+          \@author
+        \end{tabular}\par}%
+      \vskip 1em
+      {\large \@date}%
+    \end{center}%
+    \par\vskip 1.5em
+%<article|kiyou>    \ifvoid\@abstractbox\else\centerline{\box\@abstractbox}\vskip1.5em\fi
+  }
+\fi
+%</article|book|kiyou>
+%<*jspf>
+\newcommand{\maketitle}{\par
+  \begingroup
+    \renewcommand\thefootnote{\@fnsymbol\c@footnote}%
+    \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%
+    \long\def\@makefntext##1{\advance\leftskip 3zw
+      \parindent 1zw\noindent
+      \llap{\@textsuperscript{\normalfont\@thefnmark}\hskip0.3zw}##1}%
+      \twocolumn[\@maketitle]%
+    \plainifnotempty
+    \@thanks
+  \endgroup
+  \setcounter{footnote}{0}%
+  \global\let\thanks\relax
+  \global\let\maketitle\relax
+  \global\let\@thanks\@empty
+  \global\let\@author\@empty
+  \global\let\@date\@empty
+% \global\let\@title\@empty % \@title は柱に使う
+  \global\let\title\relax
+  \global\let\author\relax
+  \global\let\date\relax
+  \global\let\and\relax
+  \ifx\authors@mail\@undefined\else{%
+    \def\@makefntext{\advance\leftskip 3zw \parindent -3zw}%
+    \footnotetext[0]{\itshape\authors@mail}%
+  }\fi
+  \global\let\authors@mail\@undefined}
+\def\@maketitle{%
+  \newpage\null
+  \vskip 6em % used to be 2em
+  \begin{center}
+    \let\footnote\thanks
+    \ifx\@title\@undefined\else{\LARGE\headfont\@title\par}\fi
+    \lineskip .5em
+    \ifx\@author\@undefined\else
+      \vskip 1em
+      \begin{tabular}[t]{c}%
+        \@author
+      \end{tabular}\par
+    \fi
+    \ifx\@etitle\@undefined\else
+      \vskip 1em
+      {\large \@etitle \par}%
+    \fi
+    \ifx\@eauthor\@undefined\else
+      \vskip 1em
+      \begin{tabular}[t]{c}%
+        \@eauthor
+      \end{tabular}\par
+    \fi
+    \vskip 1em
+    \@date
+  \end{center}
+  \vskip 1.5em
+  \centerline{\box\@abstractbox}
+  \ifx\@keywords\@undefined\else
+    \vskip 1.5em
+    \centerline{\parbox{157mm}{\textsf{Keywords:}\\ \small\@keywords}}
+  \fi
+  \vskip 1.5em}
+%</jspf>
+%    \end{macrocode}
+% \end{macro}
+%
+% \subsection{章・節}
+%
+% \paragraph{構成要素}
+%
+% |\@startsection| マクロは6個の必須引数と，オプションとして |*| と
+% 1個のオプション引数と1個の必須引数をとります。
+%
+% \begin{quote}
+% |\@startsection{名}{レベル}{字下げ}{前アキ}{後アキ}{スタイル}| \\
+% |              *[別見出し]{見出し}|
+% \end{quote}
+%
+% それぞれの引数の意味は次の通りです。
+%
+% \begin{description}
+% \item[名] ユーザレベルコマンドの名前です（例: section）。
+% \item[レベル] 見出しの深さを示す数値です
+%    （chapter=1, section=2, \ldots ）。
+%    この数値が |secnumdepth| 以下のとき見出し番号を出力します。
+% \item[字下げ] 見出しの字下げ量です。
+% \item[前アキ] この値の絶対値が見出し上側の空きです。
+%    負の場合は，見出し直後の段落をインデントしません。
+% \item[後アキ] 正の場合は，見出しの下の空きです。
+%    負の場合は，絶対値が見出しの右の空きです
+%    （見出しと同じ行から本文を始めます）。
+% \item[スタイル] 見出しの文字スタイルの設定です。
+% \item[\texttt{*}] この \texttt{*} 印がないと，見出し番号を付け，
+%    見出し番号のカウンタに1を加算します。
+% \item[別見出し] 目次や柱に出力する見出しです。
+% \item[見出し] 見出しです。
+% \end{description}
+%
+% 見出しの命令は通常 |\@startsection| とその最初の6個の引数として
+% 定義されます。
+%
+% 次は |\@startsection| の定義です。
+% 情報処理学会論文誌スタイルファイル（\texttt{ipsjcommon.sty}）
+% を参考にさせていただきましたが，完全に行送りが |\baselineskip|
+% の整数倍にならなくてもいいから前の行と重ならないようにしました。
+%
+%    \begin{macrocode}
+\def\@startsection#1#2#3#4#5#6{%
+  \if@noskipsec \leavevmode \fi
+  \par
+% 見出し上の空きを \@tempskipa にセットする
+  \@tempskipa #4\relax
+% \@afterindent は見出し直後の段落を字下げするかどうかを表すスイッチ
+  \if@english \@afterindentfalse \else \@afterindenttrue \fi
+% 見出し上の空きが負なら見出し直後の段落を字下げしない
+  \ifdim \@tempskipa <\z@
+    \@tempskipa -\@tempskipa \@afterindentfalse
+  \fi
+  \if@nobreak
+%   \everypar{\everyparhook}% これは間違い
+    \everypar{}%
+  \else
+    \addpenalty\@secpenalty
+% 次の行は削除
+%   \addvspace\@tempskipa
+% 次の \noindent まで追加
+    \ifdim \@tempskipa >\z@
+      \if@slide\else
+        \null
+        \vspace*{-\baselineskip}%
+      \fi
+      \vskip\@tempskipa
+    \fi
+  \fi
+  \noindent
+% 追加終わり
+  \@ifstar
+    {\@ssect{#3}{#4}{#5}{#6}}%
+    {\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}
+%    \end{macrocode}
+%
+% |\@sect| と |\@xsect| は，
+% 前のアキがちょうどゼロの場合にもうまくいくように，多少変えてあります。
+% |\everyparhook| も挿入しています。
+%
+%    \begin{macrocode}
+\def\@sect#1#2#3#4#5#6[#7]#8{%
+  \ifnum #2>\c@secnumdepth
+    \let\@svsec\@empty
+  \else
+    \refstepcounter{#1}%
+    \protected@edef\@svsec{\@seccntformat{#1}\relax}%
+  \fi
+% 見出し後の空きを \@tempskipa にセット
+  \@tempskipa #5\relax
+% 条件判断の順序を入れ換えました
+  \ifdim \@tempskipa<\z@
+    \def\@svsechd{%
+      #6{\hskip #3\relax
+      \@svsec #8}%
+      \csname #1mark\endcsname{#7}%
+      \addcontentsline{toc}{#1}{%
+        \ifnum #2>\c@secnumdepth \else
+          \protect\numberline{\csname the#1\endcsname}%
+        \fi
+        #7}}% 目次にフルネームを載せるなら #8
+  \else
+    \begingroup
+      \interlinepenalty \@M % 下から移動
+      #6{%
+        \@hangfrom{\hskip #3\relax\@svsec}%
+%       \interlinepenalty \@M % 上に移動
+        #8\@@par}%
+    \endgroup
+    \csname #1mark\endcsname{#7}%
+    \addcontentsline{toc}{#1}{%
+      \ifnum #2>\c@secnumdepth \else
+        \protect\numberline{\csname the#1\endcsname}%
+      \fi
+      #7}% 目次にフルネームを載せるならここは #8
+  \fi
+  \@xsect{#5}}
+%    \end{macrocode}
+%
+% 二つ挿入した |\everyparhook| のうち後者が |\paragraph| 類の後で2回実行され，
+% それ以降は前者が実行されます。
+%
+%    \begin{macrocode}
+\def\@xsect#1{%
+% 見出しの後ろの空きを \@tempskipa にセット
+  \@tempskipa #1\relax
+% 条件判断の順序を変えました
+  \ifdim \@tempskipa<\z@
+    \@nobreakfalse
+    \global\@noskipsectrue
+    \everypar{%
+      \if@noskipsec
+        \global\@noskipsecfalse
+       {\setbox\z@\lastbox}%
+        \clubpenalty\@M
+        \begingroup \@svsechd \endgroup
+        \unskip
+        \@tempskipa #1\relax
+        \hskip -\@tempskipa
+      \else
+        \clubpenalty \@clubpenalty
+        \everypar{\everyparhook}%
+      \fi\everyparhook}%
+  \else
+    \par \nobreak
+    \vskip \@tempskipa
+    \@afterheading
+  \fi
+  \if@slide
+    {\vskip-6pt\maybeblue\hrule height0pt depth1pt\vskip7pt\relax}%
+  \fi
+  \par  % 2000-12-18
+  \ignorespaces}
+\def\@ssect#1#2#3#4#5{%
+  \@tempskipa #3\relax
+  \ifdim \@tempskipa<\z@
+    \def\@svsechd{#4{\hskip #1\relax #5}}%
+  \else
+    \begingroup
+      #4{%
+        \@hangfrom{\hskip #1}%
+          \interlinepenalty \@M #5\@@par}%
+    \endgroup
+  \fi
+  \@xsect{#3}}
+%    \end{macrocode}
+%
+% \paragraph{柱関係の命令}
+%
+% \begin{macro}{\chaptermark}
+% \begin{macro}{\sectionmark}
+% \begin{macro}{\subsectionmark}
+% \begin{macro}{\subsubsectionmark}
+% \begin{macro}{\paragraphmark}
+% \begin{macro}{\subparagraphmark}
+%
+% |\...mark| の形の命令を初期化します（第\ref{sec:pagestyle}節参照）。
+% |\chaptermark| 以外は\LaTeX 本体で定義済みです。
+%
+%    \begin{macrocode}
+\newcommand*\chaptermark[1]{}
+% \newcommand*{\sectionmark}[1]{}
+% \newcommand*{\subsectionmark}[1]{}
+% \newcommand*{\subsubsectionmark}[1]{}
+% \newcommand*{\paragraphmark}[1]{}
+% \newcommand*{\subparagraphmark}[1]{}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \paragraph{カウンタの定義}
+%
+% \begin{macro}{\c@secnumdepth}
+%
+% |secnumdepth| は第何レベルの見出しまで
+% 番号を付けるかを決めるカウンタです。
+%
+%    \begin{macrocode}
+%<!book>\setcounter{secnumdepth}{3}
+%<book>\setcounter{secnumdepth}{2}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\c@chapter}
+% \begin{macro}{\c@section}
+% \begin{macro}{\c@subsection}
+% \begin{macro}{\c@subsubsection}
+% \begin{macro}{\c@paragraph}
+% \begin{macro}{\c@subparagraph}
+%
+% 見出し番号のカウンタです。
+% |\newcounter| の第1引数が新たに作るカウンタです。
+% これは第2引数が増加するたびに 0 に戻されます。
+% 第2引数は定義済みのカウンタです。
+%
+%    \begin{macrocode}
+\newcounter{part}
+%<book>\newcounter{chapter}
+%<book>\newcounter{section}[chapter]
+%<!book>\newcounter{section}
+\newcounter{subsection}[section]
+\newcounter{subsubsection}[subsection]
+\newcounter{paragraph}[subsubsection]
+\newcounter{subparagraph}[paragraph]
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\thepart}
+% \begin{macro}{\thechapter}
+% \begin{macro}{\thesection}
+% \begin{macro}{\thesubsection}
+% \begin{macro}{\thesubsubsection}
+% \begin{macro}{\theparagraph}
+% \begin{macro}{\thesubparagraph}
+%
+% カウンタの値を出力する命令 |\the何々| を定義します。
+%
+% カウンタを出力するコマンドには次のものがあります。
+%
+% \begin{quote}
+%   |\arabic{COUNTER}   | 1, 2, 3, \ldots \\
+%   |\roman{COUNTER}    | i, ii, iii, \ldots \\
+%   |\Roman{COUNTER}    | I, II, III, \ldots \\
+%   |\alph{COUNTER}     | a, b, c, \ldots \\
+%   |\Alph{COUNTER}     | A, B, C, \ldots \\
+%   |\kansuji{COUNTER}  | 一, 二, 三, \ldots
+% \end{quote}
+%
+% 以下ではスペース節約のため |@| の付いた内部表現を多用しています。
+%
+%    \begin{macrocode}
+\renewcommand{\thepart}{\@Roman\c@part}
+%<!book>% \renewcommand{\thesection}{\@arabic\c@section}
+%<!book>\renewcommand{\thesection}{\presectionname\@arabic\c@section\postsectionname}
+%<!book>\renewcommand{\thesubsection}{\@arabic\c@section.\@arabic\c@subsection}
+%<*book>
+\renewcommand{\thechapter}{\@arabic\c@chapter}
+\renewcommand{\thesection}{\thechapter.\@arabic\c@section}
+\renewcommand{\thesubsection}{\thesection.\@arabic\c@subsection}
+%</book>
+\renewcommand{\thesubsubsection}{%
+   \thesubsection.\@arabic\c@subsubsection}
+\renewcommand{\theparagraph}{%
+   \thesubsubsection.\@arabic\c@paragraph}
+\renewcommand{\thesubparagraph}{%
+   \theparagraph.\@arabic\c@subparagraph}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\@chapapp}
+% \begin{macro}{\@chappos}
+%
+% |\@chapapp| の初期値は |\prechaptername|（第）です。
+%
+% |\@chappos| の初期値は |\postchaptername|（章）です。
+%
+% |\appendix| は |\@chapapp| を |\appendixname| に，
+% |\@chappos| を空に再定義します。
+%
+% [2003-03-02] |\@secapp| は外しました。
+%
+%    \begin{macrocode}
+%<book>\newcommand{\@chapapp}{\prechaptername}
+%<book>\newcommand{\@chappos}{\postchaptername}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \paragraph{前付，本文，後付}
+%
+% 本のうち章番号があるのが「本文」，
+% それ以外が「前付」「後付」です。
+%
+% \begin{macro}{\frontmatter}
+%
+% ページ番号をローマ数字にし，章番号を付けないようにします。
+%
+%    \begin{macrocode}
+%<*book>
+\newcommand\frontmatter{%
+  \if@openright
+    \cleardoublepage
+  \else
+    \clearpage
+  \fi
+  \@mainmatterfalse
+  \pagenumbering{roman}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\mainmatter}
+%
+% ページ番号を算用数字にし，章番号を付けるようにします。
+%
+%    \begin{macrocode}
+\newcommand\mainmatter{%
+% \if@openright
+    \cleardoublepage
+% \else
+%   \clearpage
+% \fi
+  \@mainmattertrue
+  \pagenumbering{arabic}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\backmatter}
+%
+% 章番号を付けないようにします。ページ番号の付け方は変わりません。
+%
+%    \begin{macrocode}
+\newcommand\backmatter{%
+  \if@openright
+    \cleardoublepage
+  \else
+    \clearpage
+  \fi
+  \@mainmatterfalse}
+%</book>
+%    \end{macrocode}
+% \end{macro}
+%
+% \paragraph{部}
+%
+% \begin{macro}{\part}
+%
+% 新しい部を始めます。
+%
+% |\secdef| を使って見出しを定義しています。
+% このマクロは二つの引数をとります。
+%
+% \begin{quote}
+% |\secdef{星なし}{星あり}|
+% \end{quote}
+%
+% \begin{description}
+% \item[星なし] \texttt{*} のない形の定義です。
+% \item[星あり] \texttt{*} のある形の定義です。
+% \end{description}
+%
+% |\secdef| は次のようにして使います。
+%
+%\begin{verbatim}
+%   \def\chapter { ... \secdef \CMDA \CMDB }
+%   \def\CMDA    [#1]#2{....} % \chapter[...]{...} の定義
+%   \def\CMDB    #1{....}     % \chapter*{...} の定義
+%\end{verbatim}
+%
+% まず |book| クラス以外です。
+%
+%    \begin{macrocode}
+%<*!book>
+\newcommand\part{%
+  \if@noskipsec \leavevmode \fi
+  \par
+  \addvspace{4ex}%
+  \if@english \@afterindentfalse \else \@afterindenttrue \fi
+  \secdef\@part\@spart}
+%</!book>
+%    \end{macrocode}
+%
+% |book| スタイルの場合は，少し複雑です。
+%
+%    \begin{macrocode}
+%<*book>
+\newcommand\part{%
+  \if@openright
+    \cleardoublepage
+  \else
+    \clearpage
+  \fi
+  \thispagestyle{empty}% 欧文用標準スタイルでは plain
+  \if@twocolumn
+    \onecolumn
+    \@restonecoltrue
+  \else
+    \@restonecolfalse
+  \fi
+  \null\vfil
+  \secdef\@part\@spart}
+%</book>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@part}
+%
+% 部の見出しを出力します。
+% |\bfseries| を |\headfont| に変えました。
+%
+% |book| クラス以外では |secnumdepth| が $-1$ より大きいとき
+% 部番号を付けます。
+%
+%    \begin{macrocode}
+%<*!book>
+\def\@part[#1]#2{%
+  \ifnum \c@secnumdepth >\m@ne
+    \refstepcounter{part}%
+    \addcontentsline{toc}{part}{%
+      \prepartname\thepart\postpartname\hspace{1zw}#1}%
+  \else
+    \addcontentsline{toc}{part}{#1}%
+  \fi
+  \markboth{}{}%
+  {\parindent\z@
+    \raggedright
+    \interlinepenalty \@M
+    \normalfont
+    \ifnum \c@secnumdepth >\m@ne
+      \Large\headfont\prepartname\thepart\postpartname
+      \par\nobreak
+    \fi
+    \huge \headfont #2%
+    \markboth{}{}\par}%
+  \nobreak
+  \vskip 3ex
+  \@afterheading}
+%</!book>
+%    \end{macrocode}
+%
+% |book| クラスでは |secnumdepth| が $-2$ より大きいとき部番号を付けます。
+%
+%    \begin{macrocode}
+%<*book>
+\def\@part[#1]#2{%
+  \ifnum \c@secnumdepth >-2\relax
+    \refstepcounter{part}%
+    \addcontentsline{toc}{part}{%
+      \prepartname\thepart\postpartname\hspace{1zw}#1}%
+  \else
+    \addcontentsline{toc}{part}{#1}%
+  \fi
+  \markboth{}{}%
+  {\centering
+    \interlinepenalty \@M
+    \normalfont
+    \ifnum \c@secnumdepth >-2\relax
+      \huge\headfont \prepartname\thepart\postpartname
+      \par\vskip20\p@
+    \fi
+    \Huge \headfont #2\par}%
+  \@endpart}
+%</book>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@spart}
+%
+% 番号を付けない部です。
+%
+%    \begin{macrocode}
+%<*!book>
+\def\@spart#1{{%
+    \parindent \z@ \raggedright
+    \interlinepenalty \@M
+    \normalfont
+    \huge \headfont #1\par}%
+  \nobreak
+  \vskip 3ex
+  \@afterheading}
+%</!book>
+%<*book>
+\def\@spart#1{{%
+    \centering
+    \interlinepenalty \@M
+    \normalfont
+    \Huge \headfont #1\par}%
+  \@endpart}
+%</book>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@endpart}
+%
+% |\@part| と |\@spart| の最後で実行されるマクロです。
+% 両面印刷のときは白ページを追加します。
+% 二段組のときには，二段組に戻します。
+%
+%    \begin{macrocode}
+%<*book>
+\def\@endpart{\vfil\newpage
+  \if@twoside
+    \null
+    \thispagestyle{empty}%
+    \newpage
+  \fi
+  \if@restonecol
+    \twocolumn
+  \fi}
+%</book>
+%    \end{macrocode}
+% \end{macro}
+%
+% \paragraph{章}
+%
+% \begin{macro}{\chapter}
+%
+%    章の最初のページスタイルは，全体が |empty| でなければ |plain| に
+%    します。
+%    また，|\@topnum| を 0 にして，
+%    章見出しの上に図や表が来ないようにします。
+%
+%    \begin{macrocode}
+%<*book>
+\newcommand{\chapter}{%
+  \if@openright\cleardoublepage\else\clearpage\fi
+  \plainifnotempty % 元: \thispagestyle{plain}
+  \global\@topnum\z@
+  \if@english \@afterindentfalse \else \@afterindenttrue \fi
+  \secdef\@chapter\@schapter}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@chapter}
+%
+% 章見出しを出力します。
+% |secnumdepth| が0以上かつ |\@mainmatter| が真のとき章番号を出力します。
+%
+%    \begin{macrocode}
+\def\@chapter[#1]#2{%
+  \ifnum \c@secnumdepth >\m@ne
+    \if@mainmatter
+      \refstepcounter{chapter}%
+      \typeout{\@chapapp\thechapter\@chappos}%
+      \addcontentsline{toc}{chapter}%
+        {\protect\numberline
+        {\if@english\thechapter\else\@chapapp\thechapter\@chappos\fi}%
+        #1}%
+    \else\addcontentsline{toc}{chapter}{#1}\fi
+  \else
+    \addcontentsline{toc}{chapter}{#1}%
+  \fi
+  \chaptermark{#1}%
+  \addtocontents{lof}{\protect\addvspace{10\p@}}%
+  \addtocontents{lot}{\protect\addvspace{10\p@}}%
+  \if@twocolumn
+    \@topnewpage[\@makechapterhead{#2}]%
+  \else
+    \@makechapterhead{#2}%
+    \@afterheading
+  \fi}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@makechapterhead}
+%
+%    実際に章見出しを組み立てます。
+%    |\bfseries| を |\headfont| に変えました。
+%
+%    \begin{macrocode}
+\def\@makechapterhead#1{%
+  \vspace*{2\Cvs}% 欧文は50pt
+  {\parindent \z@ \raggedright \normalfont
+    \ifnum \c@secnumdepth >\m@ne
+      \if@mainmatter
+        \huge\headfont \@chapapp\thechapter\@chappos
+        \par\nobreak
+        \vskip \Cvs % 欧文は20pt
+      \fi
+    \fi
+    \interlinepenalty\@M
+    \Huge \headfont #1\par\nobreak
+    \vskip 3\Cvs}} % 欧文は40pt
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@schapter}
+%
+% |\chapter*{...}| コマンドの本体です。
+% |\chaptermark| を補いました。
+%
+%    \begin{macrocode}
+\def\@schapter#1{%
+  \chaptermark{#1}%
+  \if@twocolumn
+    \@topnewpage[\@makeschapterhead{#1}]%
+  \else
+    \@makeschapterhead{#1}\@afterheading
+  \fi}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@makeschapterhead}
+%
+% 番号なしの章見出しです。
+%
+%    \begin{macrocode}
+\def\@makeschapterhead#1{%
+  \vspace*{2\Cvs}% 欧文は50pt
+  {\parindent \z@ \raggedright
+    \normalfont
+    \interlinepenalty\@M
+    \Huge \headfont #1\par\nobreak
+    \vskip 3\Cvs}} % 欧文は40pt
+%</book>
+%    \end{macrocode}
+% \end{macro}
+%
+% \paragraph{下位レベルの見出し}
+%
+% \begin{macro}{\section}
+%
+% 欧文版では |\@startsection| の第4引数を負にして最初の段落の
+% 字下げを禁止していますが，
+% 和文版では正にして字下げするようにしています。
+%
+% 段組のときはなるべく左右の段が狂わないように工夫しています。
+%
+%    \begin{macrocode}
+\if@twocolumn
+  \newcommand{\section}{%
+%<jspf>\ifx\maketitle\relax\else\maketitle\fi
+    \@startsection{section}{1}{\z@}%
+%<!kiyou>    {0.6\Cvs}{0.4\Cvs}%
+%<kiyou>    {\Cvs}{0.5\Cvs}%
+%   {\normalfont\large\headfont\@secapp}}
+    {\normalfont\large\headfont\raggedright}}
+\else
+  \newcommand{\section}{%
+    \if@slide\clearpage\fi
+    \@startsection{section}{1}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
+%   {\normalfont\Large\headfont\@secapp}}
+    {\normalfont\Large\headfont\raggedright}}
+\fi
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}{\subsection}
+%
+% 同上です。
+%
+%    \begin{macrocode}
+\if@twocolumn
+  \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
+    {\z@}{\z@}%
+    {\normalfont\normalsize\headfont}}
+\else
+  \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
+    {\normalfont\large\headfont}}
+\fi
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}{\subsubsection}
+%    \begin{macrocode}
+\if@twocolumn
+  \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
+    {\z@}{\z@}%
+    {\normalfont\normalsize\headfont}}
+\else
+  \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
+    {\z@}%
+    {\normalfont\normalsize\headfont}}
+\fi
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\paragraph}
+%
+%    見出しの後ろで改行されません。
+%
+%    \begin{macrocode}
+\if@twocolumn
+  \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
+    {\z@}{-1zw}% 改行せず 1zw のアキ
+%<jspf>    {\normalfont\normalsize\headfont}}
+%<!jspf>    {\normalfont\normalsize\headfont ■}}
+\else
+  \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
+    {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
+    {-1zw}% 改行せず 1zw のアキ
+%<jspf>    {\normalfont\normalsize\headfont}}
+%<!jspf>    {\normalfont\normalsize\headfont ■}}
+\fi
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\subparagraph}
+%
+%    見出しの後ろで改行されません。
+%
+%    \begin{macrocode}
+\newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
+   {\z@}{-1zw}%
+   {\normalfont\normalsize\headfont}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \subsection{リスト環境}
+%
+% 第 $k$ レベルのリストの初期化をするのが |\@list|$k$ です
+% （$k = \mathtt{i}, \mathtt{ii}, \mathtt{iii}, \mathtt{iv}$）。
+% |\@list|$k$ は |\leftmargin| を |\leftmargin|$k$ に設定します。
+%
+% \begin{macro}{\leftmargini}
+%
+% 二段組であるかないかに応じてそれぞれ 2em，2.5em でしたが，
+% ここでは全角幅の2倍にしました。
+%
+% [2002-05-11] 3zw に変更しました。
+%
+% [2005-03-19] 二段組は 2zw に戻しました。
+%
+%    \begin{macrocode}
+\if@slide
+  \setlength\leftmargini{1zw}
+\else
+  \if@twocolumn
+    \setlength\leftmargini{2zw}
+  \else
+    \setlength\leftmargini{3zw}
+  \fi
+\fi
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\leftmarginii}
+% \begin{macro}{\leftmarginiii}
+% \begin{macro}{\leftmarginiv}
+% \begin{macro}{\leftmarginv}
+% \begin{macro}{\leftmarginvi}
+%
+%    |ii|，|iii|，|iv| は |\labelsep| と
+%    それぞれ `(m)'，`vii.'，`M.' の幅との和より大きくする
+%    ことになっています。ここでは全角幅の整数倍に丸めました。
+%
+%    \begin{macrocode}
+\if@slide
+  \setlength\leftmarginii {1zw}
+  \setlength\leftmarginiii{1zw}
+  \setlength\leftmarginiv {1zw}
+  \setlength\leftmarginv  {1zw}
+  \setlength\leftmarginvi {1zw}
+\else
+  \setlength\leftmarginii {2zw}
+  \setlength\leftmarginiii{2zw}
+  \setlength\leftmarginiv {2zw}
+  \setlength\leftmarginv  {1zw}
+  \setlength\leftmarginvi {1zw}
+\fi
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\labelsep}
+% \begin{macro}{\labelwidth}
+%
+%    |\labelsep| はラベルと本文の間の距離です。
+%    |\labelwidth| はラベルの幅です。
+%    これは二分に変えました。
+%
+%    \begin{macrocode}
+\setlength  \labelsep  {0.5zw} % .5em
+\setlength  \labelwidth{\leftmargini}
+\addtolength\labelwidth{-\labelsep}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\partopsep}
+%
+%    リスト環境の前に空行がある場合，
+%    |\parskip| と |\topsep| に |\partopsep| を
+%    加えた値だけ縦方向の空白ができます。
+%    0 に改変しました。
+%
+%    \begin{macrocode}
+\setlength\partopsep{\z@} % {2\p@ \@plus 1\p@ \@minus 1\p@}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@beginparpenalty}
+% \begin{macro}{\@endparpenalty}
+% \begin{macro}{\@itempenalty}
+%
+%    リストや段落環境の前後，リスト項目間に挿入されるペナルティです。
+%
+%    \begin{macrocode}
+\@beginparpenalty -\@lowpenalty
+\@endparpenalty   -\@lowpenalty
+\@itempenalty     -\@lowpenalty
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\@listi}
+% \begin{macro}{\@listI}
+%
+%    |\@listi| は |\leftmargin|，|\parsep|，|\topsep|，|\itemsep| などの
+%    トップレベルの定義をします。
+%    この定義は，フォントサイズコマンドによって変更されます
+%    （たとえば |\small| の中では小さい値に設定されます）。
+%    このため，|\normalsize| がすべてのパラメータを戻せるように，
+%    |\@listI| で |\@listi| のコピーを保存します。
+%    元の値はかなり複雑ですが，ここでは簡素化してしまいました。
+%    特に最初と最後に行送りの半分の空きが入るようにしてあります。
+%    アスキーの標準スタイルでは
+%    トップレベルの |itemize|，|enumerate| 環境でだけ
+%    最初と最後に行送りの半分の空きが入るようになっていました。
+%
+%    [2004-09-27] |\topsep| のグルー $_{-0.1}^{+0.2}$ |\baselineskip|
+%    を思い切って外しました。
+%
+%    \begin{macrocode}
+\def\@listi{\leftmargin\leftmargini
+  \parsep \z@
+  \topsep 0.5\baselineskip
+  \itemsep \z@ \relax}
+\let\@listI\@listi
+%    \end{macrocode}
+%
+%    念のためパラメータを初期化します（実際には不要のようです）。
+%
+%    \begin{macrocode}
+\@listi
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\@listii}
+% \begin{macro}{\@listiii}
+% \begin{macro}{\@listiv}
+% \begin{macro}{\@listv}
+% \begin{macro}{\@listvi}
+%
+%    第2〜6レベルのリスト環境のパラメータの設定です。
+%
+%    \begin{macrocode}
+\def\@listii{\leftmargin\leftmarginii
+  \labelwidth\leftmarginii \advance\labelwidth-\labelsep
+  \topsep \z@
+  \parsep \z@
+  \itemsep\parsep}
+\def\@listiii{\leftmargin\leftmarginiii
+  \labelwidth\leftmarginiii \advance\labelwidth-\labelsep
+  \topsep \z@
+  \parsep \z@
+  \itemsep\parsep}
+\def\@listiv {\leftmargin\leftmarginiv
+              \labelwidth\leftmarginiv
+              \advance\labelwidth-\labelsep}
+\def\@listv  {\leftmargin\leftmarginv
+              \labelwidth\leftmarginv
+              \advance\labelwidth-\labelsep}
+\def\@listvi {\leftmargin\leftmarginvi
+              \labelwidth\leftmarginvi
+              \advance\labelwidth-\labelsep}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \paragraph{enumerate環境}
+%
+% |enumerate| 環境はカウンタ |enumi|，|enumii|，|enumiii|，
+% |enumiv| を使います。|enum|$n$ は第 $n$ レベルの番号です。
+%
+% \begin{macro}{\theenumi}
+% \begin{macro}{\theenumii}
+% \begin{macro}{\theenumiii}
+% \begin{macro}{\theenumiv}
+%
+%    出力する番号の書式を設定します。
+%    これらは\LaTeX 本体（\texttt{ltlists.dtx} 参照）で定義済みですが，
+%    ここでは表し方を変えています。
+%    |\@arabic|，|\@alph|，|\@roman|，|\@Alph| はそれぞれ
+%    算用数字，小文字アルファベット，小文字ローマ数字，大文字アルファベット
+%    で番号を出力する命令です。
+%
+%    \begin{macrocode}
+\renewcommand{\theenumi}{\@arabic\c@enumi}
+\renewcommand{\theenumii}{\@alph\c@enumii}
+\renewcommand{\theenumiii}{\@roman\c@enumiii}
+\renewcommand{\theenumiv}{\@Alph\c@enumiv}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\labelenumi}
+% \begin{macro}{\labelenumii}
+% \begin{macro}{\labelenumiii}
+% \begin{macro}{\labelenumiv}
+%
+%    |enumerate| 環境の番号を出力する命令です。
+%    第2レベル以外は最後に欧文のピリオドが付きますが，
+%    これは好みに応じて取り払ってください。
+%    第2レベルの番号のかっこは和文用に換え，
+%    その両側に入る余分なグルーを |\inhibitglue| で
+%    取り除いています。
+%
+%    \begin{macrocode}
+\newcommand{\labelenumi}{\theenumi.}
+\newcommand{\labelenumii}{\inhibitglue（\theenumii）\inhibitglue}
+\newcommand{\labelenumiii}{\theenumiii.}
+\newcommand{\labelenumiv}{\theenumiv.}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\p@enumii}
+% \begin{macro}{\p@enumiii}
+% \begin{macro}{\p@enumiv}
+%
+%    |\p@enum|$n$ は |\ref| コマンドで |enumerate| 環境の第 $n$ レベルの
+%    項目が参照されるときの書式です。
+%    これも第2レベルは和文用かっこにしました。
+%
+%    \begin{macrocode}
+\renewcommand{\p@enumii}{\theenumi}
+\renewcommand{\p@enumiii}{\theenumi\inhibitglue（\theenumii）}
+\renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \paragraph{itemize環境}
+%
+% \begin{macro}{\labelitemi}
+% \begin{macro}{\labelitemii}
+% \begin{macro}{\labelitemiii}
+% \begin{macro}{\labelitemiv}
+%    |itemize| 環境の第 $n$ レベルのラベルを作るコマンドです。
+%    \begin{macrocode}
+\newcommand\labelitemi{\textbullet}
+\newcommand\labelitemii{\normalfont\bfseries \textendash}
+\newcommand\labelitemiii{\textasteriskcentered}
+\newcommand\labelitemiv{\textperiodcentered}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \paragraph{description環境}
+%
+% \begin{environment}{description}
+%
+% 本来の |description| 環境では，項目名が短いと，説明部分の頭が
+% それに引きずられて左に出てしまいます。
+% これを解決した新しい |description| の実装です。
+%
+%    \begin{macrocode}
+\newenvironment{description}{%
+  \list{}{%
+    \labelwidth=\leftmargin
+    \labelsep=1zw
+    \advance \labelwidth by -\labelsep
+    \let \makelabel=\descriptionlabel}}{\endlist}
+%    \end{macrocode}
+% \end{environment}
+%
+% \begin{macro}{\descriptionlabel}
+%
+%    |description| 環境のラベルを出力するコマンドです。
+%    好みに応じて |#1| の前に適当な空き
+%    （たとえば |\hspace{1zw}|）を入れるのもいいと思います。
+%
+%    \begin{macrocode}
+\newcommand*\descriptionlabel[1]{\normalfont\headfont #1\hfil}
+%    \end{macrocode}
+% \end{macro}
+%
+% \paragraph{概要}
+%
+% \begin{environment}{abstract}
+%
+% 概要（要旨，梗概）を出力する環境です。
+% |book| クラスでは各章の初めにちょっとしたことを書くのに使います。
+% |titlepage| オプション付きの |article| クラスでは，
+% 独立したページに出力されます。
+% |abstract| 環境は元は |quotation| 環境で作られていましたが，
+% |quotation| 環境の右マージンをゼロにしたので，
+% |list| 環境で作り直しました。
+%
+% JSPFスタイルでは実際の出力は |\maketitle| で行われます。
+%
+%    \begin{macrocode}
+%<*book>
+\newenvironment{abstract}{%
+  \begin{list}{}{%
+    \listparindent=1zw
+    \itemindent=\listparindent
+    \rightmargin=0pt
+    \leftmargin=5zw}\item[]}{\end{list}\vspace{\baselineskip}}
+%</book>
+%<*article|kiyou>
+\newbox\@abstractbox
+\if@titlepage
+  \newenvironment{abstract}{%
+    \titlepage
+    \null\vfil
+    \@beginparpenalty\@lowpenalty
+    \begin{center}%
+      \headfont \abstractname
+      \@endparpenalty\@M
+    \end{center}}%
+  {\par\vfil\null\endtitlepage}
+\else
+  \newenvironment{abstract}{%
+    \if@twocolumn
+      \ifx\maketitle\relax
+        \section*{\abstractname}%
+      \else
+        \global\setbox\@abstractbox\hbox\bgroup
+        \begin{minipage}[b]{\textwidth}
+          \small\parindent1zw
+          \begin{center}%
+            {\headfont \abstractname\vspace{-.5em}\vspace{\z@}}%
+          \end{center}%
+          \list{}{%
+            \listparindent\parindent
+            \itemindent \listparindent
+            \rightmargin \leftmargin}%
+          \item\relax
+      \fi
+    \else
+      \small
+      \begin{center}%
+        {\headfont \abstractname\vspace{-.5em}\vspace{\z@}}%
+      \end{center}%
+      \list{}{%
+        \listparindent\parindent
+        \itemindent \listparindent
+        \rightmargin \leftmargin}%
+      \item\relax
+    \fi}{\if@twocolumn
+      \ifx\maketitle\relax
+      \else
+        \endlist\end{minipage}\egroup
+      \fi
+    \else
+      \endlist
+    \fi}
+\fi
+%</article|kiyou>
+%<*jspf>
+\newbox\@abstractbox
+\newenvironment{abstract}{%
+  \global\setbox\@abstractbox\hbox\bgroup
+  \begin{minipage}[b]{157mm}{\sffamily Abstract}\par
+    \small
+    \if@english \parindent6mm \else \parindent1zw \fi}%
+  {\end{minipage}\egroup}
+%</jspf>
+%    \end{macrocode}
+% \end{environment}
+%
+% \paragraph{キーワード}
+%
+% \begin{environment}{keywords}
+%
+% キーワードを準備する環境です。
+% 実際の出力は |\maketitle| で行われます。
+%
+%    \begin{macrocode}
+%<*jspf>
+%\newbox\@keywordsbox
+%\newenvironment{keywords}{%
+%  \global\setbox\@keywordsbox\hbox\bgroup
+%  \begin{minipage}[b]{157mm}{\sffamily Keywords:}\par
+%    \small\parindent0zw}%
+%  {\end{minipage}\egroup}
+%</jspf>
+%    \end{macrocode}
+% \end{environment}
+%
+% \paragraph{verse環境}
+%
+% \begin{environment}{verse}
+%
+% 詩のための |verse| 環境です。
+%
+%    \begin{macrocode}
+\newenvironment{verse}{%
+  \let \\=\@centercr
+  \list{}{%
+    \itemsep \z@
+    \itemindent -2zw % 元: -1.5em
+    \listparindent\itemindent
+    \rightmargin \z@
+    \advance\leftmargin 2zw}% 元: 1.5em
+  \item\relax}{\endlist}
+%    \end{macrocode}
+% \end{environment}
+%
+% \paragraph{quotation環境}
+%
+% \begin{environment}{quotation}
+%
+% 段落の頭の字下げ量を1.5emから |\parindent| に変えました。
+% また，右マージンを 0 にしました。
+%
+%    \begin{macrocode}
+\newenvironment{quotation}{%
+  \list{}{%
+    \listparindent\parindent
+    \itemindent\listparindent
+    \rightmargin \z@}%
+  \item\relax}{\endlist}
+%    \end{macrocode}
+% \end{environment}
+%
+% \paragraph{quote環境}
+%
+% \begin{environment}{quote}
+%
+% |quote| 環境は，段落がインデントされないことを除き，
+% |quotation| 環境と同じです。
+%
+%    \begin{macrocode}
+\newenvironment{quote}%
+  {\list{}{\rightmargin\z@}\item\relax}{\endlist}
+%    \end{macrocode}
+% \end{environment}
+%
+% \paragraph{定理など}
+%
+% |ltthm.dtx| 参照。たとえば次のように定義します。
+%\begin{verbatim}
+%  \newtheorem{definition}{定義}
+%  \newtheorem{axiom}{公理}
+%  \newtheorem{theorem}{定理}
+%\end{verbatim}
+%
+% [2001-04-26] 定理の中はイタリック体になりましたが，
+% これでは和文がゴシック体になってしまうので，
+% |\itshape| を削除しました。
+%
+% [2009-08-23] |\bfseries| を |\headfont| に直し，
+% |\labelsep| を 1\,zw にし，括弧を全角にしました。
+%
+%    \begin{macrocode}
+\def\@begintheorem#1#2{\trivlist\labelsep=1zw
+   \item[\hskip \labelsep{\headfont #1\ #2}]}
+\def\@opargbegintheorem#1#2#3{\trivlist\labelsep=1zw
+      \item[\hskip \labelsep{\headfont #1\ #2（#3）}]}
+%    \end{macrocode}
+%
+% \begin{environment}{titlepage}
+%
+% タイトルを独立のページに出力するのに使われます。
+%
+%    \begin{macrocode}
+\newenvironment{titlepage}{%
+%<book>    \cleardoublepage
+    \if@twocolumn
+      \@restonecoltrue\onecolumn
+    \else
+      \@restonecolfalse\newpage
+    \fi
+    \thispagestyle{empty}%
+    \setcounter{page}\@ne
+  }%
+  {\if@restonecol\twocolumn \else \newpage \fi
+    \if@twoside\else
+      \setcounter{page}\@ne
+    \fi}
+%    \end{macrocode}
+% \end{environment}
+%
+% \paragraph{付録}
+%
+% \begin{macro}{\appendix}
+%
+% 本文と付録を分離するコマンドです。
+%
+%    \begin{macrocode}
+%<*!book>
+\newcommand{\appendix}{\par
+  \setcounter{section}{0}%
+  \setcounter{subsection}{0}%
+  \gdef\presectionname{\appendixname}%
+  \gdef\postsectionname{}%
+% \gdef\thesection{\@Alph\c@section}% [2003-03-02]
+  \gdef\thesection{\presectionname\@Alph\c@section\postsectionname}%
+  \gdef\thesubsection{\@Alph\c@section.\@arabic\c@subsection}}
+%</!book>
+%<*book>
+\newcommand{\appendix}{\par
+  \setcounter{chapter}{0}%
+  \setcounter{section}{0}%
+  \gdef\@chapapp{\appendixname}%
+  \gdef\@chappos{}%
+  \gdef\thechapter{\@Alph\c@chapter}}
+%</book>
+%    \end{macrocode}
+% \end{macro}
+%
+% \subsection{パラメータの設定}
+%
+% \paragraph{arrayとtabular環境}
+%
+% \begin{macro}{\arraycolsep}
+%
+% |array| 環境の列間には |\arraycolsep| の2倍の幅の空きが入ります。
+%
+%    \begin{macrocode}
+\setlength\arraycolsep{5\p@}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\tabcolsep}
+%
+% |tabular| 環境の列間には |\tabcolsep| の2倍の幅の空きが入ります。
+%
+%    \begin{macrocode}
+\setlength\tabcolsep{6\p@}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\arrayrulewidth}
+%
+% |array|，|tabular| 環境内の罫線の幅です。
+%
+%    \begin{macrocode}
+\setlength\arrayrulewidth{.4\p@}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\doublerulesep}
+%
+% |array|，|tabular| 環境での二重罫線間のアキです。
+%
+%    \begin{macrocode}
+\setlength\doublerulesep{2\p@}
+%    \end{macrocode}
+% \end{macro}
+%
+% \paragraph{tabbing環境}
+%
+% \begin{macro}{\tabbingsep}
+%
+% |\'| コマンドで入るアキです。
+%
+%    \begin{macrocode}
+\setlength\tabbingsep{\labelsep}
+%    \end{macrocode}
+% \end{macro}
+%
+% \paragraph{minipage環境}
+%
+% \begin{macro}{\@mpfootins}
+%
+% |minipage| 環境の脚注の |\skip|\hspace{0pt}|\@mpfootins|
+% は通常のページの |\skip|\hspace{0pt}|\footins|
+% と同じ働きをします。
+%
+%    \begin{macrocode}
+\skip\@mpfootins = \skip\footins
+%    \end{macrocode}
+% \end{macro}
+%
+% \paragraph{framebox環境}
+%
+% \begin{macro}{\fboxsep}
+%
+% |\fbox|，|\framebox| で内側のテキストと枠との間の空きです。
+%
+% \begin{macro}{\fboxrule}
+%
+% |\fbox|，|\framebox| の罫線の幅です。
+%
+%    \begin{macrocode}
+\setlength\fboxsep{3\p@}
+\setlength\fboxrule{.4\p@}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \paragraph{equationとeqnarray環境}
+%
+% \begin{macro}{\theequation}
+%
+% 数式番号を出力するコマンドです。
+%
+%    \begin{macrocode}
+%<!book>\renewcommand \theequation {\@arabic\c@equation}
+%<*book>
+\@addtoreset{equation}{chapter}
+\renewcommand\theequation
+  {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@equation}
+%</book>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\jot}
+%
+%    |eqnarray| の行間に余分に入るアキです。
+%    デフォルトの値をコメントアウトして示しておきます。
+%
+%    \begin{macrocode}
+% \setlength\jot{3pt}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@eqnnum}
+%
+%    数式番号の形式です。
+%    デフォルトの値をコメントアウトして示しておきます。
+%
+%    |\inhibitglue（\theequation）\inhibitglue| のように和文かっこ
+%    を使うことも可能です。
+%
+%    \begin{macrocode}
+% \def\@eqnnum{(\theequation)}
+%    \end{macrocode}
+% \end{macro}
+%
+%    |amsmath| パッケージを使う場合は |\tagform@| を次のように修正します。
+%
+%    \begin{macrocode}
+% \def\tagform@#1{\maketag@@@{（\ignorespaces#1\unskip\@@italiccorr）}}
+%    \end{macrocode}
+%
+% \subsection{フロート}
+%
+% タイプ \texttt{TYPE} のフロートオブジェクトを
+% 扱うには，次のマクロを定義します。
+% \begin{description}
+% \item[\texttt{\bslash fps@TYPE}]
+%   フロートを置く位置（float placement specifier）です。
+% \item[\texttt{\bslash ftype@TYPE}]
+%   フロートの番号です。2の累乗（1，2，4，\ldots ）でなければなりません。
+% \item[\texttt{\bslash ext@TYPE}]
+%   フロートの目次を出力するファイルの拡張子です。
+% \item[\texttt{\bslash fnum@TYPE}]
+%   キャプション用の番号を生成するマクロです。
+% \item[\texttt{\bslash @makecaption}{\meta{num}}{\meta{text}}]
+%   キャプションを出力するマクロです。
+%   \meta{num} は |\fnum@...| の生成する番号，
+%   \meta{text} はキャプションのテキストです。
+%   テキストは適当な幅の |\parbox| に入ります。
+% \end{description}
+%
+% \paragraph{figure環境}
+%
+% \begin{macro}{\c@figure}
+%
+% 図番号のカウンタです。
+%
+% \begin{macro}{\thefigure}
+%
+% 図番号を出力するコマンドです。
+%
+%    \begin{macrocode}
+%<*!book>
+\newcounter{figure}
+\renewcommand \thefigure {\@arabic\c@figure}
+%</!book>
+%<*book>
+\newcounter{figure}[chapter]
+\renewcommand \thefigure
+     {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@figure}
+%</book>
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\fps@figure}
+% \begin{macro}{\ftype@figure}
+% \begin{macro}{\ext@figure}
+% \begin{macro}{\fnum@figure}
+%
+%    |figure| のパラメータです。
+%    |\figurename| の直後に |~| が入っていましたが，
+%    ここでは外しました。
+%
+%    \begin{macrocode}
+\def\fps@figure{tbp}
+\def\ftype@figure{1}
+\def\ext@figure{lof}
+\def\fnum@figure{\figurename\nobreak\thefigure}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{environment}{figure}
+% \begin{environment}{figure*}
+%
+% |*| 形式は段抜きのフロートです。
+%
+%    \begin{macrocode}
+\newenvironment{figure}%
+               {\@float{figure}}%
+               {\end@float}
+\newenvironment{figure*}%
+               {\@dblfloat{figure}}%
+               {\end@dblfloat}
+%    \end{macrocode}
+% \end{environment}
+% \end{environment}
+%
+% \paragraph{table環境}
+%
+% \begin{macro}{\c@table}
+% \begin{macro}{\thetable}
+%
+% 表番号カウンタと表番号を出力するコマンドです。
+% アスキー版では |\thechapter.| が |\thechapter{}・| になっていますが，
+% ここではオリジナルのままにしています。
+%
+%    \begin{macrocode}
+%<*!book>
+\newcounter{table}
+\renewcommand\thetable{\@arabic\c@table}
+%</!book>
+%<*book>
+\newcounter{table}[chapter]
+\renewcommand \thetable
+     {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@table}
+%</book>
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\fps@table}
+% \begin{macro}{\ftype@table}
+% \begin{macro}{\ext@table}
+% \begin{macro}{\fnum@table}
+%
+% |table| のパラメータです。
+% |\tablename| の直後に |~| が入っていましたが，
+% ここでは外しました。
+%
+%    \begin{macrocode}
+\def\fps@table{tbp}
+\def\ftype@table{2}
+\def\ext@table{lot}
+\def\fnum@table{\tablename\nobreak\thetable}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{environment}{table}
+% \begin{environment}{table*}
+%
+% |*| は段抜きのフロートです。
+%
+%    \begin{macrocode}
+\newenvironment{table}%
+               {\@float{table}}%
+               {\end@float}
+\newenvironment{table*}%
+               {\@dblfloat{table}}%
+               {\end@dblfloat}
+%    \end{macrocode}
+% \end{environment}
+% \end{environment}
+%
+% \subsection{キャプション}
+%
+% \begin{macro}{\@makecaption}
+%
+% |\caption| コマンドにより呼び出され，
+% 実際にキャプションを出力するコマンドです。
+% 第1引数はフロートの番号，
+% 第2引数はテキストです。
+%
+% \begin{macro}{\abovecaptionskip}
+% \begin{macro}{\belowcaptionskip}
+%
+% それぞれキャプションの前後に挿入されるスペースです。
+% |\belowcaptionskip| が0になっていましたので，
+% キャプションを表の上につけた場合にキャプションと表が
+% くっついてしまうのを直しました。
+%
+%    \begin{macrocode}
+\newlength\abovecaptionskip
+\newlength\belowcaptionskip
+\setlength\abovecaptionskip{5\p@} % 元: 10\p@
+\setlength\belowcaptionskip{5\p@} % 元: 0\p@
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% 実際のキャプションを出力します。
+% オリジナルと異なり，文字サイズを |\small| にし，
+% キャプションの幅を2cm狭くしました。
+%
+% [2003-11-05] ロジックを少し変えてみました。
+%
+%    \begin{macrocode}
+%<*!jspf>
+% \long\def\@makecaption#1#2{{\small
+%   \advance\leftskip1cm
+%   \advance\rightskip1cm
+%   \vskip\abovecaptionskip
+%   \sbox\@tempboxa{#1\hskip1zw\relax #2}%
+%   \ifdim \wd\@tempboxa >\hsize
+%     #1\hskip1zw\relax #2\par
+%   \else
+%     \global \@minipagefalse
+%     \hb@xt@\hsize{\hfil\box\@tempboxa\hfil}%
+%   \fi
+%   \vskip\belowcaptionskip}}
+\long\def\@makecaption#1#2{{\small
+  \advance\leftskip .0628\linewidth
+  \advance\rightskip .0628\linewidth
+  \vskip\abovecaptionskip
+  \sbox\@tempboxa{#1\hskip1zw\relax #2}%
+  \ifdim \wd\@tempboxa <\hsize \centering \fi
+  #1\hskip1zw\relax #2\par
+  \vskip\belowcaptionskip}}
+%</!jspf>
+%<*jspf>
+\long\def\@makecaption#1#2{%
+  \vskip\abovecaptionskip
+  \sbox\@tempboxa{\small\sffamily #1\quad #2}%
+  \ifdim \wd\@tempboxa >\hsize
+    {\small\sffamily
+      \list{#1}{%
+        \renewcommand{\makelabel}[1]{##1\hfil}
+        \itemsep    \z@
+        \itemindent \z@
+        \labelsep   \z@
+        \labelwidth 11mm
+        \listparindent\z@
+        \leftmargin 11mm}\item\relax #2\endlist}
+  \else
+    \global \@minipagefalse
+    \hb@xt@\hsize{\hfil\box\@tempboxa\hfil}%
+  \fi
+  \vskip\belowcaptionskip}
+%</jspf>
+%    \end{macrocode}
+% \end{macro}
+%
+% \section{フォントコマンド}
+%
+% ここでは\LaTeX~2.09で使われていたコマンドを定義します。
+% これらはテキストモードと数式モードのどちらでも動作します。
+% これらは互換性のためのもので，
+% できるだけ |\text...| と |\math...| を使ってください。
+%
+% \begin{macro}{\mc}
+% \begin{macro}{\gt}
+% \begin{macro}{\rm}
+% \begin{macro}{\sf}
+% \begin{macro}{\tt}
+%
+% フォントファミリを変更します。
+%
+%    \begin{macrocode}
+\DeclareOldFontCommand{\mc}{\normalfont\mcfamily}{\mathmc}
+\DeclareOldFontCommand{\gt}{\normalfont\gtfamily}{\mathgt}
+\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
+\DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
+\DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\bf}
+%
+% ボールドシリーズにします。通常のミーディアムシリーズに戻す
+% コマンドは |\mdseries| です。
+%
+%    \begin{macrocode}
+\DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\it}
+% \begin{macro}{\sl}
+% \begin{macro}{\sc}
+%
+% フォントシェイプを変えるコマンドです。
+% 斜体とスモールキャップスは数式中では何もしません
+% （警告メッセージを出力します）。
+% 通常のアップライト体に戻すコマンドは |\upshape| です。
+%
+%    \begin{macrocode}
+\DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
+\DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
+\DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\cal}
+% \begin{macro}{\mit}
+%
+% 数式モード以外では何もしません（警告を出します）。
+%
+%    \begin{macrocode}
+\DeclareRobustCommand*{\cal}{\@fontswitch\relax\mathcal}
+\DeclareRobustCommand*{\mit}{\@fontswitch\relax\mathnormal}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \section{相互参照}
+%
+% \subsection{目次の類}
+%
+% |\section| コマンドは |.toc| ファイルに次のような行を出力します。
+% \begin{quote}
+%   |\contentsline{section}{タイトル}{ページ}|
+% \end{quote}
+% たとえば |\section| に見出し番号が付く場合，上の「タイトル」は
+% \begin{quote}
+%   |\numberline{番号}{見出し}|
+% \end{quote}
+% となります。
+% この「番号」は |\thesection| コマンドで生成された見出し番号です。
+%
+% |figure| 環境の |\caption| コマンドは |.lof| ファイルに
+% 次のような行を出力します。
+% \begin{quote}
+% |\contentsline{figure}{\numberline{番号}{キャプション}{ページ}|
+% \end{quote}
+% この「番号」は |\thefigure| コマンドで生成された図番号です。
+%
+% |table| 環境も同様です。
+%
+% |\contentsline{...}| は |\l@...| というコマンドを実行するので，
+% あらかじめ |\l@chapter|，|\l@section|，|\l@figure| などを
+% 定義しておかなければなりません。
+% これらの多くは |\@dottedtocline| コマンドを使って定義します。
+% これは
+% \begin{quote}
+%   |\@dottedtocline{レベル}{インデント}{幅}{タイトル}{ページ}|
+% \end{quote}
+% という書式です。
+% \begin{description}
+% \item[レベル] この値が |tocdepth| 以下のときだけ出力されます。
+%   |\chapter| はレベル0，|\section| はレベル1，等々です。
+% \item[インデント] 左側の字下げ量です。
+% \item[幅] 「タイトル」に |\numberline| コマンドが含まれる場合，
+%   節番号が入る箱の幅です。
+% \end{description}
+%
+% \begin{macro}{\@pnumwidth}
+%
+% ページ番号の入る箱の幅です。
+%
+% \begin{macro}{\@tocrmarg}
+%
+% 右マージンです。
+% |\@tocrmarg| $\ge$ |\@pnumwidth| とします。
+%
+% \begin{macro}{\@dotsep}
+%
+% 点の間隔です（単位 mu）。
+%
+% \begin{macro}{\c@tocdepth}
+%
+% 目次ページに出力する見出しレベルです。
+% 元は \texttt{article} で3，その他で2でしたが，
+% ここでは一つずつ減らしています。
+%
+%    \begin{macrocode}
+\newcommand\@pnumwidth{1.55em}
+\newcommand\@tocrmarg{2.55em}
+\newcommand\@dotsep{4.5}
+%<!book>\setcounter{tocdepth}{2}
+%<book>\setcounter{tocdepth}{1}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \paragraph{目次}
+%
+% \begin{macro}{\tableofcontents}
+%
+% 目次を生成します。
+%
+%    \begin{macrocode}
+\newcommand{\tableofcontents}{%
+%<*book>
+  \if@twocolumn
+    \@restonecoltrue\onecolumn
+  \else
+    \@restonecolfalse
+  \fi
+  \chapter*{\contentsname}%
+  \@mkboth{\contentsname}{}%
+%</book>
+%<*!book>
+  \section*{\contentsname}%
+  \@mkboth{\contentsname}{\contentsname}%
+%</!book>
+  \@starttoc{toc}%
+%<book>  \if@restonecol\twocolumn\fi
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\l@part}
+%
+% 部の目次です。
+%
+%    \begin{macrocode}
+\newcommand*{\l@part}[2]{%
+  \ifnum \c@tocdepth >-2\relax
+%<!book>    \addpenalty\@secpenalty
+%<book>    \addpenalty{-\@highpenalty}%
+    \addvspace{2.25em \@plus\p@}%
+    \begingroup
+      \parindent \z@
+%     \@pnumwidth should be \@tocrmarg
+%     \rightskip \@pnumwidth
+      \rightskip \@tocrmarg
+      \parfillskip -\rightskip
+      {\leavevmode
+        \large \headfont
+        \setlength\@lnumwidth{4zw}%
+        #1\hfil \hb@xt@\@pnumwidth{\hss #2}}\par
+      \nobreak
+%<book>    \global\@nobreaktrue
+%<book>    \everypar{\global\@nobreakfalse\everypar{}}%
+    \endgroup
+  \fi}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\l@chapter}
+%
+% 章の目次です。|\@lnumwidth| を4.683zwに増やしました。
+%
+%    \begin{macrocode}
+%<*book>
+\newcommand*{\l@chapter}[2]{%
+  \ifnum \c@tocdepth >\m@ne
+    \addpenalty{-\@highpenalty}%
+    \addvspace{1.0em \@plus\p@}
+%   \vskip 1.0em \@plus\p@   % book.clsでは↑がこうなっている
+    \begingroup
+      \parindent\z@
+%     \rightskip\@pnumwidth
+      \rightskip\@tocrmarg
+      \parfillskip-\rightskip
+      \leavevmode\headfont
+      \if@english\setlength\@lnumwidth{5.5em}\else\setlength\@lnumwidth{4.683zw}\fi
+      \advance\leftskip\@lnumwidth \hskip-\leftskip
+      #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
+      \penalty\@highpenalty
+    \endgroup
+  \fi}
+%</book>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\l@section}
+%
+% 節の目次です。
+%
+%    \begin{macrocode}
+%<*!book>
+\newcommand*{\l@section}[2]{%
+  \ifnum \c@tocdepth >\z@
+    \addpenalty{\@secpenalty}%
+    \addvspace{1.0em \@plus\p@}%
+    \begingroup
+      \parindent\z@
+%     \rightskip\@pnumwidth
+      \rightskip\@tocrmarg
+      \parfillskip-\rightskip
+      \leavevmode\headfont
+      \setlength\@lnumwidth{4zw}% 元1.5em [2003-03-02]
+      \advance\leftskip\@lnumwidth \hskip-\leftskip
+      #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
+    \endgroup
+  \fi}
+%</!book>
+%    \end{macrocode}
+%
+% インデントと幅はそれぞれ1.5em，2.3emでしたが，
+% 1zw，3.683zwに変えました。
+%
+%    \begin{macrocode}
+%<book>\newcommand*{\l@section}{\@dottedtocline{1}{1zw}{3.683zw}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\l@subsection}
+% \begin{macro}{\l@subsubsection}
+% \begin{macro}{\l@paragraph}
+% \begin{macro}{\l@subparagraph}
+%
+% さらに下位レベルの目次項目の体裁です。
+% あまり使ったことがありませんので，要修正かもしれません。
+%
+%    \begin{macrocode}
+%<*!book>
+% \newcommand*{\l@subsection}   {\@dottedtocline{2}{1.5em}{2.3em}}
+\newcommand*{\l@subsection}   {\@dottedtocline{2}{1zw}{3zw}}
+% \newcommand*{\l@subsubsection}{\@dottedtocline{3}{3.8em}{3.2em}}
+\newcommand*{\l@subsubsection}{\@dottedtocline{3}{2zw}{3zw}}
+% \newcommand*{\l@paragraph}    {\@dottedtocline{4}{7.0em}{4.1em}}
+\newcommand*{\l@paragraph}    {\@dottedtocline{4}{3zw}{3zw}}
+% \newcommand*{\l@subparagraph} {\@dottedtocline{5}{10em}{5em}}
+\newcommand*{\l@subparagraph} {\@dottedtocline{5}{4zw}{3zw}}
+%</!book>
+%<*book>
+\newcommand*{\l@subsection}   {\@dottedtocline{2}{3.8em}{3.2em}}
+\newcommand*{\l@subsubsection}{\@dottedtocline{3}{7.0em}{4.1em}}
+\newcommand*{\l@paragraph}    {\@dottedtocline{4}{10em}{5em}}
+\newcommand*{\l@subparagraph} {\@dottedtocline{5}{12em}{6em}}
+%</book>
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\numberline}
+% \begin{macro}{\@lnumwidth}
+%
+% 欧文版\LaTeX では |\numberline{...}| は幅 |\@tempdima| の箱に左詰め
+% で出力する命令ですが，
+% アスキー版では |\@tempdima| の代わりに |\@lnumwidth| という変数
+% で幅を決めるように再定義しています。
+% 後続文字が全角か半角かでスペースが変わらないように |\hspace|
+% を入れておきました。
+%
+%    \begin{macrocode}
+\newdimen\@lnumwidth
+\def\numberline#1{\hb@xt@\@lnumwidth{#1\hfil}\hspace{0pt}}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\@dottedtocline}
+%
+% \LaTeX 本体（\texttt{ltsect.dtx} 参照）での定義と同じですが，
+% |\@tempdima| を |\@lnumwidth| に変えています。
+%
+%    \begin{macrocode}
+\def\@dottedtocline#1#2#3#4#5{\ifnum #1>\c@tocdepth \else
+  \vskip \z@ \@plus.2\p@
+  {\leftskip #2\relax \rightskip \@tocrmarg \parfillskip -\rightskip
+    \parindent #2\relax\@afterindenttrue
+   \interlinepenalty\@M
+   \leavevmode
+   \@lnumwidth #3\relax
+   \advance\leftskip \@lnumwidth \null\nobreak\hskip -\leftskip
+    {#4}\nobreak
+    \leaders\hbox{$\m@th \mkern \@dotsep mu\hbox{.}\mkern \@dotsep 
+       mu$}\hfill \nobreak\hb@xt@\@pnumwidth{%
+         \hfil\normalfont \normalcolor #5}\par}\fi}
+%    \end{macrocode}
+% \end{macro}
+%
+% \paragraph{図目次と表目次}
+%
+% \begin{macro}{\listoffigures}
+%
+% 図目次を出力します。
+%
+%    \begin{macrocode}
+\newcommand{\listoffigures}{%
+%<*book>
+  \if@twocolumn\@restonecoltrue\onecolumn
+  \else\@restonecolfalse\fi
+  \chapter*{\listfigurename}%
+  \@mkboth{\listfigurename}{}%
+%</book>
+%<*!book>
+  \section*{\listfigurename}%
+  \@mkboth{\listfigurename}{\listfigurename}%
+%</!book>
+  \@starttoc{lof}%
+%<book>  \if@restonecol\twocolumn\fi
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\l@figure}
+%
+% 図目次の項目を出力します。
+%
+%    \begin{macrocode}
+\newcommand*{\l@figure}{\@dottedtocline{1}{1zw}{3.683zw}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\listoftables}
+%
+% 表目次を出力します。
+%
+%    \begin{macrocode}
+\newcommand{\listoftables}{%
+%<*book>
+  \if@twocolumn\@restonecoltrue\onecolumn
+  \else\@restonecolfalse\fi
+  \chapter*{\listtablename}%
+  \@mkboth{\listtablename}{}%
+%</book>
+%<*!book>
+  \section*{\listtablename}%
+  \@mkboth{\listtablename}{\listtablename}%
+%</!book>
+  \@starttoc{lot}%
+%<book>  \if@restonecol\twocolumn\fi
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\l@table}
+%
+% 表目次は図目次と同じです。
+%
+%    \begin{macrocode}
+\let\l@table\l@figure
+%    \end{macrocode}
+% \end{macro}
+%
+% \subsection{参考文献}
+%
+% \begin{macro}{\bibindent}
+%
+% オープンスタイルの参考文献で使うインデント幅です。
+% 元は 1.5em でした。
+%
+%    \begin{macrocode}
+\newdimen\bibindent
+\setlength\bibindent{2zw}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{environment}{thebibliography}
+%
+% 参考文献リストを出力します。
+%
+%    \begin{macrocode}
+\newenvironment{thebibliography}[1]{%
+  \global\let\presectionname\relax
+  \global\let\postsectionname\relax
+%<article|jspf>  \section*{\refname}\@mkboth{\refname}{\refname}%
+%<*kiyou>
+  \vspace{1.5\baselineskip}
+  \subsubsection*{\refname}\@mkboth{\refname}{\refname}%
+  \vspace{0.5\baselineskip}
+%</kiyou>
+%<book>  \chapter*{\bibname}\@mkboth{\bibname}{}%
+%<book>  \addcontentsline{toc}{chapter}{\bibname}%
+   \list{\@biblabel{\@arabic\c@enumiv}}%
+        {\settowidth\labelwidth{\@biblabel{#1}}%
+         \leftmargin\labelwidth
+         \advance\leftmargin\labelsep
+         \@openbib@code
+         \usecounter{enumiv}%
+         \let\p@enumiv\@empty
+         \renewcommand\theenumiv{\@arabic\c@enumiv}}%
+%<kiyou>   \small
+   \sloppy
+   \clubpenalty4000
+   \@clubpenalty\clubpenalty
+   \widowpenalty4000%
+   \sfcode`\.\@m}
+  {\def\@noitemerr
+    {\@latex@warning{Empty `thebibliography' environment}}%
+   \endlist}
+%    \end{macrocode}
+% \end{environment}
+%
+% \begin{macro}{\newblock}
+%
+% |\newblock| はデフォルトでは小さなスペースを生成します。
+%
+%    \begin{macrocode}
+\newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@openbib@code}
+%
+% |\@openbib@code| はデフォルトでは何もしません。
+% この定義は |openbib| オプションによって変更されます。
+%
+%    \begin{macrocode}
+\let\@openbib@code\@empty
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@biblabel}
+%
+% |\bibitem[...]| のラベルを作ります。
+% \texttt{ltbibl.dtx} の定義の半角 [] を全角［］に変え，
+% 余分なスペースが入らないように |\inhibitglue| ではさみました。
+% とりあえずコメントアウトしておきますので，必要に応じて生かしてください。
+%
+%    \begin{macrocode}
+% \def\@biblabel#1{\inhibitglue［#1］\inhibitglue}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\cite}
+% \begin{macro}{\@cite}
+% \begin{macro}{\@citex}
+%
+% 文献の番号を出力する部分は \texttt{ltbibl.dtx} で定義されていますが，
+% コンマとかっこを和文フォントにするには次のようにします。
+% とりあえずコメントアウトしておきましたので，必要に応じて生かしてください。
+% かっこの前後に入るグルーを |\inhibitglue| で取っていますので，
+% オリジナル同様，\verb*+Knuth~\cite{knu} + のように半角空白
+% で囲んでください。
+%
+%    \begin{macrocode}
+% \def\@citex[#1]#2{%
+%   \let\@citea\@empty
+%   \@cite{\@for\@citeb:=#2\do
+%     {\@citea\def\@citea{，\inhibitglue\penalty\@m\ }%
+%      \edef\@citeb{\expandafter\@firstofone\@citeb}%
+%      \if@filesw\immediate\write\@auxout{\string\citation{\@citeb}}\fi
+%      \@ifundefined{b@\@citeb}{\mbox{\normalfont\bfseries ?}%
+%        \G@refundefinedtrue
+%        \@latex@warning
+%          {Citation `\@citeb' on page \thepage \space undefined}}%
+%        {\hbox{\csname b@\@citeb\endcsname}}}}{#1}}
+% \def\@cite#1#2{\inhibitglue［{#1\if@tempswa ，#2\fi}］\inhibitglue}
+%    \end{macrocode}
+%
+% 引用番号を上ツキの 1）のようなスタイルにするには次のようにします。
+% |\cite| の先頭に |\unskip| を付けて先行のスペース（\verb|~| も）
+% を帳消しにしています。
+%
+%    \begin{macrocode}
+% \DeclareRobustCommand\cite{\unskip
+%   \@ifnextchar [{\@tempswatrue\@citex}{\@tempswafalse\@citex[]}}
+% \def\@cite#1#2{$^{\hbox{\scriptsize{#1\if@tempswa
+%   ，\inhibitglue\ #2\fi}）}}$}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \subsection{索引}
+%
+% \begin{environment}{theindex}
+%
+% 2〜3段組の索引を作成します。
+% 最後が偶数ページのときにマージンがずれる現象を直しました（Thanks: 藤村さん）。
+%
+%    \begin{macrocode}
+\newenvironment{theindex}{% 索引を3段組で出力する環境
+    \if@twocolumn
+      \onecolumn\@restonecolfalse
+    \else
+      \clearpage\@restonecoltrue
+    \fi
+    \columnseprule.4pt \columnsep 2zw
+    \ifx\multicols\@undefined
+%<book>      \twocolumn[\@makeschapterhead{\indexname}%
+%<book>      \addcontentsline{toc}{chapter}{\indexname}]%
+%<!book>      \def\presectionname{}\def\postsectionname{}%
+%<!book>      \twocolumn[\section*{\indexname}]%
+    \else
+      \ifdim\textwidth<\fullwidth
+        \setlength{\evensidemargin}{\oddsidemargin}
+        \setlength{\textwidth}{\fullwidth}
+        \setlength{\linewidth}{\fullwidth}
+%<book>        \begin{multicols}{3}[\chapter*{\indexname}%
+%<book>        \addcontentsline{toc}{chapter}{\indexname}]%
+%<!book>        \def\presectionname{}\def\postsectionname{}%
+%<!book>        \begin{multicols}{3}[\section*{\indexname}]%
+      \else
+%<book>        \begin{multicols}{2}[\chapter*{\indexname}%
+%<book>        \addcontentsline{toc}{chapter}{\indexname}]%
+%<!book>        \def\presectionname{}\def\postsectionname{}%
+%<!book>        \begin{multicols}{2}[\section*{\indexname}]%
+      \fi
+    \fi
+%<book>    \@mkboth{\indexname}{}%
+%<!book>    \@mkboth{\indexname}{\indexname}%
+    \plainifnotempty % \thispagestyle{plain}
+    \parindent\z@
+    \parskip\z@ \@plus .3\p@\relax
+    \let\item\@idxitem
+    \raggedright
+    \footnotesize\narrowbaselines
+  }{
+    \ifx\multicols\@undefined
+      \if@restonecol\onecolumn\fi
+    \else
+      \end{multicols}
+    \fi
+    \clearpage
+  }
+%    \end{macrocode}
+% \end{environment}
+%
+% \begin{macro}{\@idxitem}
+% \begin{macro}{\subitem}
+% \begin{macro}{\subsubitem}
+%
+% 索引項目の字下げ幅です。|\@idxitem| は |\item| の項目の字下げ幅です。
+%
+%    \begin{macrocode}
+\newcommand{\@idxitem}{\par\hangindent 4zw} % 元 40pt
+\newcommand{\subitem}{\@idxitem \hspace*{2zw}} % 元 20pt
+\newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % 元 30pt
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\indexspace}
+%
+% 索引で先頭文字ごとのブロックの間に入るスペースです。
+%
+%    \begin{macrocode}
+\newcommand{\indexspace}{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\seename}
+% \begin{macro}{\alsoname}
+%
+% 索引の |\see|，|\seealso| コマンドで出力されるものです。
+% デフォルトはそれぞれ \emph{see}，\emph{see also} という英語ですが，
+% ここではとりあえず両方とも「→」に変えました。
+% $\Rightarrow$（|$\Rightarrow$|）などでもいいでしょう。
+%
+%    \begin{macrocode}
+\newcommand\seename{\if@english see\else →\fi}
+\newcommand\alsoname{\if@english see also\else →\fi}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \subsection{脚注}
+%
+% \begin{macro}{\footnote}
+% \begin{macro}{\footnotemark}
+%
+% 和文の句読点・閉じかっこ類の直後で用いた際に
+% 余分なアキが入るのを防ぐため，
+% |\inhibitglue| を入れることにします。
+%
+%    \begin{macrocode}
+\let\footnotes@ve=\footnote
+\def\footnote{\inhibitglue\footnotes@ve}
+\let\footnotemarks@ve=\footnotemark
+\def\footnotemark{\inhibitglue\footnotemarks@ve}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\@makefnmark}
+%
+% 脚注番号を付ける命令です。
+% ここでは脚注番号の前に記号 $*$ を付けています。
+% 「注1」の形式にするには |\textasteriskcentered|
+%  を |注\kern0.1em| にしてください。
+% |\@xfootnotenext| と合わせて，
+% もし脚注番号が空なら記号も出力しないようにしてあります。
+%
+% [2002-04-09] インプリメントの仕方を変えたため消しました。
+%
+%    \begin{macrocode}
+% \def\@makefnmark{\hbox{\@textsuperscript{\normalfont
+%       \ifx\@thefnmark\@empty\else
+%         \textasteriskcentered
+%       \fi
+%       \@thefnmark}}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\thefootnote}
+%
+% 脚注番号に * 印が付くようにしました。
+% ただし，番号がゼロのときは * 印も脚注番号も付きません。
+%
+% [2003-08-15] |\textasteriskcentered| ではフォントによって
+% 下がりすぎるので変更しました。
+%
+%    \begin{macrocode}
+\def\thefootnote{\ifnum\c@footnote>\z@\leavevmode\lower.5ex\hbox{*}\@arabic\c@footnote\fi}
+%    \end{macrocode}
+%
+% 「注1」の形式にするには次のようにしてください。
+%
+%    \begin{macrocode}
+% \def\thefootnote{\ifnum\c@footnote>\z@注\kern0.1zw\@arabic\c@footnote\fi}
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}{\footnoterule}
+%
+% 本文と脚注の間の罫線です。
+%
+%    \begin{macrocode}
+\renewcommand{\footnoterule}{%
+  \kern-3\p@
+  \hrule width .4\columnwidth
+  \kern 2.6\p@}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\c@footnote}
+%
+% 脚注番号は章ごとにリセットされます。
+%
+%    \begin{macrocode}
+%<book>\@addtoreset{footnote}{chapter}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@footnotetext}
+%
+% 脚注で |\verb| が使えるように改変してあります。
+% Jeremy Gibbons, \textit{\TeX\ and TUG NEWS},
+%  Vol.~2, No.~4 (1993), p.~9）
+%
+%    \begin{macrocode}
+\long\def\@footnotetext{%
+  \insert\footins\bgroup
+    \normalfont\footnotesize
+    \interlinepenalty\interfootnotelinepenalty
+    \splittopskip\footnotesep
+    \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
+    \hsize\columnwidth \@parboxrestore
+    \protected@edef\@currentlabel{%
+       \csname p@footnote\endcsname\@thefnmark
+    }%
+    \color@begingroup
+      \@makefntext{%
+        \rule\z@\footnotesep\ignorespaces}%
+      \futurelet\next\fo@t}
+\def\fo@t{\ifcat\bgroup\noexpand\next \let\next\f@@t
+                                \else \let\next\f@t\fi \next}
+\def\f@@t{\bgroup\aftergroup\@foot\let\next}
+\def\f@t#1{#1\@foot}
+\def\@foot{\@finalstrut\strutbox\color@endgroup\egroup}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@makefntext}
+%
+% 実際に脚注を出力する命令です。
+% |\@makefnmark| は脚注の番号を出力する命令です。
+% ここでは脚注が左端から一定距離に来るようにしてあります。
+%
+%    \begin{macrocode}
+\newcommand\@makefntext[1]{%
+  \advance\leftskip 3zw
+  \parindent 1zw
+  \noindent
+  \llap{\@makefnmark\hskip0.3zw}#1}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@xfootnotenext}
+%
+% 最初の |\footnotetext{...}| は番号が付きません。
+% 著者の所属などを脚注の欄に書くときに便利です。
+%
+% すでに |\footnote| を使った後なら |\footnotetext[0]{...}|
+% とすれば番号を付けない脚注になります。
+% ただし，この場合は脚注番号がリセットされてしまうので，
+% 工夫が必要です。
+%
+% [2002-04-09] インプリメントの仕方を変えたため消しました。
+%
+%    \begin{macrocode}
+% \def\@xfootnotenext[#1]{%
+%   \begingroup
+%      \ifnum#1>\z@
+%        \csname c@\@mpfn\endcsname #1\relax
+%        \unrestored@protected@xdef\@thefnmark{\thempfn}%
+%      \else
+%        \unrestored@protected@xdef\@thefnmark{}%
+%      \fi
+%   \endgroup
+%   \@footnotetext}
+%    \end{macrocode}
+% \end{macro}
+%
+% \section{段落の頭へのグルー挿入禁止}
+%
+% 段落頭のかぎかっこなどを見かけ1字半下げから全角1字下げに直します。
+%
+%    \begin{macrocode}
+\def\@inhibitglue{%
+  \futurelet\@let@token\@@inhibitglue}
+\def\@@inhibitglue{%
+  \ifx\@let@token「
+    \inhibitglue
+  \else
+    \ifx\@let@token（
+      \inhibitglue
+    \else
+      \ifx\@let@token『
+        \inhibitglue
+      \else
+        \ifx\@let@token［
+          \inhibitglue
+        \fi
+      \fi
+    \fi
+  \fi}
+\let\everyparhook=\@inhibitglue
+\AtBeginDocument{\everypar{\everyparhook}}
+%    \end{macrocode}
+%
+% これだけではいけないようです。あちこちに |\everypar| を初期化するコマンドが
+% 隠されていました。
+%
+% まず，環境の直後の段落です。
+%
+%    \begin{macrocode}
+\def\@doendpe{%
+  \@endpetrue
+  \def\par{%
+    \@restorepar\everypar{\everyparhook}\par\@endpefalse}%
+  \everypar{{\setbox\z@\lastbox}\everypar{\everyparhook}\@endpefalse\everyparhook}}
+%    \end{macrocode}
+%
+% |\item| 命令の直後です。
+%
+%    \begin{macrocode}
+\def\@item[#1]{%
+  \if@noparitem
+    \@donoparitem
+  \else
+    \if@inlabel
+      \indent \par
+    \fi
+    \ifhmode
+      \unskip\unskip \par
+    \fi
+    \if@newlist
+      \if@nobreak
+        \@nbitem
+      \else
+        \addpenalty\@beginparpenalty
+        \addvspace\@topsep
+        \addvspace{-\parskip}%
+      \fi
+    \else
+      \addpenalty\@itempenalty
+      \addvspace\itemsep
+    \fi
+    \global\@inlabeltrue
+  \fi
+  \everypar{%
+    \@minipagefalse
+    \global\@newlistfalse
+    \if@inlabel
+      \global\@inlabelfalse
+      {\setbox\z@\lastbox
+       \ifvoid\z@
+         \kern-\itemindent
+       \fi}%
+      \box\@labels
+      \penalty\z@
+    \fi
+    \if@nobreak
+      \@nobreakfalse
+      \clubpenalty \@M
+    \else
+      \clubpenalty \@clubpenalty
+      \everypar{\everyparhook}%
+    \fi\everyparhook}%
+  \if@noitemarg
+    \@noitemargfalse
+    \if@nmbrlist
+      \refstepcounter\@listctr
+    \fi
+  \fi
+  \sbox\@tempboxa{\makelabel{#1}}%
+  \global\setbox\@labels\hbox{%
+    \unhbox\@labels
+    \hskip \itemindent
+    \hskip -\labelwidth
+    \hskip -\labelsep
+    \ifdim \wd\@tempboxa >\labelwidth
+      \box\@tempboxa
+    \else
+      \hbox to\labelwidth {\unhbox\@tempboxa}%
+    \fi
+    \hskip \labelsep}%
+  \ignorespaces}
+%    \end{macrocode}
+%
+% 二つ挿入した |\everyparhook| のうち後者が |\section| 類の直後に2回，
+% 前者が3回目以降に実行されます。
+%
+%    \begin{macrocode}
+\def\@afterheading{%
+  \@nobreaktrue
+  \everypar{%
+    \if@nobreak
+      \@nobreakfalse
+      \clubpenalty \@M
+      \if@afterindent \else
+        {\setbox\z@\lastbox}%
+      \fi
+    \else
+      \clubpenalty \@clubpenalty
+      \everypar{\everyparhook}%
+    \fi\everyparhook}}
+%    \end{macrocode}
+%
+% |\@gnewline| についてはちょっと複雑な心境です。
+% もともとのp\LaTeXe は段落の頭にグルーが入る方で統一されていました。
+% しかし |\\| の直後にはグルーが入らず，不統一でした。
+% そこで |\\| の直後にもグルーを入れるように直していただいた経緯があります。
+% しかし，ここでは逆にグルーを入れない方で統一したいので，
+% また元に戻してしまいました。
+%
+% しかし単に戻すだけでも駄目みたいなので，ここでも最後にグルーを消しておきます。
+%
+%    \begin{macrocode}
+\def\@gnewline #1{%
+  \ifvmode
+    \@nolnerr
+  \else
+    \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
+    \inhibitglue \ignorespaces
+  \fi}
+%    \end{macrocode}
+%
+% \section{いろいろなロゴ}
+%
+% \LaTeX 関連のロゴを作り直します。
+%
+% \begin{macro}{\小}
+% \begin{macro}{\上小}
+%
+% 文字を小さめに出したり上寄りに小さめに出したりする命令です。
+%
+%    \begin{macrocode}
+\def\小#1{\hbox{$\m@th$%
+  \csname S@\f@size\endcsname
+  \fontsize\sf@size\z@
+  \math@fontsfalse\selectfont
+  #1}}
+\def\上小#1{{\sbox\z@ T\vbox to\ht0{\小{#1}\vss}}}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\TeX}
+% \begin{macro}{\LaTeX}
+%
+% これらは \texttt{ltlogos.dtx} で定義されていますが，
+% TimesやHelveticaでも見栄えがするように若干変更しました。
+%
+% [2003-06-12] Palatinoも加えました（要調整）。
+%
+%    \begin{macrocode}
+\def\cmrTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.25em\lower.5ex\hbox{E}\kern-.125emX\@
+  \else
+    T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX\@
+  \fi}
+\def\cmrLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.32em\上小{A}\kern-.22em\cmrTeX
+  \else
+    L\kern-.36em\上小{A}\kern-.15em\cmrTeX
+  \fi}
+\def\sfTeX{T\kern-.1em\lower.4ex\hbox{E}\kern-.07emX\@}
+\def\sfLaTeX{L\kern-.25em\上小{A}\kern-.08em\sfTeX}
+\def\ptmTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.12em\lower.37ex\hbox{E}\kern-.02emX\@
+  \else
+    T\kern-.07em\lower.37ex\hbox{E}\kern-.05emX\@
+  \fi}
+\def\ptmLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.2em\上小{A}\kern-.1em\ptmTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.1em\ptmTeX
+  \fi}
+\def\pncTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.2em\lower.5ex\hbox{E}\kern-.08emX\@
+  \else
+    T\kern-.13em\lower.5ex\hbox{E}\kern-.13emX\@
+  \fi}
+\def\pncLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
+  \fi}
+\def\pplTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.17em\lower.32ex\hbox{E}\kern-.15emX\@
+  \else
+    T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
+  \fi}
+\def\pplLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.27em\上小{A}\kern-.12em\pplTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.15em\pplTeX
+  \fi}
+\def\ugmTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.1em\lower.32ex\hbox{E}\kern-.06emX\@
+  \else
+    T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
+  \fi}
+\def\ugmLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.2em\上小{A}\kern-.13em\ugmTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.13em\ugmTeX
+  \fi}
+\DeclareRobustCommand{\TeX}{%
+  \def\@tempa{cmr}%
+  \ifx\f@family\@tempa\cmrTeX
+  \else
+    \def\@tempa{ptm}%
+    \ifx\f@family\@tempa\ptmTeX
+    \else
+      \def\@tempa{txr}%
+      \ifx\f@family\@tempa\ptmTeX
+      \else
+        \def\@tempa{pnc}%
+        \ifx\f@family\@tempa\pncTeX
+        \else
+          \def\@tempa{ppl}%
+          \ifx\f@family\@tempa\pplTeX
+          \else
+            \def\@tempa{ugm}%
+            \ifx\f@family\@tempa\ugmTeX
+            \else\sfTeX
+            \fi
+          \fi
+        \fi
+      \fi
+    \fi
+  \fi}
+
+\DeclareRobustCommand{\LaTeX}{%
+  \def\@tempa{cmr}%
+  \ifx\f@family\@tempa\cmrLaTeX
+  \else
+    \def\@tempa{ptm}%
+    \ifx\f@family\@tempa\ptmLaTeX
+    \else
+      \def\@tempa{txr}%
+      \ifx\f@family\@tempa\ptmLaTeX
+      \else
+        \def\@tempa{pnc}%
+        \ifx\f@family\@tempa\pncLaTeX
+        \else
+          \def\@tempa{ppl}%
+          \ifx\f@family\@tempa\pplLaTeX
+          \else
+            \def\@tempa{ugm}%
+            \ifx\f@family\@tempa\ugmLaTeX
+            \else\sfLaTeX
+            \fi
+          \fi
+        \fi
+      \fi
+    \fi
+  \fi}
+%    \end{macrocode}
+%
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\LaTeXe}
+%
+% |\LaTeXe| コマンドの |\mbox{\m@th ...| で始まる新しい定義では
+% 直後の和文との間に |\xkanjiskip| が入りません。また，
+% |mathptmx| パッケージなどと併用すると，最後の $\varepsilon$ が
+% 下がりすぎてしまいます。そのため，ちょっと手を加えました。
+%
+%    \begin{macrocode}
+\DeclareRobustCommand{\LaTeXe}{$\mbox{%
+  \if b\expandafter\@car\f@series\@nil\boldmath\fi
+  \LaTeX\kern.15em2\raisebox{-.37ex}{$\textstyle\varepsilon$}}$}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\pTeX}
+% \begin{macro}{\pLaTeX}
+% \begin{macro}{\pLaTeXe}
+%
+% \pTeX ，\pLaTeXe のロゴを出す命令です。
+%
+%    \begin{macrocode}
+\def\pTeX{p\kern-.05em\TeX}
+\def\pLaTeX{p\LaTeX}
+\def\pLaTeXe{p\LaTeXe}
+%    \end{macrocode}
+%
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\AmSTeX}
+%
+% \texttt{amstex.sty} で定義されています。
+%
+%    \begin{macrocode}
+\def\AmSTeX{\protect\AmS-\protect\TeX{}}
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}{\BibTeX}
+% \begin{macro}{\SliTeX}
+%
+% これらは \texttt{doc.dtx} から取ったものです。
+% ただし，|\BibTeX| だけはちょっと修正しました。
+%
+%    \begin{macrocode}
+% \@ifundefined{BibTeX}
+%    {\def\BibTeX{{\rmfamily B\kern-.05em%
+%     \textsc{i\kern-.025em b}\kern-.08em%
+%     T\kern-.1667em\lower.7ex\hbox{E}\kern-.125emX}}}{}
+\DeclareRobustCommand{\BibTeX}{B\kern-.05em\小{I\kern-.025em B}%
+  \ifx\f@family\cmr\kern-.08em\else\kern-.15em\fi\TeX}
+\DeclareRobustCommand{\SliTeX}{%
+  S\kern-.06emL\kern-.18em\上小{I}\kern -.03em\TeX}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+%
+% \section{\texttt{amsmath} との衝突の回避}
+%
+% \begin{macro}{\ltx@ifnextchar}
+% \begin{macro}{\ProvidesFile}
+%
+% \texttt{amsmath} パッケージでは行列中で |\@ifnextchar|
+% を再定義していますが，これが\LaTeX の |\ProvidesFile|
+% で悪さをする例がFTeXで報告されています。
+% これを避けるためのtDBさんのフィックスを挿入しておきます。
+% 副作用がありましたらお知らせください。
+%
+% この現象については私のTeX掲示板 4273〜，16058〜 で議論がありました。
+% なお，AMS関係のパッケージを読み込む際に psamsfonts オプションを
+% 与えても回避できます（Thanks: しっぽ愛好家さん）。
+%
+%    \begin{macrocode}
+\let\ltx@ifnextchar\@ifnextchar
+\def\ProvidesFile#1{%
+  \begingroup
+    \catcode`\ 10 %
+    \ifnum \endlinechar<256 %
+      \ifnum \endlinechar>\m@ne
+        \catcode\endlinechar 10 %
+      \fi
+    \fi
+    \@makeother\/%
+    \@makeother\&%
+    \ltx@ifnextchar[{\@providesfile{#1}}{\@providesfile{#1}[]}}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \section{初期設定}
+%
+% \paragraph{いろいろな語}
+%
+% \begin{macro}{\prepartname}
+% \begin{macro}{\postpartname}
+% \begin{macro}{\prechaptername}
+% \begin{macro}{\postchaptername}
+% \begin{macro}{\presectionname}
+% \begin{macro}{\postsectionname}
+%    \begin{macrocode}
+\newcommand{\prepartname}{\if@english Part~\else 第\fi}
+\newcommand{\postpartname}{\if@english\else 部\fi}
+%<book>\newcommand{\prechaptername}{\if@english Chapter~\else 第\fi}
+%<book>\newcommand{\postchaptername}{\if@english\else 章\fi}
+\newcommand{\presectionname}{}%  第
+\newcommand{\postsectionname}{}% 節
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\contentsname}
+% \begin{macro}{\listfigurename}
+% \begin{macro}{\listtablename}
+%    \begin{macrocode}
+\newcommand{\contentsname}{\if@english Contents\else 目次\fi}
+\newcommand{\listfigurename}{\if@english List of Figures\else 図目次\fi}
+\newcommand{\listtablename}{\if@english List of Tables\else 表目次\fi}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\refname}
+% \begin{macro}{\bibname}
+% \begin{macro}{\indexname}
+%    \begin{macrocode}
+\newcommand{\refname}{\if@english References\else 参考文献\fi}
+\newcommand{\bibname}{\if@english Bibliography\else 参考文献\fi}
+\newcommand{\indexname}{\if@english Index\else 索引\fi}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\figurename}
+% \begin{macro}{\tablename}
+%    \begin{macrocode}
+%<!jspf>\newcommand{\figurename}{\if@english Fig.~\else 図\fi}
+%<jspf>\newcommand{\figurename}{Fig.~}
+%<!jspf>\newcommand{\tablename}{\if@english Table.~\else 表\fi}
+%<jspf>\newcommand{\tablename}{Table~}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\appendixname}
+% \begin{macro}{\abstractname}
+%    \begin{macrocode}
+\newcommand{\appendixname}{\if@english Appendix~\else 付録\fi}
+%<!book>\newcommand{\abstractname}{\if@english Abstract\else 概要\fi}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \paragraph{今日の日付}
+%
+% \LaTeX で処理した日付を出力します。
+% |jarticle| などと違って，標準を西暦にし，余分な空白が入らないように改良しました。
+% 和暦にするには |\和暦| と書いてください。
+%
+% \begin{macro}{\today}
+%    \begin{macrocode}
+\newif\if西暦 \西暦true
+\def\西暦{\西暦true}
+\def\和暦{\西暦false}
+\newcount\heisei \heisei\year \advance\heisei-1988\relax
+\def\today{%
+  \if@english
+    \ifcase\month\or
+      January\or February\or March\or April\or May\or June\or
+      July\or August\or September\or October\or November\or December\fi
+      \space\number\day, \number\year
+  \else
+    \if西暦
+      \number\year 年
+      \number\month 月
+      \number\day 日
+    \else
+      平成\number\heisei 年
+      \number\month 月
+      \number\day 日
+    \fi
+  \fi}
+%    \end{macrocode}
+% \end{macro}
+%
+% \paragraph{ハイフネーション例外}
+%
+% \TeX のハイフネーションルールの補足です（ペンディング：eng-lish）
+%
+%    \begin{macrocode}
+\hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script}
+%    \end{macrocode}
+%
+% \paragraph{ページ設定}
+%
+% ページ設定の初期化です。
+%
+%    \begin{macrocode}
+%<article|kiyou>\if@slide \pagestyle{empty} \else \pagestyle{plain} \fi
+%<book>\if@report \pagestyle{plain} \else \pagestyle{headings} \fi
+%<jspf>\pagestyle{headings}
+\pagenumbering{arabic}
+\if@twocolumn
+  \twocolumn
+  \sloppy
+  \flushbottom
+\else
+  \onecolumn
+  \raggedbottom
+\fi
+\if@slide
+  \renewcommand\kanjifamilydefault{\gtdefault}
+  \renewcommand\familydefault{\sfdefault}
+  \raggedright
+  \xkanjiskip=0.1em\relax
+\fi
+%    \end{macrocode}
+%
+% 以上です。
+%
+% \Finale
+%
+\endinput
diff --git a/Master/texmf-dist/source/platex/jsclasses/jsclasses.ins b/Master/texmf-dist/source/platex/jsclasses/jsclasses.ins
new file mode 100644
index 00000000000..840a45acf8f
--- /dev/null
+++ b/Master/texmf-dist/source/platex/jsclasses/jsclasses.ins
@@ -0,0 +1,7 @@
+\def\batchfile{jsclasses.ins}
+\input docstrip.tex
+\keepsilent
+\generateFile{jsarticle.cls}{f}{\from{jsclasses.dtx}{article}}
+\generateFile{jsbook.cls}{f}{\from{jsclasses.dtx}{book}}
+\generateFile{jspf.cls}{f}{\from{jsclasses.dtx}{jspf}}
+\generateFile{kiyou.cls}{f}{\from{jsclasses.dtx}{kiyou}}
diff --git a/Master/texmf-dist/source/platex/jsclasses/jsverb.dtx b/Master/texmf-dist/source/platex/jsclasses/jsverb.dtx
new file mode 100644
index 00000000000..b096d503e0e
--- /dev/null
+++ b/Master/texmf-dist/source/platex/jsclasses/jsverb.dtx
@@ -0,0 +1,336 @@
+% ^^A -*- japanese-latex -*-
+% \CheckSum{221}
+% \iffalse
+%
+%   jsverb.dtx
+%   verb/verbatim 関係マクロ (煮ても焼いてもかまいません)
+%   okumura@edu.mie-u.ac.jp
+%   http://oku.edu.mie-u.ac.jp/~okumura/
+%
+%  「煮ても焼いてもかまいません」で困る場合はmodified BSDということでお願いします。
+%
+%<jsverb>\NeedsTeXFormat{pLaTeX2e}
+%<jsverb>\ProvidesFile{jsverb.sty}[2007/01/28 okumura]
+%<*driver>
+\documentclass{jsarticle}
+\usepackage{doc}
+\usepackage{okumacro}
+\usepackage{jsverb}
+\addtolength{\textwidth}{-1in}
+\addtolength{\evensidemargin}{1in}
+\addtolength{\oddsidemargin}{1in}
+\addtolength{\marginparwidth}{1in}
+\setlength\marginparsep{5pt}
+\setlength\marginparpush{0pt}
+% \OnlyDescription
+\DisableCrossrefs
+\setcounter{StandardModuleDepth}{1}
+\GetFileInfo{jsverb.sty}
+\begin{document}
+  \DocInput{jsverb.dtx}
+\end{document}
+%</driver>
+%
+% \fi
+%
+% \title{\pLaTeXe 用 \texttt{verb...} 関係マクロ}
+% \author{奥村晴彦}
+% \date{\filedate}
+% \maketitle
+%
+% \StopEventually{}
+%
+% \MakeShortVerb{\|}
+%
+% ［2008-01-05追記］|http://www.cl.cam.ac.uk/~mgk25/ucs/quotes.html|
+% が参考になります。|upquote.sty| というものもありました。
+%
+% 旧 |okuverb| は\LaTeX の |\verb| 命令と |verbatim| 環境を拡張したもので，
+% |yen| オプションを付けると \ttbslash\ が \ttyen\ になるほか，|verbatim| 環境の
+% 組み方を簡単にカスタマイズできるようにしたものです。
+%
+% 一方，\TeX ではASCII |0x60|の |`| と|0x27|の |'| を入力すると
+% それぞれ \texttt{`} と \texttt{'} になります。
+% これらは文字としてはそれぞれ
+% U+2018 LEFT SINGLE QUOTATION MARK，
+% U+2019 RIGHT SINGLE QUOTATION MARKですので，
+% dvipdfmxでPDFに変換して日本語テキストにコピー＆ペーストすると，
+% 全角文字になってしまいます。
+% |\verb| や |verbatim| はプログラムリストによく用いるので，
+% 意図としてはそれぞれU+0060 GRAVE ACCENT，U+0027 APOSTROPHEに
+% なってほしいと思います。
+% そこで，ZRさんのご助言
+% \begin{itemize}
+% \item |http://oku.edu.mie-u.ac.jp/~okumura/texfaq/qa/46673.html|
+% \item |http://oku.edu.mie-u.ac.jp/~okumura/texfaq/qa/46688.html|
+% \end{itemize}
+% にしたがって旧 |okuverb| を大幅に書き直したものがこの |jsverb| です。
+% 
+% なお，\ttyen\ をコピー＆ペーストした場合は，
+% OT1エンコーディングで使えば Y= という2文字に，
+% T1エンコーディングで使えばU+00A5 YEN SIGNになります。
+% バックスラッシュ（U+005C REVERSE SOLIDUS）にしたい場合は \ttbslash\
+% のほうをお使いください。
+% 
+% なお，|doc.sty| が提供する |macrocode| 環境は書き換えていませんので，
+% 以下のリストでは |` '| が \texttt{` '} になっています。
+% 
+% 以下は内部の解説です。
+% 
+% まずオプションの宣言です。
+%
+% \begin{macro}{\if@yen}
+%
+% |\verb|，|verbatim| 等で |\| を円印 \ttyen\ にするかどうかのスイッチです。
+% これはデフォールトで偽ですが，|yen| オプションで真になります。
+%
+%    \begin{macrocode}
+%<*jsverb>
+\newif\if@yen \@yenfalse
+\DeclareOption{yen}{\@yentrue}
+\ProcessOptions\relax
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% T1を使うのにTS1がない場合の対処です。
+% |textcomp.sty| は副作用があるので |ts1enc.def|
+% を読み込むだけにしています（これは複数回読み込んでも
+% 問題なさそうです）。
+%
+%    \begin{macrocode}
+\AtBeginDocument{%
+  \expandafter\ifx\csname T@T1\endcsname\relax \else
+    \expandafter\ifx\csname T@TS1\endcsname\relax
+      \input{ts1enc.def}%
+  \fi\fi
+}
+%    \end{macrocode}
+%
+% \begin{macro}{\y@n}
+% \begin{macro}{\ttyen}
+%
+% 簡単な円記号の定義です。後でT1エンコーディングの場合は再定義します。
+%
+%    \begin{macrocode}
+\def\y@n{Y\llap=}
+\def\ttyen{{\ttfamily\y@n}}
+%    \end{macrocode}
+%
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\ttbslash}
+%
+% タイプライタフォントのバックスラッシュです。
+%
+%    \begin{macrocode}
+\def\ttbslash{{\ttfamily\char`\\}}
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}{\BS}
+%
+% タイプライタフォントの円記号かバックスラッシュのどちらかになります。
+%
+%    \begin{macrocode}
+\if@yen
+  \let\BS=\ttyen
+\else
+  \let\BS=\ttbslash
+\fi
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}{\verbh@@k}
+%
+% |\verb|，|verbatim| 等で使うフックです。
+%
+%    \begin{macrocode}
+\if@yen
+  \begingroup
+    \catcode`\|=0  \catcode`\\=13
+    |gdef|verbh@@k{|catcode`|\=13 |let\=|y@n}
+  |endgroup
+\else
+  \let\verbh@@k=\relax
+\fi
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}{\verbh@@@k}
+% \begin{macro}{\verbh@@@k@}
+%
+% さらなるフックです。
+%
+%    \begin{macrocode}
+\begingroup
+  \catcode`\'=13
+  \catcode`\`=13
+  \gdef\verbh@@@k{\catcode39=13 \let'=\@rq \catcode96=13 \let`=\@lq}
+\endgroup
+\def\@OTone{OT1}
+\def\@Tone{T1}
+\def\verbh@@@k@{%
+  \ifx\f@encoding\@OTone
+    \chardef\@lq=18
+    \chardef\@rq=13
+    \verbh@@@k
+  \else
+    \ifx\f@encoding\@Tone
+      \chardef\@lq=0
+      \def\@rq{{\fontencoding{TS1}\selectfont\textquotesingle}}%
+      \def\y@n{{\fontencoding{TS1}\selectfont\textyen}}%
+      \verbh@@@k
+    \fi
+  \fi
+}
+%    \end{macrocode}
+%
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\verbatim@font}
+%
+% これは |latex.ltx| に |\normalfont\ttfamily|
+% と定義されていますが，|\bfseries| |\verb...| といった使い方もしたいので，
+% |\normalfont| は削除してしまいました。
+%
+%    \begin{macrocode}
+\def\verbatim@font{\ttfamily}
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}{\verb}
+%
+% 元は数式モード時だけ |\hbox| に入るようになっていましたが，
+% |\noautoxspacing| の効果を得るため，常に |\hbox| に入るようにしました。
+%
+%    \begin{macrocode}
+\def\verb{%
+  \leavevmode\hbox
+  \bgroup
+    \verb@eol@error \let\do\@makeother \dospecials
+    \verbatim@font\@noligs
+    \noautoxspacing
+    \verbh@@k \verbh@@@k@
+    \@ifstar\@sverb\@verb}
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}{\@xverbatim}
+% \begin{macro}{\@sxverbatim}
+%
+% |\| の |\catcode| を12から13に変えました。
+%
+%    \begin{macrocode}
+\if@yen
+\begingroup \catcode `|=0 \catcode `[= 1
+\catcode`]=2 \catcode `\{=12 \catcode `\}=12
+\catcode`\\=13 |gdef|@xverbatim#1\end{verbatim}[#1|end[verbatim]]
+|gdef|@sxverbatim#1\end{verbatim*}[#1|end[verbatim*]]
+|endgroup
+\fi
+%    \end{macrocode}
+%
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\verbatimleftmargin}
+%
+% |verbatim| 環境の余分な左マージンです。
+% 文書ファイル中などで自由に再定義してください。
+%
+%    \begin{macrocode}
+\newdimen\verbatimleftmargin
+\verbatimleftmargin=2zw
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}{\verbatimsize}
+%
+% |verbatim| 環境のフォントサイズです。
+% 文書ファイル中などで自由に再定義してください。
+%
+%    \begin{macrocode}
+\def\verbatimsize{\fontsize{9}{11pt}\selectfont}
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}{\@verbatim}
+%
+% |verbatim| 環境で使うフォントの行送りとサイズ（|\f@size|）が
+% 本文と違うと，前後の間隔が違ってしまいます。それを補正します。
+%
+%    \begin{macrocode}
+\def\@verbatim{%
+  \trivlist \item\relax
+  \if@minipage
+    \verbatimsize
+  \else
+    \vskip\baselineskip
+    \vskip-\f@size pt
+    \verbatimsize
+    \vskip-\baselineskip
+    \vskip\f@size pt
+    \vskip\parskip
+  \fi
+  \leftskip\@totalleftmargin
+  \if@minipage \else
+    \advance \leftskip \verbatimleftmargin
+  \fi
+  \rightskip\z@skip
+  \parindent\z@
+  \parfillskip\@flushglue
+  \parskip\z@skip
+  \@@par
+  \@tempswafalse
+  \def\par{%
+    \if@tempswa
+      \leavevmode \null \@@par\penalty\interlinepenalty
+    \else
+      \@tempswatrue
+      \ifhmode\@@par\penalty\interlinepenalty\fi
+    \fi}%
+  \let\do\@makeother \dospecials
+  \obeylines \verbatim@font \@noligs
+  \noautoxspacing
+  \verbh@@k \verbh@@@k@
+  \hyphenchar\font\m@ne
+  \everypar \expandafter{\the\everypar \unpenalty}%
+}
+%    \end{macrocode}
+%
+% \end{macro}
+%
+% 以上で終わりです。
+%
+%    \begin{macrocode}
+%</jsverb>
+\endinput
+%    \end{macrocode}
+%
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+%%
+% \Finale
diff --git a/Master/texmf-dist/source/platex/jsclasses/jsverb.ins b/Master/texmf-dist/source/platex/jsclasses/jsverb.ins
new file mode 100644
index 00000000000..db3a24454ba
--- /dev/null
+++ b/Master/texmf-dist/source/platex/jsclasses/jsverb.ins
@@ -0,0 +1,4 @@
+\def\batchfile{jsverb.ins}
+\input docstrip.tex
+\keepsilent
+\generateFile{jsverb.sty}{f}{\from{jsverb.dtx}{jsverb}}
diff --git a/Master/texmf-dist/source/platex/jsclasses/morisawa.dtx b/Master/texmf-dist/source/platex/jsclasses/morisawa.dtx
new file mode 100644
index 00000000000..853737049bd
--- /dev/null
+++ b/Master/texmf-dist/source/platex/jsclasses/morisawa.dtx
@@ -0,0 +1,311 @@
+% ^^A -*- japanese-latex -*-
+% \CheckSum{142}
+% \iffalse
+%
+%  モリサワ基本5書体を使うためのパッケージ
+%
+%  奥村晴彦 <okumura@matsusaka-u.ac.jp>
+%
+%  [2002-12-19] いろいろなものに収録していただく際にライセンスを明確にする
+%  必要が生じてきました。アスキーのものが最近はmodified BSDライセンスになっ
+%  ていますので，私のものもそれに準じてmodified BSDとすることにします。
+%
+%<morisawa>\NeedsTeXFormat{pLaTeX2e}
+%<morisawa>\ProvidesPackage{morisawa}[2003/02/09 okumura]
+%<*driver>
+\documentclass{jsarticle}
+\usepackage{doc}
+\usepackage{morisawa}
+\addtolength{\textwidth}{-1in}
+\addtolength{\evensidemargin}{1in}
+\addtolength{\oddsidemargin}{1in}
+\addtolength{\marginparwidth}{1in}
+\setlength\marginparsep{5pt}
+\setlength\marginparpush{0pt}
+% \OnlyDescription
+\DisableCrossrefs
+\setcounter{StandardModuleDepth}{1}
+\GetFileInfo{morisawa.sty}
+\begin{document}
+  \DocInput{morisawa.dtx}
+\end{document}
+%</driver>
+%
+% \fi
+%
+% \title{モリサワ基本5書体パッケージ}
+% \author{奥村晴彦}
+% \date{\filedate}
+% \maketitle
+%
+% \MakeShortVerb{\|}
+%
+% \section{はじめに}
+%
+% これはモリサワ基本5書体を使うためのパッケージです。
+% ご自由に修正してお使いください。
+%
+% モリサワ基本5書体とは
+% \begin{itemize}
+% \item リュウミンL（Ryumin-Light），
+% \item 中ゴシックBBB（GothicBBB-Medium）
+% \item 太ミン（FutoMinA101-Bold）
+% \item 太ゴ（FutoGoB101-Bold）
+% \item じゅん（Jun101-Light）
+% \end{itemize}
+% のことです。
+%
+% これらを使うには，アスキーが配布している |morisawa.tar.gz|
+% が必要です。また，dvips(k)のmapファイルに次のように書いておきます。
+%
+%\begin{verbatim}
+% rml             Ryumin-Light-H
+% rmlv            Ryumin-Light-V
+% gbm             GothicBBB-Medium-H
+% gbmv            GothicBBB-Medium-V
+% ryumin-l        Ryumin-Light-H
+% ryumin-l-v      Ryumin-Light-V
+% gtbbb-m         GothicBBB-Medium-H
+% gtbbb-m-v       GothicBBB-Medium-V
+% futomin-b       FutoMinA101-Bold-H
+% futomin-b-v     FutoMinA101-Bold-V
+% futogo-b        FutoGoB101-Bold-H
+% futogo-b-v      FutoGoB101-Bold-V
+% jun101-l        Jun101-Light-H
+% jun101-l-v      Jun101-Light-V
+%\end{verbatim}
+%
+% もともとPSプリンタに実装されている場合以外は，
+% モリサワ5書体を買い揃えてもしかたがありませんが，
+% これらの名前は標準的なので，
+% 実際の出力時には他のフォントで置き換える場合でも，
+% これらの名前を仮に使っておくと便利です。
+%
+% たとえば『［改訂版］\LaTeXe 美文書作成入門』（2000年）
+% ではヒラギノに置き換えるために dvips(k)のmapファイルに
+% 次のように書いておきました。
+%
+%\begin{verbatim}
+% rml             Ryumin-Light-H
+% rmlv            Ryumin-Light-V
+% gbm             GothicBBB-Medium-H
+% gbmv            GothicBBB-Medium-V
+% ryumin-l        HiraginoMin-W3-H
+% ryumin-l-v      HiraginoMin-W3-V
+% gtbbb-m         HiraginoKaku-W5-H
+% gtbbb-m-v       HiraginoKaku-W5-V
+% futomin-b       HiraginoMin-W3-H
+% futomin-b-v     HiraginoMin-W3-H
+% futogo-b        HiraginoKaku-W5-H
+% futogo-b-v      HiraginoKaku-W5-V
+% jun101-l        HiraginoKaku-W2-H
+% jun101-l-v      HiraginoKaku-W2-V
+%\end{verbatim}
+%
+% \section{簡単な使い方}
+%
+% |{\kanjifamily{rml}\selectfont リュウミン}| → {\kanjifamily{rml}\selectfont リュウミン}
+%
+% |{\kanjifamily{gbm}\selectfont 中ゴシック}| → {\kanjifamily{gbm}\selectfont 中ゴシック}
+%
+% |{\kanjifamily{fma}\selectfont 太ミン}| → {\kanjifamily{fma}\selectfont 太ミン}
+%
+% |{\kanjifamily{gbm}\fontseries{bx}\selectfont 太ゴ}| → {\kanjifamily{gbm}\fontseries{bx}\selectfont 太ゴ}
+%
+% |{\kanjifamily{jun}\selectfont じゅん}| → {\kanjifamily{jun}\selectfont じゅん}
+%
+% |\textgt{\bfseries 太ゴ}| と書くと\textgt{\bfseries 太ゴ}になります。
+%
+% |\textbf{\gtfamily 太ゴ}| と書いても\textbf{\gtfamily 太ゴ}になります。
+%
+% |\textmg{じゅん}| または |{\mgfamily じゅん}| と書くと\textmg{じゅん}になります。
+%
+% |\texttt{じゅん}| や |{\ttfamily じゅん}| でも\texttt{じゅん}になります。
+%
+% 本文を{\kanjifamily{fma}\selectfont 太ミン}にするには |\renewcommand{\mcdefault}{fma}| とします。
+%
+% \StopEventually{}
+% 
+% \section{オプションの定義}
+% 
+%    \begin{macrocode}
+%<*morisawa>
+\newif\if@fake \@fakefalse
+\DeclareOption{fake}{\@faketrue}
+\ProcessOptions\relax
+%    \end{macrocode}
+% 
+% \section{各フォントの定義}
+%
+% \texttt{fd} ファイルを使用するのはやめました。
+%
+% 明朝体です。ボールドを太ミンにするには
+%\begin{verbatim}
+% \DeclareFontShape{JY1}{rml}{bx}{n}{<-> s * [0.961] FutoMinA101-Bold-J}{}
+%\end{verbatim}
+% とすればいいのですが，ここでは互換性のため明朝のボールドを中ゴシックにします。
+%
+%    \begin{macrocode}
+\DeclareKanjiFamily{JY1}{rml}{}
+\DeclareKanjiFamily{JT1}{rml}{}
+\if@fake
+  \DeclareFontShape{JY1}{rml}{m}{n}{<-> s * [0.961] jis}{}
+  \DeclareFontShape{JY1}{rml}{bx}{n}{<-> s * [0.961] jisg}{}
+  \DeclareFontShape{JT1}{rml}{m}{n}{<-> s * [0.961] tmin10}{}
+  \DeclareFontShape{JT1}{rml}{bx}{n}{<-> s * [0.961] tgoth10}{}
+\else
+  \DeclareFontShape{JY1}{rml}{m}{n}{<-> s * [0.961] Ryumin-Light-J}{}
+  \DeclareFontShape{JY1}{rml}{bx}{n}{<-> s * [0.961] GothicBBB-Medium-J}{}
+  \DeclareFontShape{JT1}{rml}{m}{n}{<-> s * [0.961] Ryumin-Light-V}{}
+  \DeclareFontShape{JT1}{rml}{bx}{n}{<-> s * [0.961] GothicBBB-Medium-V}{}
+\fi
+%    \end{macrocode}
+%
+% 太明朝体です。
+%
+%    \begin{macrocode}
+\DeclareKanjiFamily{JY1}{fma}{}
+\DeclareKanjiFamily{JT1}{fma}{}
+\if@fake
+  \DeclareFontShape{JY1}{fma}{m}{n}{<-> s * [0.961] jis}{}
+  \DeclareFontShape{JY1}{fma}{bx}{n}{<-> s * [0.961] jisg}{}
+  \DeclareFontShape{JT1}{fma}{m}{n}{<-> s * [0.961] tmin10}{}
+  \DeclareFontShape{JT1}{fma}{bx}{n}{<-> s * [0.961] tgoth10}{}
+\else
+  \DeclareFontShape{JY1}{fma}{m}{n}{<-> s * [0.961] FutoMinA101-Bold-J}{}
+  \DeclareFontShape{JY1}{fma}{bx}{n}{<-> s * [0.961] GothicBBB-Medium-J}{}
+  \DeclareFontShape{JT1}{fma}{m}{n}{<-> s * [0.961] FutoMinA101-Bold-V}{}
+  \DeclareFontShape{JT1}{fma}{bx}{n}{<-> s * [0.961] FutoGoB101-Bold-V}{}
+\fi
+%    \end{macrocode}
+%
+% ゴシック体です。ボールド体にすると太ゴになります。
+%
+%    \begin{macrocode}
+\DeclareKanjiFamily{JY1}{gbm}{}
+\DeclareKanjiFamily{JT1}{gbm}{}
+\if@fake
+  \DeclareFontShape{JY1}{gbm}{m}{n}{<-> s * [0.961] jisg}{}
+  \DeclareFontShape{JY1}{gbm}{bx}{n}{<-> s * [0.961] jisg}{}
+  \DeclareFontShape{JT1}{gbm}{m}{n}{<-> s * [0.961] tgoth10}{}
+  \DeclareFontShape{JT1}{gbm}{bx}{n}{<-> s * [0.961] tgoth10}{}
+\else
+  \DeclareFontShape{JY1}{gbm}{m}{n}{<-> s * [0.961] GothicBBB-Medium-J}{}
+  \DeclareFontShape{JY1}{gbm}{bx}{n}{<-> s * [0.961] FutoGoB101-Bold-J}{}
+  \DeclareFontShape{JT1}{gbm}{m}{n}{<-> s * [0.961] GothicBBB-Medium-V}{}
+  \DeclareFontShape{JT1}{gbm}{bx}{n}{<-> s * [0.961] FutoGoB101-Bold-V}{}
+\fi
+%    \end{macrocode}
+%
+% 丸ゴシックの「じゅん101」です。
+%
+%    \begin{macrocode}
+\DeclareKanjiFamily{JY1}{jun}{}
+\DeclareKanjiFamily{JT1}{jun}{}
+\if@fake
+  \DeclareFontShape{JY1}{jun}{m}{n}{<-> s * [0.961] jisg}{}
+  \DeclareFontShape{JY1}{jun}{bx}{n}{<->ssub*jun/m/n}{}
+  \DeclareFontShape{JT1}{jun}{m}{n}{<-> s * [0.961] tgoth10}{}
+  \DeclareFontShape{JT1}{jun}{bx}{n}{<->ssub*jun/m/n}{}
+\else
+  \DeclareFontShape{JY1}{jun}{m}{n}{<-> s * [0.961] Jun101-Light-J}{}
+  \DeclareFontShape{JY1}{jun}{bx}{n}{<->ssub*jun/m/n}{}
+  \DeclareFontShape{JT1}{jun}{m}{n}{<-> s * [0.961] Jun101-Light-V}{}
+  \DeclareFontShape{JT1}{jun}{bx}{n}{<->ssub*jun/m/n}{}
+\fi
+%    \end{macrocode}
+%
+% \section{フォント関連コマンド}
+%
+% 標準の明朝を \texttt{rml}，標準のゴシックを \texttt{gbm} とします。
+% 欧文にサンセリフ体を選ぶと和文はゴシック体になるようにします。
+%
+%    \begin{macrocode}
+\renewcommand{\mcdefault}{rml}
+\renewcommand{\gtdefault}{gbm}
+% \DeclareRobustCommand\gtfamily{%
+%   \not@math@alphabet\gtfamily\textgt
+%   \romanfamily\sfdefault
+%   \kanjifamily\gtdefault
+%   \selectfont}
+\DeclareRobustCommand\sffamily{%
+  \not@math@alphabet\sffamily\mathsf
+  \romanfamily\sfdefault
+  \kanjifamily\gtdefault
+  \selectfont}
+%    \end{macrocode}
+%
+% \begin{macro}{\mgfamily}
+% \begin{macro}{\mgdefault}
+% \begin{macro}{\textmg}
+%
+% 丸ゴシック関連のコマンド |\mgfamily|，|\mgdefault|，|\textmg|
+% を新設します。標準の丸ゴシックを \texttt{jun} とします。
+%
+% 欧文にタイプライタ体を選ぶと和文は丸ゴシック体になるようにしていましたが，
+% 中ゴシック体のほうがいいというご意見で，元に戻しました。
+% いや，それは単にmapファイルの問題だ，というのでまた丸ゴシック体に戻りました。|^^;|
+%
+%    \begin{macrocode}
+\newcommand{\mgdefault}{jun}
+\DeclareRobustCommand\mgfamily{%
+  \not@math@alphabet\mgfamily\textmg
+% \romanfamily\ttdefault
+  \kanjifamily\mgdefault
+  \selectfont}
+\DeclareRobustCommand\ttfamily{%
+  \not@math@alphabet\ttfamily\mathtt
+  \romanfamily\ttdefault
+  \kanjifamily\mgdefault
+% \kanjifamily\gtdefault
+  \selectfont}
+% \DeclareTextFontCommand{\textmg}{\mgfamily}
+\def\textmg#1{\relax\ifmmode\hbox\fi{\mgfamily #1}}
+%    \end{macrocode}
+%
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% 基準となる長さを再設定をします。
+% これをしておかないと，標準ドキュメントクラスと組み合わせると
+% 段落の字下げが揃わなくなります。
+%
+%    \begin{macrocode}
+\normalfont\normalsize
+\setbox0\hbox{\char\euc"A1A1}%
+\setlength\Cht{\ht0}
+\setlength\Cdp{\dp0}
+\setlength\Cwd{\wd0}
+\setlength\Cvs{\baselineskip}
+\setlength\Chs{\wd0}
+\setlength\parindent{1\Cwd}
+%    \end{macrocode}
+%
+% 以上です。
+%
+%    \begin{macrocode}
+%</morisawa>
+\endinput
+%    \end{macrocode}
+%
+% ^^A \endinput の後に \CharacterTable を書いておけば，子ファイルには
+% ^^A 出力されません。チェックは *.dtx を処理したときにしてくれます。
+%
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+%%
+% \Finale
diff --git a/Master/texmf-dist/source/platex/jsclasses/morisawa.ins b/Master/texmf-dist/source/platex/jsclasses/morisawa.ins
new file mode 100644
index 00000000000..b96d3dbd6d7
--- /dev/null
+++ b/Master/texmf-dist/source/platex/jsclasses/morisawa.ins
@@ -0,0 +1,4 @@
+\def\batchfile{morisawa.ins}
+\input docstrip.tex
+\keepsilent
+\generateFile{morisawa.sty}{f}{\from{morisawa.dtx}{morisawa}}
diff --git a/Master/texmf-dist/source/platex/jsclasses/okumacro.dtx b/Master/texmf-dist/source/platex/jsclasses/okumacro.dtx
new file mode 100644
index 00000000000..5252b07e935
--- /dev/null
+++ b/Master/texmf-dist/source/platex/jsclasses/okumacro.dtx
@@ -0,0 +1,1065 @@
+% ^^A -*- japanese-latex -*-
+% \CheckSum{1367}
+% \iffalse
+%
+%   okumacro.dtx
+%   私家版マクロ集 (煮ても焼いてもかまいません)
+%   okumura@matsusaka-u.ac.jp
+%   http://www.matsusaka-u.ac.jp/~okumura/
+%
+%  [2002-12-19] いろいろなものに収録していただく際にライセンスを明確にする
+%  必要が生じてきました。アスキーのものが最近は（modified）BSDライセンスになっ
+%  ていますので，私のものもそれに準じて（modified）BSDとすることにします。
+%
+%<okumacro>\NeedsTeXFormat{pLaTeX2e}
+%<okumacro>\ProvidesPackage{okumacro}[2010/03/14 okumura]
+%<*driver>
+\documentclass{jsarticle}
+\usepackage{doc}
+\usepackage{okumacro}
+\addtolength{\textwidth}{-1in}
+\addtolength{\evensidemargin}{1in}
+\addtolength{\oddsidemargin}{1in}
+\addtolength{\marginparwidth}{1in}
+\setlength\marginparsep{5pt}
+\setlength\marginparpush{0pt}
+% \OnlyDescription
+\DisableCrossrefs
+\setcounter{StandardModuleDepth}{1}
+\GetFileInfo{okumacro.sty}
+\begin{document}
+  \DocInput{okumacro.dtx}
+\end{document}
+%</driver>
+%
+% \fi
+%
+% \title{私家版マクロ集}
+% \author{奥村晴彦}
+% \date{\filedate}
+% \maketitle
+%
+% \MakeShortVerb{\|}
+%
+% \section{はじめに}
+%
+% これは『\pLaTeXe 美文書作成入門』などの本を作ったときに使ったマクロを
+% 集めたものです。作っただけでテストもしていないものなども混じっている
+% 可能性があります。概して他の方にはあまり利用価値がないものです。
+%
+% \section{数値集}
+%
+% \begin{itemize}
+% \item B5: $182\,\mathrm{mm} \times 257\,\mathrm{mm}$
+% \item B4: $257\,\mathrm{mm} \times 364\,\mathrm{mm}$
+% \item A5: $148\,\mathrm{mm} \times 210\,\mathrm{mm}$
+% \item A4: $210\,\mathrm{mm} \times 297\,\mathrm{mm}$
+% \item $1\,\mathrm{in} = 72.27\,\mathrm{pt} = 2.54\,\mathrm{cm}$
+% \item $1\,\mathrm{Q} = 0.25\,\mathrm{mm} = 0.711319\,\mathrm{pt}$
+% \item $1\,\mathrm{pt} = 1.405839\,\mathrm{Q} = 0.3514598\,\mathrm{mm}$
+% \item min10: $1\,\mathrm{zw} = 9.62216\,\mathrm{pt}
+%       = 3.3818\,\mathrm{mm} = 13.5272\,\mathrm{Q}$,
+%       $1\,\mathrm{zh} = 9.16443\,\mathrm{pt}$
+% \item cmr10: $1\,\mathrm{em} = 10\,\mathrm{pt}$,
+%       $1\,\mathrm{ex} = 4.30554\,\mathrm{pt}$
+% \end{itemize}
+%
+% \StopEventually{}
+%
+% \section{雑マクロ}
+%
+% 以下が実際のマクロ集です。
+%
+%    \begin{macrocode}
+%<*okumacro>
+%    \end{macrocode}
+%
+% \begin{macro}{\ruby}
+%
+% |\ruby{奥}{おく}\ruby{村}{むら}| で\ruby{奥}{おく}\ruby{村}{むら}と
+% なります。|\ruby{奥村}{おくむら}| でもかまいませんが，奥と村の間で
+% 行分割ができなくなります。
+%
+% 和文ベースラインが $88:12$ の位置にあることを仮定して支柱を入れました。
+%
+% バグ： |1\ruby{奥}{おく}1| のような場合に |\xkanjiskip| が入りません。
+%
+% [2003-02-09] ゴシック体のルビがゴシック体になるバグ？を修正しました。
+%
+% [2003-05-29] 齋藤修三郎さんのOTFパッケージのexpertオプションに対応しました。
+%
+% [2003-09-01] オプション引数で幅が指定できるようにしました [2003-10-02バグフィックス]。
+%
+% [2010-03-14] ルビの直後で改行できなかったので，
+% 親字が和文と仮定して直後に |\kanjiskip| を入れました。
+%
+%    \begin{macrocode}
+\providecommand{\rubyfamily}{}
+\def\kanjistrut{\vrule \@height0.88zw \@depth0.12zw \@width\z@}
+\newcommand{\ruby}[3][0zw]{%
+  \leavevmode
+  \dimen1=#1\relax
+  \dimen3=\f@size\p@
+  \setbox1=\hbox{#2}%
+  \setbox3=\hbox{\rubyfamily\fontsize{0.5\dimen3}{0pt}\selectfont #3}%
+  \ifdim\dimen1=\z@
+    \ifdim\wd1>\wd3 \dimen1=\wd1 \else \dimen1=\wd3 \fi
+  \else
+    \ifdim\dimen1<\wd1
+      \dimen1=\wd1
+    \fi
+  \fi
+  \hbox{%
+    \kanjiskip=0pt plus 2fil
+    \xkanjiskip=0pt plus 2fil
+    \vbox{%
+      \hbox to \dimen1{\rubyfamily
+        \fontsize{0.5\dimen3}{0pt}\selectfont \kanjistrut
+        \ifdim\dimen1<\wd3
+          \hss\unhbox3\hss
+        \else
+          \hfil\unhbox3\hfil
+        \fi
+      }%
+      \nointerlineskip
+      \hbox to \dimen1{\kanjistrut\hfil\unhbox1\hfil}}}\hskip\kanjiskip\relax}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\Ruby}
+%
+% ルビが両側にルビの半文字分ずつはみ出してもいい場合に使います。
+% ただ，これを連続して使うと，ルビが重なり合ってしまいます。
+%
+% これはあまり存在意義がないのでとりあえず消しておきます。
+%
+%    \begin{macrocode}
+% \newcommand{\Ruby}[2]{%
+%   \leavevmode
+%   \setbox0=\hbox{#1}%
+%   \mytempdima=\f@size\p@
+%   \setbox1=\hbox{\fontsize{0.5\mytempdima}{0pt}\selectfont #2}%
+%   \dimen0=\wd1 \advance \dimen0 by -0.5\mytempdima
+%   \ifdim\wd0>\dimen0 \dimen0=\wd0 \fi
+%   \hbox{%
+%     \kanjiskip=0pt plus 2fil
+%     \xkanjiskip=0pt plus 2fil
+%     \vbox{%
+%       \hbox to \dimen0{\normalfont\rubyfamily
+%         \fontsize{0.5\mytempdima}{0pt}\selectfont \kanjistrut\hss#2\hss}%
+%       \nointerlineskip
+%       \hbox to \dimen0{\kanjistrut\hfil#1\hfil}}}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\kenten}
+%
+% \kenten{圏点}を振るコマンドです。
+%
+%    \begin{macrocode}
+\def\kenten#1{%
+  \ifvmode\leavevmode\else\hskip\kanjiskip\fi
+  \setbox1=\hbox to \z@{・\hss}%
+  \ht1=.63zw
+  \@kenten#1\end}
+\def\@kenten#1{%
+  \ifx#1\end \let\next=\relax \else
+    \raise.63zw\copy1\nobreak #1\hskip\kanjiskip\relax
+    \let\next=\@kenten
+  \fi\next}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\kintou}
+%
+% 簡単な均等割りコマンドです。
+%
+%    \begin{macrocode}
+\newcommand{\kintou}[2]{%
+  \leavevmode
+  \hbox to #1{%
+    \kanjiskip=0pt plus 1fil minus 1fil
+    \xkanjiskip=\kanjiskip
+    #2}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\曜}
+%
+% 今日の曜日を出力します。
+%
+%    \begin{macrocode}
+\newcommand{\曜}{{\@tempcnta=\year \@tempcntb=\month
+  \ifnum \@tempcntb<3
+    \advance \@tempcnta by -1
+    \advance \@tempcntb by 12
+  \fi
+  \multiply \@tempcntb by 13
+  \advance \@tempcntb by 8
+  \divide \@tempcntb by 5
+  \advance \@tempcntb by \@tempcnta
+  \divide \@tempcnta by 4
+  \advance \@tempcntb by \@tempcnta
+  \divide \@tempcnta by 25
+  \advance \@tempcntb by -\@tempcnta
+  \divide \@tempcnta by 4
+  \advance \@tempcntb by \@tempcnta
+  \advance \@tempcntb by \day
+  \@tempcnta=\@tempcntb
+  \divide \@tempcntb by 7
+  \multiply \@tempcntb by 7
+  \advance \@tempcnta by -\@tempcntb
+  \ifcase \@tempcnta 日\or 月\or 火\or 水\or 木\or 金\or 土\fi}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\挨拶}
+%
+% 時候の挨拶を出力します。
+%
+%    \begin{macrocode}
+\def\挨拶{\noindent 拝啓\hspace{1zw}\ifcase\month\or
+  厳寒\or 春寒\or 早春\or 陽春\or 新緑\or 向暑\or
+  猛暑\or 残暑\or 初秋\or 仲秋\or 晩秋\or 初冬\fi
+  の候，ますますご清栄のこととお喜び申し上げます。}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\mytt}
+%
+% |\texttt| では \verb/|/ |!| |@| |*| |-| |+| |=| |[| |]| |:| |;|
+% |"| |`| |'| |<| |>| |?| |,| |.| |/| はそのまま出せますが，
+% |!| |?| |.| |:| の後は余分な空きが入ります。
+% また，|#| |$| |&| |_| |{| |}| は \texttt{\bslash} で逃げれば使えますが，
+% そうしても |_| |{| |}| は正しい \texttt{cmtt} フォントになりません。
+% さらに，|~| |^| は \texttt{\bslash} を付けても後続の文字のアクセント
+% のようになってしまいます（|\~{}|，|\^{}| のようにすれば何とか
+% なりますが）。ここで定義する |\mytt| マクロを使えば，
+% |{| |}| は \texttt{\bslash} で逃げれば正しい \texttt{cmtt} フォント
+% になり，
+% |#| |&| |_| |~| |^| は \texttt{\bslash} で逃げなくてもそのまま
+% で出力できます。
+% |$| もそのまま出力できるようにしていたのですが，
+% 数式モードは使えた方が便利なので，外しました。
+% また，|\\| で円印が出ます。
+% |/|，|\\|，|.|，|@|，|-| の後ろで改行できるようにしてあります。
+% |{\mytt ...}| のようにして使います（|\mytt{...}| ではありません）。
+% スペースは若干伸縮するようにしました。
+% |\mbox{\mytt ...}| のようにして使えば，
+% 和文・欧文間のグルーの自動挿入はしません。
+%
+%    \begin{macrocode}
+\def\myallowbreak{\@ifnextchar\egroup{}{\penalty\exhyphenpenalty}{}}
+\begingroup
+  \catcode`\-=\active
+  \catcode`\.=\active
+  \catcode`\/=\active
+  \gdef\mytth@@k{%
+    \catcode`\-=\active \def-{\char`\-\myallowbreak}%
+    \catcode`\.=\active \def.{\char`\.\myallowbreak}%
+    \catcode`\/=\active \def/{\char`\/\myallowbreak}%
+  }
+\endgroup
+\def\mytt{\ttfamily
+  \catcode`\#=12
+  \catcode`\&=12
+  \catcode`\^=12
+  \catcode`\~=12
+  \catcode`\_=12
+  \chardef\{=`\{
+  \chardef\}=`\}
+  \chardef\_=`\_
+% \def\\{Y\llap=\penalty\exhyphenpenalty{}}% ¥記号
+  \def\\{\char"5C\penalty\exhyphenpenalty{}}% バックスラッシュ
+% \spaceskip=.5em  plus.25em minus.15em
+  \spaceskip=.32em plus.16em minus.09em
+  \frenchspacing
+  \noautoxspacing
+  \mytth@@k}
+%    \end{macrocode}
+% \end{macro}
+%
+% これ以外の記号は次のようにして出力できます。
+%
+% \begin{quote}
+%   |\texttt{\char"20}| \qquad \texttt{\char"20} 見える空白 \\
+%   |\texttt{\char"5C}| \qquad \texttt{\char"5C} バックスペース \\
+%   |\texttt{\char"0B}| \qquad \texttt{\char"0B} 上向き矢印 \\
+%   |\texttt{\char"0C}| \qquad \texttt{\char"0C} 下向き矢印 \\
+%   |\texttt{\char"0D}| \qquad \texttt{\char"0D} 左右対称なシングルクォート
+% \end{quote}
+%
+% \begin{macro}{\yen}
+% \begin{macro}{\BS}
+%
+% |\yen| は円印，|\BS| はバックスラッシュです。
+%
+%    \begin{macrocode}
+\DeclareRobustCommand{\yen}{{\ooalign{Y\crcr\hss=\hss}}}
+\providecommand{\BS}{\texttt{\char"5C}}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\bslash}
+%
+% バックスラッシュは |doc| パッケージなどでの定義に従っておきます。
+%
+%    \begin{macrocode}
+{\catcode`\|=\z@ \catcode`\\=12|gdef|bslash{\}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\asciibar}
+%
+% 真ん中が少し途切れた縦棒 \asciibar\ です。
+% \verb/|/ に対応するASCII文字です。
+%
+%    \begin{macrocode}
+\newcommand{\asciibar}{%
+  \makebox[0.525em]{\rule[-0.2ex]{0.15ex}{0.7ex}\kern-0.15ex
+    \rule[0.8ex]{0.15ex}{0.7ex}}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\−−}
+% \begin{macro}{\——}
+%
+% 倍角のダーシです。昔は |\rule[0.33zh]{2zw}{.03zh}| としていましたが，
+% ちょっと低すぎるようです。和文フォントのベースライン
+% は $88:12$ のところにあるものが多いので，0.38\,zwのところに中心線が
+% 来るほうがいいようです。太さもちょっとだけ太くしました。
+%
+%    \begin{macrocode}
+% \def\−−{\rule[0.36zw]{2zw}{0.04zw}}
+%    \end{macrocode}
+%
+% さらによく考えたら |\scalebox{2}[1]{—}| のほうがよさそうなので，
+% |graphics| または |graphicx| パッケージを読み込んだ場合はこちらを使うようにしました。
+%
+%    \begin{macrocode}
+% \def\−−{\@ifundefined{scalebox}{\rule[0.36zw]{2zw}{0.04zw}}{\scalebox{2}[1]{—}}}
+%    \end{macrocode}
+%
+% さらにいろいろなご意見をいただき，次のように直しました。
+%
+%    \begin{macrocode}
+\def\−−{—\kern-.5zw—\kern-.5zw—}
+%    \end{macrocode}
+%
+% 上のものは全角マイナス二つでしたが，全角ダーシ二つでもいいようにしました。
+%
+%    \begin{macrocode}
+\def\——{—\kern-.5zw—\kern-.5zw—}
+%    \end{macrocode}
+%
+% \end{macro}
+% \end{macro}
+%
+%
+% \section{キートップ，○数字}
+%
+% \begin{macro}{\removept}
+%
+% |#1| に与えたdimenレジスタの pt を消した数値を |#2| のマクロに
+% 定義します。
+%
+%    \begin{macrocode}
+\newcommand{\removept}[2]{%
+  \edef#2{\expandafter\@removePT\the#1}}
+{\catcode`p=12 \catcode`t=12 \gdef\@removePT#1pt{#1}}
+% しかし latex.ltx で次のように定義されていました。
+% これをそのまま使ったらよかった。
+% \begingroup
+%   \catcode`P=12
+%   \catcode`T=12
+%   \lowercase{
+%     \def\x{\def\rem@pt##1.##2PT{##1\ifnum##2>\z@.##2\fi}}}
+%   \expandafter\endgroup\x
+% \def\strip@pt{\expandafter\rem@pt\the}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\keytop}
+%
+% これを使ってキートップ記号を作ります。
+%
+%    \begin{macrocode}
+\newcommand{\keytop}[1]{{\leavevmode\kern1pt
+  \setbox1=\hbox{\normalfont\sffamily [}%
+  \dimen1=\ht1
+  \removept{\dimen1}{\tempC}%
+  \setbox0=\hbox{\normalfont\sffamily #1}%
+  \dp0=0pt
+  \dimen0=\wd0
+  \ifdim\dimen0<\ht1 \dimen0=\ht1 \fi
+  \advance \dimen0 by 5pt
+  \removept{\dimen0}{\tempA}%
+  \divide \dimen0 by 2
+  \removept{\dimen0}{\tempB}%
+  \unitlength=1pt
+  \advance \dimen1 by 2pt
+  \hbox{\vrule height\dimen1 depth2pt width0pt}%
+  \begin{picture}(\tempA,\tempC)
+    \put(0,0){\line(0,1){\tempC}}
+    \put(\tempA,0){\line(0,1){\tempC}}
+    \put(\tempB,0){\oval(\tempA,4)[b]}
+    \put(\tempB,\tempC){\oval(\tempA,4)[t]}
+    \put(\tempB,0){\makebox(0,0)[b]{\box0}}
+  \end{picture}\kern1pt}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\return}
+%
+% リターンキーの記号です。
+%
+%    \begin{macrocode}
+\def\RETMARK{{\unitlength=1pt
+  \setbox0=\hbox{\normalfont\ttfamily [}%
+  \dimen0=\ht0
+  \removept{\dimen0}{\tempA}%
+  \advance \dimen0 by -1pt
+  \removept{\dimen0}{\tempB}%
+  \begin{picture}(\tempA,\tempA)
+    \put(\tempA,1){\line(0,1){\tempB}}
+    \put(\tempA,1){\vector(-1,0){\tempA}}
+  \end{picture}}}
+\newcommand{\return}{\keytop{\RETMARK}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\upkey}
+% \begin{macro}{\downkey}
+% \begin{macro}{\rightkey}
+% \begin{macro}{\leftkey}
+%
+%    上下右左の矢印キーです。
+%
+%    \begin{macrocode}
+\newcommand{\upkey}{\raisebox{-2pt}{%
+  \setlength{\unitlength}{1pt}%
+  \thinlines
+  \begin{picture}(14,9)
+    \put(7,2){\vector(0,1){8}}
+    \put(1,2){\line(0,1){7}}
+    \put(13,2){\line(0,1){7}}
+    \put(7,9){\oval(12,4)[t]}
+    \put(7,2){\oval(12,4)[b]}
+  \end{picture}%
+}}
+\newcommand{\downkey}{\raisebox{-2pt}{%
+  \setlength{\unitlength}{1pt}%
+  \thinlines
+  \begin{picture}(14,9)
+    \put(7,10){\vector(0,-1){8}}
+    \put(1,2){\line(0,1){7}}
+    \put(13,2){\line(0,1){7}}
+    \put(7,9){\oval(12,4)[t]}
+    \put(7,2){\oval(12,4)[b]}
+  \end{picture}%
+}}
+\newcommand{\rightkey}{\raisebox{-2pt}{%
+  \setlength{\unitlength}{1pt}%
+  \thinlines
+  \begin{picture}(14,9)
+    \put(3,6){\vector(1,0){8}}
+    \put(1,2){\line(0,1){7}}
+    \put(13,2){\line(0,1){7}}
+    \put(7,9){\oval(12,4)[t]}
+    \put(7,2){\oval(12,4)[b]}
+  \end{picture}%
+}}
+\newcommand{\leftkey}{\raisebox{-2pt}{%
+  \setlength{\unitlength}{1pt}%
+  \thinlines
+  \begin{picture}(14,9)
+    \put(11,6){\vector(-1,0){8}}
+    \put(1,2){\line(0,1){7}}
+    \put(13,2){\line(0,1){7}}
+    \put(7,9){\oval(12,4)[t]}
+    \put(7,2){\oval(12,4)[b]}
+  \end{picture}%
+}}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% 
+% \begin{macro}{\MARU}
+%
+% 丸で囲んだ文字です。
+%
+% [2003-01-24] |graphicx| のとき少し見映えが良くなるようにしました。
+%
+%    \begin{macrocode}
+% \newcommand{\MARU}[1]{{%
+%   \ooalign{\hfil#1\/\hfil\crcr\raise.167ex\hbox{\mathhexbox20D}}}}
+\newcommand{\MARU}[1]{{%
+    \ooalign{\hfil
+      \@ifundefined{scalebox}{%
+        #1\/\hfil\crcr\raise.167ex}{\raise.1zw\hbox{\scalebox{0.8}{#1\/}}\hfil\crcr\raise.1zw}%
+      \hbox{\fontencoding{OMS}\fontfamily{cmsy}\fontseries{m}\fontshape{n}\selectfont
+        \char"0D}}}}
+%    \end{macrocode}
+% \end{macro}
+%
+% その他のロゴです。
+%
+%    \begin{macrocode}
+% \newcommand{\MuTeX}{M\kern-.15em\raise.2ex\hbox{u}\kern-.32em\TeX}
+\newcommand{\PiC}{P\kern-.12em\lower.5ex\hbox{I}\kern-.075emC}
+\newcommand{\PiCTeX}{\PiC\kern-.11em\TeX}
+\newcommand{\JTeX}{\leavevmode\lower.5ex\hbox{J}\kern-.17em\TeX}
+\newcommand{\JLaTeX}{\leavevmode\lower.5ex\hbox{\rm J}\kern-.17em\LaTeX}
+\DeclareRobustCommand{\JBibTeX}{$\mbox{%
+    \lower.5ex\hbox{J}\ifx\f@family\cmr\kern-.15em\else\kern-.05em\fi
+    \BibTeX}$}
+\newcommand{\pTeXsT}{p\kern-.21em\TeX\kern-.10em s\kern-.21em T}
+% インプレスの新 TeX の仮称
+\newcommand{\iTeX}{\accent'27\i\TeX}
+% 桜井さんの新 TeX のロゴ（仮）
+\newcommand{\MlTeX}{M\kern-.1667em\lower.5ex\hbox{L}\kern-.25em\TeX}
+%    \end{macrocode}
+%
+% METAFONTのロゴを出す方法はいろいろあります。まず古い方法で，
+% |manfnt| を使うものです。
+%
+%\begin{verbatim}
+% \font\manual=manfnt
+% \font\manLarge=manfnt scaled \magstep 2
+% \font\manHuge=manfnt scaled \magstep 5
+% \newcommand{\MF}{%
+%   \ifx\@currsize\small
+%     {\manual hijk}\-{\manual lmnj}% 9pt
+%   \else
+%     \ifx\@currsize\footnotesize
+%       \ifdim \fontdimen\@ne\font>\z@
+%         {\manual \char92\char93\char94\char95efg\char94}% 8pt slanted
+%       \else
+%         {\manual opqr}\-{\manual stuq}% 8pt
+%       \fi
+%     \else
+%       \ifx\@currsize\Large
+%         {\manLarge META}\-{\manLarge FONT}% mag2 (14pt)
+%       \else
+%         \ifx\@currsize\Huge
+%           {\manHuge META}\-{\manHuge FONT}% mag5 (25pt)
+%         \else % \normalsize
+%           \ifdim \fontdimen\@ne\font>\z@
+%             {\manual 89:;<=>:}% 10pt slanted
+%           \else
+%             {\manual META}\-{\manual FONT}% 10pt
+%           \fi
+%         \fi
+%       \fi
+%     \fi
+%   \fi}
+%\end{verbatim}
+%
+% 次は |logo| を使う方法です。
+%
+%\begin{verbatim}
+%\font\logoTen=logo10
+%\font\logoEight=logo8
+%\font\logoLarge=logo10 scaled \magstep 2
+%\font\logoHuge=logo10 scaled \magstep 5
+%\newcommand{\MF}{%
+%  \ifx\@currsize\Large
+%    {\logoLarge META}\-{\logoLarge FONT}%
+%  \else
+%    \ifx\@currsize\Huge
+%      {\logoHuge META}\-{\logoHuge FONT}%
+%    \else
+%       \ifx\@currsize\footnotesize
+%         {\logoEight META}\-{\logoEight FONT}%
+%       \else
+%         {\logoTen META}\-{\logoTen FONT}%
+%       \fi
+%    \fi
+%  \fi}
+%\end{verbatim}
+%
+% \LaTeXe の方法としては，
+% 次のような |ulogo.fd| を作っておきます。
+%
+%\begin{verbatim}
+%\DeclareFontFamily{U}{logo}{}
+%\DeclareFontShape{U}{logo}{m}{n}{%
+%      <5><6><7><8>logo8%
+%      <9>logo9%
+%      <10><10.95><12><14.4><17.28><20.74><24.88>logo10}{}
+%\DeclareFontShape{U}{logo}{m}{sl}{%
+%      <5><6><7><8><9>logosl9%
+%      <10><10.95><12><14.4><17.28><20.74><24.88>logosl10}{}
+%\DeclareFontShape{U}{logo}{bx}{n}{%
+%      <5><6><7><8><9>%
+%      <10><10.95><12><14.4><17.28><20.74><24.88>logobf10}{}
+%\DeclareFontShape{U}{logo}{m}{it}
+%  {<->ssub*logo/m/sl}{}
+%\end{verbatim}
+%
+% これで次のようにします。
+%
+%\begin{verbatim}
+% \DeclareRobustCommand{\MF}{{\fontfamily{logo}\selectfont META}\-%
+%   {\fontfamily{logo}\selectfont FONT}}
+% \DeclareRobustCommand{\MP}{{\fontfamily{logo}\selectfont META}\-%
+%   {\fontfamily{logo}\selectfont POST}}
+%\end{verbatim}
+%
+% しかしよく調べてみたら同様なものが |mflogo.sty|，|ulogo.fd|
+% として配布されていましたので，そちらを使うことにします。
+%
+% \section{いろいろな環境}
+%
+% \begin{environment}{dangerous}
+%
+% 参考事項をメモ風に付ける環境です。鉛筆記号を使うようにしました。
+%
+%    \begin{macrocode}
+%\newcommand{\dangerouslabel}[1]{{%
+%  \setlength{\fboxsep}{1pt}%
+%  \fbox{\footnotesize\bfseries #1}}}
+\newenvironment{dangerous}{%
+  \vspace{3pt}%
+  \begin{list}{\ding{"2E}}{%
+%   \let\makelabel=\dangerouslabel
+    \setlength{\leftmargin}{3zw}%
+    \setlength{\itemindent}{0pt}%
+    \setlength{\labelwidth}{2zw}%
+    \setlength{\labelsep}{6pt}%
+    \setlength{\rightmargin}{0pt}%
+    \setlength{\itemsep}{0.5\baselineskip}%
+    \setlength{\parsep}{0pt}%
+    \setlength{\topsep}{0.5\baselineskip}%
+    \setlength{\partopsep}{0pt}%
+    \setlength{\listparindent}{0zw}%
+  }\small}{\end{list}}
+%    \end{macrocode}
+% \end{environment}
+%
+% \begin{environment}{namelist}
+%    |\begin{namelist}{xxxx} \item[...] ... \end{namelist}| で
+%    見出しを |xxxx| の幅にしたリストを作ります。
+%    \begin{macrocode}
+% \newcommand{\namelistlabel}[1]{{#1}\ \dotfill\ }
+\newcommand{\namelistlabel}[1]{\hspace{1zw}#1\hfil}
+\newenvironment{namelist}[1]{%
+  \begin{list}{}{%
+    \let\makelabel=\namelistlabel
+    \settowidth{\labelwidth}{#1}%
+    \addtolength{\labelwidth}{2zw}%
+    \setlength{\leftmargin}{\labelwidth}%
+    \setlength{\labelsep}{0pt}%
+  }}{\end{list}}
+%    \end{macrocode}
+% \end{environment}
+%
+% \begin{environment}{mybibliography}
+%
+% |thebibliography| とほぼ同じ参考文献リスト環境ですが，
+% 章（節）見出しを出力せず，カウンタをリセットしません。
+% |thebibliography| と同じ |enumiv| というカウンタを使っていますので，
+% 必要に応じて
+% \begin{quote}
+%   |\setcounter{enumiv}{0}|
+% \end{quote}
+% として初期化してください。
+%
+%    \begin{macrocode}
+\newenvironment{mybibliography}[1]{%
+   \list{\@biblabel{\@arabic\c@enumiv}}%
+        {\settowidth\labelwidth{\@biblabel{#1}}%
+         \leftmargin\labelwidth
+         \advance\leftmargin\labelsep
+         \@openbib@code
+         \@nmbrlisttrue\def\@listctr{enumiv}%
+         \let\p@enumiv\@empty
+         \renewcommand\theenumiv{\@arabic\c@enumiv}}%
+   \sloppy
+   \clubpenalty4000
+   \@clubpenalty\clubpenalty
+   \widowpenalty4000%
+   \sfcode`\.\@m}
+  {\def\@noitemerr
+    {\@latex@warning{Empty `mybibliography' environment}}%
+   \endlist}
+%    \end{macrocode}
+% \end{environment}
+%
+% \begin{environment}{FRAME}
+%
+% 枠です。
+%
+%    \begin{macrocode}
+\newenvironment{FRAME}{\begin{trivlist}\item[]
+  \hrule width\linewidth
+  \hbox to \linewidth\bgroup
+    \advance\linewidth by -30pt
+    \hsize=\linewidth
+    \vrule\hfill
+    \vbox\bgroup
+      \vskip15pt
+      \def\thempfootnote{\arabic{mpfootnote}}% 脚注を算用数字に
+      \begin{minipage}{\linewidth}}{%
+      \end{minipage}\vskip15pt
+    \egroup\hfill\vrule
+  \egroup\hrule width\linewidth
+  \end{trivlist}}
+\newcommand{\SHUTTEN}[1]{%
+  \par\nobreak\removelastskip\rightline{\small#1}\medbreak}
+%    \end{macrocode}
+% \end{environment}
+%
+% \begin{environment}{screen}
+%
+% スクリーン風の環境です。元は |ascmac.sty| にあったのだと
+% 思いますが，かなり改変したかもしれません。
+%
+% |\begin{screen}[0.75]| のようにオプションの数値を与えると
+% 横幅を0.75倍するようにしてみました。
+% 倍率が 1 以外の場合は \texttt{graphicx} パッケージが必要です。
+% 画面出力例がコラム幅を超える場合の対処法として有効かもしれません。
+% ただ，screen環境の最初に |[| が来る場合は誤動作しますので，|\relax|
+% か |{}| を入れて誤魔化してください。
+%
+%    \begin{macrocode}
+\newdimen\@scw
+\newbox\scb@x
+\newenvironment{screen}[1][1]%
+ {\def\screensc@le{#1}\@scw=\linewidth \advance \@scw by -20pt
+  \setbox\scb@x=\hbox\bgroup\begin{minipage}[b]{\@scw}}%
+     % または \setbox\scb@x=\vbox\bgroup\advance \linewidth by -20pt \relax
+ {\end{minipage}\egroup
+  \dimen0=\linewidth \removept{\dimen0}{\hsPT}%
+  \divide \dimen0 by 2 \removept{\dimen0}{\hhsPT}%
+  \dimen0=\ht\scb@x \advance \dimen0 by 10pt
+  \removept{\dimen0}{\htxPT}%
+  \begin{flushleft}
+    \vspace{6.5pt}%
+    \begin{picture}(\hsPT,\htxPT)
+      \put(\hhsPT,\htxPT){\oval(\hsPT,10)[t]}
+      \put(0,0){\line(0,1){\htxPT}}
+      \put(\hsPT,0){\line(0,1){\htxPT}}
+      \put(\hhsPT,0){\oval(\hsPT,10)[b]}
+      \put(10,5){\ifdim\screensc@le pt=1pt \box\scb@x
+                 \else\scalebox{\screensc@le}[1]{\box\scb@x}\fi}
+    \end{picture}%
+  \end{flushleft}}
+%    \end{macrocode}
+% \end{environment}
+%
+% \begin{environment}{EXAMPLE}
+%
+% 出力例です。ずいぶん前に作ったので，再検討の要があります。
+%
+%    \begin{macrocode}
+\newdimen\EXAMPLEWIDTH
+\newenvironment{EXAMPLE}{\begin{flushleft}\EXAMPLEWIDTH=\linewidth
+  }{\end{flushleft}}
+\newenvironment{IN}{%
+  \makebox[35pt][l]{\small\fbox{入力}}%
+  \advance \linewidth by -35pt
+  \begin{minipage}[t]{\linewidth}}{%
+  \end{minipage}\\[6pt]}
+\newenvironment{OUT}{%
+  \makebox[35pt][l]{\small\fbox{出力}}%
+  \advance \linewidth by -35pt
+  \begin{minipage}[t]{\linewidth}}{%
+  \end{minipage}}
+\newcommand{\INEX}{\medbreak\noindent
+  \framebox[\columnwidth][l]{\small\hskip2zw 入力}\nobreak
+  \begin{quote}\small}
+\newcommand{\OUTEX}{\end{quote}
+  \framebox[\columnwidth][l]{\small\hskip2zw 出力}\nobreak
+  \begin{quotation}\small}
+\newcommand{\ENDEX}{\end{quotation}\bigbreak}
+\newcommand{\ENDEXC}[1]{\end{quotation}\nobreak
+  \begin{flushright}\footnotesize#1\end{flushright}\bigbreak}
+%    \end{macrocode}
+% \end{environment}
+%
+% \section{雑}
+
+% \begin{macro}{\whichpage}
+%
+% |\whichpage{参照名}| で，そのページが同じページにあれば何も出力せず，
+% そうでなければ（次ページ）（前ページ）（123ページ）のような形式で
+% 場所を出力します。
+%
+%    \begin{macrocode}
+\def\whichpage#1{%
+  \expandafter\ifx\csname r@#1\endcsname\relax
+  \else
+    \@tempcnta\pageref{#1}\relax
+    \advance\@tempcnta-\c@page
+    \ifnum\@tempcnta=0
+    \else
+      \ifnum\@tempcnta=1 （次ページ）
+      \else
+        \ifnum\@tempcnta=-1 （前ページ）
+        \else （\pageref{#1}ページ）
+        \fi
+      \fi
+    \fi
+  \fi}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{environment}{migiake}
+%
+%    ごく簡単な右空けコマンドです。使っていません。
+%
+%    \begin{macrocode}
+% \newenvironment{migiake}[1]{%
+%   \setlength{\rightskip}{#1}\samepage}{\par}
+%    \end{macrocode}
+% \end{environment}
+%
+% \begin{macro}{\rightfig}
+%
+%    もう少しましな右空けです。
+%    |#1| は空け幅, |#2| は行数, |#3| は図や表です。
+%
+%    \begin{macrocode}
+% \def\rightfig#1#2#3{\noindent
+%   \dimen0=\baselineskip \multiply \dimen0 by #2
+%   \advance\dimen0 by -\baselineskip \advance\dimen0 by 2ex
+%   \hangindent=-#1 \hangafter=-#2
+%   \raise 2ex \hbox to 0pt{\smash{\vtop to \dimen0{\vfil
+%   \vbox{\hfill \hbox to #1{ \ \hfill #3}}\vfil
+%   }}\hss}\hskip\parindent\ignorespaces}
+%    \end{macrocode}
+% \end{macro}
+%
+% 漢字の幅をttフォント2文字分にします。使っていません。
+%
+%    \begin{macrocode}
+% \newcommand{\kanjitt}[1]{\texttt{\kanjiskip0.083595em\relax#1}}
+%    \end{macrocode}
+%
+% \begin{environment}{shadebox}
+%
+% 影付きの箱です。|ascmac.sty| から取りました。
+%
+%    \begin{macrocode}
+\newdimen\shaderule \shaderule 5\p@
+\def\shadebox{\dimen0\linewidth \advance\dimen0-20\p@ 
+  \advance\dimen0-2\fboxrule \advance\dimen0-\shaderule
+  \setbox\@tempboxa=\hbox\bgroup\minipage{\dimen0}}
+\def\endshadebox{\endminipage\egroup\dimen0=10\p@ \advance\dimen0-\fboxrule
+  \setbox\@tempboxa=\hbox{\kern\dimen0\unhbox\@tempboxa\kern\dimen0}%
+  \setbox0=\vbox{\hrule\@height \fboxrule
+  \hbox{\vrule\@width \fboxrule \hskip-\fboxrule
+  \vbox{\vskip\fboxsep \box\@tempboxa\vskip\fboxsep}%
+  \hskip-\fboxrule\vrule \@width \fboxrule}\hrule \@height \fboxrule}%
+  \dimen0=\ht0 \advance\dimen0-\shaderule
+  \hbox{\hbox to \shaderule{\copy0\hss}\kern \z@
+  \vrule\@width\wd0\@height\z@\@depth\shaderule\hskip-\shaderule
+  \vrule\@width\shaderule\@height\dimen0}}
+%    \end{macrocode}
+% \end{environment}
+%
+% \begin{environment}{sankou}
+%
+% 参考（dangerous bend 風）の環境です。
+%
+%    \begin{macrocode}
+\def\sankoumark{{\small ★}}
+\newenvironment{sankou}{\vspace{3pt}%
+  \begin{list}{}{%
+    \setlength{\leftmargin}{3zw}%
+    \setlength{\itemindent}{0pt}%
+    \setlength{\labelwidth}{2zw}%
+    \setlength{\labelsep}{6pt}%
+    \setlength{\rightmargin}{0pt}%
+    \setlength{\itemsep}{0pt}%
+    \setlength{\parsep}{0pt}%
+    \setlength{\topsep}{0.5\baselineskip}%
+    \setlength{\partopsep}{0pt}%
+    \setlength{\listparindent}{0zw}%
+  }\item[\sankoumark]\small}{\end{list}}
+%    \end{macrocode}
+% \end{environment}
+%
+% \begin{environment}{toi}
+%
+% 問いの環境です。
+%
+%    \begin{macrocode}
+\def\toimark{{\small\bf 【問】}}
+\newenvironment{toi}{\vspace{3pt}%
+  \begin{list}{}{%
+    \setlength{\leftmargin}{3zw}%
+    \setlength{\itemindent}{0pt}%
+    \setlength{\labelwidth}{2zw}%
+    \setlength{\labelsep}{6pt}%
+    \setlength{\rightmargin}{0pt}%
+    \setlength{\itemsep}{0pt}%
+    \setlength{\parsep}{3pt plus 1pt minus 1pt}%
+    \setlength{\topsep}{3pt plus 1pt minus 1pt}%
+    \setlength{\partopsep}{3pt plus 6pt minus 1pt}%
+    \setlength{\listparindent}{0zw}%
+  }\item[\toimark]\small}{\end{list}}
+%    \end{macrocode}
+% \end{environment}
+%
+% 英語用の行送りに切り替えるコマンドですが，使っていません。
+%
+%    \begin{macrocode}
+% \def\english{%
+%   \ifx\@currsize\normalsize   \fontsize{10}{12pt}\selectfont\else
+%   \ifx\@currsize\small        \fontsize{9}{11pt}\selectfont\else
+%   \ifx\@currsize\footnotesize \fontsize{8}{9.5pt}\selectfont\fi\fi\fi}
+%    \end{macrocode}
+%
+%    \begin{macrocode}
+% \newcommand{\shima}{dvi\-out\slash dvi\-prt\index{dviout/dviprt}}
+\providecommand{\eps}{\varepsilon}
+% \newcommand{\zip}{〒\kern0pt\relax}
+% \def\mathpalette#1#2{\mathchoice{#1\displaystyle{#2}}%
+%   {#1\textstyle{#2}}{#1\scriptstyle{#2}}{#1\scriptscriptstyle{#2}}}
+% ≦, ≧，＝の上下に点
+\def\LEQQ{\mathrel{\mathpalette\gl@align<}}
+\def\GEQQ{\mathrel{\mathpalette\gl@align>}}
+\def\gl@align#1#2{\lower.6ex\vbox{\baselineskip\z@skip\lineskip\z@
+    \ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr=\crcr}}}
+\def\APPROX{\mathrel{\mathpalette\ap@align{\smash.}}}
+\def\ap@align#1#2{\lower.2ex\vbox{\baselineskip\z@skip\lineskip\z@
+    \def\finsm@sh{\ht\z@.2ex \dp\z@.2ex \box\z@}%
+    \ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr=\crcr#2\crcr}}}
+%%% Fractions like 1/2 by DEK (TUGboat, 6(1):36, TeXbook (Excercise 11.6))
+\def\FRAC#1#2{\leavevmode\kern.1em
+  \raise.5ex\hbox{\the\scriptfont0 #1}\kern-.1em
+  /\kern-.15em\lower.25ex\hbox{\the\scriptfont0 #2}}
+\newcommand{\hk}{\hspace{\kanjiskip}}
+\newcommand{\hx}{\hspace{\xkanjiskip}}
+\newcommand{\3}{\penalty300 }
+\newcommand{\5}{\penalty50 }          % \penalty\exhyphenpenalty
+%    \end{macrocode}
+%
+% \begin{macro}{\>}
+% 全角コンマの直後に半角文字が来た場合，全角コンマの後に挿入して，
+% 半角空白と同じだけの伸縮を持たせるためのグルー挿入コマンドです。
+% 使っていません。
+%    \begin{macrocode}
+% \newcommand{\>}{\relax
+%   \ifmmode\mskip\medmuskip\else\hskip0em plus0.167em minus0.111em\fi}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\ANGLE}
+% Angle brackets です。
+%    \begin{macrocode}
+\newcommand{\ANGLE}[1]{%
+  $\langle$\kern0pt\nobreak{#1}\kern0pt\nobreak$\rangle$}
+%    \end{macrocode}
+% \end{macro}
+%
+% 分数関係です。\texttt{amstex} パッケージでもほぼ同じものが
+% 定義されていますが，\texttt{amstex} パッケージの |\cfrac| で
+% は |\mathstrut| ではなく |\strut| が使われているため，
+% 和文スタイルで行送りが大きい場合には，ちょっと間延びしてしまいます。
+%    \begin{macrocode}
+% \providecommand{\tfrac}[2]{{\textstyle\frac{#1}{#2}}}
+% \providecommand{\dfrac}[2]{{\displaystyle\frac{#1}{#2}}}
+% \providecommand{\cfrac}[2]{\dfrac{\mathstrut #1}{#2}}
+%    \end{macrocode}
+%
+% \begin{macro}{\dalembert}
+% D'Alembertian（|\Box| より少々大きい四角）です。
+%    \begin{macrocode}
+% \newcommand{\dalembert}{{%
+%   \setlength{\unitlength}{0.1em}%
+%   \begin{picture}(8,8)
+%     \thinlines
+%     \put(1,0){\framebox(6,6){}}
+%   \end{picture}}}
+%    \end{macrocode}
+% \end{macro}
+% 
+% \begin{macro}{\kanjibox}
+% 漢字の大きさの箱です。使っていません。
+%    \begin{macrocode}
+% \newcommand{\kanjibox}{{\setlength{\unitlength}{0.1091175zw}%
+%   \begin{picture}(9.62216,7.77588)\thinlines
+%   \put(0,-1.38855){\framebox(9.16443,9.16443){}}\end{picture}}}
+%    \end{macrocode}
+% \end{macro}
+% 
+% Poor person's blackboard boldです
+% \footnote{Robert Messer, ``Blackboard Bold.''
+%   \textit{TUGboat} 9(1):19--20, 1988.}。
+% 
+% \begin{macro}{\R}
+% \begin{macro}{\C}
+%    \begin{macrocode}
+% \def\R{{\rm I\kern-.17em R}} % (-.25em in the above literature)
+% \def\C{{\rm\kern.24em\vrule width.02em height1.4ex depth-.05ex\kern-.26em C}}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% 
+% \begin{macro}{\株}
+%    \begin{macrocode}
+\newcommand{\株}{\hspace{\kanjiskip}\<（株）\<\hspace{\kanjiskip}}
+%    \end{macrocode}
+% \end{macro}
+% 
+% \begin{macro}{\CVS}
+%
+% CVS用。
+%
+%    \begin{macrocode}
+% \def\CVS$#1: #2 ${\expandafter\def\csname CVS#1\endcsname{#2}}
+%    \end{macrocode}
+% \end{macro}
+%
+%\begin{verbatim}
+% \CVS$Revision: 1.7 $
+% \CVS$Date: 2000/06/09 05:55:02 $
+% この文書のバージョンは\CVSRevision 版である。
+%\end{verbatim}
+% のように使います。
+%
+% [2003-02-16..17] |js*| クラスで数式の前後のスペースが若干変わってしまいます。
+% とりあえず |amsmath| の |equation(*)|，|align(*)| 環境の類だけここで直しておきます。
+% このあたりはまた見直します。
+%
+%    \begin{macrocode}
+\@ifundefined{widebaselines}{}{%
+  \let\endmathdisplaysave=\endmathdisplay
+  \def\endmathdisplay{\widebaselines\endmathdisplaysave}}
+  \let\start@alignsave=\start@align
+  \def\start@align{\vspace{4pt}\start@alignsave}
+%    \end{macrocode}
+%
+% 以上で終わりです。
+%
+%    \begin{macrocode}
+%</okumacro>
+\endinput
+%    \end{macrocode}
+%
+% ^^A \endinput の後に \CharacterTable を書いておけば，子ファイルには
+% ^^A 出力されません。チェックは *.dtx を処理したときにしてくれます。
+%
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+%%
+% \Finale
diff --git a/Master/texmf-dist/source/platex/jsclasses/okumacro.ins b/Master/texmf-dist/source/platex/jsclasses/okumacro.ins
new file mode 100644
index 00000000000..a433228f907
--- /dev/null
+++ b/Master/texmf-dist/source/platex/jsclasses/okumacro.ins
@@ -0,0 +1,4 @@
+\def\batchfile{okumacro.ins}
+\input docstrip.tex
+\keepsilent
+\generateFile{okumacro.sty}{f}{\from{okumacro.dtx}{okumacro}}
diff --git a/Master/texmf-dist/source/platex/jsclasses/okuverb.dtx b/Master/texmf-dist/source/platex/jsclasses/okuverb.dtx
new file mode 100644
index 00000000000..317f3b5d00a
--- /dev/null
+++ b/Master/texmf-dist/source/platex/jsclasses/okuverb.dtx
@@ -0,0 +1,254 @@
+% ^^A -*- japanese-latex -*-
+% \CheckSum{167}
+% \iffalse
+%
+%   okuverb.dtx
+%   verb/verbatim 関係マクロ (煮ても焼いてもかまいません)
+%   okumura@matsusaka-u.ac.jp
+%   http://www.matsusaka-u.ac.jp/~okumura/
+%
+%  [2002-12-19] いろいろなものに収録していただく際にライセンスを明確にする
+%  必要が生じてきました。アスキーのものが最近はmodified BSDライセンスになっ
+%  ていますので，私のものもそれに準じてmodified BSDとすることにします。
+%
+%<okuverb>\NeedsTeXFormat{pLaTeX2e}
+%<okuverb>\ProvidesFile{okuverb.sty}[2003/09/03 okumura]
+%<*driver>
+\documentclass{jsarticle}
+\usepackage{doc}
+\usepackage{okumacro}
+\usepackage{okuverb}
+\addtolength{\textwidth}{-1in}
+\addtolength{\evensidemargin}{1in}
+\addtolength{\oddsidemargin}{1in}
+\addtolength{\marginparwidth}{1in}
+\setlength\marginparsep{5pt}
+\setlength\marginparpush{0pt}
+% \OnlyDescription
+\DisableCrossrefs
+\setcounter{StandardModuleDepth}{1}
+\GetFileInfo{okuverb.sty}
+\begin{document}
+  \DocInput{okuverb.dtx}
+\end{document}
+%</driver>
+%
+% \fi
+%
+% \title{\pLaTeXe 用 \texttt{verb...} 関係マクロ}
+% \author{奥村晴彦}
+% \date{\filedate}
+% \maketitle
+%
+% \StopEventually{}
+%
+% \MakeShortVerb{\|}
+%
+% まずオプションの宣言です。
+% \begin{macro}{\if@yen}
+% |\verb|，|verbatim| 等で |\| を円印にするかどうかのスイッチです。
+% これはデフォールトで偽ですが，|yen| オプションで真になります。
+%    \begin{macrocode}
+%<*okuverb>
+\newif\if@yen \@yenfalse
+\DeclareOption{yen}{\@yentrue}
+\ProcessOptions\relax
+%    \end{macrocode}
+% \end{macro}
+%
+% |\verb|, |verbatim| の変更です。
+% |ltmiscen.dtx| をご参照ください。
+%
+% \begin{macro}{\yen}
+% \begin{macro}{\ttyen}
+%
+% 円記号の定義です。
+%
+%    \begin{macrocode}
+\DeclareRobustCommand{\yen}{{\ooalign{Y\crcr\hss=\hss}}}
+\def\y@n{Y\llap=}
+\def\ttyen{{\ttfamily\y@n}}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\ttbslash}
+%
+% タイプライタフォントのバックスラッシュです。
+%
+%    \begin{macrocode}
+\def\ttbslash{{\ttfamily\char`\\}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\BS}
+%
+% タイプライタフォントの円記号かバックスラッシュのどちらかになります。
+%
+%    \begin{macrocode}
+\if@yen
+  \let\BS=\ttyen
+\else
+  \let\BS=\ttbslash
+\fi
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\verbh@@k}
+%
+% |\verb|，|verbatim| 等で使うフックです。
+%
+%    \begin{macrocode}
+\if@yen
+  \begingroup
+    \catcode`\|=0  \catcode`\\=13
+    |gdef|verbh@@k{|catcode`|\=13 |let\=|y@n}
+  |endgroup
+\else
+  \let\verbh@@k=\relax
+\fi
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\verbatim@font}
+%
+% これは |latex.ltx| に |\normalfont\ttfamily|
+% と定義されていますが，|\bfseries\verb...| といった使い方もしたいので，
+% |\normalfont| は削除してしまいました。
+%
+%    \begin{macrocode}
+\def\verbatim@font{\ttfamily}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\verb}
+%
+% 元は数式モードだけで |\hbox| に入れるようになっていましたが，
+% |\noautoxspacing| の効果を得るため，|\hbox| に入れるようにしました。
+%
+%    \begin{macrocode}
+\def\verb{%
+  \leavevmode\hbox % 変更
+  \bgroup
+    \verb@eol@error \let\do\@makeother \dospecials
+    \verbatim@font\@noligs
+    \noautoxspacing % 追加
+    \verbh@@k % 追加
+    \@ifstar\@sverb\@verb}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@xverbatim}
+% \begin{macro}{\@sxverbatim}
+%
+% |\| の |\catcode| を12から13に変えました。
+%
+%    \begin{macrocode}
+\if@yen
+\begingroup \catcode `|=0 \catcode `[= 1
+\catcode`]=2 \catcode `\{=12 \catcode `\}=12
+\catcode`\\=13 |gdef|@xverbatim#1\end{verbatim}[#1|end[verbatim]]
+|gdef|@sxverbatim#1\end{verbatim*}[#1|end[verbatim*]]
+|endgroup
+\fi
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\verbatimleftmargin}
+%
+% |verbatim| 環境の余分な左マージンです。
+%
+%    \begin{macrocode}
+\newdimen\verbatimleftmargin
+\verbatimleftmargin=2zw
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\verbatimsize}
+%
+% |verbatim| 環境のフォントサイズです。
+%
+%    \begin{macrocode}
+% \def\verbatimsize{\small\narrowbaselines}
+\def\verbatimsize{\fontsize{9}{11pt}\selectfont}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@verbatim}
+%
+% |verbatim| 環境で使うフォントの行送りとサイズ（|\f@size|）が
+% 本文と違うと，前後の間隔が違ってしまいます。それを補正します。
+%
+%    \begin{macrocode}
+\def\@verbatim{%
+  \trivlist \item\relax
+  \if@minipage
+%   追加はじめ
+    \verbatimsize
+%   追加おわり
+  \else
+%   追加はじめ
+    \vskip\baselineskip
+    \vskip-\f@size pt
+    \verbatimsize
+    \vskip-\baselineskip
+    \vskip\f@size pt
+%   追加おわり
+    \vskip\parskip
+  \fi
+  \leftskip\@totalleftmargin
+% 追加はじめ
+  \if@minipage \else
+    \advance \leftskip \verbatimleftmargin
+  \fi
+% 追加おわり
+  \rightskip\z@skip
+  \parindent\z@
+  \parfillskip\@flushglue
+  \parskip\z@skip
+  \@@par
+  \@tempswafalse
+  \def\par{%
+    \if@tempswa
+      \leavevmode \null \@@par\penalty\interlinepenalty
+    \else
+      \@tempswatrue
+      \ifhmode\@@par\penalty\interlinepenalty\fi
+    \fi}%
+  \let\do\@makeother \dospecials
+  \obeylines \verbatim@font
+% 追加はじめ
+  \noautoxspacing \verbh@@k
+% 追加おわり
+  \@noligs
+  \hyphenchar\font\m@ne
+  \everypar \expandafter{\the\everypar \unpenalty}%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% 以上で終わりです。
+%
+%    \begin{macrocode}
+%</okuverb>
+\endinput
+%    \end{macrocode}
+%
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+%%
+% \Finale
diff --git a/Master/texmf-dist/source/platex/jsclasses/okuverb.ins b/Master/texmf-dist/source/platex/jsclasses/okuverb.ins
new file mode 100644
index 00000000000..6a919a4f0b9
--- /dev/null
+++ b/Master/texmf-dist/source/platex/jsclasses/okuverb.ins
@@ -0,0 +1,4 @@
+\def\batchfile{okuverb.ins}
+\input docstrip.tex
+\keepsilent
+\generateFile{okuverb.sty}{f}{\from{okuverb.dtx}{okuverb}}
diff --git a/Master/texmf-dist/tex/platex/jsclasses/jsarticle.cls b/Master/texmf-dist/tex/platex/jsclasses/jsarticle.cls
new file mode 100644
index 00000000000..777377d3c88
--- /dev/null
+++ b/Master/texmf-dist/tex/platex/jsclasses/jsarticle.cls
@@ -0,0 +1,1821 @@
+%%
+%% This is file `jsarticle.cls',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% jsclasses.dtx  (with options: `article')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from jsarticle.cls.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file jsclasses.dtx.
+%% 
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+\NeedsTeXFormat{pLaTeX2e}
+\ProvidesClass{jsarticle}
+  [2010/03/14 okumura]
+\newif\if@restonecol
+\newif\if@titlepage
+\newif\if@enablejfam \@enablejfamtrue
+\DeclareOption{a3paper}{%
+  \setlength\paperheight {420mm}%
+  \setlength\paperwidth  {297mm}}
+\DeclareOption{a4paper}{%
+  \setlength\paperheight {297mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{a5paper}{%
+  \setlength\paperheight {210mm}%
+  \setlength\paperwidth  {148mm}}
+\DeclareOption{a6paper}{%
+  \setlength\paperheight {148mm}%
+  \setlength\paperwidth  {105mm}}
+\DeclareOption{b4paper}{%
+  \setlength\paperheight {364mm}%
+  \setlength\paperwidth  {257mm}}
+\DeclareOption{b5paper}{%
+  \setlength\paperheight {257mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{b6paper}{%
+  \setlength\paperheight {182mm}%
+  \setlength\paperwidth  {128mm}}
+\DeclareOption{a4j}{%
+  \setlength\paperheight {297mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{a5j}{%
+  \setlength\paperheight {210mm}%
+  \setlength\paperwidth  {148mm}}
+\DeclareOption{b4j}{%
+  \setlength\paperheight {364mm}%
+  \setlength\paperwidth  {257mm}}
+\DeclareOption{b5j}{%
+  \setlength\paperheight {257mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{a4var}{%
+  \setlength\paperheight {283mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{b5var}{%
+  \setlength\paperheight {230mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{letterpaper}{%
+  \setlength\paperheight {11in}%
+  \setlength\paperwidth  {8.5in}}
+\DeclareOption{legalpaper}{%
+  \setlength\paperheight {14in}%
+  \setlength\paperwidth  {8.5in}}
+\DeclareOption{executivepaper}{%
+  \setlength\paperheight {10.5in}%
+  \setlength\paperwidth  {7.25in}}
+\newif\if@landscape
+\@landscapefalse
+\DeclareOption{landscape}{\@landscapetrue}
+\newif\if@slide
+\@slidefalse
+\newcommand{\@ptsize}{0}
+\DeclareOption{slide}{\@slidetrue\renewcommand{\@ptsize}{26}\@landscapetrue\@titlepagetrue}
+\DeclareOption{8pt}{\renewcommand{\@ptsize}{-2}}
+\DeclareOption{9pt}{\renewcommand{\@ptsize}{-1}}
+\DeclareOption{10pt}{\renewcommand{\@ptsize}{0}}
+\DeclareOption{11pt}{\renewcommand{\@ptsize}{1}}
+\DeclareOption{12pt}{\renewcommand{\@ptsize}{2}}
+\DeclareOption{14pt}{\renewcommand{\@ptsize}{4}}
+\DeclareOption{17pt}{\renewcommand{\@ptsize}{7}}
+\DeclareOption{20pt}{\renewcommand{\@ptsize}{10}}
+\DeclareOption{21pt}{\renewcommand{\@ptsize}{11}}
+\DeclareOption{25pt}{\renewcommand{\@ptsize}{15}}
+\DeclareOption{30pt}{\renewcommand{\@ptsize}{20}}
+\DeclareOption{36pt}{\renewcommand{\@ptsize}{26}}
+\DeclareOption{43pt}{\renewcommand{\@ptsize}{33}}
+\DeclareOption{12Q}{\renewcommand{\@ptsize}{1200}}
+\DeclareOption{14Q}{\renewcommand{\@ptsize}{1400}}
+\hour\time \divide\hour by 60\relax
+\@tempcnta\hour \multiply\@tempcnta 60\relax
+\minute\time \advance\minute-\@tempcnta
+\DeclareOption{tombow}{%
+  \tombowtrue \tombowdatetrue
+  \setlength{\@tombowwidth}{.1\p@}%
+  \@bannertoken{%
+     \jobname\space(\number\year-\two@digits\month-\two@digits\day
+     \space\two@digits\hour:\two@digits\minute)}%
+  \maketombowbox}
+\DeclareOption{tombo}{%
+  \tombowtrue \tombowdatefalse
+  \setlength{\@tombowwidth}{.1\p@}%
+  \maketombowbox}
+\DeclareOption{mentuke}{%
+  \tombowtrue \tombowdatefalse
+  \setlength{\@tombowwidth}{\z@}%
+  \maketombowbox}
+\DeclareOption{oneside}{\@twosidefalse \@mparswitchfalse}
+\DeclareOption{twoside}{\@twosidetrue \@mparswitchtrue}
+\DeclareOption{vartwoside}{\@twosidetrue \@mparswitchfalse}
+\DeclareOption{onecolumn}{\@twocolumnfalse}
+\DeclareOption{twocolumn}{\@twocolumntrue}
+\DeclareOption{titlepage}{\@titlepagetrue}
+\DeclareOption{notitlepage}{\@titlepagefalse}
+\def\eqnarray{%
+   \stepcounter{equation}%
+   \def\@currentlabel{\p@equation\theequation}%
+   \global\@eqnswtrue
+   \m@th
+   \global\@eqcnt\z@
+   \tabskip\@centering
+   \let\\\@eqncr
+   $$\everycr{}\halign to\displaywidth\bgroup
+       \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
+      &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
+      &\global\@eqcnt\tw@ $\displaystyle{##}$\hfil\tabskip\@centering
+      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
+         \tabskip\z@skip
+      \cr}
+\DeclareOption{leqno}{\input{leqno.clo}}
+\DeclareOption{fleqn}{\input{fleqn.clo}%
+  \def\eqnarray{%
+    \stepcounter{equation}%
+    \def\@currentlabel{\p@equation\theequation}%
+    \global\@eqnswtrue\m@th
+    \global\@eqcnt\z@
+    \tabskip\mathindent
+    \let\\=\@eqncr
+    \setlength\abovedisplayskip{\topsep}%
+    \ifvmode
+      \addtolength\abovedisplayskip{\partopsep}%
+    \fi
+    \addtolength\abovedisplayskip{\parskip}%
+    \setlength\belowdisplayskip{\abovedisplayskip}%
+    \setlength\belowdisplayshortskip{\abovedisplayskip}%
+    \setlength\abovedisplayshortskip{\abovedisplayskip}%
+    $$\everycr{}\halign to\linewidth% $$
+    \bgroup
+      \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
+      &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
+      &\global\@eqcnt\tw@
+        $\displaystyle{##}$\hfil \tabskip\@centering
+      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
+    \tabskip\z@skip\cr
+    }}
+\DeclareOption{disablejfam}{\@enablejfamfalse}
+\newif\ifdraft
+\DeclareOption{draft}{\drafttrue \setlength\overfullrule{5pt}}
+\DeclareOption{final}{\draftfalse \setlength\overfullrule{0pt}}
+\newif\ifwinjis
+\winjisfalse
+\newif\ifmingoth
+\mingothfalse
+\newif\ifjisfont
+\jisfontfalse
+\newif\if@jsc@uplatex
+\@jsc@uplatexfalse
+\DeclareOption{mingoth}{\mingothtrue}
+\DeclareOption{winjis}{\winjistrue}
+\DeclareOption{jis}{\jisfonttrue}
+\DeclareOption{uplatex}{\@jsc@uplatextrue\winjisfalse}
+\def\jsc@JYn{\if@jsc@uplatex JY2\else JY1\fi}
+\def\jsc@JTn{\if@jsc@uplatex JT2\else JT1\fi}
+\def\jsc@pfx@{\if@jsc@uplatex u\else \fi}
+\newif\ifpapersize
+\papersizefalse
+\DeclareOption{papersize}{\papersizetrue}
+\newif\if@english
+\@englishfalse
+\DeclareOption{english}{\@englishtrue}
+\ExecuteOptions{a4paper,oneside,onecolumn,notitlepage,final}
+\ProcessOptions
+\if@slide
+  \def\maybeblue{\@ifundefined{ver@color.sty}{}{\color{blue}}}
+\fi
+\if@landscape
+  \setlength\@tempdima  {\paperheight}
+  \setlength\paperheight{\paperwidth}
+  \setlength\paperwidth {\@tempdima}
+\fi
+\ifpapersize
+  \setlength{\@tempdima}{\paperwidth}
+  \setlength{\@tempdimb}{\paperheight}
+  \iftombow
+    \advance \@tempdima 2in
+    \advance \@tempdimb 2in
+  \fi
+  \AtBeginDvi{\special{papersize=\the\@tempdima,\the\@tempdimb}}
+\fi
+\if@slide\def\n@baseline{13}\else\def\n@baseline{16}\fi
+\def\inv@mag{1}
+\ifnum\@ptsize=-2
+  \mag 833
+  \def\inv@mag{1.20048}
+  \def\n@baseline{15}%
+\fi
+\ifnum\@ptsize=-1
+  \mag 913 % formerly 900
+  \def\inv@mag{1.09529}
+  \def\n@baseline{15}%
+\fi
+\ifnum\@ptsize=1
+  \mag 1095 % formerly 1100
+  \def\inv@mag{0.913242}
+\fi
+\ifnum\@ptsize=2
+  \mag 1200
+  \def\inv@mag{0.833333}
+\fi
+\ifnum\@ptsize=4
+  \mag 1440
+  \def\inv@mag{0.694444}
+\fi
+\ifnum\@ptsize=7
+  \mag 1728
+  \def\inv@mag{0.578704}
+\fi
+\ifnum\@ptsize=10
+  \mag 2000
+  \def\inv@mag{0.5}
+\fi
+\ifnum\@ptsize=11
+  \mag 2074
+  \def\inv@mag{0.48216}
+\fi
+\ifnum\@ptsize=15
+  \mag 2488
+  \def\inv@mag{0.401929}
+\fi
+\ifnum\@ptsize=20
+  \mag 2986
+  \def\inv@mag{0.334896}
+\fi
+\ifnum\@ptsize=26
+  \mag 3583
+  \def\inv@mag{0.279096}
+\fi
+\ifnum\@ptsize=33
+  \mag 4300
+  \def\inv@mag{0.232558}
+\fi
+\ifnum\@ptsize=1200
+  \mag 923
+  \def\inv@mag{1.0834236}
+\fi
+\ifnum\@ptsize=1400
+  \mag 1077
+  \def\inv@mag{0.928505}
+\fi
+\setlength\paperwidth{\inv@mag\paperwidth}%
+\setlength\paperheight{\inv@mag\paperheight}%
+\ifwinjis
+  \DeclareFontShape{JY1}{mc}{m}{n}{<-> s * [0.961] winjis}{}
+  \DeclareFontShape{JY1}{gt}{m}{n}{<-> s * [0.961] winjisg}{}
+  \DeclareFontShape{JT1}{mc}{m}{n}{<-> s * [0.961] winjis-v}{}
+  \DeclareFontShape{JT1}{gt}{m}{n}{<-> s * [0.961] winjisg-v}{}
+\else
+  \ifmingoth
+    \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ min10}{}
+    \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ goth10}{}
+    \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
+    \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
+  \else
+    \ifjisfont
+      \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ jis}{}
+      \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ jisg}{}
+      \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
+      \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
+    \else
+      \if@jsc@uplatex
+        \DeclareFontShape{JY2}{mc}{m}{n}{<-> s * [0.924690] upjisr-h}{}
+        \DeclareFontShape{JY2}{gt}{m}{n}{<-> s * [0.924690] upjisg-h}{}
+        \DeclareFontShape{JT2}{mc}{m}{n}{<-> s * [0.924690] upjisr-v}{}
+        \DeclareFontShape{JT2}{gt}{m}{n}{<-> s * [0.924690] upjisg-v}{}
+      \else
+        \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ jis}{}
+        \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ jisg}{}
+        \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
+        \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
+      \fi
+    \fi
+  \fi
+\fi
+\DeclareFontShape{\jsc@JYn}{mc}{m}{it}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{m}{sl}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{m}{sc}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{gt}{m}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{gt}{m}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{bx}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{it}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{sl}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{sc}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{gt}{m}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{gt}{m}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{bx}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
+\DeclareRobustCommand\rmfamily
+        {\not@math@alphabet\rmfamily\mathrm
+         \romanfamily\rmdefault\kanjifamily\mcdefault\selectfont}
+\DeclareRobustCommand\sffamily
+        {\not@math@alphabet\sffamily\mathsf
+         \romanfamily\sfdefault\kanjifamily\gtdefault\selectfont}
+\DeclareRobustCommand\ttfamily
+        {\not@math@alphabet\ttfamily\mathtt
+         \romanfamily\ttdefault\kanjifamily\gtdefault\selectfont}
+\def\textmc#1{\relax\ifmmode\hbox\fi{\mcfamily #1}}
+\def\textgt#1{\relax\ifmmode\hbox\fi{\gtfamily #1}}
+\def\reDeclareMathAlphabet#1#2#3{%
+  \edef\@tempa{\expandafter\@gobble\string#2}%
+  \edef\@tempb{\expandafter\@gobble\string#3}%
+  \edef\@tempc{\string @\expandafter\@gobbletwo\string#2}%
+  \ifx\@tempc\@tempa%
+    \edef\@tempa{\expandafter\@gobbletwo\string#2}%
+    \edef\@tempb{\expandafter\@gobbletwo\string#3}%
+  \fi
+  \begingroup
+    \let\protect\noexpand
+    \def\@tempaa{\relax}%
+    \expandafter\ifx\csname RDMAorg@\@tempa\endcsname\relax
+      \edef\@tempaa{\expandafter\def\expandafter\noexpand%
+        \csname RDMAorg@\@tempa\endcsname{%
+          \expandafter\noexpand\csname\@tempa\endcsname}}%
+    \fi
+    \def\@tempbb{\relax}%
+    \expandafter\ifx\csname RDMAorg@\@tempb\endcsname\relax
+      \edef\@tempbb{\expandafter\def\expandafter\noexpand%
+        \csname RDMAorg@\@tempb\endcsname{%
+          \expandafter\noexpand\csname\@tempb\endcsname}}%
+    \fi
+    \edef\@tempc{\@tempaa\@tempbb}%
+  \expandafter\endgroup\@tempc%
+  \edef#1{\noexpand\protect\expandafter\noexpand\csname%
+    \expandafter\@gobble\string#1\space\space\endcsname}%
+  \expandafter\edef\csname\expandafter\@gobble\string#1\space\space\endcsname%
+    {\noexpand\DualLang@mathalph@bet%
+      {\expandafter\noexpand\csname RDMAorg@\@tempa\endcsname}%
+      {\expandafter\noexpand\csname RDMAorg@\@tempb\endcsname}%
+  }%
+}
+\@onlypreamble\reDeclareMathAlphabet
+\def\DualLang@mathalph@bet#1#2{%
+  \relax\ifmmode
+    \ifx\math@bgroup\bgroup%     2e normal style     (\mathrm{...})
+      \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
+    \else
+      \ifx\math@bgroup\relax%    2e two letter style (\rm->\mathrm)
+        \let\DualLang@Mfontsw\DLMfontsw@oldstyle
+      \else
+        \ifx\math@bgroup\@empty% 2.09 oldlfont style ({\mathrm ...})
+          \let\DualLang@Mfontsw\DLMfontsw@oldlfont
+        \else%                   panic! assume 2e normal style
+          \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
+        \fi
+      \fi
+    \fi
+  \else
+    \let\DualLang@Mfontsw\@firstoftwo
+  \fi
+  \DualLang@Mfontsw{#1}{#2}%
+}
+\def\DLMfontsw@standard#1#2#3{#1{#2{#3}}\egroup}
+\def\DLMfontsw@oldstyle#1#2{#1\relax\@fontswitch\relax{#2}}
+\def\DLMfontsw@oldlfont#1#2{#1\relax#2\relax}
+\if@enablejfam
+  \if@compatibility\else
+    \DeclareSymbolFont{mincho}{\jsc@JYn}{mc}{m}{n}
+    \DeclareSymbolFontAlphabet{\mathmc}{mincho}
+    \SetSymbolFont{mincho}{bold}{\jsc@JYn}{gt}{m}{n}
+    \jfam\symmincho
+    \DeclareMathAlphabet{\mathgt}{\jsc@JYn}{gt}{m}{n}
+  \fi
+  \AtBeginDocument{%
+    \reDeclareMathAlphabet{\mathrm}{\@mathrm}{\@mathmc}
+    \reDeclareMathAlphabet{\mathbf}{\@mathbf}{\@mathgt}}
+\fi
+\prebreakpenalty\jis"2147=10000      % 5000   ’
+\postbreakpenalty\jis"2148=10000     % 5000   “
+\prebreakpenalty\jis"2149=10000      % 5000   ”
+\inhibitxspcode`〒=2
+\xspcode`+=3
+\xspcode`\%=3
+\xspcode`^^80=3
+\xspcode`^^81=3
+\xspcode`^^82=3
+\xspcode`^^83=3
+\xspcode`^^84=3
+\xspcode`^^85=3
+\xspcode`^^86=3
+\xspcode`^^87=3
+\xspcode`^^88=3
+\xspcode`^^89=3
+\xspcode`^^8a=3
+\xspcode`^^8b=3
+\xspcode`^^8c=3
+\xspcode`^^8d=3
+\xspcode`^^8e=3
+\xspcode`^^8f=3
+\xspcode`^^90=3
+\xspcode`^^91=3
+\xspcode`^^92=3
+\xspcode`^^93=3
+\xspcode`^^94=3
+\xspcode`^^95=3
+\xspcode`^^96=3
+\xspcode`^^97=3
+\xspcode`^^98=3
+\xspcode`^^99=3
+\xspcode`^^9a=3
+\xspcode`^^9b=3
+\xspcode`^^9c=3
+\xspcode`^^9d=3
+\xspcode`^^9e=3
+\xspcode`^^9f=3
+\xspcode`^^a0=3
+\xspcode`^^a1=3
+\xspcode`^^a2=3
+\xspcode`^^a3=3
+\xspcode`^^a4=3
+\xspcode`^^a5=3
+\xspcode`^^a6=3
+\xspcode`^^a7=3
+\xspcode`^^a8=3
+\xspcode`^^a9=3
+\xspcode`^^aa=3
+\xspcode`^^ab=3
+\xspcode`^^ac=3
+\xspcode`^^ad=3
+\xspcode`^^ae=3
+\xspcode`^^af=3
+\xspcode`^^b0=3
+\xspcode`^^b1=3
+\xspcode`^^b2=3
+\xspcode`^^b3=3
+\xspcode`^^b4=3
+\xspcode`^^b5=3
+\xspcode`^^b6=3
+\xspcode`^^b7=3
+\xspcode`^^b8=3
+\xspcode`^^b9=3
+\xspcode`^^ba=3
+\xspcode`^^bb=3
+\xspcode`^^bc=3
+\xspcode`^^bd=3
+\xspcode`^^be=3
+\xspcode`^^bf=3
+\xspcode`^^c0=3
+\xspcode`^^c1=3
+\xspcode`^^c2=3
+\xspcode`^^c3=3
+\xspcode`^^c4=3
+\xspcode`^^c5=3
+\xspcode`^^c6=3
+\xspcode`^^c7=3
+\xspcode`^^c8=3
+\xspcode`^^c9=3
+\xspcode`^^ca=3
+\xspcode`^^cb=3
+\xspcode`^^cc=3
+\xspcode`^^cd=3
+\xspcode`^^ce=3
+\xspcode`^^cf=3
+\xspcode`^^d0=3
+\xspcode`^^d1=3
+\xspcode`^^d2=3
+\xspcode`^^d3=3
+\xspcode`^^d4=3
+\xspcode`^^d5=3
+\xspcode`^^d6=3
+\xspcode`^^d7=3
+\xspcode`^^d8=3
+\xspcode`^^d9=3
+\xspcode`^^da=3
+\xspcode`^^db=3
+\xspcode`^^dc=3
+\xspcode`^^dd=3
+\xspcode`^^de=3
+\xspcode`^^df=3
+\xspcode`^^e0=3
+\xspcode`^^e1=3
+\xspcode`^^e2=3
+\xspcode`^^e3=3
+\xspcode`^^e4=3
+\xspcode`^^e5=3
+\xspcode`^^e6=3
+\xspcode`^^e7=3
+\xspcode`^^e8=3
+\xspcode`^^e9=3
+\xspcode`^^ea=3
+\xspcode`^^eb=3
+\xspcode`^^ec=3
+\xspcode`^^ed=3
+\xspcode`^^ee=3
+\xspcode`^^ef=3
+\xspcode`^^f0=3
+\xspcode`^^f1=3
+\xspcode`^^f2=3
+\xspcode`^^f3=3
+\xspcode`^^f4=3
+\xspcode`^^f5=3
+\xspcode`^^f6=3
+\xspcode`^^f7=3
+\xspcode`^^f8=3
+\xspcode`^^f9=3
+\xspcode`^^fa=3
+\xspcode`^^fb=3
+\xspcode`^^fc=3
+\xspcode`^^fd=3
+\xspcode`^^fe=3
+\xspcode`^^ff=3
+\def\@{\spacefactor3000\space}
+\def\@setfontsize#1#2#3{%
+  \ifx\protect\@typeset@protect
+    \let\@currsize#1%
+  \fi
+  \fontsize{#2}{#3}\selectfont
+  \ifdim\parindent>\z@
+    \if@english
+      \parindent=1em
+    \else
+      \parindent=1zw
+    \fi
+  \fi
+  \kanjiskip=0zw plus .1zw minus .01zw
+  \ifdim\xkanjiskip>\z@
+    \if@slide \xkanjiskip=0.1em \else
+      \xkanjiskip=0.25em plus 0.15em minus 0.06em
+    \fi
+  \fi}
+\emergencystretch 3zw
+\newif\ifnarrowbaselines
+\if@english
+  \narrowbaselinestrue
+\fi
+\def\narrowbaselines{%
+  \narrowbaselinestrue
+  \skip0=\abovedisplayskip
+  \skip2=\abovedisplayshortskip
+  \skip4=\belowdisplayskip
+  \skip6=\belowdisplayshortskip
+  \@currsize\selectfont
+  \abovedisplayskip=\skip0
+  \abovedisplayshortskip=\skip2
+  \belowdisplayskip=\skip4
+  \belowdisplayshortskip=\skip6\relax}
+\def\widebaselines{\narrowbaselinesfalse\@currsize\selectfont}
+\renewcommand{\normalsize}{%
+  \ifnarrowbaselines
+    \@setfontsize\normalsize\@xpt\@xiipt
+  \else
+    \@setfontsize\normalsize\@xpt{\n@baseline}%
+  \fi
+  \abovedisplayskip 11\p@ \@plus3\p@ \@minus4\p@
+  \abovedisplayshortskip \z@ \@plus3\p@
+  \belowdisplayskip 9\p@ \@plus3\p@ \@minus4\p@
+  \belowdisplayshortskip \belowdisplayskip
+  \let\@listi\@listI}
+\normalsize
+\setbox0\hbox{\char\euc"A1A1}%
+\setlength\Cht{\ht0}
+\setlength\Cdp{\dp0}
+\setlength\Cwd{\wd0}
+\setlength\Cvs{\baselineskip}
+\setlength\Chs{\wd0}
+\newcommand{\small}{%
+  \ifnarrowbaselines
+    \@setfontsize\small\@ixpt{11}%
+  \else
+    \@setfontsize\small\@ixpt{13}%
+  \fi
+  \abovedisplayskip 9\p@ \@plus3\p@ \@minus4\p@
+  \abovedisplayshortskip  \z@ \@plus3\p@
+  \belowdisplayskip \abovedisplayskip
+  \belowdisplayshortskip \belowdisplayskip
+  \def\@listi{\leftmargin\leftmargini
+              \topsep \z@
+              \parsep \z@
+              \itemsep \parsep}}
+\newcommand{\footnotesize}{%
+  \ifnarrowbaselines
+    \@setfontsize\footnotesize\@viiipt{9.5}%
+  \else
+    \@setfontsize\footnotesize\@viiipt{11}%
+  \fi
+  \abovedisplayskip 6\p@ \@plus2\p@ \@minus3\p@
+  \abovedisplayshortskip  \z@ \@plus2\p@
+  \belowdisplayskip \abovedisplayskip
+  \belowdisplayshortskip \belowdisplayskip
+  \def\@listi{\leftmargin\leftmargini
+              \topsep \z@
+              \parsep \z@
+              \itemsep \parsep}}
+\newcommand{\scriptsize}{\@setfontsize\scriptsize\@viipt\@viiipt}
+\newcommand{\tiny}{\@setfontsize\tiny\@vpt\@vipt}
+\if@twocolumn
+  \newcommand{\large}{\@setfontsize\large\@xiipt{\n@baseline}}
+\else
+  \newcommand{\large}{\@setfontsize\large\@xiipt{17}}
+\fi
+\newcommand{\Large}{\@setfontsize\Large\@xivpt{21}}
+\newcommand{\LARGE}{\@setfontsize\LARGE\@xviipt{25}}
+\newcommand{\huge}{\@setfontsize\huge\@xxpt{28}}
+\newcommand{\Huge}{\@setfontsize\Huge\@xxvpt{33}}
+\newcommand{\HUGE}{\@setfontsize\HUGE{30}{40}}
+\everydisplay=\expandafter{\the\everydisplay \narrowbaselines}
+\newcommand{\headfont}{\gtfamily\sffamily}
+\setlength\columnsep{2zw}
+\setlength\columnseprule{0\p@}
+\setlength\lineskip{1\p@}
+\setlength\normallineskip{1\p@}
+\setlength\lineskiplimit{1\p@}
+\setlength\normallineskiplimit{1\p@}
+\renewcommand{\baselinestretch}{}
+\setlength\parskip{0\p@}
+\if@slide
+  \setlength\parindent{0zw}
+\else
+  \setlength\parindent{1zw}
+\fi
+\@lowpenalty   51
+\@medpenalty  151
+\@highpenalty 301
+\setlength\topskip{10\p@}
+\if@slide
+  \setlength\headheight{0\p@}
+\else
+  \setlength\headheight{2\topskip}
+\fi
+\if@slide
+  \setlength\footskip{0pt}
+\else
+  \setlength\footskip{0.03367\paperheight}
+  \ifdim\footskip<\baselineskip
+    \setlength\footskip{\baselineskip}
+  \fi
+\fi
+\if@slide
+  \setlength\headsep{0\p@}
+\else
+  \setlength\headsep{\footskip}
+  \addtolength\headsep{-\topskip}
+\fi
+\setlength\maxdepth{.5\topskip}
+\newdimen\fullwidth
+\if@slide
+  \setlength\fullwidth{0.9\paperwidth}
+\else
+  \setlength\fullwidth{0.76\paperwidth}
+\fi
+\if@twocolumn \@tempdima=2zw \else \@tempdima=1zw \fi
+\divide\fullwidth\@tempdima \multiply\fullwidth\@tempdima
+\setlength\textwidth{\fullwidth}
+\if@slide
+  \setlength{\textheight}{0.95\paperheight}
+\else
+  \setlength{\textheight}{0.83\paperheight}
+\fi
+\addtolength{\textheight}{-\topskip}
+\addtolength{\textheight}{-\headsep}
+\addtolength{\textheight}{-\footskip}
+\addtolength{\textheight}{-\topskip}
+\divide\textheight\baselineskip
+\multiply\textheight\baselineskip
+\addtolength{\textheight}{\topskip}
+\addtolength{\textheight}{0.1\p@}
+\setlength\marginparsep{\columnsep}
+\setlength\marginparpush{\baselineskip}
+\setlength{\oddsidemargin}{\paperwidth}
+\addtolength{\oddsidemargin}{-\fullwidth}
+\setlength{\oddsidemargin}{.5\oddsidemargin}
+\iftombow
+  \addtolength{\oddsidemargin}{-1in}
+\else
+  \addtolength{\oddsidemargin}{-\inv@mag in}
+\fi
+\setlength{\evensidemargin}{\oddsidemargin}
+\if@mparswitch
+  \addtolength{\evensidemargin}{\fullwidth}
+  \addtolength{\evensidemargin}{-\textwidth}
+\fi
+\setlength\marginparwidth{\paperwidth}
+\addtolength\marginparwidth{-\oddsidemargin}
+\addtolength\marginparwidth{-\inv@mag in}
+\addtolength\marginparwidth{-\textwidth}
+\addtolength\marginparwidth{-1cm}
+\addtolength\marginparwidth{-\marginparsep}
+\@tempdima=1zw
+\divide\marginparwidth\@tempdima
+\multiply\marginparwidth\@tempdima
+\setlength\topmargin{\paperheight}
+\addtolength\topmargin{-\textheight}
+\if@slide
+  \addtolength\topmargin{-\headheight}
+\else
+  \addtolength\topmargin{-\topskip}
+\fi
+\addtolength\topmargin{-\headsep}
+\addtolength\topmargin{-\footskip}
+\setlength\topmargin{0.5\topmargin}
+\iftombow
+  \addtolength\topmargin{-1in}
+\else
+  \addtolength\topmargin{-\inv@mag in}
+\fi
+{\footnotesize\global\setlength\footnotesep{\baselineskip}}
+\setlength\footnotesep{0.7\footnotesep}
+\setlength{\skip\footins}{16\p@ \@plus 5\p@ \@minus 2\p@}
+\setcounter{topnumber}{9}
+\renewcommand{\topfraction}{.85}
+\setcounter{bottomnumber}{9}
+\renewcommand{\bottomfraction}{.8}
+\setcounter{totalnumber}{20}
+\renewcommand{\textfraction}{.1}
+\renewcommand{\floatpagefraction}{.8}
+\setcounter{dbltopnumber}{9}
+\renewcommand{\dbltopfraction}{.8}
+\renewcommand{\dblfloatpagefraction}{.8}
+\setlength\floatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\textfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}
+\setlength\intextsep   {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\dblfloatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\dbltextfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}
+\setlength\@fptop{0\p@ \@plus 1fil}
+\setlength\@fpsep{8\p@ \@plus 2fil}
+\setlength\@fpbot{0\p@ \@plus 1fil}
+\setlength\@dblfptop{0\p@ \@plus 1fil}
+\setlength\@dblfpsep{8\p@ \@plus 2fil}
+\setlength\@dblfpbot{0\p@ \@plus 1fil}
+\def\ps@plainfoot{%
+  \let\@mkboth\@gobbletwo
+  \let\@oddhead\@empty
+  \def\@oddfoot{\normalfont\hfil\thepage\hfil}%
+  \let\@evenhead\@empty
+  \let\@evenfoot\@oddfoot}
+\def\ps@plainhead{%
+  \let\@mkboth\@gobbletwo
+  \let\@oddfoot\@empty
+  \let\@evenfoot\@empty
+  \def\@evenhead{%
+    \if@mparswitch \hss \fi
+    \hbox to \fullwidth{\textbf{\thepage}\hfil}%
+    \if@mparswitch\else \hss \fi}%
+  \def\@oddhead{%
+    \hbox to \fullwidth{\hfil\textbf{\thepage}}\hss}}
+\let\ps@plain\ps@plainfoot
+\if@twoside
+  \def\ps@headings{%
+    \let\@oddfoot\@empty
+    \let\@evenfoot\@empty
+    \def\@evenhead{\if@mparswitch \hss \fi
+      \underline{\hbox to \fullwidth{\textbf{\thepage}\hfil\leftmark}}%
+      \if@mparswitch\else \hss \fi}%
+    \def\@oddhead{%
+      \underline{%
+        \hbox to \fullwidth{{\rightmark}\hfil\textbf{\thepage}}}\hss}%
+    \let\@mkboth\markboth
+    \def\sectionmark##1{\markboth{%
+       \ifnum \c@secnumdepth >\z@ \thesection \hskip1zw\fi
+       ##1}{}}%
+    \def\subsectionmark##1{\markright{%
+       \ifnum \c@secnumdepth >\@ne \thesubsection \hskip1zw\fi
+       ##1}}%
+  }
+\else % if not twoside
+  \def\ps@headings{%
+    \let\@oddfoot\@empty
+    \def\@oddhead{%
+      \underline{%
+        \hbox to \fullwidth{{\rightmark}\hfil\textbf{\thepage}}}\hss}%
+    \let\@mkboth\markboth
+    \def\sectionmark##1{\markright{%
+        \ifnum \c@secnumdepth >\z@ \thesection \hskip1zw\fi
+        ##1}}}
+\fi
+\def\ps@myheadings{%
+  \let\@oddfoot\@empty\let\@evenfoot\@empty
+  \def\@evenhead{%
+    \if@mparswitch \hss \fi%
+    \hbox to \fullwidth{\thepage\hfil\leftmark}%
+    \if@mparswitch\else \hss \fi}%
+  \def\@oddhead{%
+    \hbox to \fullwidth{\rightmark\hfil\thepage}\hss}%
+  \let\@mkboth\@gobbletwo
+  \let\sectionmark\@gobble
+  \let\subsectionmark\@gobble
+}
+\def\plainifnotempty{%
+  \ifx \@oddhead \@empty
+    \ifx \@oddfoot \@empty
+    \else
+      \thispagestyle{plainfoot}%
+    \fi
+  \else
+    \thispagestyle{plainhead}%
+  \fi}
+\if@titlepage
+  \newcommand{\maketitle}{%
+    \begin{titlepage}%
+      \let\footnotesize\small
+      \let\footnoterule\relax
+      \let\footnote\thanks
+      \null\vfil
+      \if@slide
+        {\footnotesize \@date}%
+        \begin{center}
+          \mbox{} \\[1zw]
+          \large
+          {\maybeblue\hrule height0pt depth2pt\relax}\par
+          \smallskip
+          \@title
+          \smallskip
+          {\maybeblue\hrule height0pt depth2pt\relax}\par
+          \vfill
+          {\small \@author}%
+        \end{center}
+      \else
+      \vskip 60\p@
+      \begin{center}%
+        {\LARGE \@title \par}%
+        \vskip 3em%
+        {\large
+          \lineskip .75em
+          \begin{tabular}[t]{c}%
+            \@author
+          \end{tabular}\par}%
+        \vskip 1.5em
+        {\large \@date \par}%
+      \end{center}%
+      \fi
+      \par
+      \@thanks\vfil\null
+    \end{titlepage}%
+    \setcounter{footnote}{0}%
+    \global\let\thanks\relax
+    \global\let\maketitle\relax
+    \global\let\@thanks\@empty
+    \global\let\@author\@empty
+    \global\let\@date\@empty
+    \global\let\@title\@empty
+    \global\let\title\relax
+    \global\let\author\relax
+    \global\let\date\relax
+    \global\let\and\relax
+  }%
+\else
+  \newcommand{\maketitle}{\par
+    \begingroup
+      \renewcommand\thefootnote{\@fnsymbol\c@footnote}%
+      \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%
+      \long\def\@makefntext##1{\advance\leftskip 3zw
+        \parindent 1zw\noindent
+        \llap{\@textsuperscript{\normalfont\@thefnmark}\hskip0.3zw}##1}%
+      \if@twocolumn
+        \ifnum \col@number=\@ne
+          \@maketitle
+        \else
+          \twocolumn[\@maketitle]%
+        \fi
+      \else
+        \newpage
+        \global\@topnum\z@  % Prevents figures from going at top of page.
+        \@maketitle
+      \fi
+      \plainifnotempty
+      \@thanks
+    \endgroup
+    \setcounter{footnote}{0}%
+    \global\let\thanks\relax
+    \global\let\maketitle\relax
+    \global\let\@thanks\@empty
+    \global\let\@author\@empty
+    \global\let\@date\@empty
+    \global\let\@title\@empty
+    \global\let\title\relax
+    \global\let\author\relax
+    \global\let\date\relax
+    \global\let\and\relax
+  }
+  \def\@maketitle{%
+    \newpage\null
+    \vskip 2em
+    \begin{center}%
+      \let\footnote\thanks
+      {\LARGE \@title \par}%
+      \vskip 1.5em
+      {\large
+        \lineskip .5em
+        \begin{tabular}[t]{c}%
+          \@author
+        \end{tabular}\par}%
+      \vskip 1em
+      {\large \@date}%
+    \end{center}%
+    \par\vskip 1.5em
+    \ifvoid\@abstractbox\else\centerline{\box\@abstractbox}\vskip1.5em\fi
+  }
+\fi
+\def\@startsection#1#2#3#4#5#6{%
+  \if@noskipsec \leavevmode \fi
+  \par
+  \@tempskipa #4\relax
+  \if@english \@afterindentfalse \else \@afterindenttrue \fi
+  \ifdim \@tempskipa <\z@
+    \@tempskipa -\@tempskipa \@afterindentfalse
+  \fi
+  \if@nobreak
+    \everypar{}%
+  \else
+    \addpenalty\@secpenalty
+    \ifdim \@tempskipa >\z@
+      \if@slide\else
+        \null
+        \vspace*{-\baselineskip}%
+      \fi
+      \vskip\@tempskipa
+    \fi
+  \fi
+  \noindent
+  \@ifstar
+    {\@ssect{#3}{#4}{#5}{#6}}%
+    {\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}
+\def\@sect#1#2#3#4#5#6[#7]#8{%
+  \ifnum #2>\c@secnumdepth
+    \let\@svsec\@empty
+  \else
+    \refstepcounter{#1}%
+    \protected@edef\@svsec{\@seccntformat{#1}\relax}%
+  \fi
+  \@tempskipa #5\relax
+  \ifdim \@tempskipa<\z@
+    \def\@svsechd{%
+      #6{\hskip #3\relax
+      \@svsec #8}%
+      \csname #1mark\endcsname{#7}%
+      \addcontentsline{toc}{#1}{%
+        \ifnum #2>\c@secnumdepth \else
+          \protect\numberline{\csname the#1\endcsname}%
+        \fi
+        #7}}% 目次にフルネームを載せるなら #8
+  \else
+    \begingroup
+      \interlinepenalty \@M % 下から移動
+      #6{%
+        \@hangfrom{\hskip #3\relax\@svsec}%
+        #8\@@par}%
+    \endgroup
+    \csname #1mark\endcsname{#7}%
+    \addcontentsline{toc}{#1}{%
+      \ifnum #2>\c@secnumdepth \else
+        \protect\numberline{\csname the#1\endcsname}%
+      \fi
+      #7}% 目次にフルネームを載せるならここは #8
+  \fi
+  \@xsect{#5}}
+\def\@xsect#1{%
+  \@tempskipa #1\relax
+  \ifdim \@tempskipa<\z@
+    \@nobreakfalse
+    \global\@noskipsectrue
+    \everypar{%
+      \if@noskipsec
+        \global\@noskipsecfalse
+       {\setbox\z@\lastbox}%
+        \clubpenalty\@M
+        \begingroup \@svsechd \endgroup
+        \unskip
+        \@tempskipa #1\relax
+        \hskip -\@tempskipa
+      \else
+        \clubpenalty \@clubpenalty
+        \everypar{\everyparhook}%
+      \fi\everyparhook}%
+  \else
+    \par \nobreak
+    \vskip \@tempskipa
+    \@afterheading
+  \fi
+  \if@slide
+    {\vskip-6pt\maybeblue\hrule height0pt depth1pt\vskip7pt\relax}%
+  \fi
+  \par  % 2000-12-18
+  \ignorespaces}
+\def\@ssect#1#2#3#4#5{%
+  \@tempskipa #3\relax
+  \ifdim \@tempskipa<\z@
+    \def\@svsechd{#4{\hskip #1\relax #5}}%
+  \else
+    \begingroup
+      #4{%
+        \@hangfrom{\hskip #1}%
+          \interlinepenalty \@M #5\@@par}%
+    \endgroup
+  \fi
+  \@xsect{#3}}
+\newcommand*\chaptermark[1]{}
+\setcounter{secnumdepth}{3}
+\newcounter{part}
+\newcounter{section}
+\newcounter{subsection}[section]
+\newcounter{subsubsection}[subsection]
+\newcounter{paragraph}[subsubsection]
+\newcounter{subparagraph}[paragraph]
+\renewcommand{\thepart}{\@Roman\c@part}
+% \renewcommand{\thesection}{\@arabic\c@section}
+\renewcommand{\thesection}{\presectionname\@arabic\c@section\postsectionname}
+\renewcommand{\thesubsection}{\@arabic\c@section.\@arabic\c@subsection}
+\renewcommand{\thesubsubsection}{%
+   \thesubsection.\@arabic\c@subsubsection}
+\renewcommand{\theparagraph}{%
+   \thesubsubsection.\@arabic\c@paragraph}
+\renewcommand{\thesubparagraph}{%
+   \theparagraph.\@arabic\c@subparagraph}
+\newcommand\part{%
+  \if@noskipsec \leavevmode \fi
+  \par
+  \addvspace{4ex}%
+  \if@english \@afterindentfalse \else \@afterindenttrue \fi
+  \secdef\@part\@spart}
+\def\@part[#1]#2{%
+  \ifnum \c@secnumdepth >\m@ne
+    \refstepcounter{part}%
+    \addcontentsline{toc}{part}{%
+      \prepartname\thepart\postpartname\hspace{1zw}#1}%
+  \else
+    \addcontentsline{toc}{part}{#1}%
+  \fi
+  \markboth{}{}%
+  {\parindent\z@
+    \raggedright
+    \interlinepenalty \@M
+    \normalfont
+    \ifnum \c@secnumdepth >\m@ne
+      \Large\headfont\prepartname\thepart\postpartname
+      \par\nobreak
+    \fi
+    \huge \headfont #2%
+    \markboth{}{}\par}%
+  \nobreak
+  \vskip 3ex
+  \@afterheading}
+\def\@spart#1{{%
+    \parindent \z@ \raggedright
+    \interlinepenalty \@M
+    \normalfont
+    \huge \headfont #1\par}%
+  \nobreak
+  \vskip 3ex
+  \@afterheading}
+\if@twocolumn
+  \newcommand{\section}{%
+    \@startsection{section}{1}{\z@}%
+    {0.6\Cvs}{0.4\Cvs}%
+    {\normalfont\large\headfont\raggedright}}
+\else
+  \newcommand{\section}{%
+    \if@slide\clearpage\fi
+    \@startsection{section}{1}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
+    {\normalfont\Large\headfont\raggedright}}
+\fi
+\if@twocolumn
+  \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
+    {\z@}{\z@}%
+    {\normalfont\normalsize\headfont}}
+\else
+  \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
+    {\normalfont\large\headfont}}
+\fi
+\if@twocolumn
+  \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
+    {\z@}{\z@}%
+    {\normalfont\normalsize\headfont}}
+\else
+  \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
+    {\z@}%
+    {\normalfont\normalsize\headfont}}
+\fi
+\if@twocolumn
+  \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
+    {\z@}{-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont ■}}
+\else
+  \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
+    {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
+    {-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont ■}}
+\fi
+\newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
+   {\z@}{-1zw}%
+   {\normalfont\normalsize\headfont}}
+\if@slide
+  \setlength\leftmargini{1zw}
+\else
+  \if@twocolumn
+    \setlength\leftmargini{2zw}
+  \else
+    \setlength\leftmargini{3zw}
+  \fi
+\fi
+\if@slide
+  \setlength\leftmarginii {1zw}
+  \setlength\leftmarginiii{1zw}
+  \setlength\leftmarginiv {1zw}
+  \setlength\leftmarginv  {1zw}
+  \setlength\leftmarginvi {1zw}
+\else
+  \setlength\leftmarginii {2zw}
+  \setlength\leftmarginiii{2zw}
+  \setlength\leftmarginiv {2zw}
+  \setlength\leftmarginv  {1zw}
+  \setlength\leftmarginvi {1zw}
+\fi
+\setlength  \labelsep  {0.5zw} % .5em
+\setlength  \labelwidth{\leftmargini}
+\addtolength\labelwidth{-\labelsep}
+\setlength\partopsep{\z@} % {2\p@ \@plus 1\p@ \@minus 1\p@}
+\@beginparpenalty -\@lowpenalty
+\@endparpenalty   -\@lowpenalty
+\@itempenalty     -\@lowpenalty
+\def\@listi{\leftmargin\leftmargini
+  \parsep \z@
+  \topsep 0.5\baselineskip
+  \itemsep \z@ \relax}
+\let\@listI\@listi
+\@listi
+\def\@listii{\leftmargin\leftmarginii
+  \labelwidth\leftmarginii \advance\labelwidth-\labelsep
+  \topsep \z@
+  \parsep \z@
+  \itemsep\parsep}
+\def\@listiii{\leftmargin\leftmarginiii
+  \labelwidth\leftmarginiii \advance\labelwidth-\labelsep
+  \topsep \z@
+  \parsep \z@
+  \itemsep\parsep}
+\def\@listiv {\leftmargin\leftmarginiv
+              \labelwidth\leftmarginiv
+              \advance\labelwidth-\labelsep}
+\def\@listv  {\leftmargin\leftmarginv
+              \labelwidth\leftmarginv
+              \advance\labelwidth-\labelsep}
+\def\@listvi {\leftmargin\leftmarginvi
+              \labelwidth\leftmarginvi
+              \advance\labelwidth-\labelsep}
+\renewcommand{\theenumi}{\@arabic\c@enumi}
+\renewcommand{\theenumii}{\@alph\c@enumii}
+\renewcommand{\theenumiii}{\@roman\c@enumiii}
+\renewcommand{\theenumiv}{\@Alph\c@enumiv}
+\newcommand{\labelenumi}{\theenumi.}
+\newcommand{\labelenumii}{\inhibitglue（\theenumii）\inhibitglue}
+\newcommand{\labelenumiii}{\theenumiii.}
+\newcommand{\labelenumiv}{\theenumiv.}
+\renewcommand{\p@enumii}{\theenumi}
+\renewcommand{\p@enumiii}{\theenumi\inhibitglue（\theenumii）}
+\renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
+\newcommand\labelitemi{\textbullet}
+\newcommand\labelitemii{\normalfont\bfseries \textendash}
+\newcommand\labelitemiii{\textasteriskcentered}
+\newcommand\labelitemiv{\textperiodcentered}
+\newenvironment{description}{%
+  \list{}{%
+    \labelwidth=\leftmargin
+    \labelsep=1zw
+    \advance \labelwidth by -\labelsep
+    \let \makelabel=\descriptionlabel}}{\endlist}
+\newcommand*\descriptionlabel[1]{\normalfont\headfont #1\hfil}
+\newbox\@abstractbox
+\if@titlepage
+  \newenvironment{abstract}{%
+    \titlepage
+    \null\vfil
+    \@beginparpenalty\@lowpenalty
+    \begin{center}%
+      \headfont \abstractname
+      \@endparpenalty\@M
+    \end{center}}%
+  {\par\vfil\null\endtitlepage}
+\else
+  \newenvironment{abstract}{%
+    \if@twocolumn
+      \ifx\maketitle\relax
+        \section*{\abstractname}%
+      \else
+        \global\setbox\@abstractbox\hbox\bgroup
+        \begin{minipage}[b]{\textwidth}
+          \small\parindent1zw
+          \begin{center}%
+            {\headfont \abstractname\vspace{-.5em}\vspace{\z@}}%
+          \end{center}%
+          \list{}{%
+            \listparindent\parindent
+            \itemindent \listparindent
+            \rightmargin \leftmargin}%
+          \item\relax
+      \fi
+    \else
+      \small
+      \begin{center}%
+        {\headfont \abstractname\vspace{-.5em}\vspace{\z@}}%
+      \end{center}%
+      \list{}{%
+        \listparindent\parindent
+        \itemindent \listparindent
+        \rightmargin \leftmargin}%
+      \item\relax
+    \fi}{\if@twocolumn
+      \ifx\maketitle\relax
+      \else
+        \endlist\end{minipage}\egroup
+      \fi
+    \else
+      \endlist
+    \fi}
+\fi
+\newenvironment{verse}{%
+  \let \\=\@centercr
+  \list{}{%
+    \itemsep \z@
+    \itemindent -2zw % 元: -1.5em
+    \listparindent\itemindent
+    \rightmargin \z@
+    \advance\leftmargin 2zw}% 元: 1.5em
+  \item\relax}{\endlist}
+\newenvironment{quotation}{%
+  \list{}{%
+    \listparindent\parindent
+    \itemindent\listparindent
+    \rightmargin \z@}%
+  \item\relax}{\endlist}
+\newenvironment{quote}%
+  {\list{}{\rightmargin\z@}\item\relax}{\endlist}
+\def\@begintheorem#1#2{\trivlist\labelsep=1zw
+   \item[\hskip \labelsep{\headfont #1\ #2}]}
+\def\@opargbegintheorem#1#2#3{\trivlist\labelsep=1zw
+      \item[\hskip \labelsep{\headfont #1\ #2（#3）}]}
+\newenvironment{titlepage}{%
+    \if@twocolumn
+      \@restonecoltrue\onecolumn
+    \else
+      \@restonecolfalse\newpage
+    \fi
+    \thispagestyle{empty}%
+    \setcounter{page}\@ne
+  }%
+  {\if@restonecol\twocolumn \else \newpage \fi
+    \if@twoside\else
+      \setcounter{page}\@ne
+    \fi}
+\newcommand{\appendix}{\par
+  \setcounter{section}{0}%
+  \setcounter{subsection}{0}%
+  \gdef\presectionname{\appendixname}%
+  \gdef\postsectionname{}%
+  \gdef\thesection{\presectionname\@Alph\c@section\postsectionname}%
+  \gdef\thesubsection{\@Alph\c@section.\@arabic\c@subsection}}
+\setlength\arraycolsep{5\p@}
+\setlength\tabcolsep{6\p@}
+\setlength\arrayrulewidth{.4\p@}
+\setlength\doublerulesep{2\p@}
+\setlength\tabbingsep{\labelsep}
+\skip\@mpfootins = \skip\footins
+\setlength\fboxsep{3\p@}
+\setlength\fboxrule{.4\p@}
+\renewcommand \theequation {\@arabic\c@equation}
+\newcounter{figure}
+\renewcommand \thefigure {\@arabic\c@figure}
+\def\fps@figure{tbp}
+\def\ftype@figure{1}
+\def\ext@figure{lof}
+\def\fnum@figure{\figurename\nobreak\thefigure}
+\newenvironment{figure}%
+               {\@float{figure}}%
+               {\end@float}
+\newenvironment{figure*}%
+               {\@dblfloat{figure}}%
+               {\end@dblfloat}
+\newcounter{table}
+\renewcommand\thetable{\@arabic\c@table}
+\def\fps@table{tbp}
+\def\ftype@table{2}
+\def\ext@table{lot}
+\def\fnum@table{\tablename\nobreak\thetable}
+\newenvironment{table}%
+               {\@float{table}}%
+               {\end@float}
+\newenvironment{table*}%
+               {\@dblfloat{table}}%
+               {\end@dblfloat}
+\newlength\abovecaptionskip
+\newlength\belowcaptionskip
+\setlength\abovecaptionskip{5\p@} % 元: 10\p@
+\setlength\belowcaptionskip{5\p@} % 元: 0\p@
+\long\def\@makecaption#1#2{{\small
+  \advance\leftskip .0628\linewidth
+  \advance\rightskip .0628\linewidth
+  \vskip\abovecaptionskip
+  \sbox\@tempboxa{#1\hskip1zw\relax #2}%
+  \ifdim \wd\@tempboxa <\hsize \centering \fi
+  #1\hskip1zw\relax #2\par
+  \vskip\belowcaptionskip}}
+\DeclareOldFontCommand{\mc}{\normalfont\mcfamily}{\mathmc}
+\DeclareOldFontCommand{\gt}{\normalfont\gtfamily}{\mathgt}
+\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
+\DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
+\DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
+\DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
+\DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
+\DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
+\DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
+\DeclareRobustCommand*{\cal}{\@fontswitch\relax\mathcal}
+\DeclareRobustCommand*{\mit}{\@fontswitch\relax\mathnormal}
+\newcommand\@pnumwidth{1.55em}
+\newcommand\@tocrmarg{2.55em}
+\newcommand\@dotsep{4.5}
+\setcounter{tocdepth}{2}
+\newcommand{\tableofcontents}{%
+  \section*{\contentsname}%
+  \@mkboth{\contentsname}{\contentsname}%
+  \@starttoc{toc}%
+}
+\newcommand*{\l@part}[2]{%
+  \ifnum \c@tocdepth >-2\relax
+    \addpenalty\@secpenalty
+    \addvspace{2.25em \@plus\p@}%
+    \begingroup
+      \parindent \z@
+      \rightskip \@tocrmarg
+      \parfillskip -\rightskip
+      {\leavevmode
+        \large \headfont
+        \setlength\@lnumwidth{4zw}%
+        #1\hfil \hb@xt@\@pnumwidth{\hss #2}}\par
+      \nobreak
+    \endgroup
+  \fi}
+\newcommand*{\l@section}[2]{%
+  \ifnum \c@tocdepth >\z@
+    \addpenalty{\@secpenalty}%
+    \addvspace{1.0em \@plus\p@}%
+    \begingroup
+      \parindent\z@
+      \rightskip\@tocrmarg
+      \parfillskip-\rightskip
+      \leavevmode\headfont
+      \setlength\@lnumwidth{4zw}% 元1.5em [2003-03-02]
+      \advance\leftskip\@lnumwidth \hskip-\leftskip
+      #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
+    \endgroup
+  \fi}
+\newcommand*{\l@subsection}   {\@dottedtocline{2}{1zw}{3zw}}
+\newcommand*{\l@subsubsection}{\@dottedtocline{3}{2zw}{3zw}}
+\newcommand*{\l@paragraph}    {\@dottedtocline{4}{3zw}{3zw}}
+\newcommand*{\l@subparagraph} {\@dottedtocline{5}{4zw}{3zw}}
+\newdimen\@lnumwidth
+\def\numberline#1{\hb@xt@\@lnumwidth{#1\hfil}\hspace{0pt}}
+\def\@dottedtocline#1#2#3#4#5{\ifnum #1>\c@tocdepth \else
+  \vskip \z@ \@plus.2\p@
+  {\leftskip #2\relax \rightskip \@tocrmarg \parfillskip -\rightskip
+    \parindent #2\relax\@afterindenttrue
+   \interlinepenalty\@M
+   \leavevmode
+   \@lnumwidth #3\relax
+   \advance\leftskip \@lnumwidth \null\nobreak\hskip -\leftskip
+    {#4}\nobreak
+    \leaders\hbox{$\m@th \mkern \@dotsep mu\hbox{.}\mkern \@dotsep
+       mu$}\hfill \nobreak\hb@xt@\@pnumwidth{%
+         \hfil\normalfont \normalcolor #5}\par}\fi}
+\newcommand{\listoffigures}{%
+  \section*{\listfigurename}%
+  \@mkboth{\listfigurename}{\listfigurename}%
+  \@starttoc{lof}%
+}
+\newcommand*{\l@figure}{\@dottedtocline{1}{1zw}{3.683zw}}
+\newcommand{\listoftables}{%
+  \section*{\listtablename}%
+  \@mkboth{\listtablename}{\listtablename}%
+  \@starttoc{lot}%
+}
+\let\l@table\l@figure
+\newdimen\bibindent
+\setlength\bibindent{2zw}
+\newenvironment{thebibliography}[1]{%
+  \global\let\presectionname\relax
+  \global\let\postsectionname\relax
+  \section*{\refname}\@mkboth{\refname}{\refname}%
+   \list{\@biblabel{\@arabic\c@enumiv}}%
+        {\settowidth\labelwidth{\@biblabel{#1}}%
+         \leftmargin\labelwidth
+         \advance\leftmargin\labelsep
+         \@openbib@code
+         \usecounter{enumiv}%
+         \let\p@enumiv\@empty
+         \renewcommand\theenumiv{\@arabic\c@enumiv}}%
+   \sloppy
+   \clubpenalty4000
+   \@clubpenalty\clubpenalty
+   \widowpenalty4000%
+   \sfcode`\.\@m}
+  {\def\@noitemerr
+    {\@latex@warning{Empty `thebibliography' environment}}%
+   \endlist}
+\newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
+\let\@openbib@code\@empty
+\newenvironment{theindex}{% 索引を3段組で出力する環境
+    \if@twocolumn
+      \onecolumn\@restonecolfalse
+    \else
+      \clearpage\@restonecoltrue
+    \fi
+    \columnseprule.4pt \columnsep 2zw
+    \ifx\multicols\@undefined
+      \def\presectionname{}\def\postsectionname{}%
+      \twocolumn[\section*{\indexname}]%
+    \else
+      \ifdim\textwidth<\fullwidth
+        \setlength{\evensidemargin}{\oddsidemargin}
+        \setlength{\textwidth}{\fullwidth}
+        \setlength{\linewidth}{\fullwidth}
+        \def\presectionname{}\def\postsectionname{}%
+        \begin{multicols}{3}[\section*{\indexname}]%
+      \else
+        \def\presectionname{}\def\postsectionname{}%
+        \begin{multicols}{2}[\section*{\indexname}]%
+      \fi
+    \fi
+    \@mkboth{\indexname}{\indexname}%
+    \plainifnotempty % \thispagestyle{plain}
+    \parindent\z@
+    \parskip\z@ \@plus .3\p@\relax
+    \let\item\@idxitem
+    \raggedright
+    \footnotesize\narrowbaselines
+  }{
+    \ifx\multicols\@undefined
+      \if@restonecol\onecolumn\fi
+    \else
+      \end{multicols}
+    \fi
+    \clearpage
+  }
+\newcommand{\@idxitem}{\par\hangindent 4zw} % 元 40pt
+\newcommand{\subitem}{\@idxitem \hspace*{2zw}} % 元 20pt
+\newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % 元 30pt
+\newcommand{\indexspace}{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax}
+\newcommand\seename{\if@english see\else →\fi}
+\newcommand\alsoname{\if@english see also\else →\fi}
+\let\footnotes@ve=\footnote
+\def\footnote{\inhibitglue\footnotes@ve}
+\let\footnotemarks@ve=\footnotemark
+\def\footnotemark{\inhibitglue\footnotemarks@ve}
+\def\thefootnote{\ifnum\c@footnote>\z@\leavevmode\lower.5ex\hbox{*}\@arabic\c@footnote\fi}
+\renewcommand{\footnoterule}{%
+  \kern-3\p@
+  \hrule width .4\columnwidth
+  \kern 2.6\p@}
+\long\def\@footnotetext{%
+  \insert\footins\bgroup
+    \normalfont\footnotesize
+    \interlinepenalty\interfootnotelinepenalty
+    \splittopskip\footnotesep
+    \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
+    \hsize\columnwidth \@parboxrestore
+    \protected@edef\@currentlabel{%
+       \csname p@footnote\endcsname\@thefnmark
+    }%
+    \color@begingroup
+      \@makefntext{%
+        \rule\z@\footnotesep\ignorespaces}%
+      \futurelet\next\fo@t}
+\def\fo@t{\ifcat\bgroup\noexpand\next \let\next\f@@t
+                                \else \let\next\f@t\fi \next}
+\def\f@@t{\bgroup\aftergroup\@foot\let\next}
+\def\f@t#1{#1\@foot}
+\def\@foot{\@finalstrut\strutbox\color@endgroup\egroup}
+\newcommand\@makefntext[1]{%
+  \advance\leftskip 3zw
+  \parindent 1zw
+  \noindent
+  \llap{\@makefnmark\hskip0.3zw}#1}
+\def\@inhibitglue{%
+  \futurelet\@let@token\@@inhibitglue}
+\def\@@inhibitglue{%
+  \ifx\@let@token「
+    \inhibitglue
+  \else
+    \ifx\@let@token（
+      \inhibitglue
+    \else
+      \ifx\@let@token『
+        \inhibitglue
+      \else
+        \ifx\@let@token［
+          \inhibitglue
+        \fi
+      \fi
+    \fi
+  \fi}
+\let\everyparhook=\@inhibitglue
+\AtBeginDocument{\everypar{\everyparhook}}
+\def\@doendpe{%
+  \@endpetrue
+  \def\par{%
+    \@restorepar\everypar{\everyparhook}\par\@endpefalse}%
+  \everypar{{\setbox\z@\lastbox}\everypar{\everyparhook}\@endpefalse\everyparhook}}
+\def\@item[#1]{%
+  \if@noparitem
+    \@donoparitem
+  \else
+    \if@inlabel
+      \indent \par
+    \fi
+    \ifhmode
+      \unskip\unskip \par
+    \fi
+    \if@newlist
+      \if@nobreak
+        \@nbitem
+      \else
+        \addpenalty\@beginparpenalty
+        \addvspace\@topsep
+        \addvspace{-\parskip}%
+      \fi
+    \else
+      \addpenalty\@itempenalty
+      \addvspace\itemsep
+    \fi
+    \global\@inlabeltrue
+  \fi
+  \everypar{%
+    \@minipagefalse
+    \global\@newlistfalse
+    \if@inlabel
+      \global\@inlabelfalse
+      {\setbox\z@\lastbox
+       \ifvoid\z@
+         \kern-\itemindent
+       \fi}%
+      \box\@labels
+      \penalty\z@
+    \fi
+    \if@nobreak
+      \@nobreakfalse
+      \clubpenalty \@M
+    \else
+      \clubpenalty \@clubpenalty
+      \everypar{\everyparhook}%
+    \fi\everyparhook}%
+  \if@noitemarg
+    \@noitemargfalse
+    \if@nmbrlist
+      \refstepcounter\@listctr
+    \fi
+  \fi
+  \sbox\@tempboxa{\makelabel{#1}}%
+  \global\setbox\@labels\hbox{%
+    \unhbox\@labels
+    \hskip \itemindent
+    \hskip -\labelwidth
+    \hskip -\labelsep
+    \ifdim \wd\@tempboxa >\labelwidth
+      \box\@tempboxa
+    \else
+      \hbox to\labelwidth {\unhbox\@tempboxa}%
+    \fi
+    \hskip \labelsep}%
+  \ignorespaces}
+\def\@afterheading{%
+  \@nobreaktrue
+  \everypar{%
+    \if@nobreak
+      \@nobreakfalse
+      \clubpenalty \@M
+      \if@afterindent \else
+        {\setbox\z@\lastbox}%
+      \fi
+    \else
+      \clubpenalty \@clubpenalty
+      \everypar{\everyparhook}%
+    \fi\everyparhook}}
+\def\@gnewline #1{%
+  \ifvmode
+    \@nolnerr
+  \else
+    \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
+    \inhibitglue \ignorespaces
+  \fi}
+\def\小#1{\hbox{$\m@th$%
+  \csname S@\f@size\endcsname
+  \fontsize\sf@size\z@
+  \math@fontsfalse\selectfont
+  #1}}
+\def\上小#1{{\sbox\z@ T\vbox to\ht0{\小{#1}\vss}}}
+\def\cmrTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.25em\lower.5ex\hbox{E}\kern-.125emX\@
+  \else
+    T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX\@
+  \fi}
+\def\cmrLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.32em\上小{A}\kern-.22em\cmrTeX
+  \else
+    L\kern-.36em\上小{A}\kern-.15em\cmrTeX
+  \fi}
+\def\sfTeX{T\kern-.1em\lower.4ex\hbox{E}\kern-.07emX\@}
+\def\sfLaTeX{L\kern-.25em\上小{A}\kern-.08em\sfTeX}
+\def\ptmTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.12em\lower.37ex\hbox{E}\kern-.02emX\@
+  \else
+    T\kern-.07em\lower.37ex\hbox{E}\kern-.05emX\@
+  \fi}
+\def\ptmLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.2em\上小{A}\kern-.1em\ptmTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.1em\ptmTeX
+  \fi}
+\def\pncTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.2em\lower.5ex\hbox{E}\kern-.08emX\@
+  \else
+    T\kern-.13em\lower.5ex\hbox{E}\kern-.13emX\@
+  \fi}
+\def\pncLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
+  \fi}
+\def\pplTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.17em\lower.32ex\hbox{E}\kern-.15emX\@
+  \else
+    T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
+  \fi}
+\def\pplLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.27em\上小{A}\kern-.12em\pplTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.15em\pplTeX
+  \fi}
+\def\ugmTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.1em\lower.32ex\hbox{E}\kern-.06emX\@
+  \else
+    T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
+  \fi}
+\def\ugmLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.2em\上小{A}\kern-.13em\ugmTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.13em\ugmTeX
+  \fi}
+\DeclareRobustCommand{\TeX}{%
+  \def\@tempa{cmr}%
+  \ifx\f@family\@tempa\cmrTeX
+  \else
+    \def\@tempa{ptm}%
+    \ifx\f@family\@tempa\ptmTeX
+    \else
+      \def\@tempa{txr}%
+      \ifx\f@family\@tempa\ptmTeX
+      \else
+        \def\@tempa{pnc}%
+        \ifx\f@family\@tempa\pncTeX
+        \else
+          \def\@tempa{ppl}%
+          \ifx\f@family\@tempa\pplTeX
+          \else
+            \def\@tempa{ugm}%
+            \ifx\f@family\@tempa\ugmTeX
+            \else\sfTeX
+            \fi
+          \fi
+        \fi
+      \fi
+    \fi
+  \fi}
+
+\DeclareRobustCommand{\LaTeX}{%
+  \def\@tempa{cmr}%
+  \ifx\f@family\@tempa\cmrLaTeX
+  \else
+    \def\@tempa{ptm}%
+    \ifx\f@family\@tempa\ptmLaTeX
+    \else
+      \def\@tempa{txr}%
+      \ifx\f@family\@tempa\ptmLaTeX
+      \else
+        \def\@tempa{pnc}%
+        \ifx\f@family\@tempa\pncLaTeX
+        \else
+          \def\@tempa{ppl}%
+          \ifx\f@family\@tempa\pplLaTeX
+          \else
+            \def\@tempa{ugm}%
+            \ifx\f@family\@tempa\ugmLaTeX
+            \else\sfLaTeX
+            \fi
+          \fi
+        \fi
+      \fi
+    \fi
+  \fi}
+\DeclareRobustCommand{\LaTeXe}{$\mbox{%
+  \if b\expandafter\@car\f@series\@nil\boldmath\fi
+  \LaTeX\kern.15em2\raisebox{-.37ex}{$\textstyle\varepsilon$}}$}
+\def\pTeX{p\kern-.05em\TeX}
+\def\pLaTeX{p\LaTeX}
+\def\pLaTeXe{p\LaTeXe}
+\def\AmSTeX{\protect\AmS-\protect\TeX{}}
+\DeclareRobustCommand{\BibTeX}{B\kern-.05em\小{I\kern-.025em B}%
+  \ifx\f@family\cmr\kern-.08em\else\kern-.15em\fi\TeX}
+\DeclareRobustCommand{\SliTeX}{%
+  S\kern-.06emL\kern-.18em\上小{I}\kern -.03em\TeX}
+\let\ltx@ifnextchar\@ifnextchar
+\def\ProvidesFile#1{%
+  \begingroup
+    \catcode`\ 10 %
+    \ifnum \endlinechar<256 %
+      \ifnum \endlinechar>\m@ne
+        \catcode\endlinechar 10 %
+      \fi
+    \fi
+    \@makeother\/%
+    \@makeother\&%
+    \ltx@ifnextchar[{\@providesfile{#1}}{\@providesfile{#1}[]}}
+\newcommand{\prepartname}{\if@english Part~\else 第\fi}
+\newcommand{\postpartname}{\if@english\else 部\fi}
+\newcommand{\presectionname}{}%  第
+\newcommand{\postsectionname}{}% 節
+\newcommand{\contentsname}{\if@english Contents\else 目次\fi}
+\newcommand{\listfigurename}{\if@english List of Figures\else 図目次\fi}
+\newcommand{\listtablename}{\if@english List of Tables\else 表目次\fi}
+\newcommand{\refname}{\if@english References\else 参考文献\fi}
+\newcommand{\bibname}{\if@english Bibliography\else 参考文献\fi}
+\newcommand{\indexname}{\if@english Index\else 索引\fi}
+\newcommand{\figurename}{\if@english Fig.~\else 図\fi}
+\newcommand{\tablename}{\if@english Table.~\else 表\fi}
+\newcommand{\appendixname}{\if@english Appendix~\else 付録\fi}
+\newcommand{\abstractname}{\if@english Abstract\else 概要\fi}
+\newif\if西暦 \西暦true
+\def\西暦{\西暦true}
+\def\和暦{\西暦false}
+\newcount\heisei \heisei\year \advance\heisei-1988\relax
+\def\today{%
+  \if@english
+    \ifcase\month\or
+      January\or February\or March\or April\or May\or June\or
+      July\or August\or September\or October\or November\or December\fi
+      \space\number\day, \number\year
+  \else
+    \if西暦
+      \number\year 年
+      \number\month 月
+      \number\day 日
+    \else
+      平成\number\heisei 年
+      \number\month 月
+      \number\day 日
+    \fi
+  \fi}
+\hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script}
+\if@slide \pagestyle{empty} \else \pagestyle{plain} \fi
+\pagenumbering{arabic}
+\if@twocolumn
+  \twocolumn
+  \sloppy
+  \flushbottom
+\else
+  \onecolumn
+  \raggedbottom
+\fi
+\if@slide
+  \renewcommand\kanjifamilydefault{\gtdefault}
+  \renewcommand\familydefault{\sfdefault}
+  \raggedright
+  \xkanjiskip=0.1em\relax
+\fi
+\endinput
+%%
+%% End of file `jsarticle.cls'.
diff --git a/Master/texmf-dist/tex/platex/jsclasses/jsbook.cls b/Master/texmf-dist/tex/platex/jsclasses/jsbook.cls
new file mode 100644
index 00000000000..da17d3ebcb5
--- /dev/null
+++ b/Master/texmf-dist/tex/platex/jsclasses/jsbook.cls
@@ -0,0 +1,1897 @@
+%%
+%% This is file `jsbook.cls',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% jsclasses.dtx  (with options: `book')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from jsbook.cls.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file jsclasses.dtx.
+%% 
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+\NeedsTeXFormat{pLaTeX2e}
+\ProvidesClass{jsbook}
+  [2010/03/14 okumura]
+\newif\if@restonecol
+\newif\if@titlepage
+\newif\if@openright
+\newif\if@mainmatter \@mainmattertrue
+\newif\if@enablejfam \@enablejfamtrue
+\DeclareOption{a3paper}{%
+  \setlength\paperheight {420mm}%
+  \setlength\paperwidth  {297mm}}
+\DeclareOption{a4paper}{%
+  \setlength\paperheight {297mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{a5paper}{%
+  \setlength\paperheight {210mm}%
+  \setlength\paperwidth  {148mm}}
+\DeclareOption{a6paper}{%
+  \setlength\paperheight {148mm}%
+  \setlength\paperwidth  {105mm}}
+\DeclareOption{b4paper}{%
+  \setlength\paperheight {364mm}%
+  \setlength\paperwidth  {257mm}}
+\DeclareOption{b5paper}{%
+  \setlength\paperheight {257mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{b6paper}{%
+  \setlength\paperheight {182mm}%
+  \setlength\paperwidth  {128mm}}
+\DeclareOption{a4j}{%
+  \setlength\paperheight {297mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{a5j}{%
+  \setlength\paperheight {210mm}%
+  \setlength\paperwidth  {148mm}}
+\DeclareOption{b4j}{%
+  \setlength\paperheight {364mm}%
+  \setlength\paperwidth  {257mm}}
+\DeclareOption{b5j}{%
+  \setlength\paperheight {257mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{a4var}{%
+  \setlength\paperheight {283mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{b5var}{%
+  \setlength\paperheight {230mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{letterpaper}{%
+  \setlength\paperheight {11in}%
+  \setlength\paperwidth  {8.5in}}
+\DeclareOption{legalpaper}{%
+  \setlength\paperheight {14in}%
+  \setlength\paperwidth  {8.5in}}
+\DeclareOption{executivepaper}{%
+  \setlength\paperheight {10.5in}%
+  \setlength\paperwidth  {7.25in}}
+\newif\if@landscape
+\@landscapefalse
+\DeclareOption{landscape}{\@landscapetrue}
+\newif\if@slide
+\@slidefalse
+\newcommand{\@ptsize}{0}
+\DeclareOption{slide}{\@slidetrue\renewcommand{\@ptsize}{26}\@landscapetrue\@titlepagetrue}
+\DeclareOption{8pt}{\renewcommand{\@ptsize}{-2}}
+\DeclareOption{9pt}{\renewcommand{\@ptsize}{-1}}
+\DeclareOption{10pt}{\renewcommand{\@ptsize}{0}}
+\DeclareOption{11pt}{\renewcommand{\@ptsize}{1}}
+\DeclareOption{12pt}{\renewcommand{\@ptsize}{2}}
+\DeclareOption{14pt}{\renewcommand{\@ptsize}{4}}
+\DeclareOption{17pt}{\renewcommand{\@ptsize}{7}}
+\DeclareOption{20pt}{\renewcommand{\@ptsize}{10}}
+\DeclareOption{21pt}{\renewcommand{\@ptsize}{11}}
+\DeclareOption{25pt}{\renewcommand{\@ptsize}{15}}
+\DeclareOption{30pt}{\renewcommand{\@ptsize}{20}}
+\DeclareOption{36pt}{\renewcommand{\@ptsize}{26}}
+\DeclareOption{43pt}{\renewcommand{\@ptsize}{33}}
+\DeclareOption{12Q}{\renewcommand{\@ptsize}{1200}}
+\DeclareOption{14Q}{\renewcommand{\@ptsize}{1400}}
+\hour\time \divide\hour by 60\relax
+\@tempcnta\hour \multiply\@tempcnta 60\relax
+\minute\time \advance\minute-\@tempcnta
+\DeclareOption{tombow}{%
+  \tombowtrue \tombowdatetrue
+  \setlength{\@tombowwidth}{.1\p@}%
+  \@bannertoken{%
+     \jobname\space(\number\year-\two@digits\month-\two@digits\day
+     \space\two@digits\hour:\two@digits\minute)}%
+  \maketombowbox}
+\DeclareOption{tombo}{%
+  \tombowtrue \tombowdatefalse
+  \setlength{\@tombowwidth}{.1\p@}%
+  \maketombowbox}
+\DeclareOption{mentuke}{%
+  \tombowtrue \tombowdatefalse
+  \setlength{\@tombowwidth}{\z@}%
+  \maketombowbox}
+\DeclareOption{oneside}{\@twosidefalse \@mparswitchfalse}
+\DeclareOption{twoside}{\@twosidetrue \@mparswitchtrue}
+\DeclareOption{vartwoside}{\@twosidetrue \@mparswitchfalse}
+\DeclareOption{onecolumn}{\@twocolumnfalse}
+\DeclareOption{twocolumn}{\@twocolumntrue}
+\DeclareOption{titlepage}{\@titlepagetrue}
+\DeclareOption{notitlepage}{\@titlepagefalse}
+\DeclareOption{openright}{\@openrighttrue}
+\DeclareOption{openany}{\@openrightfalse}
+\def\eqnarray{%
+   \stepcounter{equation}%
+   \def\@currentlabel{\p@equation\theequation}%
+   \global\@eqnswtrue
+   \m@th
+   \global\@eqcnt\z@
+   \tabskip\@centering
+   \let\\\@eqncr
+   $$\everycr{}\halign to\displaywidth\bgroup
+       \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
+      &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
+      &\global\@eqcnt\tw@ $\displaystyle{##}$\hfil\tabskip\@centering
+      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
+         \tabskip\z@skip
+      \cr}
+\DeclareOption{leqno}{\input{leqno.clo}}
+\DeclareOption{fleqn}{\input{fleqn.clo}%
+  \def\eqnarray{%
+    \stepcounter{equation}%
+    \def\@currentlabel{\p@equation\theequation}%
+    \global\@eqnswtrue\m@th
+    \global\@eqcnt\z@
+    \tabskip\mathindent
+    \let\\=\@eqncr
+    \setlength\abovedisplayskip{\topsep}%
+    \ifvmode
+      \addtolength\abovedisplayskip{\partopsep}%
+    \fi
+    \addtolength\abovedisplayskip{\parskip}%
+    \setlength\belowdisplayskip{\abovedisplayskip}%
+    \setlength\belowdisplayshortskip{\abovedisplayskip}%
+    \setlength\abovedisplayshortskip{\abovedisplayskip}%
+    $$\everycr{}\halign to\linewidth% $$
+    \bgroup
+      \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
+      &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
+      &\global\@eqcnt\tw@
+        $\displaystyle{##}$\hfil \tabskip\@centering
+      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
+    \tabskip\z@skip\cr
+    }}
+\DeclareOption{disablejfam}{\@enablejfamfalse}
+\newif\ifdraft
+\DeclareOption{draft}{\drafttrue \setlength\overfullrule{5pt}}
+\DeclareOption{final}{\draftfalse \setlength\overfullrule{0pt}}
+\newif\ifwinjis
+\winjisfalse
+\newif\ifmingoth
+\mingothfalse
+\newif\ifjisfont
+\jisfontfalse
+\newif\if@jsc@uplatex
+\@jsc@uplatexfalse
+\DeclareOption{mingoth}{\mingothtrue}
+\DeclareOption{winjis}{\winjistrue}
+\DeclareOption{jis}{\jisfonttrue}
+\DeclareOption{uplatex}{\@jsc@uplatextrue\winjisfalse}
+\def\jsc@JYn{\if@jsc@uplatex JY2\else JY1\fi}
+\def\jsc@JTn{\if@jsc@uplatex JT2\else JT1\fi}
+\def\jsc@pfx@{\if@jsc@uplatex u\else \fi}
+\newif\ifpapersize
+\papersizefalse
+\DeclareOption{papersize}{\papersizetrue}
+\newif\if@english
+\@englishfalse
+\DeclareOption{english}{\@englishtrue}
+\newif\if@report
+\@reportfalse
+\DeclareOption{report}{\@reporttrue\@openrightfalse\@twosidefalse\@mparswitchfalse}
+\ExecuteOptions{a4paper,twoside,onecolumn,titlepage,openright,final}
+\ProcessOptions
+\if@slide
+  \def\maybeblue{\@ifundefined{ver@color.sty}{}{\color{blue}}}
+\fi
+\if@landscape
+  \setlength\@tempdima  {\paperheight}
+  \setlength\paperheight{\paperwidth}
+  \setlength\paperwidth {\@tempdima}
+\fi
+\ifpapersize
+  \setlength{\@tempdima}{\paperwidth}
+  \setlength{\@tempdimb}{\paperheight}
+  \iftombow
+    \advance \@tempdima 2in
+    \advance \@tempdimb 2in
+  \fi
+  \AtBeginDvi{\special{papersize=\the\@tempdima,\the\@tempdimb}}
+\fi
+\if@slide\def\n@baseline{13}\else\def\n@baseline{16}\fi
+\def\inv@mag{1}
+\ifnum\@ptsize=-2
+  \mag 833
+  \def\inv@mag{1.20048}
+  \def\n@baseline{15}%
+\fi
+\ifnum\@ptsize=-1
+  \mag 913 % formerly 900
+  \def\inv@mag{1.09529}
+  \def\n@baseline{15}%
+\fi
+\ifnum\@ptsize=1
+  \mag 1095 % formerly 1100
+  \def\inv@mag{0.913242}
+\fi
+\ifnum\@ptsize=2
+  \mag 1200
+  \def\inv@mag{0.833333}
+\fi
+\ifnum\@ptsize=4
+  \mag 1440
+  \def\inv@mag{0.694444}
+\fi
+\ifnum\@ptsize=7
+  \mag 1728
+  \def\inv@mag{0.578704}
+\fi
+\ifnum\@ptsize=10
+  \mag 2000
+  \def\inv@mag{0.5}
+\fi
+\ifnum\@ptsize=11
+  \mag 2074
+  \def\inv@mag{0.48216}
+\fi
+\ifnum\@ptsize=15
+  \mag 2488
+  \def\inv@mag{0.401929}
+\fi
+\ifnum\@ptsize=20
+  \mag 2986
+  \def\inv@mag{0.334896}
+\fi
+\ifnum\@ptsize=26
+  \mag 3583
+  \def\inv@mag{0.279096}
+\fi
+\ifnum\@ptsize=33
+  \mag 4300
+  \def\inv@mag{0.232558}
+\fi
+\ifnum\@ptsize=1200
+  \mag 923
+  \def\inv@mag{1.0834236}
+\fi
+\ifnum\@ptsize=1400
+  \mag 1077
+  \def\inv@mag{0.928505}
+\fi
+\setlength\paperwidth{\inv@mag\paperwidth}%
+\setlength\paperheight{\inv@mag\paperheight}%
+\ifwinjis
+  \DeclareFontShape{JY1}{mc}{m}{n}{<-> s * [0.961] winjis}{}
+  \DeclareFontShape{JY1}{gt}{m}{n}{<-> s * [0.961] winjisg}{}
+  \DeclareFontShape{JT1}{mc}{m}{n}{<-> s * [0.961] winjis-v}{}
+  \DeclareFontShape{JT1}{gt}{m}{n}{<-> s * [0.961] winjisg-v}{}
+\else
+  \ifmingoth
+    \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ min10}{}
+    \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ goth10}{}
+    \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
+    \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
+  \else
+    \ifjisfont
+      \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ jis}{}
+      \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ jisg}{}
+      \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
+      \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
+    \else
+      \if@jsc@uplatex
+        \DeclareFontShape{JY2}{mc}{m}{n}{<-> s * [0.924690] upjisr-h}{}
+        \DeclareFontShape{JY2}{gt}{m}{n}{<-> s * [0.924690] upjisg-h}{}
+        \DeclareFontShape{JT2}{mc}{m}{n}{<-> s * [0.924690] upjisr-v}{}
+        \DeclareFontShape{JT2}{gt}{m}{n}{<-> s * [0.924690] upjisg-v}{}
+      \else
+        \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ jis}{}
+        \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ jisg}{}
+        \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
+        \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
+      \fi
+    \fi
+  \fi
+\fi
+\DeclareFontShape{\jsc@JYn}{mc}{m}{it}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{m}{sl}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{m}{sc}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{gt}{m}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{gt}{m}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{bx}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{it}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{sl}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{sc}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{gt}{m}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{gt}{m}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{bx}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
+\DeclareRobustCommand\rmfamily
+        {\not@math@alphabet\rmfamily\mathrm
+         \romanfamily\rmdefault\kanjifamily\mcdefault\selectfont}
+\DeclareRobustCommand\sffamily
+        {\not@math@alphabet\sffamily\mathsf
+         \romanfamily\sfdefault\kanjifamily\gtdefault\selectfont}
+\DeclareRobustCommand\ttfamily
+        {\not@math@alphabet\ttfamily\mathtt
+         \romanfamily\ttdefault\kanjifamily\gtdefault\selectfont}
+\def\textmc#1{\relax\ifmmode\hbox\fi{\mcfamily #1}}
+\def\textgt#1{\relax\ifmmode\hbox\fi{\gtfamily #1}}
+\def\reDeclareMathAlphabet#1#2#3{%
+  \edef\@tempa{\expandafter\@gobble\string#2}%
+  \edef\@tempb{\expandafter\@gobble\string#3}%
+  \edef\@tempc{\string @\expandafter\@gobbletwo\string#2}%
+  \ifx\@tempc\@tempa%
+    \edef\@tempa{\expandafter\@gobbletwo\string#2}%
+    \edef\@tempb{\expandafter\@gobbletwo\string#3}%
+  \fi
+  \begingroup
+    \let\protect\noexpand
+    \def\@tempaa{\relax}%
+    \expandafter\ifx\csname RDMAorg@\@tempa\endcsname\relax
+      \edef\@tempaa{\expandafter\def\expandafter\noexpand%
+        \csname RDMAorg@\@tempa\endcsname{%
+          \expandafter\noexpand\csname\@tempa\endcsname}}%
+    \fi
+    \def\@tempbb{\relax}%
+    \expandafter\ifx\csname RDMAorg@\@tempb\endcsname\relax
+      \edef\@tempbb{\expandafter\def\expandafter\noexpand%
+        \csname RDMAorg@\@tempb\endcsname{%
+          \expandafter\noexpand\csname\@tempb\endcsname}}%
+    \fi
+    \edef\@tempc{\@tempaa\@tempbb}%
+  \expandafter\endgroup\@tempc%
+  \edef#1{\noexpand\protect\expandafter\noexpand\csname%
+    \expandafter\@gobble\string#1\space\space\endcsname}%
+  \expandafter\edef\csname\expandafter\@gobble\string#1\space\space\endcsname%
+    {\noexpand\DualLang@mathalph@bet%
+      {\expandafter\noexpand\csname RDMAorg@\@tempa\endcsname}%
+      {\expandafter\noexpand\csname RDMAorg@\@tempb\endcsname}%
+  }%
+}
+\@onlypreamble\reDeclareMathAlphabet
+\def\DualLang@mathalph@bet#1#2{%
+  \relax\ifmmode
+    \ifx\math@bgroup\bgroup%     2e normal style     (\mathrm{...})
+      \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
+    \else
+      \ifx\math@bgroup\relax%    2e two letter style (\rm->\mathrm)
+        \let\DualLang@Mfontsw\DLMfontsw@oldstyle
+      \else
+        \ifx\math@bgroup\@empty% 2.09 oldlfont style ({\mathrm ...})
+          \let\DualLang@Mfontsw\DLMfontsw@oldlfont
+        \else%                   panic! assume 2e normal style
+          \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
+        \fi
+      \fi
+    \fi
+  \else
+    \let\DualLang@Mfontsw\@firstoftwo
+  \fi
+  \DualLang@Mfontsw{#1}{#2}%
+}
+\def\DLMfontsw@standard#1#2#3{#1{#2{#3}}\egroup}
+\def\DLMfontsw@oldstyle#1#2{#1\relax\@fontswitch\relax{#2}}
+\def\DLMfontsw@oldlfont#1#2{#1\relax#2\relax}
+\if@enablejfam
+  \if@compatibility\else
+    \DeclareSymbolFont{mincho}{\jsc@JYn}{mc}{m}{n}
+    \DeclareSymbolFontAlphabet{\mathmc}{mincho}
+    \SetSymbolFont{mincho}{bold}{\jsc@JYn}{gt}{m}{n}
+    \jfam\symmincho
+    \DeclareMathAlphabet{\mathgt}{\jsc@JYn}{gt}{m}{n}
+  \fi
+  \AtBeginDocument{%
+    \reDeclareMathAlphabet{\mathrm}{\@mathrm}{\@mathmc}
+    \reDeclareMathAlphabet{\mathbf}{\@mathbf}{\@mathgt}}
+\fi
+\prebreakpenalty\jis"2147=10000      % 5000   ’
+\postbreakpenalty\jis"2148=10000     % 5000   “
+\prebreakpenalty\jis"2149=10000      % 5000   ”
+\inhibitxspcode`〒=2
+\xspcode`+=3
+\xspcode`\%=3
+\xspcode`^^80=3
+\xspcode`^^81=3
+\xspcode`^^82=3
+\xspcode`^^83=3
+\xspcode`^^84=3
+\xspcode`^^85=3
+\xspcode`^^86=3
+\xspcode`^^87=3
+\xspcode`^^88=3
+\xspcode`^^89=3
+\xspcode`^^8a=3
+\xspcode`^^8b=3
+\xspcode`^^8c=3
+\xspcode`^^8d=3
+\xspcode`^^8e=3
+\xspcode`^^8f=3
+\xspcode`^^90=3
+\xspcode`^^91=3
+\xspcode`^^92=3
+\xspcode`^^93=3
+\xspcode`^^94=3
+\xspcode`^^95=3
+\xspcode`^^96=3
+\xspcode`^^97=3
+\xspcode`^^98=3
+\xspcode`^^99=3
+\xspcode`^^9a=3
+\xspcode`^^9b=3
+\xspcode`^^9c=3
+\xspcode`^^9d=3
+\xspcode`^^9e=3
+\xspcode`^^9f=3
+\xspcode`^^a0=3
+\xspcode`^^a1=3
+\xspcode`^^a2=3
+\xspcode`^^a3=3
+\xspcode`^^a4=3
+\xspcode`^^a5=3
+\xspcode`^^a6=3
+\xspcode`^^a7=3
+\xspcode`^^a8=3
+\xspcode`^^a9=3
+\xspcode`^^aa=3
+\xspcode`^^ab=3
+\xspcode`^^ac=3
+\xspcode`^^ad=3
+\xspcode`^^ae=3
+\xspcode`^^af=3
+\xspcode`^^b0=3
+\xspcode`^^b1=3
+\xspcode`^^b2=3
+\xspcode`^^b3=3
+\xspcode`^^b4=3
+\xspcode`^^b5=3
+\xspcode`^^b6=3
+\xspcode`^^b7=3
+\xspcode`^^b8=3
+\xspcode`^^b9=3
+\xspcode`^^ba=3
+\xspcode`^^bb=3
+\xspcode`^^bc=3
+\xspcode`^^bd=3
+\xspcode`^^be=3
+\xspcode`^^bf=3
+\xspcode`^^c0=3
+\xspcode`^^c1=3
+\xspcode`^^c2=3
+\xspcode`^^c3=3
+\xspcode`^^c4=3
+\xspcode`^^c5=3
+\xspcode`^^c6=3
+\xspcode`^^c7=3
+\xspcode`^^c8=3
+\xspcode`^^c9=3
+\xspcode`^^ca=3
+\xspcode`^^cb=3
+\xspcode`^^cc=3
+\xspcode`^^cd=3
+\xspcode`^^ce=3
+\xspcode`^^cf=3
+\xspcode`^^d0=3
+\xspcode`^^d1=3
+\xspcode`^^d2=3
+\xspcode`^^d3=3
+\xspcode`^^d4=3
+\xspcode`^^d5=3
+\xspcode`^^d6=3
+\xspcode`^^d7=3
+\xspcode`^^d8=3
+\xspcode`^^d9=3
+\xspcode`^^da=3
+\xspcode`^^db=3
+\xspcode`^^dc=3
+\xspcode`^^dd=3
+\xspcode`^^de=3
+\xspcode`^^df=3
+\xspcode`^^e0=3
+\xspcode`^^e1=3
+\xspcode`^^e2=3
+\xspcode`^^e3=3
+\xspcode`^^e4=3
+\xspcode`^^e5=3
+\xspcode`^^e6=3
+\xspcode`^^e7=3
+\xspcode`^^e8=3
+\xspcode`^^e9=3
+\xspcode`^^ea=3
+\xspcode`^^eb=3
+\xspcode`^^ec=3
+\xspcode`^^ed=3
+\xspcode`^^ee=3
+\xspcode`^^ef=3
+\xspcode`^^f0=3
+\xspcode`^^f1=3
+\xspcode`^^f2=3
+\xspcode`^^f3=3
+\xspcode`^^f4=3
+\xspcode`^^f5=3
+\xspcode`^^f6=3
+\xspcode`^^f7=3
+\xspcode`^^f8=3
+\xspcode`^^f9=3
+\xspcode`^^fa=3
+\xspcode`^^fb=3
+\xspcode`^^fc=3
+\xspcode`^^fd=3
+\xspcode`^^fe=3
+\xspcode`^^ff=3
+\def\@{\spacefactor3000\space}
+\def\@setfontsize#1#2#3{%
+  \ifx\protect\@typeset@protect
+    \let\@currsize#1%
+  \fi
+  \fontsize{#2}{#3}\selectfont
+  \ifdim\parindent>\z@
+    \if@english
+      \parindent=1em
+    \else
+      \parindent=1zw
+    \fi
+  \fi
+  \kanjiskip=0zw plus .1zw minus .01zw
+  \ifdim\xkanjiskip>\z@
+    \if@slide \xkanjiskip=0.1em \else
+      \xkanjiskip=0.25em plus 0.15em minus 0.06em
+    \fi
+  \fi}
+\emergencystretch 3zw
+\newif\ifnarrowbaselines
+\if@english
+  \narrowbaselinestrue
+\fi
+\def\narrowbaselines{%
+  \narrowbaselinestrue
+  \skip0=\abovedisplayskip
+  \skip2=\abovedisplayshortskip
+  \skip4=\belowdisplayskip
+  \skip6=\belowdisplayshortskip
+  \@currsize\selectfont
+  \abovedisplayskip=\skip0
+  \abovedisplayshortskip=\skip2
+  \belowdisplayskip=\skip4
+  \belowdisplayshortskip=\skip6\relax}
+\def\widebaselines{\narrowbaselinesfalse\@currsize\selectfont}
+\renewcommand{\normalsize}{%
+  \ifnarrowbaselines
+    \@setfontsize\normalsize\@xpt\@xiipt
+  \else
+    \@setfontsize\normalsize\@xpt{\n@baseline}%
+  \fi
+  \abovedisplayskip 11\p@ \@plus3\p@ \@minus4\p@
+  \abovedisplayshortskip \z@ \@plus3\p@
+  \belowdisplayskip 9\p@ \@plus3\p@ \@minus4\p@
+  \belowdisplayshortskip \belowdisplayskip
+  \let\@listi\@listI}
+\normalsize
+\setbox0\hbox{\char\euc"A1A1}%
+\setlength\Cht{\ht0}
+\setlength\Cdp{\dp0}
+\setlength\Cwd{\wd0}
+\setlength\Cvs{\baselineskip}
+\setlength\Chs{\wd0}
+\newcommand{\small}{%
+  \ifnarrowbaselines
+    \@setfontsize\small\@ixpt{11}%
+  \else
+    \@setfontsize\small\@ixpt{13}%
+  \fi
+  \abovedisplayskip 9\p@ \@plus3\p@ \@minus4\p@
+  \abovedisplayshortskip  \z@ \@plus3\p@
+  \belowdisplayskip \abovedisplayskip
+  \belowdisplayshortskip \belowdisplayskip
+  \def\@listi{\leftmargin\leftmargini
+              \topsep \z@
+              \parsep \z@
+              \itemsep \parsep}}
+\newcommand{\footnotesize}{%
+  \ifnarrowbaselines
+    \@setfontsize\footnotesize\@viiipt{9.5}%
+  \else
+    \@setfontsize\footnotesize\@viiipt{11}%
+  \fi
+  \abovedisplayskip 6\p@ \@plus2\p@ \@minus3\p@
+  \abovedisplayshortskip  \z@ \@plus2\p@
+  \belowdisplayskip \abovedisplayskip
+  \belowdisplayshortskip \belowdisplayskip
+  \def\@listi{\leftmargin\leftmargini
+              \topsep \z@
+              \parsep \z@
+              \itemsep \parsep}}
+\newcommand{\scriptsize}{\@setfontsize\scriptsize\@viipt\@viiipt}
+\newcommand{\tiny}{\@setfontsize\tiny\@vpt\@vipt}
+\if@twocolumn
+  \newcommand{\large}{\@setfontsize\large\@xiipt{\n@baseline}}
+\else
+  \newcommand{\large}{\@setfontsize\large\@xiipt{17}}
+\fi
+\newcommand{\Large}{\@setfontsize\Large\@xivpt{21}}
+\newcommand{\LARGE}{\@setfontsize\LARGE\@xviipt{25}}
+\newcommand{\huge}{\@setfontsize\huge\@xxpt{28}}
+\newcommand{\Huge}{\@setfontsize\Huge\@xxvpt{33}}
+\newcommand{\HUGE}{\@setfontsize\HUGE{30}{40}}
+\everydisplay=\expandafter{\the\everydisplay \narrowbaselines}
+\newcommand{\headfont}{\gtfamily\sffamily}
+\setlength\columnsep{2zw}
+\setlength\columnseprule{0\p@}
+\setlength\lineskip{1\p@}
+\setlength\normallineskip{1\p@}
+\setlength\lineskiplimit{1\p@}
+\setlength\normallineskiplimit{1\p@}
+\renewcommand{\baselinestretch}{}
+\setlength\parskip{0\p@}
+\if@slide
+  \setlength\parindent{0zw}
+\else
+  \setlength\parindent{1zw}
+\fi
+\@lowpenalty   51
+\@medpenalty  151
+\@highpenalty 301
+\setlength\topskip{10\p@}
+\if@slide
+  \setlength\headheight{0\p@}
+\else
+  \setlength\headheight{2\topskip}
+\fi
+\if@report
+  \setlength\footskip{0.03367\paperheight}
+  \ifdim\footskip<\baselineskip
+    \setlength\footskip{\baselineskip}
+  \fi
+\else
+  \setlength\footskip{0pt}
+\fi
+\if@report
+  \setlength\headsep{\footskip}
+  \addtolength\headsep{-\topskip}
+\else
+  \setlength\headsep{6mm}
+\fi
+\setlength\maxdepth{.5\topskip}
+\newdimen\fullwidth
+\if@report
+  \setlength\fullwidth{0.76\paperwidth}
+\else
+  \setlength\fullwidth{\paperwidth}
+  \addtolength\fullwidth{-36mm}
+\fi
+\if@twocolumn \@tempdima=2zw \else \@tempdima=1zw \fi
+\divide\fullwidth\@tempdima \multiply\fullwidth\@tempdima
+\setlength\textwidth{\fullwidth}
+\if@report \else
+  \if@twocolumn \else
+    \ifdim \fullwidth>40zw
+      \setlength\textwidth{40zw}
+    \fi
+  \fi
+\fi
+\if@slide
+  \setlength{\textheight}{0.95\paperheight}
+\else
+  \setlength{\textheight}{0.83\paperheight}
+\fi
+\addtolength{\textheight}{-\topskip}
+\addtolength{\textheight}{-\headsep}
+\addtolength{\textheight}{-\footskip}
+\addtolength{\textheight}{-\topskip}
+\divide\textheight\baselineskip
+\multiply\textheight\baselineskip
+\addtolength{\textheight}{\topskip}
+\addtolength{\textheight}{0.1\p@}
+\setlength\marginparsep{\columnsep}
+\setlength\marginparpush{\baselineskip}
+\setlength{\oddsidemargin}{\paperwidth}
+\addtolength{\oddsidemargin}{-\fullwidth}
+\setlength{\oddsidemargin}{.5\oddsidemargin}
+\iftombow
+  \addtolength{\oddsidemargin}{-1in}
+\else
+  \addtolength{\oddsidemargin}{-\inv@mag in}
+\fi
+\setlength{\evensidemargin}{\oddsidemargin}
+\if@mparswitch
+  \addtolength{\evensidemargin}{\fullwidth}
+  \addtolength{\evensidemargin}{-\textwidth}
+\fi
+\setlength\marginparwidth{\paperwidth}
+\addtolength\marginparwidth{-\oddsidemargin}
+\addtolength\marginparwidth{-\inv@mag in}
+\addtolength\marginparwidth{-\textwidth}
+\addtolength\marginparwidth{-1cm}
+\addtolength\marginparwidth{-\marginparsep}
+\@tempdima=1zw
+\divide\marginparwidth\@tempdima
+\multiply\marginparwidth\@tempdima
+\setlength\topmargin{\paperheight}
+\addtolength\topmargin{-\textheight}
+\if@slide
+  \addtolength\topmargin{-\headheight}
+\else
+  \addtolength\topmargin{-\topskip}
+\fi
+\addtolength\topmargin{-\headsep}
+\addtolength\topmargin{-\footskip}
+\setlength\topmargin{0.5\topmargin}
+\iftombow
+  \addtolength\topmargin{-1in}
+\else
+  \addtolength\topmargin{-\inv@mag in}
+\fi
+{\footnotesize\global\setlength\footnotesep{\baselineskip}}
+\setlength\footnotesep{0.7\footnotesep}
+\setlength{\skip\footins}{16\p@ \@plus 5\p@ \@minus 2\p@}
+\setcounter{topnumber}{9}
+\renewcommand{\topfraction}{.85}
+\setcounter{bottomnumber}{9}
+\renewcommand{\bottomfraction}{.8}
+\setcounter{totalnumber}{20}
+\renewcommand{\textfraction}{.1}
+\renewcommand{\floatpagefraction}{.8}
+\setcounter{dbltopnumber}{9}
+\renewcommand{\dbltopfraction}{.8}
+\renewcommand{\dblfloatpagefraction}{.8}
+\setlength\floatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\textfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}
+\setlength\intextsep   {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\dblfloatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\dbltextfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}
+\setlength\@fptop{0\p@ \@plus 1fil}
+\setlength\@fpsep{8\p@ \@plus 2fil}
+\setlength\@fpbot{0\p@ \@plus 1fil}
+\setlength\@dblfptop{0\p@ \@plus 1fil}
+\setlength\@dblfpsep{8\p@ \@plus 2fil}
+\setlength\@dblfpbot{0\p@ \@plus 1fil}
+\def\ps@plainfoot{%
+  \let\@mkboth\@gobbletwo
+  \let\@oddhead\@empty
+  \def\@oddfoot{\normalfont\hfil\thepage\hfil}%
+  \let\@evenhead\@empty
+  \let\@evenfoot\@oddfoot}
+\def\ps@plainhead{%
+  \let\@mkboth\@gobbletwo
+  \let\@oddfoot\@empty
+  \let\@evenfoot\@empty
+  \def\@evenhead{%
+    \if@mparswitch \hss \fi
+    \hbox to \fullwidth{\textbf{\thepage}\hfil}%
+    \if@mparswitch\else \hss \fi}%
+  \def\@oddhead{%
+    \hbox to \fullwidth{\hfil\textbf{\thepage}}\hss}}
+\if@report \let\ps@plain\ps@plainfoot \else \let\ps@plain\ps@plainhead \fi
+\def\ps@headings{%
+  \let\@oddfoot\@empty
+  \let\@evenfoot\@empty
+  \def\@evenhead{%
+    \if@mparswitch \hss \fi
+    \underline{\hbox to \fullwidth{\autoxspacing
+        \textbf{\thepage}\hfil\leftmark}}%
+    \if@mparswitch\else \hss \fi}%
+  \def\@oddhead{\underline{\hbox to \fullwidth{\autoxspacing
+        {\if@twoside\rightmark\else\leftmark\fi}\hfil\textbf{\thepage}}}\hss}%
+  \let\@mkboth\markboth
+  \def\chaptermark##1{\markboth{%
+    \ifnum \c@secnumdepth >\m@ne
+      \if@mainmatter
+        \@chapapp\thechapter\@chappos\hskip1zw
+      \fi
+    \fi
+    ##1}{}}%
+  \def\sectionmark##1{\markright{%
+    \ifnum \c@secnumdepth >\z@ \thesection \hskip1zw\fi
+    ##1}}}%
+\def\ps@myheadings{%
+  \let\@oddfoot\@empty\let\@evenfoot\@empty
+  \def\@evenhead{%
+    \if@mparswitch \hss \fi%
+    \hbox to \fullwidth{\thepage\hfil\leftmark}%
+    \if@mparswitch\else \hss \fi}%
+  \def\@oddhead{%
+    \hbox to \fullwidth{\rightmark\hfil\thepage}\hss}%
+  \let\@mkboth\@gobbletwo
+  \let\chaptermark\@gobble
+  \let\sectionmark\@gobble
+}
+\def\plainifnotempty{%
+  \ifx \@oddhead \@empty
+    \ifx \@oddfoot \@empty
+    \else
+      \thispagestyle{plainfoot}%
+    \fi
+  \else
+    \thispagestyle{plainhead}%
+  \fi}
+\if@titlepage
+  \newcommand{\maketitle}{%
+    \begin{titlepage}%
+      \let\footnotesize\small
+      \let\footnoterule\relax
+      \let\footnote\thanks
+      \null\vfil
+      \if@slide
+        {\footnotesize \@date}%
+        \begin{center}
+          \mbox{} \\[1zw]
+          \large
+          {\maybeblue\hrule height0pt depth2pt\relax}\par
+          \smallskip
+          \@title
+          \smallskip
+          {\maybeblue\hrule height0pt depth2pt\relax}\par
+          \vfill
+          {\small \@author}%
+        \end{center}
+      \else
+      \vskip 60\p@
+      \begin{center}%
+        {\LARGE \@title \par}%
+        \vskip 3em%
+        {\large
+          \lineskip .75em
+          \begin{tabular}[t]{c}%
+            \@author
+          \end{tabular}\par}%
+        \vskip 1.5em
+        {\large \@date \par}%
+      \end{center}%
+      \fi
+      \par
+      \@thanks\vfil\null
+    \end{titlepage}%
+    \setcounter{footnote}{0}%
+    \global\let\thanks\relax
+    \global\let\maketitle\relax
+    \global\let\@thanks\@empty
+    \global\let\@author\@empty
+    \global\let\@date\@empty
+    \global\let\@title\@empty
+    \global\let\title\relax
+    \global\let\author\relax
+    \global\let\date\relax
+    \global\let\and\relax
+  }%
+\else
+  \newcommand{\maketitle}{\par
+    \begingroup
+      \renewcommand\thefootnote{\@fnsymbol\c@footnote}%
+      \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%
+      \long\def\@makefntext##1{\advance\leftskip 3zw
+        \parindent 1zw\noindent
+        \llap{\@textsuperscript{\normalfont\@thefnmark}\hskip0.3zw}##1}%
+      \if@twocolumn
+        \ifnum \col@number=\@ne
+          \@maketitle
+        \else
+          \twocolumn[\@maketitle]%
+        \fi
+      \else
+        \newpage
+        \global\@topnum\z@  % Prevents figures from going at top of page.
+        \@maketitle
+      \fi
+      \plainifnotempty
+      \@thanks
+    \endgroup
+    \setcounter{footnote}{0}%
+    \global\let\thanks\relax
+    \global\let\maketitle\relax
+    \global\let\@thanks\@empty
+    \global\let\@author\@empty
+    \global\let\@date\@empty
+    \global\let\@title\@empty
+    \global\let\title\relax
+    \global\let\author\relax
+    \global\let\date\relax
+    \global\let\and\relax
+  }
+  \def\@maketitle{%
+    \newpage\null
+    \vskip 2em
+    \begin{center}%
+      \let\footnote\thanks
+      {\LARGE \@title \par}%
+      \vskip 1.5em
+      {\large
+        \lineskip .5em
+        \begin{tabular}[t]{c}%
+          \@author
+        \end{tabular}\par}%
+      \vskip 1em
+      {\large \@date}%
+    \end{center}%
+    \par\vskip 1.5em
+  }
+\fi
+\def\@startsection#1#2#3#4#5#6{%
+  \if@noskipsec \leavevmode \fi
+  \par
+  \@tempskipa #4\relax
+  \if@english \@afterindentfalse \else \@afterindenttrue \fi
+  \ifdim \@tempskipa <\z@
+    \@tempskipa -\@tempskipa \@afterindentfalse
+  \fi
+  \if@nobreak
+    \everypar{}%
+  \else
+    \addpenalty\@secpenalty
+    \ifdim \@tempskipa >\z@
+      \if@slide\else
+        \null
+        \vspace*{-\baselineskip}%
+      \fi
+      \vskip\@tempskipa
+    \fi
+  \fi
+  \noindent
+  \@ifstar
+    {\@ssect{#3}{#4}{#5}{#6}}%
+    {\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}
+\def\@sect#1#2#3#4#5#6[#7]#8{%
+  \ifnum #2>\c@secnumdepth
+    \let\@svsec\@empty
+  \else
+    \refstepcounter{#1}%
+    \protected@edef\@svsec{\@seccntformat{#1}\relax}%
+  \fi
+  \@tempskipa #5\relax
+  \ifdim \@tempskipa<\z@
+    \def\@svsechd{%
+      #6{\hskip #3\relax
+      \@svsec #8}%
+      \csname #1mark\endcsname{#7}%
+      \addcontentsline{toc}{#1}{%
+        \ifnum #2>\c@secnumdepth \else
+          \protect\numberline{\csname the#1\endcsname}%
+        \fi
+        #7}}% 目次にフルネームを載せるなら #8
+  \else
+    \begingroup
+      \interlinepenalty \@M % 下から移動
+      #6{%
+        \@hangfrom{\hskip #3\relax\@svsec}%
+        #8\@@par}%
+    \endgroup
+    \csname #1mark\endcsname{#7}%
+    \addcontentsline{toc}{#1}{%
+      \ifnum #2>\c@secnumdepth \else
+        \protect\numberline{\csname the#1\endcsname}%
+      \fi
+      #7}% 目次にフルネームを載せるならここは #8
+  \fi
+  \@xsect{#5}}
+\def\@xsect#1{%
+  \@tempskipa #1\relax
+  \ifdim \@tempskipa<\z@
+    \@nobreakfalse
+    \global\@noskipsectrue
+    \everypar{%
+      \if@noskipsec
+        \global\@noskipsecfalse
+       {\setbox\z@\lastbox}%
+        \clubpenalty\@M
+        \begingroup \@svsechd \endgroup
+        \unskip
+        \@tempskipa #1\relax
+        \hskip -\@tempskipa
+      \else
+        \clubpenalty \@clubpenalty
+        \everypar{\everyparhook}%
+      \fi\everyparhook}%
+  \else
+    \par \nobreak
+    \vskip \@tempskipa
+    \@afterheading
+  \fi
+  \if@slide
+    {\vskip-6pt\maybeblue\hrule height0pt depth1pt\vskip7pt\relax}%
+  \fi
+  \par  % 2000-12-18
+  \ignorespaces}
+\def\@ssect#1#2#3#4#5{%
+  \@tempskipa #3\relax
+  \ifdim \@tempskipa<\z@
+    \def\@svsechd{#4{\hskip #1\relax #5}}%
+  \else
+    \begingroup
+      #4{%
+        \@hangfrom{\hskip #1}%
+          \interlinepenalty \@M #5\@@par}%
+    \endgroup
+  \fi
+  \@xsect{#3}}
+\newcommand*\chaptermark[1]{}
+\setcounter{secnumdepth}{2}
+\newcounter{part}
+\newcounter{chapter}
+\newcounter{section}[chapter]
+\newcounter{subsection}[section]
+\newcounter{subsubsection}[subsection]
+\newcounter{paragraph}[subsubsection]
+\newcounter{subparagraph}[paragraph]
+\renewcommand{\thepart}{\@Roman\c@part}
+\renewcommand{\thechapter}{\@arabic\c@chapter}
+\renewcommand{\thesection}{\thechapter.\@arabic\c@section}
+\renewcommand{\thesubsection}{\thesection.\@arabic\c@subsection}
+\renewcommand{\thesubsubsection}{%
+   \thesubsection.\@arabic\c@subsubsection}
+\renewcommand{\theparagraph}{%
+   \thesubsubsection.\@arabic\c@paragraph}
+\renewcommand{\thesubparagraph}{%
+   \theparagraph.\@arabic\c@subparagraph}
+\newcommand{\@chapapp}{\prechaptername}
+\newcommand{\@chappos}{\postchaptername}
+\newcommand\frontmatter{%
+  \if@openright
+    \cleardoublepage
+  \else
+    \clearpage
+  \fi
+  \@mainmatterfalse
+  \pagenumbering{roman}}
+\newcommand\mainmatter{%
+    \cleardoublepage
+  \@mainmattertrue
+  \pagenumbering{arabic}}
+\newcommand\backmatter{%
+  \if@openright
+    \cleardoublepage
+  \else
+    \clearpage
+  \fi
+  \@mainmatterfalse}
+\newcommand\part{%
+  \if@openright
+    \cleardoublepage
+  \else
+    \clearpage
+  \fi
+  \thispagestyle{empty}% 欧文用標準スタイルでは plain
+  \if@twocolumn
+    \onecolumn
+    \@restonecoltrue
+  \else
+    \@restonecolfalse
+  \fi
+  \null\vfil
+  \secdef\@part\@spart}
+\def\@part[#1]#2{%
+  \ifnum \c@secnumdepth >-2\relax
+    \refstepcounter{part}%
+    \addcontentsline{toc}{part}{%
+      \prepartname\thepart\postpartname\hspace{1zw}#1}%
+  \else
+    \addcontentsline{toc}{part}{#1}%
+  \fi
+  \markboth{}{}%
+  {\centering
+    \interlinepenalty \@M
+    \normalfont
+    \ifnum \c@secnumdepth >-2\relax
+      \huge\headfont \prepartname\thepart\postpartname
+      \par\vskip20\p@
+    \fi
+    \Huge \headfont #2\par}%
+  \@endpart}
+\def\@spart#1{{%
+    \centering
+    \interlinepenalty \@M
+    \normalfont
+    \Huge \headfont #1\par}%
+  \@endpart}
+\def\@endpart{\vfil\newpage
+  \if@twoside
+    \null
+    \thispagestyle{empty}%
+    \newpage
+  \fi
+  \if@restonecol
+    \twocolumn
+  \fi}
+\newcommand{\chapter}{%
+  \if@openright\cleardoublepage\else\clearpage\fi
+  \plainifnotempty % 元: \thispagestyle{plain}
+  \global\@topnum\z@
+  \if@english \@afterindentfalse \else \@afterindenttrue \fi
+  \secdef\@chapter\@schapter}
+\def\@chapter[#1]#2{%
+  \ifnum \c@secnumdepth >\m@ne
+    \if@mainmatter
+      \refstepcounter{chapter}%
+      \typeout{\@chapapp\thechapter\@chappos}%
+      \addcontentsline{toc}{chapter}%
+        {\protect\numberline
+        {\if@english\thechapter\else\@chapapp\thechapter\@chappos\fi}%
+        #1}%
+    \else\addcontentsline{toc}{chapter}{#1}\fi
+  \else
+    \addcontentsline{toc}{chapter}{#1}%
+  \fi
+  \chaptermark{#1}%
+  \addtocontents{lof}{\protect\addvspace{10\p@}}%
+  \addtocontents{lot}{\protect\addvspace{10\p@}}%
+  \if@twocolumn
+    \@topnewpage[\@makechapterhead{#2}]%
+  \else
+    \@makechapterhead{#2}%
+    \@afterheading
+  \fi}
+\def\@makechapterhead#1{%
+  \vspace*{2\Cvs}% 欧文は50pt
+  {\parindent \z@ \raggedright \normalfont
+    \ifnum \c@secnumdepth >\m@ne
+      \if@mainmatter
+        \huge\headfont \@chapapp\thechapter\@chappos
+        \par\nobreak
+        \vskip \Cvs % 欧文は20pt
+      \fi
+    \fi
+    \interlinepenalty\@M
+    \Huge \headfont #1\par\nobreak
+    \vskip 3\Cvs}} % 欧文は40pt
+\def\@schapter#1{%
+  \chaptermark{#1}%
+  \if@twocolumn
+    \@topnewpage[\@makeschapterhead{#1}]%
+  \else
+    \@makeschapterhead{#1}\@afterheading
+  \fi}
+\def\@makeschapterhead#1{%
+  \vspace*{2\Cvs}% 欧文は50pt
+  {\parindent \z@ \raggedright
+    \normalfont
+    \interlinepenalty\@M
+    \Huge \headfont #1\par\nobreak
+    \vskip 3\Cvs}} % 欧文は40pt
+\if@twocolumn
+  \newcommand{\section}{%
+    \@startsection{section}{1}{\z@}%
+    {0.6\Cvs}{0.4\Cvs}%
+    {\normalfont\large\headfont\raggedright}}
+\else
+  \newcommand{\section}{%
+    \if@slide\clearpage\fi
+    \@startsection{section}{1}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
+    {\normalfont\Large\headfont\raggedright}}
+\fi
+\if@twocolumn
+  \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
+    {\z@}{\z@}%
+    {\normalfont\normalsize\headfont}}
+\else
+  \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
+    {\normalfont\large\headfont}}
+\fi
+\if@twocolumn
+  \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
+    {\z@}{\z@}%
+    {\normalfont\normalsize\headfont}}
+\else
+  \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
+    {\z@}%
+    {\normalfont\normalsize\headfont}}
+\fi
+\if@twocolumn
+  \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
+    {\z@}{-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont ■}}
+\else
+  \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
+    {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
+    {-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont ■}}
+\fi
+\newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
+   {\z@}{-1zw}%
+   {\normalfont\normalsize\headfont}}
+\if@slide
+  \setlength\leftmargini{1zw}
+\else
+  \if@twocolumn
+    \setlength\leftmargini{2zw}
+  \else
+    \setlength\leftmargini{3zw}
+  \fi
+\fi
+\if@slide
+  \setlength\leftmarginii {1zw}
+  \setlength\leftmarginiii{1zw}
+  \setlength\leftmarginiv {1zw}
+  \setlength\leftmarginv  {1zw}
+  \setlength\leftmarginvi {1zw}
+\else
+  \setlength\leftmarginii {2zw}
+  \setlength\leftmarginiii{2zw}
+  \setlength\leftmarginiv {2zw}
+  \setlength\leftmarginv  {1zw}
+  \setlength\leftmarginvi {1zw}
+\fi
+\setlength  \labelsep  {0.5zw} % .5em
+\setlength  \labelwidth{\leftmargini}
+\addtolength\labelwidth{-\labelsep}
+\setlength\partopsep{\z@} % {2\p@ \@plus 1\p@ \@minus 1\p@}
+\@beginparpenalty -\@lowpenalty
+\@endparpenalty   -\@lowpenalty
+\@itempenalty     -\@lowpenalty
+\def\@listi{\leftmargin\leftmargini
+  \parsep \z@
+  \topsep 0.5\baselineskip
+  \itemsep \z@ \relax}
+\let\@listI\@listi
+\@listi
+\def\@listii{\leftmargin\leftmarginii
+  \labelwidth\leftmarginii \advance\labelwidth-\labelsep
+  \topsep \z@
+  \parsep \z@
+  \itemsep\parsep}
+\def\@listiii{\leftmargin\leftmarginiii
+  \labelwidth\leftmarginiii \advance\labelwidth-\labelsep
+  \topsep \z@
+  \parsep \z@
+  \itemsep\parsep}
+\def\@listiv {\leftmargin\leftmarginiv
+              \labelwidth\leftmarginiv
+              \advance\labelwidth-\labelsep}
+\def\@listv  {\leftmargin\leftmarginv
+              \labelwidth\leftmarginv
+              \advance\labelwidth-\labelsep}
+\def\@listvi {\leftmargin\leftmarginvi
+              \labelwidth\leftmarginvi
+              \advance\labelwidth-\labelsep}
+\renewcommand{\theenumi}{\@arabic\c@enumi}
+\renewcommand{\theenumii}{\@alph\c@enumii}
+\renewcommand{\theenumiii}{\@roman\c@enumiii}
+\renewcommand{\theenumiv}{\@Alph\c@enumiv}
+\newcommand{\labelenumi}{\theenumi.}
+\newcommand{\labelenumii}{\inhibitglue（\theenumii）\inhibitglue}
+\newcommand{\labelenumiii}{\theenumiii.}
+\newcommand{\labelenumiv}{\theenumiv.}
+\renewcommand{\p@enumii}{\theenumi}
+\renewcommand{\p@enumiii}{\theenumi\inhibitglue（\theenumii）}
+\renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
+\newcommand\labelitemi{\textbullet}
+\newcommand\labelitemii{\normalfont\bfseries \textendash}
+\newcommand\labelitemiii{\textasteriskcentered}
+\newcommand\labelitemiv{\textperiodcentered}
+\newenvironment{description}{%
+  \list{}{%
+    \labelwidth=\leftmargin
+    \labelsep=1zw
+    \advance \labelwidth by -\labelsep
+    \let \makelabel=\descriptionlabel}}{\endlist}
+\newcommand*\descriptionlabel[1]{\normalfont\headfont #1\hfil}
+\newenvironment{abstract}{%
+  \begin{list}{}{%
+    \listparindent=1zw
+    \itemindent=\listparindent
+    \rightmargin=0pt
+    \leftmargin=5zw}\item[]}{\end{list}\vspace{\baselineskip}}
+\newenvironment{verse}{%
+  \let \\=\@centercr
+  \list{}{%
+    \itemsep \z@
+    \itemindent -2zw % 元: -1.5em
+    \listparindent\itemindent
+    \rightmargin \z@
+    \advance\leftmargin 2zw}% 元: 1.5em
+  \item\relax}{\endlist}
+\newenvironment{quotation}{%
+  \list{}{%
+    \listparindent\parindent
+    \itemindent\listparindent
+    \rightmargin \z@}%
+  \item\relax}{\endlist}
+\newenvironment{quote}%
+  {\list{}{\rightmargin\z@}\item\relax}{\endlist}
+\def\@begintheorem#1#2{\trivlist\labelsep=1zw
+   \item[\hskip \labelsep{\headfont #1\ #2}]}
+\def\@opargbegintheorem#1#2#3{\trivlist\labelsep=1zw
+      \item[\hskip \labelsep{\headfont #1\ #2（#3）}]}
+\newenvironment{titlepage}{%
+    \cleardoublepage
+    \if@twocolumn
+      \@restonecoltrue\onecolumn
+    \else
+      \@restonecolfalse\newpage
+    \fi
+    \thispagestyle{empty}%
+    \setcounter{page}\@ne
+  }%
+  {\if@restonecol\twocolumn \else \newpage \fi
+    \if@twoside\else
+      \setcounter{page}\@ne
+    \fi}
+\newcommand{\appendix}{\par
+  \setcounter{chapter}{0}%
+  \setcounter{section}{0}%
+  \gdef\@chapapp{\appendixname}%
+  \gdef\@chappos{}%
+  \gdef\thechapter{\@Alph\c@chapter}}
+\setlength\arraycolsep{5\p@}
+\setlength\tabcolsep{6\p@}
+\setlength\arrayrulewidth{.4\p@}
+\setlength\doublerulesep{2\p@}
+\setlength\tabbingsep{\labelsep}
+\skip\@mpfootins = \skip\footins
+\setlength\fboxsep{3\p@}
+\setlength\fboxrule{.4\p@}
+\@addtoreset{equation}{chapter}
+\renewcommand\theequation
+  {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@equation}
+\newcounter{figure}[chapter]
+\renewcommand \thefigure
+     {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@figure}
+\def\fps@figure{tbp}
+\def\ftype@figure{1}
+\def\ext@figure{lof}
+\def\fnum@figure{\figurename\nobreak\thefigure}
+\newenvironment{figure}%
+               {\@float{figure}}%
+               {\end@float}
+\newenvironment{figure*}%
+               {\@dblfloat{figure}}%
+               {\end@dblfloat}
+\newcounter{table}[chapter]
+\renewcommand \thetable
+     {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@table}
+\def\fps@table{tbp}
+\def\ftype@table{2}
+\def\ext@table{lot}
+\def\fnum@table{\tablename\nobreak\thetable}
+\newenvironment{table}%
+               {\@float{table}}%
+               {\end@float}
+\newenvironment{table*}%
+               {\@dblfloat{table}}%
+               {\end@dblfloat}
+\newlength\abovecaptionskip
+\newlength\belowcaptionskip
+\setlength\abovecaptionskip{5\p@} % 元: 10\p@
+\setlength\belowcaptionskip{5\p@} % 元: 0\p@
+\long\def\@makecaption#1#2{{\small
+  \advance\leftskip .0628\linewidth
+  \advance\rightskip .0628\linewidth
+  \vskip\abovecaptionskip
+  \sbox\@tempboxa{#1\hskip1zw\relax #2}%
+  \ifdim \wd\@tempboxa <\hsize \centering \fi
+  #1\hskip1zw\relax #2\par
+  \vskip\belowcaptionskip}}
+\DeclareOldFontCommand{\mc}{\normalfont\mcfamily}{\mathmc}
+\DeclareOldFontCommand{\gt}{\normalfont\gtfamily}{\mathgt}
+\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
+\DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
+\DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
+\DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
+\DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
+\DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
+\DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
+\DeclareRobustCommand*{\cal}{\@fontswitch\relax\mathcal}
+\DeclareRobustCommand*{\mit}{\@fontswitch\relax\mathnormal}
+\newcommand\@pnumwidth{1.55em}
+\newcommand\@tocrmarg{2.55em}
+\newcommand\@dotsep{4.5}
+\setcounter{tocdepth}{1}
+\newcommand{\tableofcontents}{%
+  \if@twocolumn
+    \@restonecoltrue\onecolumn
+  \else
+    \@restonecolfalse
+  \fi
+  \chapter*{\contentsname}%
+  \@mkboth{\contentsname}{}%
+  \@starttoc{toc}%
+  \if@restonecol\twocolumn\fi
+}
+\newcommand*{\l@part}[2]{%
+  \ifnum \c@tocdepth >-2\relax
+    \addpenalty{-\@highpenalty}%
+    \addvspace{2.25em \@plus\p@}%
+    \begingroup
+      \parindent \z@
+      \rightskip \@tocrmarg
+      \parfillskip -\rightskip
+      {\leavevmode
+        \large \headfont
+        \setlength\@lnumwidth{4zw}%
+        #1\hfil \hb@xt@\@pnumwidth{\hss #2}}\par
+      \nobreak
+    \global\@nobreaktrue
+    \everypar{\global\@nobreakfalse\everypar{}}%
+    \endgroup
+  \fi}
+\newcommand*{\l@chapter}[2]{%
+  \ifnum \c@tocdepth >\m@ne
+    \addpenalty{-\@highpenalty}%
+    \addvspace{1.0em \@plus\p@}
+    \begingroup
+      \parindent\z@
+      \rightskip\@tocrmarg
+      \parfillskip-\rightskip
+      \leavevmode\headfont
+      \if@english\setlength\@lnumwidth{5.5em}\else\setlength\@lnumwidth{4.683zw}\fi
+      \advance\leftskip\@lnumwidth \hskip-\leftskip
+      #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
+      \penalty\@highpenalty
+    \endgroup
+  \fi}
+\newcommand*{\l@section}{\@dottedtocline{1}{1zw}{3.683zw}}
+\newcommand*{\l@subsection}   {\@dottedtocline{2}{3.8em}{3.2em}}
+\newcommand*{\l@subsubsection}{\@dottedtocline{3}{7.0em}{4.1em}}
+\newcommand*{\l@paragraph}    {\@dottedtocline{4}{10em}{5em}}
+\newcommand*{\l@subparagraph} {\@dottedtocline{5}{12em}{6em}}
+\newdimen\@lnumwidth
+\def\numberline#1{\hb@xt@\@lnumwidth{#1\hfil}\hspace{0pt}}
+\def\@dottedtocline#1#2#3#4#5{\ifnum #1>\c@tocdepth \else
+  \vskip \z@ \@plus.2\p@
+  {\leftskip #2\relax \rightskip \@tocrmarg \parfillskip -\rightskip
+    \parindent #2\relax\@afterindenttrue
+   \interlinepenalty\@M
+   \leavevmode
+   \@lnumwidth #3\relax
+   \advance\leftskip \@lnumwidth \null\nobreak\hskip -\leftskip
+    {#4}\nobreak
+    \leaders\hbox{$\m@th \mkern \@dotsep mu\hbox{.}\mkern \@dotsep
+       mu$}\hfill \nobreak\hb@xt@\@pnumwidth{%
+         \hfil\normalfont \normalcolor #5}\par}\fi}
+\newcommand{\listoffigures}{%
+  \if@twocolumn\@restonecoltrue\onecolumn
+  \else\@restonecolfalse\fi
+  \chapter*{\listfigurename}%
+  \@mkboth{\listfigurename}{}%
+  \@starttoc{lof}%
+  \if@restonecol\twocolumn\fi
+}
+\newcommand*{\l@figure}{\@dottedtocline{1}{1zw}{3.683zw}}
+\newcommand{\listoftables}{%
+  \if@twocolumn\@restonecoltrue\onecolumn
+  \else\@restonecolfalse\fi
+  \chapter*{\listtablename}%
+  \@mkboth{\listtablename}{}%
+  \@starttoc{lot}%
+  \if@restonecol\twocolumn\fi
+}
+\let\l@table\l@figure
+\newdimen\bibindent
+\setlength\bibindent{2zw}
+\newenvironment{thebibliography}[1]{%
+  \global\let\presectionname\relax
+  \global\let\postsectionname\relax
+  \chapter*{\bibname}\@mkboth{\bibname}{}%
+  \addcontentsline{toc}{chapter}{\bibname}%
+   \list{\@biblabel{\@arabic\c@enumiv}}%
+        {\settowidth\labelwidth{\@biblabel{#1}}%
+         \leftmargin\labelwidth
+         \advance\leftmargin\labelsep
+         \@openbib@code
+         \usecounter{enumiv}%
+         \let\p@enumiv\@empty
+         \renewcommand\theenumiv{\@arabic\c@enumiv}}%
+   \sloppy
+   \clubpenalty4000
+   \@clubpenalty\clubpenalty
+   \widowpenalty4000%
+   \sfcode`\.\@m}
+  {\def\@noitemerr
+    {\@latex@warning{Empty `thebibliography' environment}}%
+   \endlist}
+\newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
+\let\@openbib@code\@empty
+\newenvironment{theindex}{% 索引を3段組で出力する環境
+    \if@twocolumn
+      \onecolumn\@restonecolfalse
+    \else
+      \clearpage\@restonecoltrue
+    \fi
+    \columnseprule.4pt \columnsep 2zw
+    \ifx\multicols\@undefined
+      \twocolumn[\@makeschapterhead{\indexname}%
+      \addcontentsline{toc}{chapter}{\indexname}]%
+    \else
+      \ifdim\textwidth<\fullwidth
+        \setlength{\evensidemargin}{\oddsidemargin}
+        \setlength{\textwidth}{\fullwidth}
+        \setlength{\linewidth}{\fullwidth}
+        \begin{multicols}{3}[\chapter*{\indexname}%
+        \addcontentsline{toc}{chapter}{\indexname}]%
+      \else
+        \begin{multicols}{2}[\chapter*{\indexname}%
+        \addcontentsline{toc}{chapter}{\indexname}]%
+      \fi
+    \fi
+    \@mkboth{\indexname}{}%
+    \plainifnotempty % \thispagestyle{plain}
+    \parindent\z@
+    \parskip\z@ \@plus .3\p@\relax
+    \let\item\@idxitem
+    \raggedright
+    \footnotesize\narrowbaselines
+  }{
+    \ifx\multicols\@undefined
+      \if@restonecol\onecolumn\fi
+    \else
+      \end{multicols}
+    \fi
+    \clearpage
+  }
+\newcommand{\@idxitem}{\par\hangindent 4zw} % 元 40pt
+\newcommand{\subitem}{\@idxitem \hspace*{2zw}} % 元 20pt
+\newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % 元 30pt
+\newcommand{\indexspace}{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax}
+\newcommand\seename{\if@english see\else →\fi}
+\newcommand\alsoname{\if@english see also\else →\fi}
+\let\footnotes@ve=\footnote
+\def\footnote{\inhibitglue\footnotes@ve}
+\let\footnotemarks@ve=\footnotemark
+\def\footnotemark{\inhibitglue\footnotemarks@ve}
+\def\thefootnote{\ifnum\c@footnote>\z@\leavevmode\lower.5ex\hbox{*}\@arabic\c@footnote\fi}
+\renewcommand{\footnoterule}{%
+  \kern-3\p@
+  \hrule width .4\columnwidth
+  \kern 2.6\p@}
+\@addtoreset{footnote}{chapter}
+\long\def\@footnotetext{%
+  \insert\footins\bgroup
+    \normalfont\footnotesize
+    \interlinepenalty\interfootnotelinepenalty
+    \splittopskip\footnotesep
+    \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
+    \hsize\columnwidth \@parboxrestore
+    \protected@edef\@currentlabel{%
+       \csname p@footnote\endcsname\@thefnmark
+    }%
+    \color@begingroup
+      \@makefntext{%
+        \rule\z@\footnotesep\ignorespaces}%
+      \futurelet\next\fo@t}
+\def\fo@t{\ifcat\bgroup\noexpand\next \let\next\f@@t
+                                \else \let\next\f@t\fi \next}
+\def\f@@t{\bgroup\aftergroup\@foot\let\next}
+\def\f@t#1{#1\@foot}
+\def\@foot{\@finalstrut\strutbox\color@endgroup\egroup}
+\newcommand\@makefntext[1]{%
+  \advance\leftskip 3zw
+  \parindent 1zw
+  \noindent
+  \llap{\@makefnmark\hskip0.3zw}#1}
+\def\@inhibitglue{%
+  \futurelet\@let@token\@@inhibitglue}
+\def\@@inhibitglue{%
+  \ifx\@let@token「
+    \inhibitglue
+  \else
+    \ifx\@let@token（
+      \inhibitglue
+    \else
+      \ifx\@let@token『
+        \inhibitglue
+      \else
+        \ifx\@let@token［
+          \inhibitglue
+        \fi
+      \fi
+    \fi
+  \fi}
+\let\everyparhook=\@inhibitglue
+\AtBeginDocument{\everypar{\everyparhook}}
+\def\@doendpe{%
+  \@endpetrue
+  \def\par{%
+    \@restorepar\everypar{\everyparhook}\par\@endpefalse}%
+  \everypar{{\setbox\z@\lastbox}\everypar{\everyparhook}\@endpefalse\everyparhook}}
+\def\@item[#1]{%
+  \if@noparitem
+    \@donoparitem
+  \else
+    \if@inlabel
+      \indent \par
+    \fi
+    \ifhmode
+      \unskip\unskip \par
+    \fi
+    \if@newlist
+      \if@nobreak
+        \@nbitem
+      \else
+        \addpenalty\@beginparpenalty
+        \addvspace\@topsep
+        \addvspace{-\parskip}%
+      \fi
+    \else
+      \addpenalty\@itempenalty
+      \addvspace\itemsep
+    \fi
+    \global\@inlabeltrue
+  \fi
+  \everypar{%
+    \@minipagefalse
+    \global\@newlistfalse
+    \if@inlabel
+      \global\@inlabelfalse
+      {\setbox\z@\lastbox
+       \ifvoid\z@
+         \kern-\itemindent
+       \fi}%
+      \box\@labels
+      \penalty\z@
+    \fi
+    \if@nobreak
+      \@nobreakfalse
+      \clubpenalty \@M
+    \else
+      \clubpenalty \@clubpenalty
+      \everypar{\everyparhook}%
+    \fi\everyparhook}%
+  \if@noitemarg
+    \@noitemargfalse
+    \if@nmbrlist
+      \refstepcounter\@listctr
+    \fi
+  \fi
+  \sbox\@tempboxa{\makelabel{#1}}%
+  \global\setbox\@labels\hbox{%
+    \unhbox\@labels
+    \hskip \itemindent
+    \hskip -\labelwidth
+    \hskip -\labelsep
+    \ifdim \wd\@tempboxa >\labelwidth
+      \box\@tempboxa
+    \else
+      \hbox to\labelwidth {\unhbox\@tempboxa}%
+    \fi
+    \hskip \labelsep}%
+  \ignorespaces}
+\def\@afterheading{%
+  \@nobreaktrue
+  \everypar{%
+    \if@nobreak
+      \@nobreakfalse
+      \clubpenalty \@M
+      \if@afterindent \else
+        {\setbox\z@\lastbox}%
+      \fi
+    \else
+      \clubpenalty \@clubpenalty
+      \everypar{\everyparhook}%
+    \fi\everyparhook}}
+\def\@gnewline #1{%
+  \ifvmode
+    \@nolnerr
+  \else
+    \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
+    \inhibitglue \ignorespaces
+  \fi}
+\def\小#1{\hbox{$\m@th$%
+  \csname S@\f@size\endcsname
+  \fontsize\sf@size\z@
+  \math@fontsfalse\selectfont
+  #1}}
+\def\上小#1{{\sbox\z@ T\vbox to\ht0{\小{#1}\vss}}}
+\def\cmrTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.25em\lower.5ex\hbox{E}\kern-.125emX\@
+  \else
+    T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX\@
+  \fi}
+\def\cmrLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.32em\上小{A}\kern-.22em\cmrTeX
+  \else
+    L\kern-.36em\上小{A}\kern-.15em\cmrTeX
+  \fi}
+\def\sfTeX{T\kern-.1em\lower.4ex\hbox{E}\kern-.07emX\@}
+\def\sfLaTeX{L\kern-.25em\上小{A}\kern-.08em\sfTeX}
+\def\ptmTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.12em\lower.37ex\hbox{E}\kern-.02emX\@
+  \else
+    T\kern-.07em\lower.37ex\hbox{E}\kern-.05emX\@
+  \fi}
+\def\ptmLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.2em\上小{A}\kern-.1em\ptmTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.1em\ptmTeX
+  \fi}
+\def\pncTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.2em\lower.5ex\hbox{E}\kern-.08emX\@
+  \else
+    T\kern-.13em\lower.5ex\hbox{E}\kern-.13emX\@
+  \fi}
+\def\pncLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
+  \fi}
+\def\pplTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.17em\lower.32ex\hbox{E}\kern-.15emX\@
+  \else
+    T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
+  \fi}
+\def\pplLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.27em\上小{A}\kern-.12em\pplTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.15em\pplTeX
+  \fi}
+\def\ugmTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.1em\lower.32ex\hbox{E}\kern-.06emX\@
+  \else
+    T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
+  \fi}
+\def\ugmLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.2em\上小{A}\kern-.13em\ugmTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.13em\ugmTeX
+  \fi}
+\DeclareRobustCommand{\TeX}{%
+  \def\@tempa{cmr}%
+  \ifx\f@family\@tempa\cmrTeX
+  \else
+    \def\@tempa{ptm}%
+    \ifx\f@family\@tempa\ptmTeX
+    \else
+      \def\@tempa{txr}%
+      \ifx\f@family\@tempa\ptmTeX
+      \else
+        \def\@tempa{pnc}%
+        \ifx\f@family\@tempa\pncTeX
+        \else
+          \def\@tempa{ppl}%
+          \ifx\f@family\@tempa\pplTeX
+          \else
+            \def\@tempa{ugm}%
+            \ifx\f@family\@tempa\ugmTeX
+            \else\sfTeX
+            \fi
+          \fi
+        \fi
+      \fi
+    \fi
+  \fi}
+
+\DeclareRobustCommand{\LaTeX}{%
+  \def\@tempa{cmr}%
+  \ifx\f@family\@tempa\cmrLaTeX
+  \else
+    \def\@tempa{ptm}%
+    \ifx\f@family\@tempa\ptmLaTeX
+    \else
+      \def\@tempa{txr}%
+      \ifx\f@family\@tempa\ptmLaTeX
+      \else
+        \def\@tempa{pnc}%
+        \ifx\f@family\@tempa\pncLaTeX
+        \else
+          \def\@tempa{ppl}%
+          \ifx\f@family\@tempa\pplLaTeX
+          \else
+            \def\@tempa{ugm}%
+            \ifx\f@family\@tempa\ugmLaTeX
+            \else\sfLaTeX
+            \fi
+          \fi
+        \fi
+      \fi
+    \fi
+  \fi}
+\DeclareRobustCommand{\LaTeXe}{$\mbox{%
+  \if b\expandafter\@car\f@series\@nil\boldmath\fi
+  \LaTeX\kern.15em2\raisebox{-.37ex}{$\textstyle\varepsilon$}}$}
+\def\pTeX{p\kern-.05em\TeX}
+\def\pLaTeX{p\LaTeX}
+\def\pLaTeXe{p\LaTeXe}
+\def\AmSTeX{\protect\AmS-\protect\TeX{}}
+\DeclareRobustCommand{\BibTeX}{B\kern-.05em\小{I\kern-.025em B}%
+  \ifx\f@family\cmr\kern-.08em\else\kern-.15em\fi\TeX}
+\DeclareRobustCommand{\SliTeX}{%
+  S\kern-.06emL\kern-.18em\上小{I}\kern -.03em\TeX}
+\let\ltx@ifnextchar\@ifnextchar
+\def\ProvidesFile#1{%
+  \begingroup
+    \catcode`\ 10 %
+    \ifnum \endlinechar<256 %
+      \ifnum \endlinechar>\m@ne
+        \catcode\endlinechar 10 %
+      \fi
+    \fi
+    \@makeother\/%
+    \@makeother\&%
+    \ltx@ifnextchar[{\@providesfile{#1}}{\@providesfile{#1}[]}}
+\newcommand{\prepartname}{\if@english Part~\else 第\fi}
+\newcommand{\postpartname}{\if@english\else 部\fi}
+\newcommand{\prechaptername}{\if@english Chapter~\else 第\fi}
+\newcommand{\postchaptername}{\if@english\else 章\fi}
+\newcommand{\presectionname}{}%  第
+\newcommand{\postsectionname}{}% 節
+\newcommand{\contentsname}{\if@english Contents\else 目次\fi}
+\newcommand{\listfigurename}{\if@english List of Figures\else 図目次\fi}
+\newcommand{\listtablename}{\if@english List of Tables\else 表目次\fi}
+\newcommand{\refname}{\if@english References\else 参考文献\fi}
+\newcommand{\bibname}{\if@english Bibliography\else 参考文献\fi}
+\newcommand{\indexname}{\if@english Index\else 索引\fi}
+\newcommand{\figurename}{\if@english Fig.~\else 図\fi}
+\newcommand{\tablename}{\if@english Table.~\else 表\fi}
+\newcommand{\appendixname}{\if@english Appendix~\else 付録\fi}
+\newif\if西暦 \西暦true
+\def\西暦{\西暦true}
+\def\和暦{\西暦false}
+\newcount\heisei \heisei\year \advance\heisei-1988\relax
+\def\today{%
+  \if@english
+    \ifcase\month\or
+      January\or February\or March\or April\or May\or June\or
+      July\or August\or September\or October\or November\or December\fi
+      \space\number\day, \number\year
+  \else
+    \if西暦
+      \number\year 年
+      \number\month 月
+      \number\day 日
+    \else
+      平成\number\heisei 年
+      \number\month 月
+      \number\day 日
+    \fi
+  \fi}
+\hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script}
+\if@report \pagestyle{plain} \else \pagestyle{headings} \fi
+\pagenumbering{arabic}
+\if@twocolumn
+  \twocolumn
+  \sloppy
+  \flushbottom
+\else
+  \onecolumn
+  \raggedbottom
+\fi
+\if@slide
+  \renewcommand\kanjifamilydefault{\gtdefault}
+  \renewcommand\familydefault{\sfdefault}
+  \raggedright
+  \xkanjiskip=0.1em\relax
+\fi
+\endinput
+%%
+%% End of file `jsbook.cls'.
diff --git a/Master/texmf-dist/tex/platex/jsclasses/jspf.cls b/Master/texmf-dist/tex/platex/jsclasses/jspf.cls
new file mode 100644
index 00000000000..4336ed9e80e
--- /dev/null
+++ b/Master/texmf-dist/tex/platex/jsclasses/jspf.cls
@@ -0,0 +1,1704 @@
+%%
+%% This is file `jspf.cls',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% jsclasses.dtx  (with options: `jspf')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from jspf.cls.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file jsclasses.dtx.
+%% 
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+\NeedsTeXFormat{pLaTeX2e}
+\ProvidesClass{jspf}
+  [2010/03/14 okumura]
+\newif\if@restonecol
+\newif\if@titlepage
+\newif\if@enablejfam \@enablejfamtrue
+\DeclareOption{a3paper}{%
+  \setlength\paperheight {420mm}%
+  \setlength\paperwidth  {297mm}}
+\DeclareOption{a4paper}{%
+  \setlength\paperheight {297mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{a5paper}{%
+  \setlength\paperheight {210mm}%
+  \setlength\paperwidth  {148mm}}
+\DeclareOption{a6paper}{%
+  \setlength\paperheight {148mm}%
+  \setlength\paperwidth  {105mm}}
+\DeclareOption{b4paper}{%
+  \setlength\paperheight {364mm}%
+  \setlength\paperwidth  {257mm}}
+\DeclareOption{b5paper}{%
+  \setlength\paperheight {257mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{b6paper}{%
+  \setlength\paperheight {182mm}%
+  \setlength\paperwidth  {128mm}}
+\DeclareOption{a4j}{%
+  \setlength\paperheight {297mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{a5j}{%
+  \setlength\paperheight {210mm}%
+  \setlength\paperwidth  {148mm}}
+\DeclareOption{b4j}{%
+  \setlength\paperheight {364mm}%
+  \setlength\paperwidth  {257mm}}
+\DeclareOption{b5j}{%
+  \setlength\paperheight {257mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{a4var}{%
+  \setlength\paperheight {283mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{b5var}{%
+  \setlength\paperheight {230mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{letterpaper}{%
+  \setlength\paperheight {11in}%
+  \setlength\paperwidth  {8.5in}}
+\DeclareOption{legalpaper}{%
+  \setlength\paperheight {14in}%
+  \setlength\paperwidth  {8.5in}}
+\DeclareOption{executivepaper}{%
+  \setlength\paperheight {10.5in}%
+  \setlength\paperwidth  {7.25in}}
+\newif\if@landscape
+\@landscapefalse
+\DeclareOption{landscape}{\@landscapetrue}
+\newif\if@slide
+\@slidefalse
+\newcommand{\@ptsize}{0}
+\DeclareOption{slide}{\@slidetrue\renewcommand{\@ptsize}{26}\@landscapetrue\@titlepagetrue}
+\DeclareOption{8pt}{\renewcommand{\@ptsize}{-2}}
+\DeclareOption{9pt}{\renewcommand{\@ptsize}{-1}}
+\DeclareOption{10pt}{\renewcommand{\@ptsize}{0}}
+\DeclareOption{11pt}{\renewcommand{\@ptsize}{1}}
+\DeclareOption{12pt}{\renewcommand{\@ptsize}{2}}
+\DeclareOption{14pt}{\renewcommand{\@ptsize}{4}}
+\DeclareOption{17pt}{\renewcommand{\@ptsize}{7}}
+\DeclareOption{20pt}{\renewcommand{\@ptsize}{10}}
+\DeclareOption{21pt}{\renewcommand{\@ptsize}{11}}
+\DeclareOption{25pt}{\renewcommand{\@ptsize}{15}}
+\DeclareOption{30pt}{\renewcommand{\@ptsize}{20}}
+\DeclareOption{36pt}{\renewcommand{\@ptsize}{26}}
+\DeclareOption{43pt}{\renewcommand{\@ptsize}{33}}
+\DeclareOption{12Q}{\renewcommand{\@ptsize}{1200}}
+\DeclareOption{14Q}{\renewcommand{\@ptsize}{1400}}
+\hour\time \divide\hour by 60\relax
+\@tempcnta\hour \multiply\@tempcnta 60\relax
+\minute\time \advance\minute-\@tempcnta
+\DeclareOption{tombow}{%
+  \tombowtrue \tombowdatetrue
+  \setlength{\@tombowwidth}{.1\p@}%
+  \@bannertoken{%
+     \jobname\space(\number\year-\two@digits\month-\two@digits\day
+     \space\two@digits\hour:\two@digits\minute)}%
+  \maketombowbox}
+\DeclareOption{tombo}{%
+  \tombowtrue \tombowdatefalse
+  \setlength{\@tombowwidth}{.1\p@}%
+  \maketombowbox}
+\DeclareOption{mentuke}{%
+  \tombowtrue \tombowdatefalse
+  \setlength{\@tombowwidth}{\z@}%
+  \maketombowbox}
+\DeclareOption{oneside}{\@twosidefalse \@mparswitchfalse}
+\DeclareOption{twoside}{\@twosidetrue \@mparswitchtrue}
+\DeclareOption{vartwoside}{\@twosidetrue \@mparswitchfalse}
+\DeclareOption{onecolumn}{\@twocolumnfalse}
+\DeclareOption{twocolumn}{\@twocolumntrue}
+\DeclareOption{titlepage}{\@titlepagetrue}
+\DeclareOption{notitlepage}{\@titlepagefalse}
+\def\eqnarray{%
+   \stepcounter{equation}%
+   \def\@currentlabel{\p@equation\theequation}%
+   \global\@eqnswtrue
+   \m@th
+   \global\@eqcnt\z@
+   \tabskip\@centering
+   \let\\\@eqncr
+   $$\everycr{}\halign to\displaywidth\bgroup
+       \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
+      &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
+      &\global\@eqcnt\tw@ $\displaystyle{##}$\hfil\tabskip\@centering
+      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
+         \tabskip\z@skip
+      \cr}
+\DeclareOption{leqno}{\input{leqno.clo}}
+\DeclareOption{fleqn}{\input{fleqn.clo}%
+  \def\eqnarray{%
+    \stepcounter{equation}%
+    \def\@currentlabel{\p@equation\theequation}%
+    \global\@eqnswtrue\m@th
+    \global\@eqcnt\z@
+    \tabskip\mathindent
+    \let\\=\@eqncr
+    \setlength\abovedisplayskip{\topsep}%
+    \ifvmode
+      \addtolength\abovedisplayskip{\partopsep}%
+    \fi
+    \addtolength\abovedisplayskip{\parskip}%
+    \setlength\belowdisplayskip{\abovedisplayskip}%
+    \setlength\belowdisplayshortskip{\abovedisplayskip}%
+    \setlength\abovedisplayshortskip{\abovedisplayskip}%
+    $$\everycr{}\halign to\linewidth% $$
+    \bgroup
+      \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
+      &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
+      &\global\@eqcnt\tw@
+        $\displaystyle{##}$\hfil \tabskip\@centering
+      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
+    \tabskip\z@skip\cr
+    }}
+\DeclareOption{disablejfam}{\@enablejfamfalse}
+\newif\ifdraft
+\DeclareOption{draft}{\drafttrue \setlength\overfullrule{5pt}}
+\DeclareOption{final}{\draftfalse \setlength\overfullrule{0pt}}
+\newif\ifwinjis
+\winjisfalse
+\newif\ifmingoth
+\mingothfalse
+\newif\ifjisfont
+\jisfontfalse
+\newif\if@jsc@uplatex
+\@jsc@uplatexfalse
+\DeclareOption{mingoth}{\mingothtrue}
+\DeclareOption{winjis}{\winjistrue}
+\DeclareOption{jis}{\jisfonttrue}
+\DeclareOption{uplatex}{\@jsc@uplatextrue\winjisfalse}
+\def\jsc@JYn{\if@jsc@uplatex JY2\else JY1\fi}
+\def\jsc@JTn{\if@jsc@uplatex JT2\else JT1\fi}
+\def\jsc@pfx@{\if@jsc@uplatex u\else \fi}
+\newif\ifpapersize
+\papersizefalse
+\DeclareOption{papersize}{\papersizetrue}
+\newif\if@english
+\@englishfalse
+\DeclareOption{english}{\@englishtrue}
+\ExecuteOptions{a4paper,twoside,twocolumn,notitlepage,fleqn,final}
+\ProcessOptions
+\if@slide
+  \def\maybeblue{\@ifundefined{ver@color.sty}{}{\color{blue}}}
+\fi
+\if@landscape
+  \setlength\@tempdima  {\paperheight}
+  \setlength\paperheight{\paperwidth}
+  \setlength\paperwidth {\@tempdima}
+\fi
+\ifpapersize
+  \setlength{\@tempdima}{\paperwidth}
+  \setlength{\@tempdimb}{\paperheight}
+  \iftombow
+    \advance \@tempdima 2in
+    \advance \@tempdimb 2in
+  \fi
+  \AtBeginDvi{\special{papersize=\the\@tempdima,\the\@tempdimb}}
+\fi
+\def\n@baseline{14.554375}
+\def\inv@mag{1}
+\ifnum\@ptsize=-2
+  \mag 833
+  \def\inv@mag{1.20048}
+  \def\n@baseline{15}%
+\fi
+\ifnum\@ptsize=-1
+  \mag 913 % formerly 900
+  \def\inv@mag{1.09529}
+  \def\n@baseline{15}%
+\fi
+\ifnum\@ptsize=1
+  \mag 1095 % formerly 1100
+  \def\inv@mag{0.913242}
+\fi
+\ifnum\@ptsize=2
+  \mag 1200
+  \def\inv@mag{0.833333}
+\fi
+\ifnum\@ptsize=4
+  \mag 1440
+  \def\inv@mag{0.694444}
+\fi
+\ifnum\@ptsize=7
+  \mag 1728
+  \def\inv@mag{0.578704}
+\fi
+\ifnum\@ptsize=10
+  \mag 2000
+  \def\inv@mag{0.5}
+\fi
+\ifnum\@ptsize=11
+  \mag 2074
+  \def\inv@mag{0.48216}
+\fi
+\ifnum\@ptsize=15
+  \mag 2488
+  \def\inv@mag{0.401929}
+\fi
+\ifnum\@ptsize=20
+  \mag 2986
+  \def\inv@mag{0.334896}
+\fi
+\ifnum\@ptsize=26
+  \mag 3583
+  \def\inv@mag{0.279096}
+\fi
+\ifnum\@ptsize=33
+  \mag 4300
+  \def\inv@mag{0.232558}
+\fi
+\ifnum\@ptsize=1200
+  \mag 923
+  \def\inv@mag{1.0834236}
+\fi
+\ifnum\@ptsize=1400
+  \mag 1077
+  \def\inv@mag{0.928505}
+\fi
+\setlength\paperwidth{\inv@mag\paperwidth}%
+\setlength\paperheight{\inv@mag\paperheight}%
+\ifwinjis
+  \DeclareFontShape{JY1}{mc}{m}{n}{<-> s * [0.93885] winjis}{}
+  \DeclareFontShape{JY1}{gt}{m}{n}{<-> s * [0.93885] winjisg}{}
+  \DeclareFontShape{JT1}{mc}{m}{n}{<-> s * [0.93885] winjis-v}{}
+  \DeclareFontShape{JT1}{gt}{m}{n}{<-> s * [0.93885] winjisg-v}{}
+\else
+  \ifmingoth
+    \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.93885] \jsc@pfx@ min10}{}
+    \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.93885] \jsc@pfx@ goth10}{}
+    \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.93885] \jsc@pfx@ tmin10}{}
+    \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.93885] \jsc@pfx@ tgoth10}{}
+  \else
+    \ifjisfont
+      \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.93885] \jsc@pfx@ jis}{}
+      \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.93885] \jsc@pfx@ jisg}{}
+      \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.93885] \jsc@pfx@ tmin10}{}
+      \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.93885] \jsc@pfx@ tgoth10}{}
+    \else
+      \if@jsc@uplatex
+        \DeclareFontShape{JY2}{mc}{m}{n}{<-> s * [0.903375] upjisr-h}{}
+        \DeclareFontShape{JY2}{gt}{m}{n}{<-> s * [0.903375] upjisg-h}{}
+        \DeclareFontShape{JT2}{mc}{m}{n}{<-> s * [0.903375] upjisr-v}{}
+        \DeclareFontShape{JT2}{gt}{m}{n}{<-> s * [0.903375] upjisg-v}{}
+      \else
+        \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.93885] \jsc@pfx@ jis}{}
+        \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.93885] \jsc@pfx@ jisg}{}
+        \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.93885] \jsc@pfx@ tmin10}{}
+        \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.93885] \jsc@pfx@ tgoth10}{}
+      \fi
+    \fi
+  \fi
+\fi
+\DeclareFontShape{\jsc@JYn}{mc}{m}{it}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{m}{sl}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{m}{sc}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{gt}{m}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{gt}{m}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{bx}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{it}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{sl}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{sc}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{gt}{m}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{gt}{m}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{bx}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
+\DeclareRobustCommand\rmfamily
+        {\not@math@alphabet\rmfamily\mathrm
+         \romanfamily\rmdefault\kanjifamily\mcdefault\selectfont}
+\DeclareRobustCommand\sffamily
+        {\not@math@alphabet\sffamily\mathsf
+         \romanfamily\sfdefault\kanjifamily\gtdefault\selectfont}
+\DeclareRobustCommand\ttfamily
+        {\not@math@alphabet\ttfamily\mathtt
+         \romanfamily\ttdefault\kanjifamily\gtdefault\selectfont}
+\def\textmc#1{\relax\ifmmode\hbox\fi{\mcfamily #1}}
+\def\textgt#1{\relax\ifmmode\hbox\fi{\gtfamily #1}}
+\def\reDeclareMathAlphabet#1#2#3{%
+  \edef\@tempa{\expandafter\@gobble\string#2}%
+  \edef\@tempb{\expandafter\@gobble\string#3}%
+  \edef\@tempc{\string @\expandafter\@gobbletwo\string#2}%
+  \ifx\@tempc\@tempa%
+    \edef\@tempa{\expandafter\@gobbletwo\string#2}%
+    \edef\@tempb{\expandafter\@gobbletwo\string#3}%
+  \fi
+  \begingroup
+    \let\protect\noexpand
+    \def\@tempaa{\relax}%
+    \expandafter\ifx\csname RDMAorg@\@tempa\endcsname\relax
+      \edef\@tempaa{\expandafter\def\expandafter\noexpand%
+        \csname RDMAorg@\@tempa\endcsname{%
+          \expandafter\noexpand\csname\@tempa\endcsname}}%
+    \fi
+    \def\@tempbb{\relax}%
+    \expandafter\ifx\csname RDMAorg@\@tempb\endcsname\relax
+      \edef\@tempbb{\expandafter\def\expandafter\noexpand%
+        \csname RDMAorg@\@tempb\endcsname{%
+          \expandafter\noexpand\csname\@tempb\endcsname}}%
+    \fi
+    \edef\@tempc{\@tempaa\@tempbb}%
+  \expandafter\endgroup\@tempc%
+  \edef#1{\noexpand\protect\expandafter\noexpand\csname%
+    \expandafter\@gobble\string#1\space\space\endcsname}%
+  \expandafter\edef\csname\expandafter\@gobble\string#1\space\space\endcsname%
+    {\noexpand\DualLang@mathalph@bet%
+      {\expandafter\noexpand\csname RDMAorg@\@tempa\endcsname}%
+      {\expandafter\noexpand\csname RDMAorg@\@tempb\endcsname}%
+  }%
+}
+\@onlypreamble\reDeclareMathAlphabet
+\def\DualLang@mathalph@bet#1#2{%
+  \relax\ifmmode
+    \ifx\math@bgroup\bgroup%     2e normal style     (\mathrm{...})
+      \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
+    \else
+      \ifx\math@bgroup\relax%    2e two letter style (\rm->\mathrm)
+        \let\DualLang@Mfontsw\DLMfontsw@oldstyle
+      \else
+        \ifx\math@bgroup\@empty% 2.09 oldlfont style ({\mathrm ...})
+          \let\DualLang@Mfontsw\DLMfontsw@oldlfont
+        \else%                   panic! assume 2e normal style
+          \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
+        \fi
+      \fi
+    \fi
+  \else
+    \let\DualLang@Mfontsw\@firstoftwo
+  \fi
+  \DualLang@Mfontsw{#1}{#2}%
+}
+\def\DLMfontsw@standard#1#2#3{#1{#2{#3}}\egroup}
+\def\DLMfontsw@oldstyle#1#2{#1\relax\@fontswitch\relax{#2}}
+\def\DLMfontsw@oldlfont#1#2{#1\relax#2\relax}
+\if@enablejfam
+  \if@compatibility\else
+    \DeclareSymbolFont{mincho}{\jsc@JYn}{mc}{m}{n}
+    \DeclareSymbolFontAlphabet{\mathmc}{mincho}
+    \SetSymbolFont{mincho}{bold}{\jsc@JYn}{gt}{m}{n}
+    \jfam\symmincho
+    \DeclareMathAlphabet{\mathgt}{\jsc@JYn}{gt}{m}{n}
+  \fi
+  \AtBeginDocument{%
+    \reDeclareMathAlphabet{\mathrm}{\@mathrm}{\@mathmc}
+    \reDeclareMathAlphabet{\mathbf}{\@mathbf}{\@mathgt}}
+\fi
+\prebreakpenalty\jis"2147=10000      % 5000   ’
+\postbreakpenalty\jis"2148=10000     % 5000   “
+\prebreakpenalty\jis"2149=10000      % 5000   ”
+\inhibitxspcode`〒=2
+\xspcode`+=3
+\xspcode`\%=3
+\xspcode`^^80=3
+\xspcode`^^81=3
+\xspcode`^^82=3
+\xspcode`^^83=3
+\xspcode`^^84=3
+\xspcode`^^85=3
+\xspcode`^^86=3
+\xspcode`^^87=3
+\xspcode`^^88=3
+\xspcode`^^89=3
+\xspcode`^^8a=3
+\xspcode`^^8b=3
+\xspcode`^^8c=3
+\xspcode`^^8d=3
+\xspcode`^^8e=3
+\xspcode`^^8f=3
+\xspcode`^^90=3
+\xspcode`^^91=3
+\xspcode`^^92=3
+\xspcode`^^93=3
+\xspcode`^^94=3
+\xspcode`^^95=3
+\xspcode`^^96=3
+\xspcode`^^97=3
+\xspcode`^^98=3
+\xspcode`^^99=3
+\xspcode`^^9a=3
+\xspcode`^^9b=3
+\xspcode`^^9c=3
+\xspcode`^^9d=3
+\xspcode`^^9e=3
+\xspcode`^^9f=3
+\xspcode`^^a0=3
+\xspcode`^^a1=3
+\xspcode`^^a2=3
+\xspcode`^^a3=3
+\xspcode`^^a4=3
+\xspcode`^^a5=3
+\xspcode`^^a6=3
+\xspcode`^^a7=3
+\xspcode`^^a8=3
+\xspcode`^^a9=3
+\xspcode`^^aa=3
+\xspcode`^^ab=3
+\xspcode`^^ac=3
+\xspcode`^^ad=3
+\xspcode`^^ae=3
+\xspcode`^^af=3
+\xspcode`^^b0=3
+\xspcode`^^b1=3
+\xspcode`^^b2=3
+\xspcode`^^b3=3
+\xspcode`^^b4=3
+\xspcode`^^b5=3
+\xspcode`^^b6=3
+\xspcode`^^b7=3
+\xspcode`^^b8=3
+\xspcode`^^b9=3
+\xspcode`^^ba=3
+\xspcode`^^bb=3
+\xspcode`^^bc=3
+\xspcode`^^bd=3
+\xspcode`^^be=3
+\xspcode`^^bf=3
+\xspcode`^^c0=3
+\xspcode`^^c1=3
+\xspcode`^^c2=3
+\xspcode`^^c3=3
+\xspcode`^^c4=3
+\xspcode`^^c5=3
+\xspcode`^^c6=3
+\xspcode`^^c7=3
+\xspcode`^^c8=3
+\xspcode`^^c9=3
+\xspcode`^^ca=3
+\xspcode`^^cb=3
+\xspcode`^^cc=3
+\xspcode`^^cd=3
+\xspcode`^^ce=3
+\xspcode`^^cf=3
+\xspcode`^^d0=3
+\xspcode`^^d1=3
+\xspcode`^^d2=3
+\xspcode`^^d3=3
+\xspcode`^^d4=3
+\xspcode`^^d5=3
+\xspcode`^^d6=3
+\xspcode`^^d7=3
+\xspcode`^^d8=3
+\xspcode`^^d9=3
+\xspcode`^^da=3
+\xspcode`^^db=3
+\xspcode`^^dc=3
+\xspcode`^^dd=3
+\xspcode`^^de=3
+\xspcode`^^df=3
+\xspcode`^^e0=3
+\xspcode`^^e1=3
+\xspcode`^^e2=3
+\xspcode`^^e3=3
+\xspcode`^^e4=3
+\xspcode`^^e5=3
+\xspcode`^^e6=3
+\xspcode`^^e7=3
+\xspcode`^^e8=3
+\xspcode`^^e9=3
+\xspcode`^^ea=3
+\xspcode`^^eb=3
+\xspcode`^^ec=3
+\xspcode`^^ed=3
+\xspcode`^^ee=3
+\xspcode`^^ef=3
+\xspcode`^^f0=3
+\xspcode`^^f1=3
+\xspcode`^^f2=3
+\xspcode`^^f3=3
+\xspcode`^^f4=3
+\xspcode`^^f5=3
+\xspcode`^^f6=3
+\xspcode`^^f7=3
+\xspcode`^^f8=3
+\xspcode`^^f9=3
+\xspcode`^^fa=3
+\xspcode`^^fb=3
+\xspcode`^^fc=3
+\xspcode`^^fd=3
+\xspcode`^^fe=3
+\xspcode`^^ff=3
+\def\@{\spacefactor3000\space}
+\def\@setfontsize#1#2#3{%
+  \ifx\protect\@typeset@protect
+    \let\@currsize#1%
+  \fi
+  \fontsize{#2}{#3}\selectfont
+  \ifdim\parindent>\z@
+    \if@english
+      \parindent=1em
+    \else
+      \parindent=1zw
+    \fi
+  \fi
+  \kanjiskip=0zw plus .1zw minus .01zw
+  \ifdim\xkanjiskip>\z@
+    \if@slide \xkanjiskip=0.1em \else
+      \xkanjiskip=0.25em plus 0.15em minus 0.06em
+    \fi
+  \fi}
+\emergencystretch 3zw
+\newif\ifnarrowbaselines
+\if@english
+  \narrowbaselinestrue
+\fi
+\def\narrowbaselines{%
+  \narrowbaselinestrue
+  \skip0=\abovedisplayskip
+  \skip2=\abovedisplayshortskip
+  \skip4=\belowdisplayskip
+  \skip6=\belowdisplayshortskip
+  \@currsize\selectfont
+  \abovedisplayskip=\skip0
+  \abovedisplayshortskip=\skip2
+  \belowdisplayskip=\skip4
+  \belowdisplayshortskip=\skip6\relax}
+\def\widebaselines{\narrowbaselinesfalse\@currsize\selectfont}
+\renewcommand{\normalsize}{%
+  \ifnarrowbaselines
+    \@setfontsize\normalsize\@xpt\@xiipt
+  \else
+    \@setfontsize\normalsize\@xpt{\n@baseline}%
+  \fi
+  \abovedisplayskip 11\p@ \@plus3\p@ \@minus4\p@
+  \abovedisplayshortskip \z@ \@plus3\p@
+  \belowdisplayskip 9\p@ \@plus3\p@ \@minus4\p@
+  \belowdisplayshortskip \belowdisplayskip
+  \let\@listi\@listI}
+\normalsize
+\setbox0\hbox{\char\euc"A1A1}%
+\setlength\Cht{\ht0}
+\setlength\Cdp{\dp0}
+\setlength\Cwd{\wd0}
+\setlength\Cvs{\baselineskip}
+\setlength\Chs{\wd0}
+\newcommand{\small}{%
+  \ifnarrowbaselines
+    \@setfontsize\small\@ixpt{11}%
+  \else
+    \@setfontsize\small\@ixpt{13}%
+  \fi
+  \abovedisplayskip 9\p@ \@plus3\p@ \@minus4\p@
+  \abovedisplayshortskip  \z@ \@plus3\p@
+  \belowdisplayskip \abovedisplayskip
+  \belowdisplayshortskip \belowdisplayskip
+  \def\@listi{\leftmargin\leftmargini
+              \topsep \z@
+              \parsep \z@
+              \itemsep \parsep}}
+\newcommand{\footnotesize}{%
+  \ifnarrowbaselines
+    \@setfontsize\footnotesize\@viiipt{9.5}%
+  \else
+    \@setfontsize\footnotesize\@viiipt{11}%
+  \fi
+  \abovedisplayskip 6\p@ \@plus2\p@ \@minus3\p@
+  \abovedisplayshortskip  \z@ \@plus2\p@
+  \belowdisplayskip \abovedisplayskip
+  \belowdisplayshortskip \belowdisplayskip
+  \def\@listi{\leftmargin\leftmargini
+              \topsep \z@
+              \parsep \z@
+              \itemsep \parsep}}
+\newcommand{\scriptsize}{\@setfontsize\scriptsize\@viipt\@viiipt}
+\newcommand{\tiny}{\@setfontsize\tiny\@vpt\@vipt}
+\if@twocolumn
+  \newcommand{\large}{\@setfontsize\large\@xiipt{\n@baseline}}
+\else
+  \newcommand{\large}{\@setfontsize\large\@xiipt{17}}
+\fi
+\newcommand{\Large}{\@setfontsize\Large\@xivpt{21}}
+\newcommand{\LARGE}{\@setfontsize\LARGE\@xviipt{25}}
+\newcommand{\huge}{\@setfontsize\huge\@xxpt{28}}
+\newcommand{\Huge}{\@setfontsize\Huge\@xxvpt{33}}
+\newcommand{\HUGE}{\@setfontsize\HUGE{30}{40}}
+\everydisplay=\expandafter{\the\everydisplay \narrowbaselines}
+\newcommand{\headfont}{\gtfamily\sffamily}
+\setlength\columnsep{2zw}
+\setlength\columnseprule{0\p@}
+\setlength\lineskip{1\p@}
+\setlength\normallineskip{1\p@}
+\setlength\lineskiplimit{1\p@}
+\setlength\normallineskiplimit{1\p@}
+\renewcommand{\baselinestretch}{}
+\setlength\parskip{0\p@}
+\if@slide
+  \setlength\parindent{0zw}
+\else
+  \setlength\parindent{1zw}
+\fi
+\@lowpenalty   51
+\@medpenalty  151
+\@highpenalty 301
+\setlength\topskip{10\p@}
+\if@slide
+  \setlength\headheight{0\p@}
+\else
+  \setlength\headheight{2\topskip}
+\fi
+\setlength\footskip{9mm}
+\setlength\headsep{9mm}
+\addtolength\headsep{-\topskip}
+\setlength\maxdepth{.5\topskip}
+\newdimen\fullwidth
+\setlength\fullwidth{50zw}
+\addtolength\fullwidth{8mm}
+\setlength\textwidth{\fullwidth}
+\setlength{\textheight}{51\baselineskip}
+\addtolength{\textheight}{\topskip}
+\addtolength{\textheight}{0.1\p@}
+\setlength{\mathindent}{10mm}
+\setlength\marginparsep{\columnsep}
+\setlength\marginparpush{\baselineskip}
+\setlength{\oddsidemargin}{\paperwidth}
+\addtolength{\oddsidemargin}{-\fullwidth}
+\setlength{\oddsidemargin}{.5\oddsidemargin}
+\iftombow
+  \addtolength{\oddsidemargin}{-1in}
+\else
+  \addtolength{\oddsidemargin}{-\inv@mag in}
+\fi
+\setlength{\evensidemargin}{\oddsidemargin}
+\if@mparswitch
+  \addtolength{\evensidemargin}{\fullwidth}
+  \addtolength{\evensidemargin}{-\textwidth}
+\fi
+\setlength\marginparwidth{\paperwidth}
+\addtolength\marginparwidth{-\oddsidemargin}
+\addtolength\marginparwidth{-\inv@mag in}
+\addtolength\marginparwidth{-\textwidth}
+\addtolength\marginparwidth{-1cm}
+\addtolength\marginparwidth{-\marginparsep}
+\@tempdima=1zw
+\divide\marginparwidth\@tempdima
+\multiply\marginparwidth\@tempdima
+\setlength\topmargin{\paperheight}
+\addtolength\topmargin{-\textheight}
+\if@slide
+  \addtolength\topmargin{-\headheight}
+\else
+  \addtolength\topmargin{-\topskip}
+\fi
+\addtolength\topmargin{-\headsep}
+\addtolength\topmargin{-\footskip}
+\setlength\topmargin{0.5\topmargin}
+\iftombow
+  \addtolength\topmargin{-1in}
+\else
+  \addtolength\topmargin{-\inv@mag in}
+\fi
+{\footnotesize\global\setlength\footnotesep{\baselineskip}}
+\setlength\footnotesep{0.7\footnotesep}
+\setlength{\skip\footins}{16\p@ \@plus 5\p@ \@minus 2\p@}
+\setcounter{topnumber}{9}
+\renewcommand{\topfraction}{.85}
+\setcounter{bottomnumber}{9}
+\renewcommand{\bottomfraction}{.8}
+\setcounter{totalnumber}{20}
+\renewcommand{\textfraction}{.1}
+\renewcommand{\floatpagefraction}{.8}
+\setcounter{dbltopnumber}{9}
+\renewcommand{\dbltopfraction}{.8}
+\renewcommand{\dblfloatpagefraction}{.8}
+\setlength\floatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\textfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}
+\setlength\intextsep   {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\dblfloatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\dbltextfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}
+\setlength\@fptop{0\p@ \@plus 1fil}
+\setlength\@fpsep{8\p@ \@plus 2fil}
+\setlength\@fpbot{0\p@ \@plus 1fil}
+\setlength\@dblfptop{0\p@ \@plus 1fil}
+\setlength\@dblfpsep{8\p@ \@plus 2fil}
+\setlength\@dblfpbot{0\p@ \@plus 1fil}
+\def\ps@plainfoot{%
+  \let\@mkboth\@gobbletwo
+  \let\@oddhead\@empty
+  \def\@oddfoot{\normalfont\hfil\thepage\hfil}%
+  \let\@evenhead\@empty
+  \let\@evenfoot\@oddfoot}
+\def\ps@plainhead{%
+  \let\@mkboth\@gobbletwo
+  \let\@oddfoot\@empty
+  \let\@evenfoot\@empty
+  \def\@evenhead{%
+    \if@mparswitch \hss \fi
+    \hbox to \fullwidth{\textbf{\thepage}\hfil}%
+    \if@mparswitch\else \hss \fi}%
+  \def\@oddhead{%
+    \hbox to \fullwidth{\hfil\textbf{\thepage}}\hss}}
+\let\ps@plain\ps@plainfoot
+\def\ps@headings{%
+  \def\@oddfoot{\normalfont\hfil\thepage\hfil}
+  \def\@evenfoot{\normalfont\hfil\thepage\hfil}
+  \def\@oddhead{\normalfont\hfil \@title \hfil}
+  \def\@evenhead{\normalfont\hfil プラズマ・核融合学会誌\hfil}}
+\def\ps@myheadings{%
+  \let\@oddfoot\@empty\let\@evenfoot\@empty
+  \def\@evenhead{%
+    \if@mparswitch \hss \fi%
+    \hbox to \fullwidth{\thepage\hfil\leftmark}%
+    \if@mparswitch\else \hss \fi}%
+  \def\@oddhead{%
+    \hbox to \fullwidth{\rightmark\hfil\thepage}\hss}%
+  \let\@mkboth\@gobbletwo
+  \let\sectionmark\@gobble
+  \let\subsectionmark\@gobble
+}
+\newcommand*{\etitle}[1]{\gdef\@etitle{#1}}
+\newcommand*{\eauthor}[1]{\gdef\@eauthor{#1}}
+\newcommand*{\keywords}[1]{\gdef\@keywords{#1}}
+\newcommand*{\email}[1]{\gdef\authors@mail{#1}}
+\newcommand*{\AuthorsEmail}[1]{\gdef\authors@mail{author's e-mail:\ #1}}
+\def\plainifnotempty{%
+  \ifx \@oddhead \@empty
+    \ifx \@oddfoot \@empty
+    \else
+      \thispagestyle{plainfoot}%
+    \fi
+  \else
+    \thispagestyle{plainhead}%
+  \fi}
+\newcommand{\maketitle}{\par
+  \begingroup
+    \renewcommand\thefootnote{\@fnsymbol\c@footnote}%
+    \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%
+    \long\def\@makefntext##1{\advance\leftskip 3zw
+      \parindent 1zw\noindent
+      \llap{\@textsuperscript{\normalfont\@thefnmark}\hskip0.3zw}##1}%
+      \twocolumn[\@maketitle]%
+    \plainifnotempty
+    \@thanks
+  \endgroup
+  \setcounter{footnote}{0}%
+  \global\let\thanks\relax
+  \global\let\maketitle\relax
+  \global\let\@thanks\@empty
+  \global\let\@author\@empty
+  \global\let\@date\@empty
+  \global\let\title\relax
+  \global\let\author\relax
+  \global\let\date\relax
+  \global\let\and\relax
+  \ifx\authors@mail\@undefined\else{%
+    \def\@makefntext{\advance\leftskip 3zw \parindent -3zw}%
+    \footnotetext[0]{\itshape\authors@mail}%
+  }\fi
+  \global\let\authors@mail\@undefined}
+\def\@maketitle{%
+  \newpage\null
+  \vskip 6em % used to be 2em
+  \begin{center}
+    \let\footnote\thanks
+    \ifx\@title\@undefined\else{\LARGE\headfont\@title\par}\fi
+    \lineskip .5em
+    \ifx\@author\@undefined\else
+      \vskip 1em
+      \begin{tabular}[t]{c}%
+        \@author
+      \end{tabular}\par
+    \fi
+    \ifx\@etitle\@undefined\else
+      \vskip 1em
+      {\large \@etitle \par}%
+    \fi
+    \ifx\@eauthor\@undefined\else
+      \vskip 1em
+      \begin{tabular}[t]{c}%
+        \@eauthor
+      \end{tabular}\par
+    \fi
+    \vskip 1em
+    \@date
+  \end{center}
+  \vskip 1.5em
+  \centerline{\box\@abstractbox}
+  \ifx\@keywords\@undefined\else
+    \vskip 1.5em
+    \centerline{\parbox{157mm}{\textsf{Keywords:}\\ \small\@keywords}}
+  \fi
+  \vskip 1.5em}
+\def\@startsection#1#2#3#4#5#6{%
+  \if@noskipsec \leavevmode \fi
+  \par
+  \@tempskipa #4\relax
+  \if@english \@afterindentfalse \else \@afterindenttrue \fi
+  \ifdim \@tempskipa <\z@
+    \@tempskipa -\@tempskipa \@afterindentfalse
+  \fi
+  \if@nobreak
+    \everypar{}%
+  \else
+    \addpenalty\@secpenalty
+    \ifdim \@tempskipa >\z@
+      \if@slide\else
+        \null
+        \vspace*{-\baselineskip}%
+      \fi
+      \vskip\@tempskipa
+    \fi
+  \fi
+  \noindent
+  \@ifstar
+    {\@ssect{#3}{#4}{#5}{#6}}%
+    {\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}
+\def\@sect#1#2#3#4#5#6[#7]#8{%
+  \ifnum #2>\c@secnumdepth
+    \let\@svsec\@empty
+  \else
+    \refstepcounter{#1}%
+    \protected@edef\@svsec{\@seccntformat{#1}\relax}%
+  \fi
+  \@tempskipa #5\relax
+  \ifdim \@tempskipa<\z@
+    \def\@svsechd{%
+      #6{\hskip #3\relax
+      \@svsec #8}%
+      \csname #1mark\endcsname{#7}%
+      \addcontentsline{toc}{#1}{%
+        \ifnum #2>\c@secnumdepth \else
+          \protect\numberline{\csname the#1\endcsname}%
+        \fi
+        #7}}% 目次にフルネームを載せるなら #8
+  \else
+    \begingroup
+      \interlinepenalty \@M % 下から移動
+      #6{%
+        \@hangfrom{\hskip #3\relax\@svsec}%
+        #8\@@par}%
+    \endgroup
+    \csname #1mark\endcsname{#7}%
+    \addcontentsline{toc}{#1}{%
+      \ifnum #2>\c@secnumdepth \else
+        \protect\numberline{\csname the#1\endcsname}%
+      \fi
+      #7}% 目次にフルネームを載せるならここは #8
+  \fi
+  \@xsect{#5}}
+\def\@xsect#1{%
+  \@tempskipa #1\relax
+  \ifdim \@tempskipa<\z@
+    \@nobreakfalse
+    \global\@noskipsectrue
+    \everypar{%
+      \if@noskipsec
+        \global\@noskipsecfalse
+       {\setbox\z@\lastbox}%
+        \clubpenalty\@M
+        \begingroup \@svsechd \endgroup
+        \unskip
+        \@tempskipa #1\relax
+        \hskip -\@tempskipa
+      \else
+        \clubpenalty \@clubpenalty
+        \everypar{\everyparhook}%
+      \fi\everyparhook}%
+  \else
+    \par \nobreak
+    \vskip \@tempskipa
+    \@afterheading
+  \fi
+  \if@slide
+    {\vskip-6pt\maybeblue\hrule height0pt depth1pt\vskip7pt\relax}%
+  \fi
+  \par  % 2000-12-18
+  \ignorespaces}
+\def\@ssect#1#2#3#4#5{%
+  \@tempskipa #3\relax
+  \ifdim \@tempskipa<\z@
+    \def\@svsechd{#4{\hskip #1\relax #5}}%
+  \else
+    \begingroup
+      #4{%
+        \@hangfrom{\hskip #1}%
+          \interlinepenalty \@M #5\@@par}%
+    \endgroup
+  \fi
+  \@xsect{#3}}
+\newcommand*\chaptermark[1]{}
+\setcounter{secnumdepth}{3}
+\newcounter{part}
+\newcounter{section}
+\newcounter{subsection}[section]
+\newcounter{subsubsection}[subsection]
+\newcounter{paragraph}[subsubsection]
+\newcounter{subparagraph}[paragraph]
+\renewcommand{\thepart}{\@Roman\c@part}
+% \renewcommand{\thesection}{\@arabic\c@section}
+\renewcommand{\thesection}{\presectionname\@arabic\c@section\postsectionname}
+\renewcommand{\thesubsection}{\@arabic\c@section.\@arabic\c@subsection}
+\renewcommand{\thesubsubsection}{%
+   \thesubsection.\@arabic\c@subsubsection}
+\renewcommand{\theparagraph}{%
+   \thesubsubsection.\@arabic\c@paragraph}
+\renewcommand{\thesubparagraph}{%
+   \theparagraph.\@arabic\c@subparagraph}
+\newcommand\part{%
+  \if@noskipsec \leavevmode \fi
+  \par
+  \addvspace{4ex}%
+  \if@english \@afterindentfalse \else \@afterindenttrue \fi
+  \secdef\@part\@spart}
+\def\@part[#1]#2{%
+  \ifnum \c@secnumdepth >\m@ne
+    \refstepcounter{part}%
+    \addcontentsline{toc}{part}{%
+      \prepartname\thepart\postpartname\hspace{1zw}#1}%
+  \else
+    \addcontentsline{toc}{part}{#1}%
+  \fi
+  \markboth{}{}%
+  {\parindent\z@
+    \raggedright
+    \interlinepenalty \@M
+    \normalfont
+    \ifnum \c@secnumdepth >\m@ne
+      \Large\headfont\prepartname\thepart\postpartname
+      \par\nobreak
+    \fi
+    \huge \headfont #2%
+    \markboth{}{}\par}%
+  \nobreak
+  \vskip 3ex
+  \@afterheading}
+\def\@spart#1{{%
+    \parindent \z@ \raggedright
+    \interlinepenalty \@M
+    \normalfont
+    \huge \headfont #1\par}%
+  \nobreak
+  \vskip 3ex
+  \@afterheading}
+\if@twocolumn
+  \newcommand{\section}{%
+\ifx\maketitle\relax\else\maketitle\fi
+    \@startsection{section}{1}{\z@}%
+    {0.6\Cvs}{0.4\Cvs}%
+    {\normalfont\large\headfont\raggedright}}
+\else
+  \newcommand{\section}{%
+    \if@slide\clearpage\fi
+    \@startsection{section}{1}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
+    {\normalfont\Large\headfont\raggedright}}
+\fi
+\if@twocolumn
+  \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
+    {\z@}{\z@}%
+    {\normalfont\normalsize\headfont}}
+\else
+  \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
+    {\normalfont\large\headfont}}
+\fi
+\if@twocolumn
+  \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
+    {\z@}{\z@}%
+    {\normalfont\normalsize\headfont}}
+\else
+  \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
+    {\z@}%
+    {\normalfont\normalsize\headfont}}
+\fi
+\if@twocolumn
+  \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
+    {\z@}{-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont}}
+\else
+  \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
+    {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
+    {-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont}}
+\fi
+\newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
+   {\z@}{-1zw}%
+   {\normalfont\normalsize\headfont}}
+\if@slide
+  \setlength\leftmargini{1zw}
+\else
+  \if@twocolumn
+    \setlength\leftmargini{2zw}
+  \else
+    \setlength\leftmargini{3zw}
+  \fi
+\fi
+\if@slide
+  \setlength\leftmarginii {1zw}
+  \setlength\leftmarginiii{1zw}
+  \setlength\leftmarginiv {1zw}
+  \setlength\leftmarginv  {1zw}
+  \setlength\leftmarginvi {1zw}
+\else
+  \setlength\leftmarginii {2zw}
+  \setlength\leftmarginiii{2zw}
+  \setlength\leftmarginiv {2zw}
+  \setlength\leftmarginv  {1zw}
+  \setlength\leftmarginvi {1zw}
+\fi
+\setlength  \labelsep  {0.5zw} % .5em
+\setlength  \labelwidth{\leftmargini}
+\addtolength\labelwidth{-\labelsep}
+\setlength\partopsep{\z@} % {2\p@ \@plus 1\p@ \@minus 1\p@}
+\@beginparpenalty -\@lowpenalty
+\@endparpenalty   -\@lowpenalty
+\@itempenalty     -\@lowpenalty
+\def\@listi{\leftmargin\leftmargini
+  \parsep \z@
+  \topsep 0.5\baselineskip
+  \itemsep \z@ \relax}
+\let\@listI\@listi
+\@listi
+\def\@listii{\leftmargin\leftmarginii
+  \labelwidth\leftmarginii \advance\labelwidth-\labelsep
+  \topsep \z@
+  \parsep \z@
+  \itemsep\parsep}
+\def\@listiii{\leftmargin\leftmarginiii
+  \labelwidth\leftmarginiii \advance\labelwidth-\labelsep
+  \topsep \z@
+  \parsep \z@
+  \itemsep\parsep}
+\def\@listiv {\leftmargin\leftmarginiv
+              \labelwidth\leftmarginiv
+              \advance\labelwidth-\labelsep}
+\def\@listv  {\leftmargin\leftmarginv
+              \labelwidth\leftmarginv
+              \advance\labelwidth-\labelsep}
+\def\@listvi {\leftmargin\leftmarginvi
+              \labelwidth\leftmarginvi
+              \advance\labelwidth-\labelsep}
+\renewcommand{\theenumi}{\@arabic\c@enumi}
+\renewcommand{\theenumii}{\@alph\c@enumii}
+\renewcommand{\theenumiii}{\@roman\c@enumiii}
+\renewcommand{\theenumiv}{\@Alph\c@enumiv}
+\newcommand{\labelenumi}{\theenumi.}
+\newcommand{\labelenumii}{\inhibitglue（\theenumii）\inhibitglue}
+\newcommand{\labelenumiii}{\theenumiii.}
+\newcommand{\labelenumiv}{\theenumiv.}
+\renewcommand{\p@enumii}{\theenumi}
+\renewcommand{\p@enumiii}{\theenumi\inhibitglue（\theenumii）}
+\renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
+\newcommand\labelitemi{\textbullet}
+\newcommand\labelitemii{\normalfont\bfseries \textendash}
+\newcommand\labelitemiii{\textasteriskcentered}
+\newcommand\labelitemiv{\textperiodcentered}
+\newenvironment{description}{%
+  \list{}{%
+    \labelwidth=\leftmargin
+    \labelsep=1zw
+    \advance \labelwidth by -\labelsep
+    \let \makelabel=\descriptionlabel}}{\endlist}
+\newcommand*\descriptionlabel[1]{\normalfont\headfont #1\hfil}
+\newbox\@abstractbox
+\newenvironment{abstract}{%
+  \global\setbox\@abstractbox\hbox\bgroup
+  \begin{minipage}[b]{157mm}{\sffamily Abstract}\par
+    \small
+    \if@english \parindent6mm \else \parindent1zw \fi}%
+  {\end{minipage}\egroup}
+\newenvironment{verse}{%
+  \let \\=\@centercr
+  \list{}{%
+    \itemsep \z@
+    \itemindent -2zw % 元: -1.5em
+    \listparindent\itemindent
+    \rightmargin \z@
+    \advance\leftmargin 2zw}% 元: 1.5em
+  \item\relax}{\endlist}
+\newenvironment{quotation}{%
+  \list{}{%
+    \listparindent\parindent
+    \itemindent\listparindent
+    \rightmargin \z@}%
+  \item\relax}{\endlist}
+\newenvironment{quote}%
+  {\list{}{\rightmargin\z@}\item\relax}{\endlist}
+\def\@begintheorem#1#2{\trivlist\labelsep=1zw
+   \item[\hskip \labelsep{\headfont #1\ #2}]}
+\def\@opargbegintheorem#1#2#3{\trivlist\labelsep=1zw
+      \item[\hskip \labelsep{\headfont #1\ #2（#3）}]}
+\newenvironment{titlepage}{%
+    \if@twocolumn
+      \@restonecoltrue\onecolumn
+    \else
+      \@restonecolfalse\newpage
+    \fi
+    \thispagestyle{empty}%
+    \setcounter{page}\@ne
+  }%
+  {\if@restonecol\twocolumn \else \newpage \fi
+    \if@twoside\else
+      \setcounter{page}\@ne
+    \fi}
+\newcommand{\appendix}{\par
+  \setcounter{section}{0}%
+  \setcounter{subsection}{0}%
+  \gdef\presectionname{\appendixname}%
+  \gdef\postsectionname{}%
+  \gdef\thesection{\presectionname\@Alph\c@section\postsectionname}%
+  \gdef\thesubsection{\@Alph\c@section.\@arabic\c@subsection}}
+\setlength\arraycolsep{5\p@}
+\setlength\tabcolsep{6\p@}
+\setlength\arrayrulewidth{.4\p@}
+\setlength\doublerulesep{2\p@}
+\setlength\tabbingsep{\labelsep}
+\skip\@mpfootins = \skip\footins
+\setlength\fboxsep{3\p@}
+\setlength\fboxrule{.4\p@}
+\renewcommand \theequation {\@arabic\c@equation}
+\newcounter{figure}
+\renewcommand \thefigure {\@arabic\c@figure}
+\def\fps@figure{tbp}
+\def\ftype@figure{1}
+\def\ext@figure{lof}
+\def\fnum@figure{\figurename\nobreak\thefigure}
+\newenvironment{figure}%
+               {\@float{figure}}%
+               {\end@float}
+\newenvironment{figure*}%
+               {\@dblfloat{figure}}%
+               {\end@dblfloat}
+\newcounter{table}
+\renewcommand\thetable{\@arabic\c@table}
+\def\fps@table{tbp}
+\def\ftype@table{2}
+\def\ext@table{lot}
+\def\fnum@table{\tablename\nobreak\thetable}
+\newenvironment{table}%
+               {\@float{table}}%
+               {\end@float}
+\newenvironment{table*}%
+               {\@dblfloat{table}}%
+               {\end@dblfloat}
+\newlength\abovecaptionskip
+\newlength\belowcaptionskip
+\setlength\abovecaptionskip{5\p@} % 元: 10\p@
+\setlength\belowcaptionskip{5\p@} % 元: 0\p@
+\long\def\@makecaption#1#2{%
+  \vskip\abovecaptionskip
+  \sbox\@tempboxa{\small\sffamily #1\quad #2}%
+  \ifdim \wd\@tempboxa >\hsize
+    {\small\sffamily
+      \list{#1}{%
+        \renewcommand{\makelabel}[1]{##1\hfil}
+        \itemsep    \z@
+        \itemindent \z@
+        \labelsep   \z@
+        \labelwidth 11mm
+        \listparindent\z@
+        \leftmargin 11mm}\item\relax #2\endlist}
+  \else
+    \global \@minipagefalse
+    \hb@xt@\hsize{\hfil\box\@tempboxa\hfil}%
+  \fi
+  \vskip\belowcaptionskip}
+\DeclareOldFontCommand{\mc}{\normalfont\mcfamily}{\mathmc}
+\DeclareOldFontCommand{\gt}{\normalfont\gtfamily}{\mathgt}
+\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
+\DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
+\DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
+\DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
+\DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
+\DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
+\DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
+\DeclareRobustCommand*{\cal}{\@fontswitch\relax\mathcal}
+\DeclareRobustCommand*{\mit}{\@fontswitch\relax\mathnormal}
+\newcommand\@pnumwidth{1.55em}
+\newcommand\@tocrmarg{2.55em}
+\newcommand\@dotsep{4.5}
+\setcounter{tocdepth}{2}
+\newcommand{\tableofcontents}{%
+  \section*{\contentsname}%
+  \@mkboth{\contentsname}{\contentsname}%
+  \@starttoc{toc}%
+}
+\newcommand*{\l@part}[2]{%
+  \ifnum \c@tocdepth >-2\relax
+    \addpenalty\@secpenalty
+    \addvspace{2.25em \@plus\p@}%
+    \begingroup
+      \parindent \z@
+      \rightskip \@tocrmarg
+      \parfillskip -\rightskip
+      {\leavevmode
+        \large \headfont
+        \setlength\@lnumwidth{4zw}%
+        #1\hfil \hb@xt@\@pnumwidth{\hss #2}}\par
+      \nobreak
+    \endgroup
+  \fi}
+\newcommand*{\l@section}[2]{%
+  \ifnum \c@tocdepth >\z@
+    \addpenalty{\@secpenalty}%
+    \addvspace{1.0em \@plus\p@}%
+    \begingroup
+      \parindent\z@
+      \rightskip\@tocrmarg
+      \parfillskip-\rightskip
+      \leavevmode\headfont
+      \setlength\@lnumwidth{4zw}% 元1.5em [2003-03-02]
+      \advance\leftskip\@lnumwidth \hskip-\leftskip
+      #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
+    \endgroup
+  \fi}
+\newcommand*{\l@subsection}   {\@dottedtocline{2}{1zw}{3zw}}
+\newcommand*{\l@subsubsection}{\@dottedtocline{3}{2zw}{3zw}}
+\newcommand*{\l@paragraph}    {\@dottedtocline{4}{3zw}{3zw}}
+\newcommand*{\l@subparagraph} {\@dottedtocline{5}{4zw}{3zw}}
+\newdimen\@lnumwidth
+\def\numberline#1{\hb@xt@\@lnumwidth{#1\hfil}\hspace{0pt}}
+\def\@dottedtocline#1#2#3#4#5{\ifnum #1>\c@tocdepth \else
+  \vskip \z@ \@plus.2\p@
+  {\leftskip #2\relax \rightskip \@tocrmarg \parfillskip -\rightskip
+    \parindent #2\relax\@afterindenttrue
+   \interlinepenalty\@M
+   \leavevmode
+   \@lnumwidth #3\relax
+   \advance\leftskip \@lnumwidth \null\nobreak\hskip -\leftskip
+    {#4}\nobreak
+    \leaders\hbox{$\m@th \mkern \@dotsep mu\hbox{.}\mkern \@dotsep
+       mu$}\hfill \nobreak\hb@xt@\@pnumwidth{%
+         \hfil\normalfont \normalcolor #5}\par}\fi}
+\newcommand{\listoffigures}{%
+  \section*{\listfigurename}%
+  \@mkboth{\listfigurename}{\listfigurename}%
+  \@starttoc{lof}%
+}
+\newcommand*{\l@figure}{\@dottedtocline{1}{1zw}{3.683zw}}
+\newcommand{\listoftables}{%
+  \section*{\listtablename}%
+  \@mkboth{\listtablename}{\listtablename}%
+  \@starttoc{lot}%
+}
+\let\l@table\l@figure
+\newdimen\bibindent
+\setlength\bibindent{2zw}
+\newenvironment{thebibliography}[1]{%
+  \global\let\presectionname\relax
+  \global\let\postsectionname\relax
+  \section*{\refname}\@mkboth{\refname}{\refname}%
+   \list{\@biblabel{\@arabic\c@enumiv}}%
+        {\settowidth\labelwidth{\@biblabel{#1}}%
+         \leftmargin\labelwidth
+         \advance\leftmargin\labelsep
+         \@openbib@code
+         \usecounter{enumiv}%
+         \let\p@enumiv\@empty
+         \renewcommand\theenumiv{\@arabic\c@enumiv}}%
+   \sloppy
+   \clubpenalty4000
+   \@clubpenalty\clubpenalty
+   \widowpenalty4000%
+   \sfcode`\.\@m}
+  {\def\@noitemerr
+    {\@latex@warning{Empty `thebibliography' environment}}%
+   \endlist}
+\newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
+\let\@openbib@code\@empty
+\newenvironment{theindex}{% 索引を3段組で出力する環境
+    \if@twocolumn
+      \onecolumn\@restonecolfalse
+    \else
+      \clearpage\@restonecoltrue
+    \fi
+    \columnseprule.4pt \columnsep 2zw
+    \ifx\multicols\@undefined
+      \def\presectionname{}\def\postsectionname{}%
+      \twocolumn[\section*{\indexname}]%
+    \else
+      \ifdim\textwidth<\fullwidth
+        \setlength{\evensidemargin}{\oddsidemargin}
+        \setlength{\textwidth}{\fullwidth}
+        \setlength{\linewidth}{\fullwidth}
+        \def\presectionname{}\def\postsectionname{}%
+        \begin{multicols}{3}[\section*{\indexname}]%
+      \else
+        \def\presectionname{}\def\postsectionname{}%
+        \begin{multicols}{2}[\section*{\indexname}]%
+      \fi
+    \fi
+    \@mkboth{\indexname}{\indexname}%
+    \plainifnotempty % \thispagestyle{plain}
+    \parindent\z@
+    \parskip\z@ \@plus .3\p@\relax
+    \let\item\@idxitem
+    \raggedright
+    \footnotesize\narrowbaselines
+  }{
+    \ifx\multicols\@undefined
+      \if@restonecol\onecolumn\fi
+    \else
+      \end{multicols}
+    \fi
+    \clearpage
+  }
+\newcommand{\@idxitem}{\par\hangindent 4zw} % 元 40pt
+\newcommand{\subitem}{\@idxitem \hspace*{2zw}} % 元 20pt
+\newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % 元 30pt
+\newcommand{\indexspace}{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax}
+\newcommand\seename{\if@english see\else →\fi}
+\newcommand\alsoname{\if@english see also\else →\fi}
+\let\footnotes@ve=\footnote
+\def\footnote{\inhibitglue\footnotes@ve}
+\let\footnotemarks@ve=\footnotemark
+\def\footnotemark{\inhibitglue\footnotemarks@ve}
+\def\thefootnote{\ifnum\c@footnote>\z@\leavevmode\lower.5ex\hbox{*}\@arabic\c@footnote\fi}
+\renewcommand{\footnoterule}{%
+  \kern-3\p@
+  \hrule width .4\columnwidth
+  \kern 2.6\p@}
+\long\def\@footnotetext{%
+  \insert\footins\bgroup
+    \normalfont\footnotesize
+    \interlinepenalty\interfootnotelinepenalty
+    \splittopskip\footnotesep
+    \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
+    \hsize\columnwidth \@parboxrestore
+    \protected@edef\@currentlabel{%
+       \csname p@footnote\endcsname\@thefnmark
+    }%
+    \color@begingroup
+      \@makefntext{%
+        \rule\z@\footnotesep\ignorespaces}%
+      \futurelet\next\fo@t}
+\def\fo@t{\ifcat\bgroup\noexpand\next \let\next\f@@t
+                                \else \let\next\f@t\fi \next}
+\def\f@@t{\bgroup\aftergroup\@foot\let\next}
+\def\f@t#1{#1\@foot}
+\def\@foot{\@finalstrut\strutbox\color@endgroup\egroup}
+\newcommand\@makefntext[1]{%
+  \advance\leftskip 3zw
+  \parindent 1zw
+  \noindent
+  \llap{\@makefnmark\hskip0.3zw}#1}
+\def\@inhibitglue{%
+  \futurelet\@let@token\@@inhibitglue}
+\def\@@inhibitglue{%
+  \ifx\@let@token「
+    \inhibitglue
+  \else
+    \ifx\@let@token（
+      \inhibitglue
+    \else
+      \ifx\@let@token『
+        \inhibitglue
+      \else
+        \ifx\@let@token［
+          \inhibitglue
+        \fi
+      \fi
+    \fi
+  \fi}
+\let\everyparhook=\@inhibitglue
+\AtBeginDocument{\everypar{\everyparhook}}
+\def\@doendpe{%
+  \@endpetrue
+  \def\par{%
+    \@restorepar\everypar{\everyparhook}\par\@endpefalse}%
+  \everypar{{\setbox\z@\lastbox}\everypar{\everyparhook}\@endpefalse\everyparhook}}
+\def\@item[#1]{%
+  \if@noparitem
+    \@donoparitem
+  \else
+    \if@inlabel
+      \indent \par
+    \fi
+    \ifhmode
+      \unskip\unskip \par
+    \fi
+    \if@newlist
+      \if@nobreak
+        \@nbitem
+      \else
+        \addpenalty\@beginparpenalty
+        \addvspace\@topsep
+        \addvspace{-\parskip}%
+      \fi
+    \else
+      \addpenalty\@itempenalty
+      \addvspace\itemsep
+    \fi
+    \global\@inlabeltrue
+  \fi
+  \everypar{%
+    \@minipagefalse
+    \global\@newlistfalse
+    \if@inlabel
+      \global\@inlabelfalse
+      {\setbox\z@\lastbox
+       \ifvoid\z@
+         \kern-\itemindent
+       \fi}%
+      \box\@labels
+      \penalty\z@
+    \fi
+    \if@nobreak
+      \@nobreakfalse
+      \clubpenalty \@M
+    \else
+      \clubpenalty \@clubpenalty
+      \everypar{\everyparhook}%
+    \fi\everyparhook}%
+  \if@noitemarg
+    \@noitemargfalse
+    \if@nmbrlist
+      \refstepcounter\@listctr
+    \fi
+  \fi
+  \sbox\@tempboxa{\makelabel{#1}}%
+  \global\setbox\@labels\hbox{%
+    \unhbox\@labels
+    \hskip \itemindent
+    \hskip -\labelwidth
+    \hskip -\labelsep
+    \ifdim \wd\@tempboxa >\labelwidth
+      \box\@tempboxa
+    \else
+      \hbox to\labelwidth {\unhbox\@tempboxa}%
+    \fi
+    \hskip \labelsep}%
+  \ignorespaces}
+\def\@afterheading{%
+  \@nobreaktrue
+  \everypar{%
+    \if@nobreak
+      \@nobreakfalse
+      \clubpenalty \@M
+      \if@afterindent \else
+        {\setbox\z@\lastbox}%
+      \fi
+    \else
+      \clubpenalty \@clubpenalty
+      \everypar{\everyparhook}%
+    \fi\everyparhook}}
+\def\@gnewline #1{%
+  \ifvmode
+    \@nolnerr
+  \else
+    \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
+    \inhibitglue \ignorespaces
+  \fi}
+\def\小#1{\hbox{$\m@th$%
+  \csname S@\f@size\endcsname
+  \fontsize\sf@size\z@
+  \math@fontsfalse\selectfont
+  #1}}
+\def\上小#1{{\sbox\z@ T\vbox to\ht0{\小{#1}\vss}}}
+\def\cmrTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.25em\lower.5ex\hbox{E}\kern-.125emX\@
+  \else
+    T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX\@
+  \fi}
+\def\cmrLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.32em\上小{A}\kern-.22em\cmrTeX
+  \else
+    L\kern-.36em\上小{A}\kern-.15em\cmrTeX
+  \fi}
+\def\sfTeX{T\kern-.1em\lower.4ex\hbox{E}\kern-.07emX\@}
+\def\sfLaTeX{L\kern-.25em\上小{A}\kern-.08em\sfTeX}
+\def\ptmTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.12em\lower.37ex\hbox{E}\kern-.02emX\@
+  \else
+    T\kern-.07em\lower.37ex\hbox{E}\kern-.05emX\@
+  \fi}
+\def\ptmLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.2em\上小{A}\kern-.1em\ptmTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.1em\ptmTeX
+  \fi}
+\def\pncTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.2em\lower.5ex\hbox{E}\kern-.08emX\@
+  \else
+    T\kern-.13em\lower.5ex\hbox{E}\kern-.13emX\@
+  \fi}
+\def\pncLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
+  \fi}
+\def\pplTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.17em\lower.32ex\hbox{E}\kern-.15emX\@
+  \else
+    T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
+  \fi}
+\def\pplLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.27em\上小{A}\kern-.12em\pplTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.15em\pplTeX
+  \fi}
+\def\ugmTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.1em\lower.32ex\hbox{E}\kern-.06emX\@
+  \else
+    T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
+  \fi}
+\def\ugmLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.2em\上小{A}\kern-.13em\ugmTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.13em\ugmTeX
+  \fi}
+\DeclareRobustCommand{\TeX}{%
+  \def\@tempa{cmr}%
+  \ifx\f@family\@tempa\cmrTeX
+  \else
+    \def\@tempa{ptm}%
+    \ifx\f@family\@tempa\ptmTeX
+    \else
+      \def\@tempa{txr}%
+      \ifx\f@family\@tempa\ptmTeX
+      \else
+        \def\@tempa{pnc}%
+        \ifx\f@family\@tempa\pncTeX
+        \else
+          \def\@tempa{ppl}%
+          \ifx\f@family\@tempa\pplTeX
+          \else
+            \def\@tempa{ugm}%
+            \ifx\f@family\@tempa\ugmTeX
+            \else\sfTeX
+            \fi
+          \fi
+        \fi
+      \fi
+    \fi
+  \fi}
+
+\DeclareRobustCommand{\LaTeX}{%
+  \def\@tempa{cmr}%
+  \ifx\f@family\@tempa\cmrLaTeX
+  \else
+    \def\@tempa{ptm}%
+    \ifx\f@family\@tempa\ptmLaTeX
+    \else
+      \def\@tempa{txr}%
+      \ifx\f@family\@tempa\ptmLaTeX
+      \else
+        \def\@tempa{pnc}%
+        \ifx\f@family\@tempa\pncLaTeX
+        \else
+          \def\@tempa{ppl}%
+          \ifx\f@family\@tempa\pplLaTeX
+          \else
+            \def\@tempa{ugm}%
+            \ifx\f@family\@tempa\ugmLaTeX
+            \else\sfLaTeX
+            \fi
+          \fi
+        \fi
+      \fi
+    \fi
+  \fi}
+\DeclareRobustCommand{\LaTeXe}{$\mbox{%
+  \if b\expandafter\@car\f@series\@nil\boldmath\fi
+  \LaTeX\kern.15em2\raisebox{-.37ex}{$\textstyle\varepsilon$}}$}
+\def\pTeX{p\kern-.05em\TeX}
+\def\pLaTeX{p\LaTeX}
+\def\pLaTeXe{p\LaTeXe}
+\def\AmSTeX{\protect\AmS-\protect\TeX{}}
+\DeclareRobustCommand{\BibTeX}{B\kern-.05em\小{I\kern-.025em B}%
+  \ifx\f@family\cmr\kern-.08em\else\kern-.15em\fi\TeX}
+\DeclareRobustCommand{\SliTeX}{%
+  S\kern-.06emL\kern-.18em\上小{I}\kern -.03em\TeX}
+\let\ltx@ifnextchar\@ifnextchar
+\def\ProvidesFile#1{%
+  \begingroup
+    \catcode`\ 10 %
+    \ifnum \endlinechar<256 %
+      \ifnum \endlinechar>\m@ne
+        \catcode\endlinechar 10 %
+      \fi
+    \fi
+    \@makeother\/%
+    \@makeother\&%
+    \ltx@ifnextchar[{\@providesfile{#1}}{\@providesfile{#1}[]}}
+\newcommand{\prepartname}{\if@english Part~\else 第\fi}
+\newcommand{\postpartname}{\if@english\else 部\fi}
+\newcommand{\presectionname}{}%  第
+\newcommand{\postsectionname}{}% 節
+\newcommand{\contentsname}{\if@english Contents\else 目次\fi}
+\newcommand{\listfigurename}{\if@english List of Figures\else 図目次\fi}
+\newcommand{\listtablename}{\if@english List of Tables\else 表目次\fi}
+\newcommand{\refname}{\if@english References\else 参考文献\fi}
+\newcommand{\bibname}{\if@english Bibliography\else 参考文献\fi}
+\newcommand{\indexname}{\if@english Index\else 索引\fi}
+\newcommand{\figurename}{Fig.~}
+\newcommand{\tablename}{Table~}
+\newcommand{\appendixname}{\if@english Appendix~\else 付録\fi}
+\newcommand{\abstractname}{\if@english Abstract\else 概要\fi}
+\newif\if西暦 \西暦true
+\def\西暦{\西暦true}
+\def\和暦{\西暦false}
+\newcount\heisei \heisei\year \advance\heisei-1988\relax
+\def\today{%
+  \if@english
+    \ifcase\month\or
+      January\or February\or March\or April\or May\or June\or
+      July\or August\or September\or October\or November\or December\fi
+      \space\number\day, \number\year
+  \else
+    \if西暦
+      \number\year 年
+      \number\month 月
+      \number\day 日
+    \else
+      平成\number\heisei 年
+      \number\month 月
+      \number\day 日
+    \fi
+  \fi}
+\hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script}
+\pagestyle{headings}
+\pagenumbering{arabic}
+\if@twocolumn
+  \twocolumn
+  \sloppy
+  \flushbottom
+\else
+  \onecolumn
+  \raggedbottom
+\fi
+\if@slide
+  \renewcommand\kanjifamilydefault{\gtdefault}
+  \renewcommand\familydefault{\sfdefault}
+  \raggedright
+  \xkanjiskip=0.1em\relax
+\fi
+\endinput
+%%
+%% End of file `jspf.cls'.
diff --git a/Master/texmf-dist/tex/platex/jsclasses/jsverb.sty b/Master/texmf-dist/tex/platex/jsclasses/jsverb.sty
new file mode 100644
index 00000000000..5be9d293d86
--- /dev/null
+++ b/Master/texmf-dist/tex/platex/jsclasses/jsverb.sty
@@ -0,0 +1,128 @@
+%%
+%% This is file `jsverb.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% jsverb.dtx  (with options: `jsverb')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from jsverb.sty.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file jsverb.dtx.
+%% 
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+\NeedsTeXFormat{pLaTeX2e}
+\ProvidesFile{jsverb.sty}[2007/01/28 okumura]
+\newif\if@yen \@yenfalse
+\DeclareOption{yen}{\@yentrue}
+\ProcessOptions\relax
+\AtBeginDocument{%
+  \expandafter\ifx\csname T@T1\endcsname\relax \else
+    \expandafter\ifx\csname T@TS1\endcsname\relax
+      \input{ts1enc.def}%
+  \fi\fi
+}
+\def\y@n{Y\llap=}
+\def\ttyen{{\ttfamily\y@n}}
+\def\ttbslash{{\ttfamily\char`\\}}
+\if@yen
+  \let\BS=\ttyen
+\else
+  \let\BS=\ttbslash
+\fi
+\if@yen
+  \begingroup
+    \catcode`\|=0  \catcode`\\=13
+    |gdef|verbh@@k{|catcode`|\=13 |let\=|y@n}
+  |endgroup
+\else
+  \let\verbh@@k=\relax
+\fi
+\begingroup
+  \catcode`\'=13
+  \catcode`\`=13
+  \gdef\verbh@@@k{\catcode39=13 \let'=\@rq \catcode96=13 \let`=\@lq}
+\endgroup
+\def\@OTone{OT1}
+\def\@Tone{T1}
+\def\verbh@@@k@{%
+  \ifx\f@encoding\@OTone
+    \chardef\@lq=18
+    \chardef\@rq=13
+    \verbh@@@k
+  \else
+    \ifx\f@encoding\@Tone
+      \chardef\@lq=0
+      \def\@rq{{\fontencoding{TS1}\selectfont\textquotesingle}}%
+      \def\y@n{{\fontencoding{TS1}\selectfont\textyen}}%
+      \verbh@@@k
+    \fi
+  \fi
+}
+\def\verbatim@font{\ttfamily}
+\def\verb{%
+  \leavevmode\hbox
+  \bgroup
+    \verb@eol@error \let\do\@makeother \dospecials
+    \verbatim@font\@noligs
+    \noautoxspacing
+    \verbh@@k \verbh@@@k@
+    \@ifstar\@sverb\@verb}
+\if@yen
+\begingroup \catcode `|=0 \catcode `[= 1
+\catcode`]=2 \catcode `\{=12 \catcode `\}=12
+\catcode`\\=13 |gdef|@xverbatim#1\end{verbatim}[#1|end[verbatim]]
+|gdef|@sxverbatim#1\end{verbatim*}[#1|end[verbatim*]]
+|endgroup
+\fi
+\newdimen\verbatimleftmargin
+\verbatimleftmargin=2zw
+\def\verbatimsize{\fontsize{9}{11pt}\selectfont}
+\def\@verbatim{%
+  \trivlist \item\relax
+  \if@minipage
+    \verbatimsize
+  \else
+    \vskip\baselineskip
+    \vskip-\f@size pt
+    \verbatimsize
+    \vskip-\baselineskip
+    \vskip\f@size pt
+    \vskip\parskip
+  \fi
+  \leftskip\@totalleftmargin
+  \if@minipage \else
+    \advance \leftskip \verbatimleftmargin
+  \fi
+  \rightskip\z@skip
+  \parindent\z@
+  \parfillskip\@flushglue
+  \parskip\z@skip
+  \@@par
+  \@tempswafalse
+  \def\par{%
+    \if@tempswa
+      \leavevmode \null \@@par\penalty\interlinepenalty
+    \else
+      \@tempswatrue
+      \ifhmode\@@par\penalty\interlinepenalty\fi
+    \fi}%
+  \let\do\@makeother \dospecials
+  \obeylines \verbatim@font \@noligs
+  \noautoxspacing
+  \verbh@@k \verbh@@@k@
+  \hyphenchar\font\m@ne
+  \everypar \expandafter{\the\everypar \unpenalty}%
+}
+\endinput
+%%
+%% End of file `jsverb.sty'.
diff --git a/Master/texmf-dist/tex/platex/jsclasses/kiyou.cls b/Master/texmf-dist/tex/platex/jsclasses/kiyou.cls
new file mode 100644
index 00000000000..de70be6af67
--- /dev/null
+++ b/Master/texmf-dist/tex/platex/jsclasses/kiyou.cls
@@ -0,0 +1,1808 @@
+%%
+%% This is file `kiyou.cls',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% jsclasses.dtx  (with options: `kiyou')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from kiyou.cls.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file jsclasses.dtx.
+%% 
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+\NeedsTeXFormat{pLaTeX2e}
+\ProvidesClass{kiyou}
+  [2010/03/14 okumura]
+\newif\if@restonecol
+\newif\if@titlepage
+\newif\if@enablejfam \@enablejfamtrue
+\DeclareOption{a3paper}{%
+  \setlength\paperheight {420mm}%
+  \setlength\paperwidth  {297mm}}
+\DeclareOption{a4paper}{%
+  \setlength\paperheight {297mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{a5paper}{%
+  \setlength\paperheight {210mm}%
+  \setlength\paperwidth  {148mm}}
+\DeclareOption{a6paper}{%
+  \setlength\paperheight {148mm}%
+  \setlength\paperwidth  {105mm}}
+\DeclareOption{b4paper}{%
+  \setlength\paperheight {364mm}%
+  \setlength\paperwidth  {257mm}}
+\DeclareOption{b5paper}{%
+  \setlength\paperheight {257mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{b6paper}{%
+  \setlength\paperheight {182mm}%
+  \setlength\paperwidth  {128mm}}
+\DeclareOption{a4j}{%
+  \setlength\paperheight {297mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{a5j}{%
+  \setlength\paperheight {210mm}%
+  \setlength\paperwidth  {148mm}}
+\DeclareOption{b4j}{%
+  \setlength\paperheight {364mm}%
+  \setlength\paperwidth  {257mm}}
+\DeclareOption{b5j}{%
+  \setlength\paperheight {257mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{a4var}{%
+  \setlength\paperheight {283mm}%
+  \setlength\paperwidth  {210mm}}
+\DeclareOption{b5var}{%
+  \setlength\paperheight {230mm}%
+  \setlength\paperwidth  {182mm}}
+\DeclareOption{letterpaper}{%
+  \setlength\paperheight {11in}%
+  \setlength\paperwidth  {8.5in}}
+\DeclareOption{legalpaper}{%
+  \setlength\paperheight {14in}%
+  \setlength\paperwidth  {8.5in}}
+\DeclareOption{executivepaper}{%
+  \setlength\paperheight {10.5in}%
+  \setlength\paperwidth  {7.25in}}
+\newif\if@landscape
+\@landscapefalse
+\DeclareOption{landscape}{\@landscapetrue}
+\newif\if@slide
+\@slidefalse
+\newcommand{\@ptsize}{0}
+\DeclareOption{slide}{\@slidetrue\renewcommand{\@ptsize}{26}\@landscapetrue\@titlepagetrue}
+\DeclareOption{8pt}{\renewcommand{\@ptsize}{-2}}
+\DeclareOption{9pt}{\renewcommand{\@ptsize}{-1}}
+\DeclareOption{10pt}{\renewcommand{\@ptsize}{0}}
+\DeclareOption{11pt}{\renewcommand{\@ptsize}{1}}
+\DeclareOption{12pt}{\renewcommand{\@ptsize}{2}}
+\DeclareOption{14pt}{\renewcommand{\@ptsize}{4}}
+\DeclareOption{17pt}{\renewcommand{\@ptsize}{7}}
+\DeclareOption{20pt}{\renewcommand{\@ptsize}{10}}
+\DeclareOption{21pt}{\renewcommand{\@ptsize}{11}}
+\DeclareOption{25pt}{\renewcommand{\@ptsize}{15}}
+\DeclareOption{30pt}{\renewcommand{\@ptsize}{20}}
+\DeclareOption{36pt}{\renewcommand{\@ptsize}{26}}
+\DeclareOption{43pt}{\renewcommand{\@ptsize}{33}}
+\DeclareOption{12Q}{\renewcommand{\@ptsize}{1200}}
+\DeclareOption{14Q}{\renewcommand{\@ptsize}{1400}}
+\hour\time \divide\hour by 60\relax
+\@tempcnta\hour \multiply\@tempcnta 60\relax
+\minute\time \advance\minute-\@tempcnta
+\DeclareOption{tombow}{%
+  \tombowtrue \tombowdatetrue
+  \setlength{\@tombowwidth}{.1\p@}%
+  \@bannertoken{%
+     \jobname\space(\number\year-\two@digits\month-\two@digits\day
+     \space\two@digits\hour:\two@digits\minute)}%
+  \maketombowbox}
+\DeclareOption{tombo}{%
+  \tombowtrue \tombowdatefalse
+  \setlength{\@tombowwidth}{.1\p@}%
+  \maketombowbox}
+\DeclareOption{mentuke}{%
+  \tombowtrue \tombowdatefalse
+  \setlength{\@tombowwidth}{\z@}%
+  \maketombowbox}
+\DeclareOption{oneside}{\@twosidefalse \@mparswitchfalse}
+\DeclareOption{twoside}{\@twosidetrue \@mparswitchtrue}
+\DeclareOption{vartwoside}{\@twosidetrue \@mparswitchfalse}
+\DeclareOption{onecolumn}{\@twocolumnfalse}
+\DeclareOption{twocolumn}{\@twocolumntrue}
+\DeclareOption{titlepage}{\@titlepagetrue}
+\DeclareOption{notitlepage}{\@titlepagefalse}
+\def\eqnarray{%
+   \stepcounter{equation}%
+   \def\@currentlabel{\p@equation\theequation}%
+   \global\@eqnswtrue
+   \m@th
+   \global\@eqcnt\z@
+   \tabskip\@centering
+   \let\\\@eqncr
+   $$\everycr{}\halign to\displaywidth\bgroup
+       \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
+      &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
+      &\global\@eqcnt\tw@ $\displaystyle{##}$\hfil\tabskip\@centering
+      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
+         \tabskip\z@skip
+      \cr}
+\DeclareOption{leqno}{\input{leqno.clo}}
+\DeclareOption{fleqn}{\input{fleqn.clo}%
+  \def\eqnarray{%
+    \stepcounter{equation}%
+    \def\@currentlabel{\p@equation\theequation}%
+    \global\@eqnswtrue\m@th
+    \global\@eqcnt\z@
+    \tabskip\mathindent
+    \let\\=\@eqncr
+    \setlength\abovedisplayskip{\topsep}%
+    \ifvmode
+      \addtolength\abovedisplayskip{\partopsep}%
+    \fi
+    \addtolength\abovedisplayskip{\parskip}%
+    \setlength\belowdisplayskip{\abovedisplayskip}%
+    \setlength\belowdisplayshortskip{\abovedisplayskip}%
+    \setlength\abovedisplayshortskip{\abovedisplayskip}%
+    $$\everycr{}\halign to\linewidth% $$
+    \bgroup
+      \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
+      &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
+      &\global\@eqcnt\tw@
+        $\displaystyle{##}$\hfil \tabskip\@centering
+      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
+    \tabskip\z@skip\cr
+    }}
+\DeclareOption{disablejfam}{\@enablejfamfalse}
+\newif\ifdraft
+\DeclareOption{draft}{\drafttrue \setlength\overfullrule{5pt}}
+\DeclareOption{final}{\draftfalse \setlength\overfullrule{0pt}}
+\newif\ifwinjis
+\winjisfalse
+\newif\ifmingoth
+\mingothfalse
+\newif\ifjisfont
+\jisfontfalse
+\newif\if@jsc@uplatex
+\@jsc@uplatexfalse
+\DeclareOption{mingoth}{\mingothtrue}
+\DeclareOption{winjis}{\winjistrue}
+\DeclareOption{jis}{\jisfonttrue}
+\DeclareOption{uplatex}{\@jsc@uplatextrue\winjisfalse}
+\def\jsc@JYn{\if@jsc@uplatex JY2\else JY1\fi}
+\def\jsc@JTn{\if@jsc@uplatex JT2\else JT1\fi}
+\def\jsc@pfx@{\if@jsc@uplatex u\else \fi}
+\newif\ifpapersize
+\papersizefalse
+\DeclareOption{papersize}{\papersizetrue}
+\newif\if@english
+\@englishfalse
+\DeclareOption{english}{\@englishtrue}
+\ExecuteOptions{a4paper,twoside,twocolumn,notitlepage,final}
+\ProcessOptions
+\if@slide
+  \def\maybeblue{\@ifundefined{ver@color.sty}{}{\color{blue}}}
+\fi
+\if@landscape
+  \setlength\@tempdima  {\paperheight}
+  \setlength\paperheight{\paperwidth}
+  \setlength\paperwidth {\@tempdima}
+\fi
+\ifpapersize
+  \setlength{\@tempdima}{\paperwidth}
+  \setlength{\@tempdimb}{\paperheight}
+  \iftombow
+    \advance \@tempdima 2in
+    \advance \@tempdimb 2in
+  \fi
+  \AtBeginDvi{\special{papersize=\the\@tempdima,\the\@tempdimb}}
+\fi
+\def\n@baseline{14.897}
+\def\inv@mag{1}
+\ifnum\@ptsize=-2
+  \mag 833
+  \def\inv@mag{1.20048}
+  \def\n@baseline{15}%
+\fi
+\ifnum\@ptsize=-1
+  \mag 913 % formerly 900
+  \def\inv@mag{1.09529}
+  \def\n@baseline{15}%
+\fi
+\ifnum\@ptsize=1
+  \mag 1095 % formerly 1100
+  \def\inv@mag{0.913242}
+\fi
+\ifnum\@ptsize=2
+  \mag 1200
+  \def\inv@mag{0.833333}
+\fi
+\ifnum\@ptsize=4
+  \mag 1440
+  \def\inv@mag{0.694444}
+\fi
+\ifnum\@ptsize=7
+  \mag 1728
+  \def\inv@mag{0.578704}
+\fi
+\ifnum\@ptsize=10
+  \mag 2000
+  \def\inv@mag{0.5}
+\fi
+\ifnum\@ptsize=11
+  \mag 2074
+  \def\inv@mag{0.48216}
+\fi
+\ifnum\@ptsize=15
+  \mag 2488
+  \def\inv@mag{0.401929}
+\fi
+\ifnum\@ptsize=20
+  \mag 2986
+  \def\inv@mag{0.334896}
+\fi
+\ifnum\@ptsize=26
+  \mag 3583
+  \def\inv@mag{0.279096}
+\fi
+\ifnum\@ptsize=33
+  \mag 4300
+  \def\inv@mag{0.232558}
+\fi
+\ifnum\@ptsize=1200
+  \mag 923
+  \def\inv@mag{1.0834236}
+\fi
+\ifnum\@ptsize=1400
+  \mag 1077
+  \def\inv@mag{0.928505}
+\fi
+\mag 977
+\def\inv@mag{1.02354}
+\setlength\paperwidth{\inv@mag\paperwidth}%
+\setlength\paperheight{\inv@mag\paperheight}%
+\ifwinjis
+  \DeclareFontShape{JY1}{mc}{m}{n}{<-> s * [0.961] winjis}{}
+  \DeclareFontShape{JY1}{gt}{m}{n}{<-> s * [0.961] winjisg}{}
+  \DeclareFontShape{JT1}{mc}{m}{n}{<-> s * [0.961] winjis-v}{}
+  \DeclareFontShape{JT1}{gt}{m}{n}{<-> s * [0.961] winjisg-v}{}
+\else
+  \ifmingoth
+    \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ min10}{}
+    \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ goth10}{}
+    \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
+    \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
+  \else
+    \ifjisfont
+      \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ jis}{}
+      \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ jisg}{}
+      \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
+      \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
+    \else
+      \if@jsc@uplatex
+        \DeclareFontShape{JY2}{mc}{m}{n}{<-> s * [0.924690] upjisr-h}{}
+        \DeclareFontShape{JY2}{gt}{m}{n}{<-> s * [0.924690] upjisg-h}{}
+        \DeclareFontShape{JT2}{mc}{m}{n}{<-> s * [0.924690] upjisr-v}{}
+        \DeclareFontShape{JT2}{gt}{m}{n}{<-> s * [0.924690] upjisg-v}{}
+      \else
+        \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ jis}{}
+        \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ jisg}{}
+        \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
+        \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
+      \fi
+    \fi
+  \fi
+\fi
+\DeclareFontShape{\jsc@JYn}{mc}{m}{it}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{m}{sl}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{m}{sc}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JYn}{gt}{m}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{gt}{m}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{bx}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JYn}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{it}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{sl}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{m}{sc}{<->ssub*mc/m/n}{}
+\DeclareFontShape{\jsc@JTn}{gt}{m}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{gt}{m}{sl}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{bx}{it}{<->ssub*gt/m/n}{}
+\DeclareFontShape{\jsc@JTn}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
+\DeclareRobustCommand\rmfamily
+        {\not@math@alphabet\rmfamily\mathrm
+         \romanfamily\rmdefault\kanjifamily\mcdefault\selectfont}
+\DeclareRobustCommand\sffamily
+        {\not@math@alphabet\sffamily\mathsf
+         \romanfamily\sfdefault\kanjifamily\gtdefault\selectfont}
+\DeclareRobustCommand\ttfamily
+        {\not@math@alphabet\ttfamily\mathtt
+         \romanfamily\ttdefault\kanjifamily\gtdefault\selectfont}
+\def\textmc#1{\relax\ifmmode\hbox\fi{\mcfamily #1}}
+\def\textgt#1{\relax\ifmmode\hbox\fi{\gtfamily #1}}
+\def\reDeclareMathAlphabet#1#2#3{%
+  \edef\@tempa{\expandafter\@gobble\string#2}%
+  \edef\@tempb{\expandafter\@gobble\string#3}%
+  \edef\@tempc{\string @\expandafter\@gobbletwo\string#2}%
+  \ifx\@tempc\@tempa%
+    \edef\@tempa{\expandafter\@gobbletwo\string#2}%
+    \edef\@tempb{\expandafter\@gobbletwo\string#3}%
+  \fi
+  \begingroup
+    \let\protect\noexpand
+    \def\@tempaa{\relax}%
+    \expandafter\ifx\csname RDMAorg@\@tempa\endcsname\relax
+      \edef\@tempaa{\expandafter\def\expandafter\noexpand%
+        \csname RDMAorg@\@tempa\endcsname{%
+          \expandafter\noexpand\csname\@tempa\endcsname}}%
+    \fi
+    \def\@tempbb{\relax}%
+    \expandafter\ifx\csname RDMAorg@\@tempb\endcsname\relax
+      \edef\@tempbb{\expandafter\def\expandafter\noexpand%
+        \csname RDMAorg@\@tempb\endcsname{%
+          \expandafter\noexpand\csname\@tempb\endcsname}}%
+    \fi
+    \edef\@tempc{\@tempaa\@tempbb}%
+  \expandafter\endgroup\@tempc%
+  \edef#1{\noexpand\protect\expandafter\noexpand\csname%
+    \expandafter\@gobble\string#1\space\space\endcsname}%
+  \expandafter\edef\csname\expandafter\@gobble\string#1\space\space\endcsname%
+    {\noexpand\DualLang@mathalph@bet%
+      {\expandafter\noexpand\csname RDMAorg@\@tempa\endcsname}%
+      {\expandafter\noexpand\csname RDMAorg@\@tempb\endcsname}%
+  }%
+}
+\@onlypreamble\reDeclareMathAlphabet
+\def\DualLang@mathalph@bet#1#2{%
+  \relax\ifmmode
+    \ifx\math@bgroup\bgroup%     2e normal style     (\mathrm{...})
+      \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
+    \else
+      \ifx\math@bgroup\relax%    2e two letter style (\rm->\mathrm)
+        \let\DualLang@Mfontsw\DLMfontsw@oldstyle
+      \else
+        \ifx\math@bgroup\@empty% 2.09 oldlfont style ({\mathrm ...})
+          \let\DualLang@Mfontsw\DLMfontsw@oldlfont
+        \else%                   panic! assume 2e normal style
+          \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
+        \fi
+      \fi
+    \fi
+  \else
+    \let\DualLang@Mfontsw\@firstoftwo
+  \fi
+  \DualLang@Mfontsw{#1}{#2}%
+}
+\def\DLMfontsw@standard#1#2#3{#1{#2{#3}}\egroup}
+\def\DLMfontsw@oldstyle#1#2{#1\relax\@fontswitch\relax{#2}}
+\def\DLMfontsw@oldlfont#1#2{#1\relax#2\relax}
+\if@enablejfam
+  \if@compatibility\else
+    \DeclareSymbolFont{mincho}{\jsc@JYn}{mc}{m}{n}
+    \DeclareSymbolFontAlphabet{\mathmc}{mincho}
+    \SetSymbolFont{mincho}{bold}{\jsc@JYn}{gt}{m}{n}
+    \jfam\symmincho
+    \DeclareMathAlphabet{\mathgt}{\jsc@JYn}{gt}{m}{n}
+  \fi
+  \AtBeginDocument{%
+    \reDeclareMathAlphabet{\mathrm}{\@mathrm}{\@mathmc}
+    \reDeclareMathAlphabet{\mathbf}{\@mathbf}{\@mathgt}}
+\fi
+\prebreakpenalty\jis"2147=10000      % 5000   ’
+\postbreakpenalty\jis"2148=10000     % 5000   “
+\prebreakpenalty\jis"2149=10000      % 5000   ”
+\inhibitxspcode`〒=2
+\xspcode`+=3
+\xspcode`\%=3
+\xspcode`^^80=3
+\xspcode`^^81=3
+\xspcode`^^82=3
+\xspcode`^^83=3
+\xspcode`^^84=3
+\xspcode`^^85=3
+\xspcode`^^86=3
+\xspcode`^^87=3
+\xspcode`^^88=3
+\xspcode`^^89=3
+\xspcode`^^8a=3
+\xspcode`^^8b=3
+\xspcode`^^8c=3
+\xspcode`^^8d=3
+\xspcode`^^8e=3
+\xspcode`^^8f=3
+\xspcode`^^90=3
+\xspcode`^^91=3
+\xspcode`^^92=3
+\xspcode`^^93=3
+\xspcode`^^94=3
+\xspcode`^^95=3
+\xspcode`^^96=3
+\xspcode`^^97=3
+\xspcode`^^98=3
+\xspcode`^^99=3
+\xspcode`^^9a=3
+\xspcode`^^9b=3
+\xspcode`^^9c=3
+\xspcode`^^9d=3
+\xspcode`^^9e=3
+\xspcode`^^9f=3
+\xspcode`^^a0=3
+\xspcode`^^a1=3
+\xspcode`^^a2=3
+\xspcode`^^a3=3
+\xspcode`^^a4=3
+\xspcode`^^a5=3
+\xspcode`^^a6=3
+\xspcode`^^a7=3
+\xspcode`^^a8=3
+\xspcode`^^a9=3
+\xspcode`^^aa=3
+\xspcode`^^ab=3
+\xspcode`^^ac=3
+\xspcode`^^ad=3
+\xspcode`^^ae=3
+\xspcode`^^af=3
+\xspcode`^^b0=3
+\xspcode`^^b1=3
+\xspcode`^^b2=3
+\xspcode`^^b3=3
+\xspcode`^^b4=3
+\xspcode`^^b5=3
+\xspcode`^^b6=3
+\xspcode`^^b7=3
+\xspcode`^^b8=3
+\xspcode`^^b9=3
+\xspcode`^^ba=3
+\xspcode`^^bb=3
+\xspcode`^^bc=3
+\xspcode`^^bd=3
+\xspcode`^^be=3
+\xspcode`^^bf=3
+\xspcode`^^c0=3
+\xspcode`^^c1=3
+\xspcode`^^c2=3
+\xspcode`^^c3=3
+\xspcode`^^c4=3
+\xspcode`^^c5=3
+\xspcode`^^c6=3
+\xspcode`^^c7=3
+\xspcode`^^c8=3
+\xspcode`^^c9=3
+\xspcode`^^ca=3
+\xspcode`^^cb=3
+\xspcode`^^cc=3
+\xspcode`^^cd=3
+\xspcode`^^ce=3
+\xspcode`^^cf=3
+\xspcode`^^d0=3
+\xspcode`^^d1=3
+\xspcode`^^d2=3
+\xspcode`^^d3=3
+\xspcode`^^d4=3
+\xspcode`^^d5=3
+\xspcode`^^d6=3
+\xspcode`^^d7=3
+\xspcode`^^d8=3
+\xspcode`^^d9=3
+\xspcode`^^da=3
+\xspcode`^^db=3
+\xspcode`^^dc=3
+\xspcode`^^dd=3
+\xspcode`^^de=3
+\xspcode`^^df=3
+\xspcode`^^e0=3
+\xspcode`^^e1=3
+\xspcode`^^e2=3
+\xspcode`^^e3=3
+\xspcode`^^e4=3
+\xspcode`^^e5=3
+\xspcode`^^e6=3
+\xspcode`^^e7=3
+\xspcode`^^e8=3
+\xspcode`^^e9=3
+\xspcode`^^ea=3
+\xspcode`^^eb=3
+\xspcode`^^ec=3
+\xspcode`^^ed=3
+\xspcode`^^ee=3
+\xspcode`^^ef=3
+\xspcode`^^f0=3
+\xspcode`^^f1=3
+\xspcode`^^f2=3
+\xspcode`^^f3=3
+\xspcode`^^f4=3
+\xspcode`^^f5=3
+\xspcode`^^f6=3
+\xspcode`^^f7=3
+\xspcode`^^f8=3
+\xspcode`^^f9=3
+\xspcode`^^fa=3
+\xspcode`^^fb=3
+\xspcode`^^fc=3
+\xspcode`^^fd=3
+\xspcode`^^fe=3
+\xspcode`^^ff=3
+\def\@{\spacefactor3000\space}
+\def\@setfontsize#1#2#3{%
+  \ifx\protect\@typeset@protect
+    \let\@currsize#1%
+  \fi
+  \fontsize{#2}{#3}\selectfont
+  \ifdim\parindent>\z@
+    \if@english
+      \parindent=1em
+    \else
+      \parindent=1zw
+    \fi
+  \fi
+  \kanjiskip=0zw plus .1zw minus .01zw
+  \ifdim\xkanjiskip>\z@
+    \if@slide \xkanjiskip=0.1em \else
+      \xkanjiskip=0.25em plus 0.15em minus 0.06em
+    \fi
+  \fi}
+\emergencystretch 3zw
+\newif\ifnarrowbaselines
+\if@english
+  \narrowbaselinestrue
+\fi
+\def\narrowbaselines{%
+  \narrowbaselinestrue
+  \skip0=\abovedisplayskip
+  \skip2=\abovedisplayshortskip
+  \skip4=\belowdisplayskip
+  \skip6=\belowdisplayshortskip
+  \@currsize\selectfont
+  \abovedisplayskip=\skip0
+  \abovedisplayshortskip=\skip2
+  \belowdisplayskip=\skip4
+  \belowdisplayshortskip=\skip6\relax}
+\def\widebaselines{\narrowbaselinesfalse\@currsize\selectfont}
+\renewcommand{\normalsize}{%
+  \ifnarrowbaselines
+    \@setfontsize\normalsize\@xpt\@xiipt
+  \else
+    \@setfontsize\normalsize\@xpt{\n@baseline}%
+  \fi
+  \abovedisplayskip 11\p@ \@plus3\p@ \@minus4\p@
+  \abovedisplayshortskip \z@ \@plus3\p@
+  \belowdisplayskip 9\p@ \@plus3\p@ \@minus4\p@
+  \belowdisplayshortskip \belowdisplayskip
+  \let\@listi\@listI}
+\normalsize
+\setbox0\hbox{\char\euc"A1A1}%
+\setlength\Cht{\ht0}
+\setlength\Cdp{\dp0}
+\setlength\Cwd{\wd0}
+\setlength\Cvs{\baselineskip}
+\setlength\Chs{\wd0}
+\newcommand{\small}{%
+  \ifnarrowbaselines
+    \@setfontsize\small{8.8888}{11}%
+  \else
+    \@setfontsize\small{8.8888}{13.2418}%
+  \fi
+  \abovedisplayskip 9\p@ \@plus3\p@ \@minus4\p@
+  \abovedisplayshortskip  \z@ \@plus3\p@
+  \belowdisplayskip \abovedisplayskip
+  \belowdisplayshortskip \belowdisplayskip
+  \def\@listi{\leftmargin\leftmargini
+              \topsep \z@
+              \parsep \z@
+              \itemsep \parsep}}
+\newcommand{\footnotesize}{%
+  \ifnarrowbaselines
+    \@setfontsize\footnotesize{8.8888}{11}%
+  \else
+    \@setfontsize\footnotesize{8.8888}{13.2418}%
+  \fi
+  \abovedisplayskip 6\p@ \@plus2\p@ \@minus3\p@
+  \abovedisplayshortskip  \z@ \@plus2\p@
+  \belowdisplayskip \abovedisplayskip
+  \belowdisplayshortskip \belowdisplayskip
+  \def\@listi{\leftmargin\leftmargini
+              \topsep \z@
+              \parsep \z@
+              \itemsep \parsep}}
+\newcommand{\scriptsize}{\@setfontsize\scriptsize\@viipt\@viiipt}
+\newcommand{\tiny}{\@setfontsize\tiny\@vpt\@vipt}
+\if@twocolumn
+  \newcommand{\large}{\@setfontsize\large{11.111}{\n@baseline}}
+\else
+  \newcommand{\large}{\@setfontsize\large{11.111}{17}}
+\fi
+\newcommand{\Large}{\@setfontsize\Large{12.222}{21}}
+\newcommand{\LARGE}{\@setfontsize\LARGE\@xviipt{25}}
+\newcommand{\huge}{\@setfontsize\huge\@xxpt{28}}
+\newcommand{\Huge}{\@setfontsize\Huge\@xxvpt{33}}
+\newcommand{\HUGE}{\@setfontsize\HUGE{30}{40}}
+\everydisplay=\expandafter{\the\everydisplay \narrowbaselines}
+\newcommand{\headfont}{\gtfamily\sffamily}
+\setlength\columnsep{28truebp}
+\setlength\columnseprule{0\p@}
+\setlength\lineskip{1\p@}
+\setlength\normallineskip{1\p@}
+\setlength\lineskiplimit{1\p@}
+\setlength\normallineskiplimit{1\p@}
+\renewcommand{\baselinestretch}{}
+\setlength\parskip{0\p@}
+\if@slide
+  \setlength\parindent{0zw}
+\else
+  \setlength\parindent{1zw}
+\fi
+\@lowpenalty   51
+\@medpenalty  151
+\@highpenalty 301
+\setlength\topskip{10\p@}
+\if@slide
+  \setlength\headheight{0\p@}
+\else
+  \setlength\headheight{2\topskip}
+\fi
+\if@slide
+  \setlength\footskip{0pt}
+\else
+  \setlength\footskip{0.03367\paperheight}
+  \ifdim\footskip<\baselineskip
+    \setlength\footskip{\baselineskip}
+  \fi
+\fi
+\setlength\headheight{0\p@}
+\setlength\headsep{0\p@}
+\setlength\maxdepth{.5\topskip}
+\newdimen\fullwidth
+\setlength\fullwidth{48zw}
+\addtolength\fullwidth{\columnsep}
+\setlength\textwidth{\fullwidth}
+\setlength{\textheight}{47\baselineskip}
+\addtolength{\textheight}{\topskip}
+\addtolength{\textheight}{0.1\p@}
+\setlength\marginparsep{\columnsep}
+\setlength\marginparpush{\baselineskip}
+\setlength{\oddsidemargin}{\paperwidth}
+\addtolength{\oddsidemargin}{-\fullwidth}
+\setlength{\oddsidemargin}{.5\oddsidemargin}
+\iftombow
+  \addtolength{\oddsidemargin}{-1in}
+\else
+  \addtolength{\oddsidemargin}{-\inv@mag in}
+\fi
+\setlength{\evensidemargin}{\oddsidemargin}
+\if@mparswitch
+  \addtolength{\evensidemargin}{\fullwidth}
+  \addtolength{\evensidemargin}{-\textwidth}
+\fi
+\setlength\marginparwidth{\paperwidth}
+\addtolength\marginparwidth{-\oddsidemargin}
+\addtolength\marginparwidth{-\inv@mag in}
+\addtolength\marginparwidth{-\textwidth}
+\addtolength\marginparwidth{-1cm}
+\addtolength\marginparwidth{-\marginparsep}
+\@tempdima=1zw
+\divide\marginparwidth\@tempdima
+\multiply\marginparwidth\@tempdima
+\setlength\topmargin{\paperheight}
+\addtolength\topmargin{-\textheight}
+\if@slide
+  \addtolength\topmargin{-\headheight}
+\else
+  \addtolength\topmargin{-\topskip}
+\fi
+\addtolength\topmargin{-\headsep}
+\addtolength\topmargin{-\footskip}
+\setlength\topmargin{0.5\topmargin}
+\setlength\topmargin{81truebp}
+\iftombow
+  \addtolength\topmargin{-1in}
+\else
+  \addtolength\topmargin{-\inv@mag in}
+\fi
+{\footnotesize\global\setlength\footnotesep{\baselineskip}}
+\setlength\footnotesep{0.7\footnotesep}
+\setlength{\skip\footins}{16\p@ \@plus 5\p@ \@minus 2\p@}
+\setcounter{topnumber}{9}
+\renewcommand{\topfraction}{.85}
+\setcounter{bottomnumber}{9}
+\renewcommand{\bottomfraction}{.8}
+\setcounter{totalnumber}{20}
+\renewcommand{\textfraction}{.1}
+\renewcommand{\floatpagefraction}{.8}
+\setcounter{dbltopnumber}{9}
+\renewcommand{\dbltopfraction}{.8}
+\renewcommand{\dblfloatpagefraction}{.8}
+\setlength\floatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\textfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}
+\setlength\intextsep   {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\dblfloatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}
+\setlength\dbltextfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}
+\setlength\@fptop{0\p@ \@plus 1fil}
+\setlength\@fpsep{8\p@ \@plus 2fil}
+\setlength\@fpbot{0\p@ \@plus 1fil}
+\setlength\@dblfptop{0\p@ \@plus 1fil}
+\setlength\@dblfpsep{8\p@ \@plus 2fil}
+\setlength\@dblfpbot{0\p@ \@plus 1fil}
+\def\ps@plainfoot{%
+  \let\@mkboth\@gobbletwo
+  \let\@oddhead\@empty
+  \def\@oddfoot{\normalfont\hfil\thepage\hfil}%
+  \let\@evenhead\@empty
+  \let\@evenfoot\@oddfoot}
+\def\ps@plainhead{%
+  \let\@mkboth\@gobbletwo
+  \let\@oddfoot\@empty
+  \let\@evenfoot\@empty
+  \def\@evenhead{%
+    \if@mparswitch \hss \fi
+    \hbox to \fullwidth{\textbf{\thepage}\hfil}%
+    \if@mparswitch\else \hss \fi}%
+  \def\@oddhead{%
+    \hbox to \fullwidth{\hfil\textbf{\thepage}}\hss}}
+\let\ps@plain\ps@plainfoot
+\if@twoside
+  \def\ps@headings{%
+    \let\@oddfoot\@empty
+    \let\@evenfoot\@empty
+    \def\@evenhead{\if@mparswitch \hss \fi
+      \underline{\hbox to \fullwidth{\textbf{\thepage}\hfil\leftmark}}%
+      \if@mparswitch\else \hss \fi}%
+    \def\@oddhead{%
+      \underline{%
+        \hbox to \fullwidth{{\rightmark}\hfil\textbf{\thepage}}}\hss}%
+    \let\@mkboth\markboth
+    \def\sectionmark##1{\markboth{%
+       \ifnum \c@secnumdepth >\z@ \thesection \hskip1zw\fi
+       ##1}{}}%
+    \def\subsectionmark##1{\markright{%
+       \ifnum \c@secnumdepth >\@ne \thesubsection \hskip1zw\fi
+       ##1}}%
+  }
+\else % if not twoside
+  \def\ps@headings{%
+    \let\@oddfoot\@empty
+    \def\@oddhead{%
+      \underline{%
+        \hbox to \fullwidth{{\rightmark}\hfil\textbf{\thepage}}}\hss}%
+    \let\@mkboth\markboth
+    \def\sectionmark##1{\markright{%
+        \ifnum \c@secnumdepth >\z@ \thesection \hskip1zw\fi
+        ##1}}}
+\fi
+\def\ps@myheadings{%
+  \let\@oddfoot\@empty\let\@evenfoot\@empty
+  \def\@evenhead{%
+    \if@mparswitch \hss \fi%
+    \hbox to \fullwidth{\thepage\hfil\leftmark}%
+    \if@mparswitch\else \hss \fi}%
+  \def\@oddhead{%
+    \hbox to \fullwidth{\rightmark\hfil\thepage}\hss}%
+  \let\@mkboth\@gobbletwo
+  \let\sectionmark\@gobble
+  \let\subsectionmark\@gobble
+}
+\def\plainifnotempty{%
+  \ifx \@oddhead \@empty
+    \ifx \@oddfoot \@empty
+    \else
+      \thispagestyle{plainfoot}%
+    \fi
+  \else
+    \thispagestyle{plainhead}%
+  \fi}
+\if@titlepage
+  \newcommand{\maketitle}{%
+    \begin{titlepage}%
+      \let\footnotesize\small
+      \let\footnoterule\relax
+      \let\footnote\thanks
+      \null\vfil
+      \if@slide
+        {\footnotesize \@date}%
+        \begin{center}
+          \mbox{} \\[1zw]
+          \large
+          {\maybeblue\hrule height0pt depth2pt\relax}\par
+          \smallskip
+          \@title
+          \smallskip
+          {\maybeblue\hrule height0pt depth2pt\relax}\par
+          \vfill
+          {\small \@author}%
+        \end{center}
+      \else
+      \vskip 60\p@
+      \begin{center}%
+        {\LARGE \@title \par}%
+        \vskip 3em%
+        {\large
+          \lineskip .75em
+          \begin{tabular}[t]{c}%
+            \@author
+          \end{tabular}\par}%
+        \vskip 1.5em
+        {\large \@date \par}%
+      \end{center}%
+      \fi
+      \par
+      \@thanks\vfil\null
+    \end{titlepage}%
+    \setcounter{footnote}{0}%
+    \global\let\thanks\relax
+    \global\let\maketitle\relax
+    \global\let\@thanks\@empty
+    \global\let\@author\@empty
+    \global\let\@date\@empty
+    \global\let\@title\@empty
+    \global\let\title\relax
+    \global\let\author\relax
+    \global\let\date\relax
+    \global\let\and\relax
+  }%
+\else
+  \newcommand{\maketitle}{\par
+    \begingroup
+      \renewcommand\thefootnote{\@fnsymbol\c@footnote}%
+      \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%
+      \long\def\@makefntext##1{\advance\leftskip 3zw
+        \parindent 1zw\noindent
+        \llap{\@textsuperscript{\normalfont\@thefnmark}\hskip0.3zw}##1}%
+      \if@twocolumn
+        \ifnum \col@number=\@ne
+          \@maketitle
+        \else
+          \twocolumn[\@maketitle]%
+        \fi
+      \else
+        \newpage
+        \global\@topnum\z@  % Prevents figures from going at top of page.
+        \@maketitle
+      \fi
+      \plainifnotempty
+      \@thanks
+    \endgroup
+    \setcounter{footnote}{0}%
+    \global\let\thanks\relax
+    \global\let\maketitle\relax
+    \global\let\@thanks\@empty
+    \global\let\@author\@empty
+    \global\let\@date\@empty
+    \global\let\@title\@empty
+    \global\let\title\relax
+    \global\let\author\relax
+    \global\let\date\relax
+    \global\let\and\relax
+  }
+  \def\@maketitle{%
+    \newpage\null
+    \vskip 2em
+    \begin{center}%
+      \let\footnote\thanks
+      {\LARGE \@title \par}%
+      \vskip 1.5em
+      {\large
+        \lineskip .5em
+        \begin{tabular}[t]{c}%
+          \@author
+        \end{tabular}\par}%
+      \vskip 1em
+      {\large \@date}%
+    \end{center}%
+    \par\vskip 1.5em
+    \ifvoid\@abstractbox\else\centerline{\box\@abstractbox}\vskip1.5em\fi
+  }
+\fi
+\def\@startsection#1#2#3#4#5#6{%
+  \if@noskipsec \leavevmode \fi
+  \par
+  \@tempskipa #4\relax
+  \if@english \@afterindentfalse \else \@afterindenttrue \fi
+  \ifdim \@tempskipa <\z@
+    \@tempskipa -\@tempskipa \@afterindentfalse
+  \fi
+  \if@nobreak
+    \everypar{}%
+  \else
+    \addpenalty\@secpenalty
+    \ifdim \@tempskipa >\z@
+      \if@slide\else
+        \null
+        \vspace*{-\baselineskip}%
+      \fi
+      \vskip\@tempskipa
+    \fi
+  \fi
+  \noindent
+  \@ifstar
+    {\@ssect{#3}{#4}{#5}{#6}}%
+    {\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}
+\def\@sect#1#2#3#4#5#6[#7]#8{%
+  \ifnum #2>\c@secnumdepth
+    \let\@svsec\@empty
+  \else
+    \refstepcounter{#1}%
+    \protected@edef\@svsec{\@seccntformat{#1}\relax}%
+  \fi
+  \@tempskipa #5\relax
+  \ifdim \@tempskipa<\z@
+    \def\@svsechd{%
+      #6{\hskip #3\relax
+      \@svsec #8}%
+      \csname #1mark\endcsname{#7}%
+      \addcontentsline{toc}{#1}{%
+        \ifnum #2>\c@secnumdepth \else
+          \protect\numberline{\csname the#1\endcsname}%
+        \fi
+        #7}}% 目次にフルネームを載せるなら #8
+  \else
+    \begingroup
+      \interlinepenalty \@M % 下から移動
+      #6{%
+        \@hangfrom{\hskip #3\relax\@svsec}%
+        #8\@@par}%
+    \endgroup
+    \csname #1mark\endcsname{#7}%
+    \addcontentsline{toc}{#1}{%
+      \ifnum #2>\c@secnumdepth \else
+        \protect\numberline{\csname the#1\endcsname}%
+      \fi
+      #7}% 目次にフルネームを載せるならここは #8
+  \fi
+  \@xsect{#5}}
+\def\@xsect#1{%
+  \@tempskipa #1\relax
+  \ifdim \@tempskipa<\z@
+    \@nobreakfalse
+    \global\@noskipsectrue
+    \everypar{%
+      \if@noskipsec
+        \global\@noskipsecfalse
+       {\setbox\z@\lastbox}%
+        \clubpenalty\@M
+        \begingroup \@svsechd \endgroup
+        \unskip
+        \@tempskipa #1\relax
+        \hskip -\@tempskipa
+      \else
+        \clubpenalty \@clubpenalty
+        \everypar{\everyparhook}%
+      \fi\everyparhook}%
+  \else
+    \par \nobreak
+    \vskip \@tempskipa
+    \@afterheading
+  \fi
+  \if@slide
+    {\vskip-6pt\maybeblue\hrule height0pt depth1pt\vskip7pt\relax}%
+  \fi
+  \par  % 2000-12-18
+  \ignorespaces}
+\def\@ssect#1#2#3#4#5{%
+  \@tempskipa #3\relax
+  \ifdim \@tempskipa<\z@
+    \def\@svsechd{#4{\hskip #1\relax #5}}%
+  \else
+    \begingroup
+      #4{%
+        \@hangfrom{\hskip #1}%
+          \interlinepenalty \@M #5\@@par}%
+    \endgroup
+  \fi
+  \@xsect{#3}}
+\newcommand*\chaptermark[1]{}
+\setcounter{secnumdepth}{3}
+\newcounter{part}
+\newcounter{section}
+\newcounter{subsection}[section]
+\newcounter{subsubsection}[subsection]
+\newcounter{paragraph}[subsubsection]
+\newcounter{subparagraph}[paragraph]
+\renewcommand{\thepart}{\@Roman\c@part}
+% \renewcommand{\thesection}{\@arabic\c@section}
+\renewcommand{\thesection}{\presectionname\@arabic\c@section\postsectionname}
+\renewcommand{\thesubsection}{\@arabic\c@section.\@arabic\c@subsection}
+\renewcommand{\thesubsubsection}{%
+   \thesubsection.\@arabic\c@subsubsection}
+\renewcommand{\theparagraph}{%
+   \thesubsubsection.\@arabic\c@paragraph}
+\renewcommand{\thesubparagraph}{%
+   \theparagraph.\@arabic\c@subparagraph}
+\newcommand\part{%
+  \if@noskipsec \leavevmode \fi
+  \par
+  \addvspace{4ex}%
+  \if@english \@afterindentfalse \else \@afterindenttrue \fi
+  \secdef\@part\@spart}
+\def\@part[#1]#2{%
+  \ifnum \c@secnumdepth >\m@ne
+    \refstepcounter{part}%
+    \addcontentsline{toc}{part}{%
+      \prepartname\thepart\postpartname\hspace{1zw}#1}%
+  \else
+    \addcontentsline{toc}{part}{#1}%
+  \fi
+  \markboth{}{}%
+  {\parindent\z@
+    \raggedright
+    \interlinepenalty \@M
+    \normalfont
+    \ifnum \c@secnumdepth >\m@ne
+      \Large\headfont\prepartname\thepart\postpartname
+      \par\nobreak
+    \fi
+    \huge \headfont #2%
+    \markboth{}{}\par}%
+  \nobreak
+  \vskip 3ex
+  \@afterheading}
+\def\@spart#1{{%
+    \parindent \z@ \raggedright
+    \interlinepenalty \@M
+    \normalfont
+    \huge \headfont #1\par}%
+  \nobreak
+  \vskip 3ex
+  \@afterheading}
+\if@twocolumn
+  \newcommand{\section}{%
+    \@startsection{section}{1}{\z@}%
+    {\Cvs}{0.5\Cvs}%
+    {\normalfont\large\headfont\raggedright}}
+\else
+  \newcommand{\section}{%
+    \if@slide\clearpage\fi
+    \@startsection{section}{1}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
+    {\normalfont\Large\headfont\raggedright}}
+\fi
+\if@twocolumn
+  \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
+    {\z@}{\z@}%
+    {\normalfont\normalsize\headfont}}
+\else
+  \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
+    {\normalfont\large\headfont}}
+\fi
+\if@twocolumn
+  \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
+    {\z@}{\z@}%
+    {\normalfont\normalsize\headfont}}
+\else
+  \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
+    {\z@}%
+    {\normalfont\normalsize\headfont}}
+\fi
+\if@twocolumn
+  \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
+    {\z@}{-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont ■}}
+\else
+  \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
+    {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
+    {-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont ■}}
+\fi
+\newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
+   {\z@}{-1zw}%
+   {\normalfont\normalsize\headfont}}
+\if@slide
+  \setlength\leftmargini{1zw}
+\else
+  \if@twocolumn
+    \setlength\leftmargini{2zw}
+  \else
+    \setlength\leftmargini{3zw}
+  \fi
+\fi
+\if@slide
+  \setlength\leftmarginii {1zw}
+  \setlength\leftmarginiii{1zw}
+  \setlength\leftmarginiv {1zw}
+  \setlength\leftmarginv  {1zw}
+  \setlength\leftmarginvi {1zw}
+\else
+  \setlength\leftmarginii {2zw}
+  \setlength\leftmarginiii{2zw}
+  \setlength\leftmarginiv {2zw}
+  \setlength\leftmarginv  {1zw}
+  \setlength\leftmarginvi {1zw}
+\fi
+\setlength  \labelsep  {0.5zw} % .5em
+\setlength  \labelwidth{\leftmargini}
+\addtolength\labelwidth{-\labelsep}
+\setlength\partopsep{\z@} % {2\p@ \@plus 1\p@ \@minus 1\p@}
+\@beginparpenalty -\@lowpenalty
+\@endparpenalty   -\@lowpenalty
+\@itempenalty     -\@lowpenalty
+\def\@listi{\leftmargin\leftmargini
+  \parsep \z@
+  \topsep 0.5\baselineskip
+  \itemsep \z@ \relax}
+\let\@listI\@listi
+\@listi
+\def\@listii{\leftmargin\leftmarginii
+  \labelwidth\leftmarginii \advance\labelwidth-\labelsep
+  \topsep \z@
+  \parsep \z@
+  \itemsep\parsep}
+\def\@listiii{\leftmargin\leftmarginiii
+  \labelwidth\leftmarginiii \advance\labelwidth-\labelsep
+  \topsep \z@
+  \parsep \z@
+  \itemsep\parsep}
+\def\@listiv {\leftmargin\leftmarginiv
+              \labelwidth\leftmarginiv
+              \advance\labelwidth-\labelsep}
+\def\@listv  {\leftmargin\leftmarginv
+              \labelwidth\leftmarginv
+              \advance\labelwidth-\labelsep}
+\def\@listvi {\leftmargin\leftmarginvi
+              \labelwidth\leftmarginvi
+              \advance\labelwidth-\labelsep}
+\renewcommand{\theenumi}{\@arabic\c@enumi}
+\renewcommand{\theenumii}{\@alph\c@enumii}
+\renewcommand{\theenumiii}{\@roman\c@enumiii}
+\renewcommand{\theenumiv}{\@Alph\c@enumiv}
+\newcommand{\labelenumi}{\theenumi.}
+\newcommand{\labelenumii}{\inhibitglue（\theenumii）\inhibitglue}
+\newcommand{\labelenumiii}{\theenumiii.}
+\newcommand{\labelenumiv}{\theenumiv.}
+\renewcommand{\p@enumii}{\theenumi}
+\renewcommand{\p@enumiii}{\theenumi\inhibitglue（\theenumii）}
+\renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
+\newcommand\labelitemi{\textbullet}
+\newcommand\labelitemii{\normalfont\bfseries \textendash}
+\newcommand\labelitemiii{\textasteriskcentered}
+\newcommand\labelitemiv{\textperiodcentered}
+\newenvironment{description}{%
+  \list{}{%
+    \labelwidth=\leftmargin
+    \labelsep=1zw
+    \advance \labelwidth by -\labelsep
+    \let \makelabel=\descriptionlabel}}{\endlist}
+\newcommand*\descriptionlabel[1]{\normalfont\headfont #1\hfil}
+\newbox\@abstractbox
+\if@titlepage
+  \newenvironment{abstract}{%
+    \titlepage
+    \null\vfil
+    \@beginparpenalty\@lowpenalty
+    \begin{center}%
+      \headfont \abstractname
+      \@endparpenalty\@M
+    \end{center}}%
+  {\par\vfil\null\endtitlepage}
+\else
+  \newenvironment{abstract}{%
+    \if@twocolumn
+      \ifx\maketitle\relax
+        \section*{\abstractname}%
+      \else
+        \global\setbox\@abstractbox\hbox\bgroup
+        \begin{minipage}[b]{\textwidth}
+          \small\parindent1zw
+          \begin{center}%
+            {\headfont \abstractname\vspace{-.5em}\vspace{\z@}}%
+          \end{center}%
+          \list{}{%
+            \listparindent\parindent
+            \itemindent \listparindent
+            \rightmargin \leftmargin}%
+          \item\relax
+      \fi
+    \else
+      \small
+      \begin{center}%
+        {\headfont \abstractname\vspace{-.5em}\vspace{\z@}}%
+      \end{center}%
+      \list{}{%
+        \listparindent\parindent
+        \itemindent \listparindent
+        \rightmargin \leftmargin}%
+      \item\relax
+    \fi}{\if@twocolumn
+      \ifx\maketitle\relax
+      \else
+        \endlist\end{minipage}\egroup
+      \fi
+    \else
+      \endlist
+    \fi}
+\fi
+\newenvironment{verse}{%
+  \let \\=\@centercr
+  \list{}{%
+    \itemsep \z@
+    \itemindent -2zw % 元: -1.5em
+    \listparindent\itemindent
+    \rightmargin \z@
+    \advance\leftmargin 2zw}% 元: 1.5em
+  \item\relax}{\endlist}
+\newenvironment{quotation}{%
+  \list{}{%
+    \listparindent\parindent
+    \itemindent\listparindent
+    \rightmargin \z@}%
+  \item\relax}{\endlist}
+\newenvironment{quote}%
+  {\list{}{\rightmargin\z@}\item\relax}{\endlist}
+\def\@begintheorem#1#2{\trivlist\labelsep=1zw
+   \item[\hskip \labelsep{\headfont #1\ #2}]}
+\def\@opargbegintheorem#1#2#3{\trivlist\labelsep=1zw
+      \item[\hskip \labelsep{\headfont #1\ #2（#3）}]}
+\newenvironment{titlepage}{%
+    \if@twocolumn
+      \@restonecoltrue\onecolumn
+    \else
+      \@restonecolfalse\newpage
+    \fi
+    \thispagestyle{empty}%
+    \setcounter{page}\@ne
+  }%
+  {\if@restonecol\twocolumn \else \newpage \fi
+    \if@twoside\else
+      \setcounter{page}\@ne
+    \fi}
+\newcommand{\appendix}{\par
+  \setcounter{section}{0}%
+  \setcounter{subsection}{0}%
+  \gdef\presectionname{\appendixname}%
+  \gdef\postsectionname{}%
+  \gdef\thesection{\presectionname\@Alph\c@section\postsectionname}%
+  \gdef\thesubsection{\@Alph\c@section.\@arabic\c@subsection}}
+\setlength\arraycolsep{5\p@}
+\setlength\tabcolsep{6\p@}
+\setlength\arrayrulewidth{.4\p@}
+\setlength\doublerulesep{2\p@}
+\setlength\tabbingsep{\labelsep}
+\skip\@mpfootins = \skip\footins
+\setlength\fboxsep{3\p@}
+\setlength\fboxrule{.4\p@}
+\renewcommand \theequation {\@arabic\c@equation}
+\newcounter{figure}
+\renewcommand \thefigure {\@arabic\c@figure}
+\def\fps@figure{tbp}
+\def\ftype@figure{1}
+\def\ext@figure{lof}
+\def\fnum@figure{\figurename\nobreak\thefigure}
+\newenvironment{figure}%
+               {\@float{figure}}%
+               {\end@float}
+\newenvironment{figure*}%
+               {\@dblfloat{figure}}%
+               {\end@dblfloat}
+\newcounter{table}
+\renewcommand\thetable{\@arabic\c@table}
+\def\fps@table{tbp}
+\def\ftype@table{2}
+\def\ext@table{lot}
+\def\fnum@table{\tablename\nobreak\thetable}
+\newenvironment{table}%
+               {\@float{table}}%
+               {\end@float}
+\newenvironment{table*}%
+               {\@dblfloat{table}}%
+               {\end@dblfloat}
+\newlength\abovecaptionskip
+\newlength\belowcaptionskip
+\setlength\abovecaptionskip{5\p@} % 元: 10\p@
+\setlength\belowcaptionskip{5\p@} % 元: 0\p@
+\long\def\@makecaption#1#2{{\small
+  \advance\leftskip .0628\linewidth
+  \advance\rightskip .0628\linewidth
+  \vskip\abovecaptionskip
+  \sbox\@tempboxa{#1\hskip1zw\relax #2}%
+  \ifdim \wd\@tempboxa <\hsize \centering \fi
+  #1\hskip1zw\relax #2\par
+  \vskip\belowcaptionskip}}
+\DeclareOldFontCommand{\mc}{\normalfont\mcfamily}{\mathmc}
+\DeclareOldFontCommand{\gt}{\normalfont\gtfamily}{\mathgt}
+\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
+\DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
+\DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
+\DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
+\DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
+\DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
+\DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
+\DeclareRobustCommand*{\cal}{\@fontswitch\relax\mathcal}
+\DeclareRobustCommand*{\mit}{\@fontswitch\relax\mathnormal}
+\newcommand\@pnumwidth{1.55em}
+\newcommand\@tocrmarg{2.55em}
+\newcommand\@dotsep{4.5}
+\setcounter{tocdepth}{2}
+\newcommand{\tableofcontents}{%
+  \section*{\contentsname}%
+  \@mkboth{\contentsname}{\contentsname}%
+  \@starttoc{toc}%
+}
+\newcommand*{\l@part}[2]{%
+  \ifnum \c@tocdepth >-2\relax
+    \addpenalty\@secpenalty
+    \addvspace{2.25em \@plus\p@}%
+    \begingroup
+      \parindent \z@
+      \rightskip \@tocrmarg
+      \parfillskip -\rightskip
+      {\leavevmode
+        \large \headfont
+        \setlength\@lnumwidth{4zw}%
+        #1\hfil \hb@xt@\@pnumwidth{\hss #2}}\par
+      \nobreak
+    \endgroup
+  \fi}
+\newcommand*{\l@section}[2]{%
+  \ifnum \c@tocdepth >\z@
+    \addpenalty{\@secpenalty}%
+    \addvspace{1.0em \@plus\p@}%
+    \begingroup
+      \parindent\z@
+      \rightskip\@tocrmarg
+      \parfillskip-\rightskip
+      \leavevmode\headfont
+      \setlength\@lnumwidth{4zw}% 元1.5em [2003-03-02]
+      \advance\leftskip\@lnumwidth \hskip-\leftskip
+      #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
+    \endgroup
+  \fi}
+\newcommand*{\l@subsection}   {\@dottedtocline{2}{1zw}{3zw}}
+\newcommand*{\l@subsubsection}{\@dottedtocline{3}{2zw}{3zw}}
+\newcommand*{\l@paragraph}    {\@dottedtocline{4}{3zw}{3zw}}
+\newcommand*{\l@subparagraph} {\@dottedtocline{5}{4zw}{3zw}}
+\newdimen\@lnumwidth
+\def\numberline#1{\hb@xt@\@lnumwidth{#1\hfil}\hspace{0pt}}
+\def\@dottedtocline#1#2#3#4#5{\ifnum #1>\c@tocdepth \else
+  \vskip \z@ \@plus.2\p@
+  {\leftskip #2\relax \rightskip \@tocrmarg \parfillskip -\rightskip
+    \parindent #2\relax\@afterindenttrue
+   \interlinepenalty\@M
+   \leavevmode
+   \@lnumwidth #3\relax
+   \advance\leftskip \@lnumwidth \null\nobreak\hskip -\leftskip
+    {#4}\nobreak
+    \leaders\hbox{$\m@th \mkern \@dotsep mu\hbox{.}\mkern \@dotsep
+       mu$}\hfill \nobreak\hb@xt@\@pnumwidth{%
+         \hfil\normalfont \normalcolor #5}\par}\fi}
+\newcommand{\listoffigures}{%
+  \section*{\listfigurename}%
+  \@mkboth{\listfigurename}{\listfigurename}%
+  \@starttoc{lof}%
+}
+\newcommand*{\l@figure}{\@dottedtocline{1}{1zw}{3.683zw}}
+\newcommand{\listoftables}{%
+  \section*{\listtablename}%
+  \@mkboth{\listtablename}{\listtablename}%
+  \@starttoc{lot}%
+}
+\let\l@table\l@figure
+\newdimen\bibindent
+\setlength\bibindent{2zw}
+\newenvironment{thebibliography}[1]{%
+  \global\let\presectionname\relax
+  \global\let\postsectionname\relax
+  \vspace{1.5\baselineskip}
+  \subsubsection*{\refname}\@mkboth{\refname}{\refname}%
+  \vspace{0.5\baselineskip}
+   \list{\@biblabel{\@arabic\c@enumiv}}%
+        {\settowidth\labelwidth{\@biblabel{#1}}%
+         \leftmargin\labelwidth
+         \advance\leftmargin\labelsep
+         \@openbib@code
+         \usecounter{enumiv}%
+         \let\p@enumiv\@empty
+         \renewcommand\theenumiv{\@arabic\c@enumiv}}%
+   \small
+   \sloppy
+   \clubpenalty4000
+   \@clubpenalty\clubpenalty
+   \widowpenalty4000%
+   \sfcode`\.\@m}
+  {\def\@noitemerr
+    {\@latex@warning{Empty `thebibliography' environment}}%
+   \endlist}
+\newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
+\let\@openbib@code\@empty
+\newenvironment{theindex}{% 索引を3段組で出力する環境
+    \if@twocolumn
+      \onecolumn\@restonecolfalse
+    \else
+      \clearpage\@restonecoltrue
+    \fi
+    \columnseprule.4pt \columnsep 2zw
+    \ifx\multicols\@undefined
+      \def\presectionname{}\def\postsectionname{}%
+      \twocolumn[\section*{\indexname}]%
+    \else
+      \ifdim\textwidth<\fullwidth
+        \setlength{\evensidemargin}{\oddsidemargin}
+        \setlength{\textwidth}{\fullwidth}
+        \setlength{\linewidth}{\fullwidth}
+        \def\presectionname{}\def\postsectionname{}%
+        \begin{multicols}{3}[\section*{\indexname}]%
+      \else
+        \def\presectionname{}\def\postsectionname{}%
+        \begin{multicols}{2}[\section*{\indexname}]%
+      \fi
+    \fi
+    \@mkboth{\indexname}{\indexname}%
+    \plainifnotempty % \thispagestyle{plain}
+    \parindent\z@
+    \parskip\z@ \@plus .3\p@\relax
+    \let\item\@idxitem
+    \raggedright
+    \footnotesize\narrowbaselines
+  }{
+    \ifx\multicols\@undefined
+      \if@restonecol\onecolumn\fi
+    \else
+      \end{multicols}
+    \fi
+    \clearpage
+  }
+\newcommand{\@idxitem}{\par\hangindent 4zw} % 元 40pt
+\newcommand{\subitem}{\@idxitem \hspace*{2zw}} % 元 20pt
+\newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % 元 30pt
+\newcommand{\indexspace}{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax}
+\newcommand\seename{\if@english see\else →\fi}
+\newcommand\alsoname{\if@english see also\else →\fi}
+\let\footnotes@ve=\footnote
+\def\footnote{\inhibitglue\footnotes@ve}
+\let\footnotemarks@ve=\footnotemark
+\def\footnotemark{\inhibitglue\footnotemarks@ve}
+\def\thefootnote{\ifnum\c@footnote>\z@\leavevmode\lower.5ex\hbox{*}\@arabic\c@footnote\fi}
+\renewcommand{\footnoterule}{%
+  \kern-3\p@
+  \hrule width .4\columnwidth
+  \kern 2.6\p@}
+\long\def\@footnotetext{%
+  \insert\footins\bgroup
+    \normalfont\footnotesize
+    \interlinepenalty\interfootnotelinepenalty
+    \splittopskip\footnotesep
+    \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
+    \hsize\columnwidth \@parboxrestore
+    \protected@edef\@currentlabel{%
+       \csname p@footnote\endcsname\@thefnmark
+    }%
+    \color@begingroup
+      \@makefntext{%
+        \rule\z@\footnotesep\ignorespaces}%
+      \futurelet\next\fo@t}
+\def\fo@t{\ifcat\bgroup\noexpand\next \let\next\f@@t
+                                \else \let\next\f@t\fi \next}
+\def\f@@t{\bgroup\aftergroup\@foot\let\next}
+\def\f@t#1{#1\@foot}
+\def\@foot{\@finalstrut\strutbox\color@endgroup\egroup}
+\newcommand\@makefntext[1]{%
+  \advance\leftskip 3zw
+  \parindent 1zw
+  \noindent
+  \llap{\@makefnmark\hskip0.3zw}#1}
+\def\@inhibitglue{%
+  \futurelet\@let@token\@@inhibitglue}
+\def\@@inhibitglue{%
+  \ifx\@let@token「
+    \inhibitglue
+  \else
+    \ifx\@let@token（
+      \inhibitglue
+    \else
+      \ifx\@let@token『
+        \inhibitglue
+      \else
+        \ifx\@let@token［
+          \inhibitglue
+        \fi
+      \fi
+    \fi
+  \fi}
+\let\everyparhook=\@inhibitglue
+\AtBeginDocument{\everypar{\everyparhook}}
+\def\@doendpe{%
+  \@endpetrue
+  \def\par{%
+    \@restorepar\everypar{\everyparhook}\par\@endpefalse}%
+  \everypar{{\setbox\z@\lastbox}\everypar{\everyparhook}\@endpefalse\everyparhook}}
+\def\@item[#1]{%
+  \if@noparitem
+    \@donoparitem
+  \else
+    \if@inlabel
+      \indent \par
+    \fi
+    \ifhmode
+      \unskip\unskip \par
+    \fi
+    \if@newlist
+      \if@nobreak
+        \@nbitem
+      \else
+        \addpenalty\@beginparpenalty
+        \addvspace\@topsep
+        \addvspace{-\parskip}%
+      \fi
+    \else
+      \addpenalty\@itempenalty
+      \addvspace\itemsep
+    \fi
+    \global\@inlabeltrue
+  \fi
+  \everypar{%
+    \@minipagefalse
+    \global\@newlistfalse
+    \if@inlabel
+      \global\@inlabelfalse
+      {\setbox\z@\lastbox
+       \ifvoid\z@
+         \kern-\itemindent
+       \fi}%
+      \box\@labels
+      \penalty\z@
+    \fi
+    \if@nobreak
+      \@nobreakfalse
+      \clubpenalty \@M
+    \else
+      \clubpenalty \@clubpenalty
+      \everypar{\everyparhook}%
+    \fi\everyparhook}%
+  \if@noitemarg
+    \@noitemargfalse
+    \if@nmbrlist
+      \refstepcounter\@listctr
+    \fi
+  \fi
+  \sbox\@tempboxa{\makelabel{#1}}%
+  \global\setbox\@labels\hbox{%
+    \unhbox\@labels
+    \hskip \itemindent
+    \hskip -\labelwidth
+    \hskip -\labelsep
+    \ifdim \wd\@tempboxa >\labelwidth
+      \box\@tempboxa
+    \else
+      \hbox to\labelwidth {\unhbox\@tempboxa}%
+    \fi
+    \hskip \labelsep}%
+  \ignorespaces}
+\def\@afterheading{%
+  \@nobreaktrue
+  \everypar{%
+    \if@nobreak
+      \@nobreakfalse
+      \clubpenalty \@M
+      \if@afterindent \else
+        {\setbox\z@\lastbox}%
+      \fi
+    \else
+      \clubpenalty \@clubpenalty
+      \everypar{\everyparhook}%
+    \fi\everyparhook}}
+\def\@gnewline #1{%
+  \ifvmode
+    \@nolnerr
+  \else
+    \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
+    \inhibitglue \ignorespaces
+  \fi}
+\def\小#1{\hbox{$\m@th$%
+  \csname S@\f@size\endcsname
+  \fontsize\sf@size\z@
+  \math@fontsfalse\selectfont
+  #1}}
+\def\上小#1{{\sbox\z@ T\vbox to\ht0{\小{#1}\vss}}}
+\def\cmrTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.25em\lower.5ex\hbox{E}\kern-.125emX\@
+  \else
+    T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX\@
+  \fi}
+\def\cmrLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.32em\上小{A}\kern-.22em\cmrTeX
+  \else
+    L\kern-.36em\上小{A}\kern-.15em\cmrTeX
+  \fi}
+\def\sfTeX{T\kern-.1em\lower.4ex\hbox{E}\kern-.07emX\@}
+\def\sfLaTeX{L\kern-.25em\上小{A}\kern-.08em\sfTeX}
+\def\ptmTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.12em\lower.37ex\hbox{E}\kern-.02emX\@
+  \else
+    T\kern-.07em\lower.37ex\hbox{E}\kern-.05emX\@
+  \fi}
+\def\ptmLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.2em\上小{A}\kern-.1em\ptmTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.1em\ptmTeX
+  \fi}
+\def\pncTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.2em\lower.5ex\hbox{E}\kern-.08emX\@
+  \else
+    T\kern-.13em\lower.5ex\hbox{E}\kern-.13emX\@
+  \fi}
+\def\pncLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
+  \fi}
+\def\pplTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.17em\lower.32ex\hbox{E}\kern-.15emX\@
+  \else
+    T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
+  \fi}
+\def\pplLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.27em\上小{A}\kern-.12em\pplTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.15em\pplTeX
+  \fi}
+\def\ugmTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    T\kern-.1em\lower.32ex\hbox{E}\kern-.06emX\@
+  \else
+    T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
+  \fi}
+\def\ugmLaTeX{%
+  \ifdim \fontdimen\@ne\font >\z@
+    L\kern-.2em\上小{A}\kern-.13em\ugmTeX
+  \else
+    L\kern-.3em\上小{A}\kern-.13em\ugmTeX
+  \fi}
+\DeclareRobustCommand{\TeX}{%
+  \def\@tempa{cmr}%
+  \ifx\f@family\@tempa\cmrTeX
+  \else
+    \def\@tempa{ptm}%
+    \ifx\f@family\@tempa\ptmTeX
+    \else
+      \def\@tempa{txr}%
+      \ifx\f@family\@tempa\ptmTeX
+      \else
+        \def\@tempa{pnc}%
+        \ifx\f@family\@tempa\pncTeX
+        \else
+          \def\@tempa{ppl}%
+          \ifx\f@family\@tempa\pplTeX
+          \else
+            \def\@tempa{ugm}%
+            \ifx\f@family\@tempa\ugmTeX
+            \else\sfTeX
+            \fi
+          \fi
+        \fi
+      \fi
+    \fi
+  \fi}
+
+\DeclareRobustCommand{\LaTeX}{%
+  \def\@tempa{cmr}%
+  \ifx\f@family\@tempa\cmrLaTeX
+  \else
+    \def\@tempa{ptm}%
+    \ifx\f@family\@tempa\ptmLaTeX
+    \else
+      \def\@tempa{txr}%
+      \ifx\f@family\@tempa\ptmLaTeX
+      \else
+        \def\@tempa{pnc}%
+        \ifx\f@family\@tempa\pncLaTeX
+        \else
+          \def\@tempa{ppl}%
+          \ifx\f@family\@tempa\pplLaTeX
+          \else
+            \def\@tempa{ugm}%
+            \ifx\f@family\@tempa\ugmLaTeX
+            \else\sfLaTeX
+            \fi
+          \fi
+        \fi
+      \fi
+    \fi
+  \fi}
+\DeclareRobustCommand{\LaTeXe}{$\mbox{%
+  \if b\expandafter\@car\f@series\@nil\boldmath\fi
+  \LaTeX\kern.15em2\raisebox{-.37ex}{$\textstyle\varepsilon$}}$}
+\def\pTeX{p\kern-.05em\TeX}
+\def\pLaTeX{p\LaTeX}
+\def\pLaTeXe{p\LaTeXe}
+\def\AmSTeX{\protect\AmS-\protect\TeX{}}
+\DeclareRobustCommand{\BibTeX}{B\kern-.05em\小{I\kern-.025em B}%
+  \ifx\f@family\cmr\kern-.08em\else\kern-.15em\fi\TeX}
+\DeclareRobustCommand{\SliTeX}{%
+  S\kern-.06emL\kern-.18em\上小{I}\kern -.03em\TeX}
+\let\ltx@ifnextchar\@ifnextchar
+\def\ProvidesFile#1{%
+  \begingroup
+    \catcode`\ 10 %
+    \ifnum \endlinechar<256 %
+      \ifnum \endlinechar>\m@ne
+        \catcode\endlinechar 10 %
+      \fi
+    \fi
+    \@makeother\/%
+    \@makeother\&%
+    \ltx@ifnextchar[{\@providesfile{#1}}{\@providesfile{#1}[]}}
+\newcommand{\prepartname}{\if@english Part~\else 第\fi}
+\newcommand{\postpartname}{\if@english\else 部\fi}
+\newcommand{\presectionname}{}%  第
+\newcommand{\postsectionname}{}% 節
+\newcommand{\contentsname}{\if@english Contents\else 目次\fi}
+\newcommand{\listfigurename}{\if@english List of Figures\else 図目次\fi}
+\newcommand{\listtablename}{\if@english List of Tables\else 表目次\fi}
+\newcommand{\refname}{\if@english References\else 参考文献\fi}
+\newcommand{\bibname}{\if@english Bibliography\else 参考文献\fi}
+\newcommand{\indexname}{\if@english Index\else 索引\fi}
+\newcommand{\figurename}{\if@english Fig.~\else 図\fi}
+\newcommand{\tablename}{\if@english Table.~\else 表\fi}
+\newcommand{\appendixname}{\if@english Appendix~\else 付録\fi}
+\newcommand{\abstractname}{\if@english Abstract\else 概要\fi}
+\newif\if西暦 \西暦true
+\def\西暦{\西暦true}
+\def\和暦{\西暦false}
+\newcount\heisei \heisei\year \advance\heisei-1988\relax
+\def\today{%
+  \if@english
+    \ifcase\month\or
+      January\or February\or March\or April\or May\or June\or
+      July\or August\or September\or October\or November\or December\fi
+      \space\number\day, \number\year
+  \else
+    \if西暦
+      \number\year 年
+      \number\month 月
+      \number\day 日
+    \else
+      平成\number\heisei 年
+      \number\month 月
+      \number\day 日
+    \fi
+  \fi}
+\hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script}
+\if@slide \pagestyle{empty} \else \pagestyle{plain} \fi
+\pagenumbering{arabic}
+\if@twocolumn
+  \twocolumn
+  \sloppy
+  \flushbottom
+\else
+  \onecolumn
+  \raggedbottom
+\fi
+\if@slide
+  \renewcommand\kanjifamilydefault{\gtdefault}
+  \renewcommand\familydefault{\sfdefault}
+  \raggedright
+  \xkanjiskip=0.1em\relax
+\fi
+\endinput
+%%
+%% End of file `kiyou.cls'.
diff --git a/Master/texmf-dist/tex/platex/jsclasses/minijs.sty b/Master/texmf-dist/tex/platex/jsclasses/minijs.sty
new file mode 100644
index 00000000000..e5a805bb4d5
--- /dev/null
+++ b/Master/texmf-dist/tex/platex/jsclasses/minijs.sty
@@ -0,0 +1,28 @@
+% minimal jsarticle-like fonts
+\expandafter\def\csname ver@jsarticle.cls\endcsname{minijs}
+\expandafter\let\csname JY1/mc/m/n/10\endcsname\relax
+\expandafter\let\csname JY1/gt/m/n/10\endcsname\relax
+\expandafter\let\csname JT1/mc/m/n/10\endcsname\relax
+\expandafter\let\csname JT1/gt/m/n/10\endcsname\relax
+\DeclareFontShape{JY1}{mc}{m}{n}{<-> s * [0.961] jis}{}
+\DeclareFontShape{JY1}{gt}{m}{n}{<-> s * [0.961] jisg}{}
+\DeclareFontShape{JT1}{mc}{m}{n}{<-> s * [0.961] tmin10}{}
+\DeclareFontShape{JT1}{gt}{m}{n}{<-> s * [0.961] tgoth10}{}
+\def\@setfontsize#1#2#3{\@nomath#1%
+  \ifx\protect\@typeset@protect
+    \let\@currsize#1%
+  \fi
+  \fontsize{#2}{#3}\selectfont
+  \ifdim\parindent>\z@ \parindent=1zw \fi
+  \kanjiskip=0zw plus .1zw minus .01zw
+  \xkanjiskip=0.25em plus 0.15em minus 0.06em}
+\DeclareRobustCommand\rmfamily
+        {\not@math@alphabet\rmfamily\mathrm
+         \romanfamily\rmdefault\kanjifamily\mcdefault\selectfont}
+\DeclareRobustCommand\sffamily
+        {\not@math@alphabet\sffamily\mathsf
+         \romanfamily\sfdefault\kanjifamily\gtdefault\selectfont}
+\DeclareRobustCommand\ttfamily
+        {\not@math@alphabet\ttfamily\mathtt
+         \romanfamily\ttdefault\kanjifamily\gtdefault\selectfont}
+\normalsize
diff --git a/Master/texmf-dist/tex/platex/jsclasses/morisawa.sty b/Master/texmf-dist/tex/platex/jsclasses/morisawa.sty
new file mode 100644
index 00000000000..a3db8c62658
--- /dev/null
+++ b/Master/texmf-dist/tex/platex/jsclasses/morisawa.sty
@@ -0,0 +1,108 @@
+%%
+%% This is file `morisawa.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% morisawa.dtx  (with options: `morisawa')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from morisawa.sty.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file morisawa.dtx.
+%% 
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+\NeedsTeXFormat{pLaTeX2e}
+\ProvidesPackage{morisawa}[2003/02/09 okumura]
+\newif\if@fake \@fakefalse
+\DeclareOption{fake}{\@faketrue}
+\ProcessOptions\relax
+\DeclareKanjiFamily{JY1}{rml}{}
+\DeclareKanjiFamily{JT1}{rml}{}
+\if@fake
+  \DeclareFontShape{JY1}{rml}{m}{n}{<-> s * [0.961] jis}{}
+  \DeclareFontShape{JY1}{rml}{bx}{n}{<-> s * [0.961] jisg}{}
+  \DeclareFontShape{JT1}{rml}{m}{n}{<-> s * [0.961] tmin10}{}
+  \DeclareFontShape{JT1}{rml}{bx}{n}{<-> s * [0.961] tgoth10}{}
+\else
+  \DeclareFontShape{JY1}{rml}{m}{n}{<-> s * [0.961] Ryumin-Light-J}{}
+  \DeclareFontShape{JY1}{rml}{bx}{n}{<-> s * [0.961] GothicBBB-Medium-J}{}
+  \DeclareFontShape{JT1}{rml}{m}{n}{<-> s * [0.961] Ryumin-Light-V}{}
+  \DeclareFontShape{JT1}{rml}{bx}{n}{<-> s * [0.961] GothicBBB-Medium-V}{}
+\fi
+\DeclareKanjiFamily{JY1}{fma}{}
+\DeclareKanjiFamily{JT1}{fma}{}
+\if@fake
+  \DeclareFontShape{JY1}{fma}{m}{n}{<-> s * [0.961] jis}{}
+  \DeclareFontShape{JY1}{fma}{bx}{n}{<-> s * [0.961] jisg}{}
+  \DeclareFontShape{JT1}{fma}{m}{n}{<-> s * [0.961] tmin10}{}
+  \DeclareFontShape{JT1}{fma}{bx}{n}{<-> s * [0.961] tgoth10}{}
+\else
+  \DeclareFontShape{JY1}{fma}{m}{n}{<-> s * [0.961] FutoMinA101-Bold-J}{}
+  \DeclareFontShape{JY1}{fma}{bx}{n}{<-> s * [0.961] GothicBBB-Medium-J}{}
+  \DeclareFontShape{JT1}{fma}{m}{n}{<-> s * [0.961] FutoMinA101-Bold-V}{}
+  \DeclareFontShape{JT1}{fma}{bx}{n}{<-> s * [0.961] FutoGoB101-Bold-V}{}
+\fi
+\DeclareKanjiFamily{JY1}{gbm}{}
+\DeclareKanjiFamily{JT1}{gbm}{}
+\if@fake
+  \DeclareFontShape{JY1}{gbm}{m}{n}{<-> s * [0.961] jisg}{}
+  \DeclareFontShape{JY1}{gbm}{bx}{n}{<-> s * [0.961] jisg}{}
+  \DeclareFontShape{JT1}{gbm}{m}{n}{<-> s * [0.961] tgoth10}{}
+  \DeclareFontShape{JT1}{gbm}{bx}{n}{<-> s * [0.961] tgoth10}{}
+\else
+  \DeclareFontShape{JY1}{gbm}{m}{n}{<-> s * [0.961] GothicBBB-Medium-J}{}
+  \DeclareFontShape{JY1}{gbm}{bx}{n}{<-> s * [0.961] FutoGoB101-Bold-J}{}
+  \DeclareFontShape{JT1}{gbm}{m}{n}{<-> s * [0.961] GothicBBB-Medium-V}{}
+  \DeclareFontShape{JT1}{gbm}{bx}{n}{<-> s * [0.961] FutoGoB101-Bold-V}{}
+\fi
+\DeclareKanjiFamily{JY1}{jun}{}
+\DeclareKanjiFamily{JT1}{jun}{}
+\if@fake
+  \DeclareFontShape{JY1}{jun}{m}{n}{<-> s * [0.961] jisg}{}
+  \DeclareFontShape{JY1}{jun}{bx}{n}{<->ssub*jun/m/n}{}
+  \DeclareFontShape{JT1}{jun}{m}{n}{<-> s * [0.961] tgoth10}{}
+  \DeclareFontShape{JT1}{jun}{bx}{n}{<->ssub*jun/m/n}{}
+\else
+  \DeclareFontShape{JY1}{jun}{m}{n}{<-> s * [0.961] Jun101-Light-J}{}
+  \DeclareFontShape{JY1}{jun}{bx}{n}{<->ssub*jun/m/n}{}
+  \DeclareFontShape{JT1}{jun}{m}{n}{<-> s * [0.961] Jun101-Light-V}{}
+  \DeclareFontShape{JT1}{jun}{bx}{n}{<->ssub*jun/m/n}{}
+\fi
+\renewcommand{\mcdefault}{rml}
+\renewcommand{\gtdefault}{gbm}
+\DeclareRobustCommand\sffamily{%
+  \not@math@alphabet\sffamily\mathsf
+  \romanfamily\sfdefault
+  \kanjifamily\gtdefault
+  \selectfont}
+\newcommand{\mgdefault}{jun}
+\DeclareRobustCommand\mgfamily{%
+  \not@math@alphabet\mgfamily\textmg
+  \kanjifamily\mgdefault
+  \selectfont}
+\DeclareRobustCommand\ttfamily{%
+  \not@math@alphabet\ttfamily\mathtt
+  \romanfamily\ttdefault
+  \kanjifamily\mgdefault
+  \selectfont}
+\def\textmg#1{\relax\ifmmode\hbox\fi{\mgfamily #1}}
+\normalfont\normalsize
+\setbox0\hbox{\char\euc"A1A1}%
+\setlength\Cht{\ht0}
+\setlength\Cdp{\dp0}
+\setlength\Cwd{\wd0}
+\setlength\Cvs{\baselineskip}
+\setlength\Chs{\wd0}
+\setlength\parindent{1\Cwd}
+\endinput
+%%
+%% End of file `morisawa.sty'.
diff --git a/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty b/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty
new file mode 100644
index 00000000000..d6162a94d6c
--- /dev/null
+++ b/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty
@@ -0,0 +1,409 @@
+%%
+%% This is file `okumacro.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% okumacro.dtx  (with options: `okumacro')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from okumacro.sty.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file okumacro.dtx.
+%% 
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+\NeedsTeXFormat{pLaTeX2e}
+\ProvidesPackage{okumacro}[2010/03/14 okumura]
+\providecommand{\rubyfamily}{}
+\def\kanjistrut{\vrule \@height0.88zw \@depth0.12zw \@width\z@}
+\newcommand{\ruby}[3][0zw]{%
+  \leavevmode
+  \dimen1=#1\relax
+  \dimen3=\f@size\p@
+  \setbox1=\hbox{#2}%
+  \setbox3=\hbox{\rubyfamily\fontsize{0.5\dimen3}{0pt}\selectfont #3}%
+  \ifdim\dimen1=\z@
+    \ifdim\wd1>\wd3 \dimen1=\wd1 \else \dimen1=\wd3 \fi
+  \else
+    \ifdim\dimen1<\wd1
+      \dimen1=\wd1
+    \fi
+  \fi
+  \hbox{%
+    \kanjiskip=0pt plus 2fil
+    \xkanjiskip=0pt plus 2fil
+    \vbox{%
+      \hbox to \dimen1{\rubyfamily
+        \fontsize{0.5\dimen3}{0pt}\selectfont \kanjistrut
+        \ifdim\dimen1<\wd3
+          \hss\unhbox3\hss
+        \else
+          \hfil\unhbox3\hfil
+        \fi
+      }%
+      \nointerlineskip
+      \hbox to \dimen1{\kanjistrut\hfil\unhbox1\hfil}}}\hskip\kanjiskip\relax}
+\def\kenten#1{%
+  \ifvmode\leavevmode\else\hskip\kanjiskip\fi
+  \setbox1=\hbox to \z@{・\hss}%
+  \ht1=.63zw
+  \@kenten#1\end}
+\def\@kenten#1{%
+  \ifx#1\end \let\next=\relax \else
+    \raise.63zw\copy1\nobreak #1\hskip\kanjiskip\relax
+    \let\next=\@kenten
+  \fi\next}
+\newcommand{\kintou}[2]{%
+  \leavevmode
+  \hbox to #1{%
+    \kanjiskip=0pt plus 1fil minus 1fil
+    \xkanjiskip=\kanjiskip
+    #2}}
+\newcommand{\曜}{{\@tempcnta=\year \@tempcntb=\month
+  \ifnum \@tempcntb<3
+    \advance \@tempcnta by -1
+    \advance \@tempcntb by 12
+  \fi
+  \multiply \@tempcntb by 13
+  \advance \@tempcntb by 8
+  \divide \@tempcntb by 5
+  \advance \@tempcntb by \@tempcnta
+  \divide \@tempcnta by 4
+  \advance \@tempcntb by \@tempcnta
+  \divide \@tempcnta by 25
+  \advance \@tempcntb by -\@tempcnta
+  \divide \@tempcnta by 4
+  \advance \@tempcntb by \@tempcnta
+  \advance \@tempcntb by \day
+  \@tempcnta=\@tempcntb
+  \divide \@tempcntb by 7
+  \multiply \@tempcntb by 7
+  \advance \@tempcnta by -\@tempcntb
+  \ifcase \@tempcnta 日\or 月\or 火\or 水\or 木\or 金\or 土\fi}}
+\def\挨拶{\noindent 拝啓\hspace{1zw}\ifcase\month\or
+  厳寒\or 春寒\or 早春\or 陽春\or 新緑\or 向暑\or
+  猛暑\or 残暑\or 初秋\or 仲秋\or 晩秋\or 初冬\fi
+  の候，ますますご清栄のこととお喜び申し上げます。}
+\def\myallowbreak{\@ifnextchar\egroup{}{\penalty\exhyphenpenalty}{}}
+\begingroup
+  \catcode`\-=\active
+  \catcode`\.=\active
+  \catcode`\/=\active
+  \gdef\mytth@@k{%
+    \catcode`\-=\active \def-{\char`\-\myallowbreak}%
+    \catcode`\.=\active \def.{\char`\.\myallowbreak}%
+    \catcode`\/=\active \def/{\char`\/\myallowbreak}%
+  }
+\endgroup
+\def\mytt{\ttfamily
+  \catcode`\#=12
+  \catcode`\&=12
+  \catcode`\^=12
+  \catcode`\~=12
+  \catcode`\_=12
+  \chardef\{=`\{
+  \chardef\}=`\}
+  \chardef\_=`\_
+  \def\\{\char"5C\penalty\exhyphenpenalty{}}% バックスラッシュ
+  \spaceskip=.32em plus.16em minus.09em
+  \frenchspacing
+  \noautoxspacing
+  \mytth@@k}
+\DeclareRobustCommand{\yen}{{\ooalign{Y\crcr\hss=\hss}}}
+\providecommand{\BS}{\texttt{\char"5C}}
+{\catcode`\|=\z@ \catcode`\\=12|gdef|bslash{\}}
+\newcommand{\asciibar}{%
+  \makebox[0.525em]{\rule[-0.2ex]{0.15ex}{0.7ex}\kern-0.15ex
+    \rule[0.8ex]{0.15ex}{0.7ex}}}
+\def\−−{—\kern-.5zw—\kern-.5zw—}
+\def\——{—\kern-.5zw—\kern-.5zw—}
+\newcommand{\removept}[2]{%
+  \edef#2{\expandafter\@removePT\the#1}}
+{\catcode`p=12 \catcode`t=12 \gdef\@removePT#1pt{#1}}
+\newcommand{\keytop}[1]{{\leavevmode\kern1pt
+  \setbox1=\hbox{\normalfont\sffamily [}%
+  \dimen1=\ht1
+  \removept{\dimen1}{\tempC}%
+  \setbox0=\hbox{\normalfont\sffamily #1}%
+  \dp0=0pt
+  \dimen0=\wd0
+  \ifdim\dimen0<\ht1 \dimen0=\ht1 \fi
+  \advance \dimen0 by 5pt
+  \removept{\dimen0}{\tempA}%
+  \divide \dimen0 by 2
+  \removept{\dimen0}{\tempB}%
+  \unitlength=1pt
+  \advance \dimen1 by 2pt
+  \hbox{\vrule height\dimen1 depth2pt width0pt}%
+  \begin{picture}(\tempA,\tempC)
+    \put(0,0){\line(0,1){\tempC}}
+    \put(\tempA,0){\line(0,1){\tempC}}
+    \put(\tempB,0){\oval(\tempA,4)[b]}
+    \put(\tempB,\tempC){\oval(\tempA,4)[t]}
+    \put(\tempB,0){\makebox(0,0)[b]{\box0}}
+  \end{picture}\kern1pt}}
+\def\RETMARK{{\unitlength=1pt
+  \setbox0=\hbox{\normalfont\ttfamily [}%
+  \dimen0=\ht0
+  \removept{\dimen0}{\tempA}%
+  \advance \dimen0 by -1pt
+  \removept{\dimen0}{\tempB}%
+  \begin{picture}(\tempA,\tempA)
+    \put(\tempA,1){\line(0,1){\tempB}}
+    \put(\tempA,1){\vector(-1,0){\tempA}}
+  \end{picture}}}
+\newcommand{\return}{\keytop{\RETMARK}}
+\newcommand{\upkey}{\raisebox{-2pt}{%
+  \setlength{\unitlength}{1pt}%
+  \thinlines
+  \begin{picture}(14,9)
+    \put(7,2){\vector(0,1){8}}
+    \put(1,2){\line(0,1){7}}
+    \put(13,2){\line(0,1){7}}
+    \put(7,9){\oval(12,4)[t]}
+    \put(7,2){\oval(12,4)[b]}
+  \end{picture}%
+}}
+\newcommand{\downkey}{\raisebox{-2pt}{%
+  \setlength{\unitlength}{1pt}%
+  \thinlines
+  \begin{picture}(14,9)
+    \put(7,10){\vector(0,-1){8}}
+    \put(1,2){\line(0,1){7}}
+    \put(13,2){\line(0,1){7}}
+    \put(7,9){\oval(12,4)[t]}
+    \put(7,2){\oval(12,4)[b]}
+  \end{picture}%
+}}
+\newcommand{\rightkey}{\raisebox{-2pt}{%
+  \setlength{\unitlength}{1pt}%
+  \thinlines
+  \begin{picture}(14,9)
+    \put(3,6){\vector(1,0){8}}
+    \put(1,2){\line(0,1){7}}
+    \put(13,2){\line(0,1){7}}
+    \put(7,9){\oval(12,4)[t]}
+    \put(7,2){\oval(12,4)[b]}
+  \end{picture}%
+}}
+\newcommand{\leftkey}{\raisebox{-2pt}{%
+  \setlength{\unitlength}{1pt}%
+  \thinlines
+  \begin{picture}(14,9)
+    \put(11,6){\vector(-1,0){8}}
+    \put(1,2){\line(0,1){7}}
+    \put(13,2){\line(0,1){7}}
+    \put(7,9){\oval(12,4)[t]}
+    \put(7,2){\oval(12,4)[b]}
+  \end{picture}%
+}}
+\newcommand{\MARU}[1]{{%
+    \ooalign{\hfil
+      \@ifundefined{scalebox}{%
+        #1\/\hfil\crcr\raise.167ex}{\raise.1zw\hbox{\scalebox{0.8}{#1\/}}\hfil\crcr\raise.1zw}%
+      \hbox{\fontencoding{OMS}\fontfamily{cmsy}\fontseries{m}\fontshape{n}\selectfont
+        \char"0D}}}}
+\newcommand{\PiC}{P\kern-.12em\lower.5ex\hbox{I}\kern-.075emC}
+\newcommand{\PiCTeX}{\PiC\kern-.11em\TeX}
+\newcommand{\JTeX}{\leavevmode\lower.5ex\hbox{J}\kern-.17em\TeX}
+\newcommand{\JLaTeX}{\leavevmode\lower.5ex\hbox{\rm J}\kern-.17em\LaTeX}
+\DeclareRobustCommand{\JBibTeX}{$\mbox{%
+    \lower.5ex\hbox{J}\ifx\f@family\cmr\kern-.15em\else\kern-.05em\fi
+    \BibTeX}$}
+\newcommand{\pTeXsT}{p\kern-.21em\TeX\kern-.10em s\kern-.21em T}
+\newcommand{\iTeX}{\accent'27\i\TeX}
+\newcommand{\MlTeX}{M\kern-.1667em\lower.5ex\hbox{L}\kern-.25em\TeX}
+\newenvironment{dangerous}{%
+  \vspace{3pt}%
+  \begin{list}{\ding{"2E}}{%
+    \setlength{\leftmargin}{3zw}%
+    \setlength{\itemindent}{0pt}%
+    \setlength{\labelwidth}{2zw}%
+    \setlength{\labelsep}{6pt}%
+    \setlength{\rightmargin}{0pt}%
+    \setlength{\itemsep}{0.5\baselineskip}%
+    \setlength{\parsep}{0pt}%
+    \setlength{\topsep}{0.5\baselineskip}%
+    \setlength{\partopsep}{0pt}%
+    \setlength{\listparindent}{0zw}%
+  }\small}{\end{list}}
+\newcommand{\namelistlabel}[1]{\hspace{1zw}#1\hfil}
+\newenvironment{namelist}[1]{%
+  \begin{list}{}{%
+    \let\makelabel=\namelistlabel
+    \settowidth{\labelwidth}{#1}%
+    \addtolength{\labelwidth}{2zw}%
+    \setlength{\leftmargin}{\labelwidth}%
+    \setlength{\labelsep}{0pt}%
+  }}{\end{list}}
+\newenvironment{mybibliography}[1]{%
+   \list{\@biblabel{\@arabic\c@enumiv}}%
+        {\settowidth\labelwidth{\@biblabel{#1}}%
+         \leftmargin\labelwidth
+         \advance\leftmargin\labelsep
+         \@openbib@code
+         \@nmbrlisttrue\def\@listctr{enumiv}%
+         \let\p@enumiv\@empty
+         \renewcommand\theenumiv{\@arabic\c@enumiv}}%
+   \sloppy
+   \clubpenalty4000
+   \@clubpenalty\clubpenalty
+   \widowpenalty4000%
+   \sfcode`\.\@m}
+  {\def\@noitemerr
+    {\@latex@warning{Empty `mybibliography' environment}}%
+   \endlist}
+\newenvironment{FRAME}{\begin{trivlist}\item[]
+  \hrule width\linewidth
+  \hbox to \linewidth\bgroup
+    \advance\linewidth by -30pt
+    \hsize=\linewidth
+    \vrule\hfill
+    \vbox\bgroup
+      \vskip15pt
+      \def\thempfootnote{\arabic{mpfootnote}}% 脚注を算用数字に
+      \begin{minipage}{\linewidth}}{%
+      \end{minipage}\vskip15pt
+    \egroup\hfill\vrule
+  \egroup\hrule width\linewidth
+  \end{trivlist}}
+\newcommand{\SHUTTEN}[1]{%
+  \par\nobreak\removelastskip\rightline{\small#1}\medbreak}
+\newdimen\@scw
+\newbox\scb@x
+\newenvironment{screen}[1][1]%
+ {\def\screensc@le{#1}\@scw=\linewidth \advance \@scw by -20pt
+  \setbox\scb@x=\hbox\bgroup\begin{minipage}[b]{\@scw}}%
+     % または \setbox\scb@x=\vbox\bgroup\advance \linewidth by -20pt \relax
+ {\end{minipage}\egroup
+  \dimen0=\linewidth \removept{\dimen0}{\hsPT}%
+  \divide \dimen0 by 2 \removept{\dimen0}{\hhsPT}%
+  \dimen0=\ht\scb@x \advance \dimen0 by 10pt
+  \removept{\dimen0}{\htxPT}%
+  \begin{flushleft}
+    \vspace{6.5pt}%
+    \begin{picture}(\hsPT,\htxPT)
+      \put(\hhsPT,\htxPT){\oval(\hsPT,10)[t]}
+      \put(0,0){\line(0,1){\htxPT}}
+      \put(\hsPT,0){\line(0,1){\htxPT}}
+      \put(\hhsPT,0){\oval(\hsPT,10)[b]}
+      \put(10,5){\ifdim\screensc@le pt=1pt \box\scb@x
+                 \else\scalebox{\screensc@le}[1]{\box\scb@x}\fi}
+    \end{picture}%
+  \end{flushleft}}
+\newdimen\EXAMPLEWIDTH
+\newenvironment{EXAMPLE}{\begin{flushleft}\EXAMPLEWIDTH=\linewidth
+  }{\end{flushleft}}
+\newenvironment{IN}{%
+  \makebox[35pt][l]{\small\fbox{入力}}%
+  \advance \linewidth by -35pt
+  \begin{minipage}[t]{\linewidth}}{%
+  \end{minipage}\\[6pt]}
+\newenvironment{OUT}{%
+  \makebox[35pt][l]{\small\fbox{出力}}%
+  \advance \linewidth by -35pt
+  \begin{minipage}[t]{\linewidth}}{%
+  \end{minipage}}
+\newcommand{\INEX}{\medbreak\noindent
+  \framebox[\columnwidth][l]{\small\hskip2zw 入力}\nobreak
+  \begin{quote}\small}
+\newcommand{\OUTEX}{\end{quote}
+  \framebox[\columnwidth][l]{\small\hskip2zw 出力}\nobreak
+  \begin{quotation}\small}
+\newcommand{\ENDEX}{\end{quotation}\bigbreak}
+\newcommand{\ENDEXC}[1]{\end{quotation}\nobreak
+  \begin{flushright}\footnotesize#1\end{flushright}\bigbreak}
+
+\def\whichpage#1{%
+  \expandafter\ifx\csname r@#1\endcsname\relax
+  \else
+    \@tempcnta\pageref{#1}\relax
+    \advance\@tempcnta-\c@page
+    \ifnum\@tempcnta=0
+    \else
+      \ifnum\@tempcnta=1 （次ページ）
+      \else
+        \ifnum\@tempcnta=-1 （前ページ）
+        \else （\pageref{#1}ページ）
+        \fi
+      \fi
+    \fi
+  \fi}
+\newdimen\shaderule \shaderule 5\p@
+\def\shadebox{\dimen0\linewidth \advance\dimen0-20\p@
+  \advance\dimen0-2\fboxrule \advance\dimen0-\shaderule
+  \setbox\@tempboxa=\hbox\bgroup\minipage{\dimen0}}
+\def\endshadebox{\endminipage\egroup\dimen0=10\p@ \advance\dimen0-\fboxrule
+  \setbox\@tempboxa=\hbox{\kern\dimen0\unhbox\@tempboxa\kern\dimen0}%
+  \setbox0=\vbox{\hrule\@height \fboxrule
+  \hbox{\vrule\@width \fboxrule \hskip-\fboxrule
+  \vbox{\vskip\fboxsep \box\@tempboxa\vskip\fboxsep}%
+  \hskip-\fboxrule\vrule \@width \fboxrule}\hrule \@height \fboxrule}%
+  \dimen0=\ht0 \advance\dimen0-\shaderule
+  \hbox{\hbox to \shaderule{\copy0\hss}\kern \z@
+  \vrule\@width\wd0\@height\z@\@depth\shaderule\hskip-\shaderule
+  \vrule\@width\shaderule\@height\dimen0}}
+\def\sankoumark{{\small ★}}
+\newenvironment{sankou}{\vspace{3pt}%
+  \begin{list}{}{%
+    \setlength{\leftmargin}{3zw}%
+    \setlength{\itemindent}{0pt}%
+    \setlength{\labelwidth}{2zw}%
+    \setlength{\labelsep}{6pt}%
+    \setlength{\rightmargin}{0pt}%
+    \setlength{\itemsep}{0pt}%
+    \setlength{\parsep}{0pt}%
+    \setlength{\topsep}{0.5\baselineskip}%
+    \setlength{\partopsep}{0pt}%
+    \setlength{\listparindent}{0zw}%
+  }\item[\sankoumark]\small}{\end{list}}
+\def\toimark{{\small\bf 【問】}}
+\newenvironment{toi}{\vspace{3pt}%
+  \begin{list}{}{%
+    \setlength{\leftmargin}{3zw}%
+    \setlength{\itemindent}{0pt}%
+    \setlength{\labelwidth}{2zw}%
+    \setlength{\labelsep}{6pt}%
+    \setlength{\rightmargin}{0pt}%
+    \setlength{\itemsep}{0pt}%
+    \setlength{\parsep}{3pt plus 1pt minus 1pt}%
+    \setlength{\topsep}{3pt plus 1pt minus 1pt}%
+    \setlength{\partopsep}{3pt plus 6pt minus 1pt}%
+    \setlength{\listparindent}{0zw}%
+  }\item[\toimark]\small}{\end{list}}
+\providecommand{\eps}{\varepsilon}
+\def\LEQQ{\mathrel{\mathpalette\gl@align<}}
+\def\GEQQ{\mathrel{\mathpalette\gl@align>}}
+\def\gl@align#1#2{\lower.6ex\vbox{\baselineskip\z@skip\lineskip\z@
+    \ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr=\crcr}}}
+\def\APPROX{\mathrel{\mathpalette\ap@align{\smash.}}}
+\def\ap@align#1#2{\lower.2ex\vbox{\baselineskip\z@skip\lineskip\z@
+    \def\finsm@sh{\ht\z@.2ex \dp\z@.2ex \box\z@}%
+    \ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr=\crcr#2\crcr}}}
+%%% Fractions like 1/2 by DEK (TUGboat, 6(1):36, TeXbook (Excercise 11.6))
+\def\FRAC#1#2{\leavevmode\kern.1em
+  \raise.5ex\hbox{\the\scriptfont0 #1}\kern-.1em
+  /\kern-.15em\lower.25ex\hbox{\the\scriptfont0 #2}}
+\newcommand{\hk}{\hspace{\kanjiskip}}
+\newcommand{\hx}{\hspace{\xkanjiskip}}
+\newcommand{\3}{\penalty300 }
+\newcommand{\5}{\penalty50 }          % \penalty\exhyphenpenalty
+\newcommand{\ANGLE}[1]{%
+  $\langle$\kern0pt\nobreak{#1}\kern0pt\nobreak$\rangle$}
+\newcommand{\株}{\hspace{\kanjiskip}\<（株）\<\hspace{\kanjiskip}}
+\@ifundefined{widebaselines}{}{%
+  \let\endmathdisplaysave=\endmathdisplay
+  \def\endmathdisplay{\widebaselines\endmathdisplaysave}}
+  \let\start@alignsave=\start@align
+  \def\start@align{\vspace{4pt}\start@alignsave}
+\endinput
+%%
+%% End of file `okumacro.sty'.
diff --git a/Master/texmf-dist/tex/platex/jsclasses/okuverb.sty b/Master/texmf-dist/tex/platex/jsclasses/okuverb.sty
new file mode 100644
index 00000000000..eab73bf8b51
--- /dev/null
+++ b/Master/texmf-dist/tex/platex/jsclasses/okuverb.sty
@@ -0,0 +1,102 @@
+%%
+%% This is file `okuverb.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% okuverb.dtx  (with options: `okuverb')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from okuverb.sty.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file okuverb.dtx.
+%% 
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+\NeedsTeXFormat{pLaTeX2e}
+\ProvidesFile{okuverb.sty}[2003/09/03 okumura]
+\newif\if@yen \@yenfalse
+\DeclareOption{yen}{\@yentrue}
+\ProcessOptions\relax
+\DeclareRobustCommand{\yen}{{\ooalign{Y\crcr\hss=\hss}}}
+\def\y@n{Y\llap=}
+\def\ttyen{{\ttfamily\y@n}}
+\def\ttbslash{{\ttfamily\char`\\}}
+\if@yen
+  \let\BS=\ttyen
+\else
+  \let\BS=\ttbslash
+\fi
+\if@yen
+  \begingroup
+    \catcode`\|=0  \catcode`\\=13
+    |gdef|verbh@@k{|catcode`|\=13 |let\=|y@n}
+  |endgroup
+\else
+  \let\verbh@@k=\relax
+\fi
+\def\verbatim@font{\ttfamily}
+\def\verb{%
+  \leavevmode\hbox % 変更
+  \bgroup
+    \verb@eol@error \let\do\@makeother \dospecials
+    \verbatim@font\@noligs
+    \noautoxspacing % 追加
+    \verbh@@k % 追加
+    \@ifstar\@sverb\@verb}
+\if@yen
+\begingroup \catcode `|=0 \catcode `[= 1
+\catcode`]=2 \catcode `\{=12 \catcode `\}=12
+\catcode`\\=13 |gdef|@xverbatim#1\end{verbatim}[#1|end[verbatim]]
+|gdef|@sxverbatim#1\end{verbatim*}[#1|end[verbatim*]]
+|endgroup
+\fi
+\newdimen\verbatimleftmargin
+\verbatimleftmargin=2zw
+\def\verbatimsize{\fontsize{9}{11pt}\selectfont}
+\def\@verbatim{%
+  \trivlist \item\relax
+  \if@minipage
+    \verbatimsize
+  \else
+    \vskip\baselineskip
+    \vskip-\f@size pt
+    \verbatimsize
+    \vskip-\baselineskip
+    \vskip\f@size pt
+    \vskip\parskip
+  \fi
+  \leftskip\@totalleftmargin
+  \if@minipage \else
+    \advance \leftskip \verbatimleftmargin
+  \fi
+  \rightskip\z@skip
+  \parindent\z@
+  \parfillskip\@flushglue
+  \parskip\z@skip
+  \@@par
+  \@tempswafalse
+  \def\par{%
+    \if@tempswa
+      \leavevmode \null \@@par\penalty\interlinepenalty
+    \else
+      \@tempswatrue
+      \ifhmode\@@par\penalty\interlinepenalty\fi
+    \fi}%
+  \let\do\@makeother \dospecials
+  \obeylines \verbatim@font
+  \noautoxspacing \verbh@@k
+  \@noligs
+  \hyphenchar\font\m@ne
+  \everypar \expandafter{\the\everypar \unpenalty}%
+}
+\endinput
+%%
+%% End of file `okuverb.sty'.