<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">% ^^A -*- japanese-latex -*-
%
\ifx\epTeXinputencoding\undefined\else
  \epTeXinputencoding utf8 % ^^A added (2017-10-04)
\fi
%
% \iffalse
%
%   okumacro.dtx
%   遘∝ｮｶ迚医�繧ｯ繝ｭ髮�
%   okumura@okumuralab.org
%   http://oku.edu.mie-u.ac.jp/~okumura/
%
%&lt;okumacro&gt;\NeedsTeXFormat{pLaTeX2e}
%&lt;okumacro&gt;\ProvidesPackage{okumacro}[2021/07/01 okumura, texjporg]
%&lt;*driver&gt;
\RequirePackage{plautopatch}
\documentclass[dvipdfmx]{jsarticle}
\usepackage{doc}
\xspcode"5C=1 %% \
\xspcode"22=1 %% "
\usepackage{okumacro}
\addtolength{\textwidth}{-1in}
\addtolength{\evensidemargin}{1in}
\addtolength{\oddsidemargin}{1in}
\addtolength{\marginparwidth}{1in}
\setlength\marginparsep{5pt}
\setlength\marginparpush{0pt}
% \OnlyDescription
\CodelineNumbered
\DisableCrossrefs
\setcounter{StandardModuleDepth}{1}
\GetFileInfo{okumacro.sty}
\begin{document}
  \DocInput{okumacro.dtx}
\end{document}
%&lt;/driver&gt;
%
% \fi
%
% \title{遘∝ｮｶ迚医�繧ｯ繝ｭ髮�}
% \author{螂･譚第匐蠖ｦ}
% \date{\filedate}
% \maketitle
%
% \MakeShortVerb{\|}
%
% \section{縺ｯ縺倥ａ縺ｫ}
%
% 縺薙ｌ縺ｯ縲蚕pLaTeXe 鄒取枚譖ｸ菴懈�蜈･髢縲上↑縺ｩ縺ｮ譛ｬ繧剃ｽ懊▲縺溘→縺阪↓菴ｿ縺｣縺溘�繧ｯ繝ｭ繧�
% 髮�ａ縺溘ｂ縺ｮ縺ｧ縺吶ゆｽ懊▲縺溘□縺代〒繝�せ繝医ｂ縺励※縺�↑縺�ｂ縺ｮ縺ｪ縺ｩ繧よｷｷ縺倥▲縺ｦ縺�ｋ
% 蜿ｯ閭ｽ諤ｧ縺後≠繧翫∪縺吶よｦゅ＠縺ｦ莉悶�譁ｹ縺ｫ縺ｯ縺ゅ∪繧雁茜逕ｨ萓｡蛟､縺後↑縺�ｂ縺ｮ縺ｧ縺吶�
%
% [2002-12-19] 縺�ｍ縺�ｍ縺ｪ繧ゅ�縺ｫ蜿朱鹸縺励※縺�◆縺�縺城圀縺ｫ繝ｩ繧､繧ｻ繝ｳ繧ｹ繧呈�遒ｺ縺ｫ縺吶ｋ
% 蠢�ｦ√′逕溘§縺ｦ縺阪∪縺励◆縲ゅい繧ｹ繧ｭ繝ｼ縺ｮ繧ゅ�縺梧怙霑代���modified�隠SD繝ｩ繧､繧ｻ繝ｳ繧ｹ縺ｫ縺ｪ縺｣
% 縺ｦ縺�∪縺吶�縺ｧ�檎ｧ√�繧ゅ�繧ゅ◎繧後↓貅悶§縺ｦ��modified�隠SD縺ｨ縺吶ｋ縺薙→縺ｫ縺励∪縺吶�
%
% [2016-07-30] 蠕捺擂縺ｯ�径scmac竊弛kumacro縺ｮ鬆�↓隱ｭ縺ｿ霎ｼ繧薙□蝣ｴ蜷医↓繧ｨ繝ｩ繝ｼ縺悟�縺ｦ
% 縺�∪縺励◆縺鯉ｼ梧眠縺励＞莉墓ｧ倥〒縺ｯ�径scmac縺ｨokumacro縺ｮ荳｡譁ｹ繧定ｪｭ縺ｿ霎ｼ繧蝣ｴ蜷医↓縺ｯ
% 縲悟ｾ後↓隱ｭ縺ｿ霎ｼ繧薙□縺ｻ縺�阪′蜍昴■縺ｾ縺吶�
% 蜈ｷ菴鍋噪縺ｫ縺ｯ |\keytop|�芸\return|�茎creen迺ｰ蠅�ｼ茎hadebox迺ｰ蠅�′縺ゅｊ縺ｾ縺吶�
%
% \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}
%&lt;*okumacro&gt;
%    \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| 繧貞�繧後∪縺励◆縲�
%
% [2016-08-16] 邵ｦ邨�↓蟇ｾ蠢懊�
%
% [2016-08-16] 縲悟燕縺ｫ |\kanjiskip| 縺悟�繧峨↑縺��
% 縲悟燕蠕後�谺ｧ譁�枚蟄励→縺ｮ髢薙↓ |\xkanjiskip| 縺悟�繧峨↑縺��
% 縲悟ｾ後ｍ縺ｮ遖∝援蜃ｦ逅�′蜉ｹ縺九↑縺�榊撫鬘後ｒ隗｣豎ｺ縺吶ｋ縺溘ａ縺ｫ蜥梧枚繧ｴ繝ｼ繧ｹ繝亥�逅�ｒ霑ｽ蜉�縲�
%
%    \begin{macrocode}
\providecommand{\rubyfamily}{}
\def\kanjistrut{\iftdir
  \vrule \@height0.5zw \@depth0.5zw \@width\z@
\else
  \vrule \@height0.88zw \@depth0.12zw \@width\z@
\fi}
\chardef\okumacro@zsp=\jis"2121\relax
\newcommand{\ruby}[3][0zw]{%
  \okumacro@zsp
  \kern-1zw\relax
  \dimen3=\f@size\p@
  \setbox1=\hbox{#2}%
  \setbox3=\hbox{\rubyfamily\fontsize{0.5\dimen3}{0pt}\selectfont #3}%
  \dimen1=#1\relax
  \ifdim\dimen1=\z@
    \ifdim\wd1&gt;\wd3 \dimen1=\wd1 \else \dimen1=\wd3 \fi
  \else
    \ifdim\dimen1&lt;\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&lt;\wd3
          \hss\unhbox3\hss
        \else
          \hfil\unhbox3\hfil
        \fi
      }%
      \nointerlineskip
      \hbox to \dimen1{\kanjistrut\hfil\unhbox1\hfil}}}%
      \kern-1zw\relax\okumacro@zsp}
%    \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&gt;\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{蝨冗せ}繧呈険繧九さ繝槭Φ繝峨〒縺吶�
%
% [2016-07-30] 繝ｫ繝薙→蝨冗せ縺ｮ鬮倥＆繧貞粋繧上○繧九▽繧ゅｊ縺ｧ縺励◆縺鯉ｼ碁俣驕輔▲縺ｦ
% 荳翫す繝輔ヨ驥上ｒ0.63zw縺ｨ縺励※縺�∪縺励◆縺ｮ縺ｧ�梧ｭ｣縺励＞蛟､0.75zw縺ｫ逶ｴ縺励∪縺励◆縲�
%
% [2017-03-11] 縲悟燕蠕後�谺ｧ譁�枚蟄励→縺ｮ髢薙↓ |\xkanjiskip| 縺悟�繧峨↑縺��
% 縲悟ｾ後ｍ縺ｮ遖∝援蜃ｦ逅�′蜉ｹ縺九↑縺�榊撫鬘後ｒ隗｣豎ｺ縺吶ｋ縺溘ａ縺ｫ蜥梧枚繧ｴ繝ｼ繧ｹ繝亥�逅�ｒ霑ｽ蜉�縲�
%
% [2017-10-04] 繧ゅ→繧ゅ→ |\kenten| 縺ｧ縺ｯ
%\begin{verbatim}
%    \setbox1=\hbox to \z@{繝ｻ\hss}%
%\end{verbatim}
% 縺ｨ縺励※縺�∪縺励◆縺鯉ｼ�2017蟷ｴ9譛医�\pTeX (p3.7.2)縺ｫ蟇ｾ蠢懊☆繧九◆繧�
%\begin{verbatim}
%    \setbox1=\hbox to\z@{\hbox to 1zw{\hss 繝ｻ\hss}\hss}%
%\end{verbatim}
% 縺ｫ螟画峩縺励∪縺励◆縲ゅ％繧後〒�継3.7.1莉･蜑阪�p3.7.2莉･髯阪←縺｡繧峨ｂOK縺ｧ縺吶�
%
%    \begin{macrocode}
\def\kenten#1{%
  \okumacro@zsp
  \kern-1zw\relax
  \setbox1=\hbox to\z@{\hbox to 1zw{\hss 繝ｻ\hss}\hss}%
  \ht1=.63zw
  \@kenten#1\end\relax
  \kern-1zw\relax\okumacro@zsp}
\def\@kenten#1#2{%
  \ifx#1\end \let\next=\relax \else
    \raise.75zw\copy1\nobreak #1\ifx#2\end\else\hskip\kanjiskip\relax\fi
    \let\next=\@kenten
  \fi\next#2}
%    \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&lt;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/|/ |!| |@| |*| |-| |+| |=| |[| |]| |:| |;|
% |"| |`| |'| |&lt;| |&gt;| |?| |,| |.| |/| 縺ｯ縺昴�縺ｾ縺ｾ蜃ｺ縺帙∪縺吶′��
% |!| |?| |.| |:| 縺ｮ蠕後�菴吝�縺ｪ遨ｺ縺阪′蜈･繧翫∪縺吶�
% 縺ｾ縺滂ｼ芸#| |$| |&amp;| |_| |{| |}| 縺ｯ \texttt{\bslash} 縺ｧ騾�￡繧後�菴ｿ縺医∪縺吶′��
% 縺昴≧縺励※繧� |_| |{| |}| 縺ｯ豁｣縺励＞ \texttt{cmtt} 繝輔か繝ｳ繝医↓縺ｪ繧翫∪縺帙ｓ縲�
% 縺輔ｉ縺ｫ�芸~| |^| 縺ｯ \texttt{\bslash} 繧剃ｻ倥￠縺ｦ繧ょｾ檎ｶ壹�譁�ｭ励�繧｢繧ｯ繧ｻ繝ｳ繝�
% 縺ｮ繧医≧縺ｫ縺ｪ縺｣縺ｦ縺励∪縺�∪縺呻ｼ�|\~{}|�芸\^{}| 縺ｮ繧医≧縺ｫ縺吶ｌ縺ｰ菴輔→縺�
% 縺ｪ繧翫∪縺吶′�峨ゅ％縺薙〒螳夂ｾｩ縺吶ｋ |\mytt| 繝槭け繝ｭ繧剃ｽｿ縺医���
% |{| |}| 縺ｯ \texttt{\bslash} 縺ｧ騾�￡繧後�豁｣縺励＞ \texttt{cmtt} 繝輔か繝ｳ繝�
% 縺ｫ縺ｪ繧奇ｼ�
% |#| |&amp;| |_| |~| |^| 縺ｯ \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`\&amp;=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/|/ 縺ｫ蟇ｾ蠢懊☆繧帰SCII譁�ｭ励〒縺吶�
%
%    \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}
%
% [2016-12-04] \pLaTeX 縺ｧ騾壹ｋ繧ｳ繝ｼ繝峨′ \upLaTeX 縺ｧ騾壹ｉ縺ｪ縺上↑繧九％縺ｨ繧帝亟縺舌◆繧√↓�蛍\pLaTeX 縺ｮ蝣ｴ蜷医↓縺ｯU+FF0D�袈+2014縺ｧ螳夂ｾｩ縺励◆繧ゅ�繧ょ挨騾皮畑諢上＠縺ｾ縺励◆縲�
%
%    \begin{macrocode}
\ifnum\jis"2121="3000 % upTeX check
  \begingroup
    \kansujichar1="FF0D
    \kansujichar2="2014
    \expandafter\expandafter\expandafter\gdef
    \expandafter\csname\expandafter\kansuji\expandafter1%
    \expandafter\endcsname\kansuji1{窶表kern-.5zw窶表kern-.5zw窶扶
    \expandafter\expandafter\expandafter\gdef
    \expandafter\csname\expandafter\kansuji\expandafter2%
    \expandafter\endcsname\kansuji2{窶表kern-.5zw窶表kern-.5zw窶扶
  \endgroup
\fi
%    \end{macrocode}
%
% \end{macro}
% \end{macro}
%
%
% \section{繧ｭ繝ｼ繝医ャ繝暦ｼ娯雷謨ｰ蟄抑
%
% \begin{macro}{\removept}
%
% |#1| 縺ｫ荳弱∴縺歸imen繝ｬ繧ｸ繧ｹ繧ｿ縺ｮ 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&gt;\z@.##2\fi}}}
%   \expandafter\endgroup\x
% \def\strip@pt{\expandafter\rem@pt\the}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\keytop}
%
% 縺薙ｌ繧剃ｽｿ縺｣縺ｦ繧ｭ繝ｼ繝医ャ繝苓ｨ伜捷繧剃ｽ懊ｊ縺ｾ縺吶�
%
% [2016-07-30] |\keytop| 縺ｯp\LaTeX 縺ｮascmac繝代ャ繧ｱ繝ｼ繧ｸ(tascmac.sty)縺ｧ繧�
% 螳夂ｾｩ縺輔ｌ縺ｦ縺�∪縺吶′�径scmac縺ｮ螳夂ｾｩ縺ｧ縺ｯ蜻ｨ蝗ｲ縺ｨ蜷後§繝輔ぃ繝溘Μ縺ｮ縺ｾ縺ｾ縺ｫ縺ｪ縺｣縺ｦ縺�※��
% okumacro縺ｧ縺ｯ荳ｭ縺ｮ譁�ｭ励ｒ繧ｵ繝ｳ繧ｻ繝ｪ繝穂ｽ薙↓螟画峩縺励※縺�∪縺吶�
% 荳｡譁ｹ縺ｮ繝代ャ繧ｱ繝ｼ繧ｸ繧定ｪｭ縺ｿ霎ｼ繧蝣ｴ蜷医��悟ｾ後↓隱ｭ縺ｿ霎ｼ繧薙□縺ｻ縺��螳夂ｾｩ縺悟享縺｡縺ｾ縺吶�
% okumacro縺悟享縺､蝣ｴ蜷医↓縺ｯ蟶ｸ縺ｫ繧ｵ繝ｳ繧ｻ繝ｪ繝穂ｽ薙↓螟画峩縺吶ｋ繧ｭ繝ｼ繝医ャ繝苓ｨ伜捷繧貞�蜉帙＠縺ｾ縺吶＠��
% ascmac縺悟享縺､蝣ｴ蜷医�蜻ｨ蝗ｲ縺ｨ蜷後§繝輔ぃ繝溘Μ縺ｫ縺ｪ繧翫∪縺吶�
%
% 縺ｾ縺滂ｼ梧眠縺溘↓ |\okukeytop| 縺ｨ縺�≧蜻ｽ莉､繧定ｿｽ蜉�縺励∪縺吶ゅ％繧後�ascmac縺ｨ蟷ｲ貂峨○縺夲ｼ�
% 蟶ｸ縺ｫ繧ｵ繝ｳ繧ｻ繝ｪ繝穂ｽ薙↓螟画峩縺吶ｋ繧ｭ繝ｼ繝医ャ繝苓ｨ伜捷繧貞�蜉帙〒縺阪∪縺吶�
%
%    \begin{macrocode}
\newcommand{\okukeytop}[1]{{\leavevmode\kern1pt
  \setbox1=\hbox{\normalfont\sffamily [}%
  \dimen1=\ht1
  \removept{\dimen1}{\tempC}%
  \setbox0=\hbox{\normalfont\sffamily #1}%
  \dp0=0pt
  \dimen0=\wd0
  \ifdim\dimen0&lt;\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}}
\expandafter\ifx\csname ver@tascmac.sty\endcsname\relax
  \newcommand{\keytop}{\okukeytop}
\else
  \renewcommand{\keytop}{\okukeytop}
\fi
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\return}
%
% 繝ｪ繧ｿ繝ｼ繝ｳ繧ｭ繝ｼ縺ｮ險伜捷縺ｧ縺吶�
%
% [2016-07-30] |\return| 縺ｯp\LaTeX 縺ｮascmac繝代ャ繧ｱ繝ｼ繧ｸ(tascmac.sty)縺ｧ繧�
% 螳夂ｾｩ縺輔ｌ縺ｦ縺�∪縺吶′�経kumacro縺後Μ繧ｿ繝ｼ繝ｳ縺ｮ繧ｭ繝ｼ繝医ャ繝苓ｨ伜捷繧貞�蜉帙☆繧九�縺ｫ蟇ｾ縺暦ｼ�
% ascmac縺ｧ縺ｯ繝ｪ繧ｿ繝ｼ繝ｳ縺ｮ遏｢蜊ｰ譁�ｭ養\font\ASCGRP=ascgrp \ASCGRP\char"20}縺�縺�
% 繧貞�縺吝多莉､縺ｫ縺ｪ縺｣縺ｦ縺�∪縺吶�
% 荳｡譁ｹ縺ｮ繝代ャ繧ｱ繝ｼ繧ｸ繧定ｪｭ縺ｿ霎ｼ繧蝣ｴ蜷医��悟ｾ後↓隱ｭ縺ｿ霎ｼ繧薙□縺ｻ縺��螳夂ｾｩ縺悟享縺｡縺ｾ縺吶�
% okumacro縺悟享縺､蝣ｴ蜷医↓縺ｯ\okureturn 繧貞�蜉帙＠縺ｾ縺吶＠��
% ascmac縺悟享縺､蝣ｴ蜷医�{\font\ASCGRP=ascgrp \ASCGRP\char"20}繧貞�蜉帙＠縺ｾ縺吶�
%
% 縺ｾ縺滂ｼ梧眠縺溘↓ |\okureturn| 縺ｨ縺�≧蜻ｽ莉､繧定ｿｽ蜉�縺励∪縺吶ゅ％繧後�ascmac縺ｨ蟷ｲ貂峨○縺夲ｼ�
% 蟶ｸ縺ｫ繝ｪ繧ｿ繝ｼ繝ｳ縺ｮ繧ｭ繝ｼ繝医ャ繝苓ｨ伜捷\okureturn 繧貞�蜉帙〒縺阪∪縺吶�
%
%    \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{\okureturn}{\okukeytop{\RETMARK}}
\expandafter\ifx\csname ver@tascmac.sty\endcsname\relax
  \newcommand{\return}{\okureturn}
\else
  \renewcommand{\return}{\okureturn}
\fi
%    \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}{$\m@th\mbox{%
  \lower.5ex\hbox{J}\kern-.05em\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&gt;\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&gt;\z@
%             {\manual 89:;&lt;=&gt;:}% 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}{%
%      &lt;5&gt;&lt;6&gt;&lt;7&gt;&lt;8&gt;logo8%
%      &lt;9&gt;logo9%
%      &lt;10&gt;&lt;10.95&gt;&lt;12&gt;&lt;14.4&gt;&lt;17.28&gt;&lt;20.74&gt;&lt;24.88&gt;logo10}{}
%\DeclareFontShape{U}{logo}{m}{sl}{%
%      &lt;5&gt;&lt;6&gt;&lt;7&gt;&lt;8&gt;&lt;9&gt;logosl9%
%      &lt;10&gt;&lt;10.95&gt;&lt;12&gt;&lt;14.4&gt;&lt;17.28&gt;&lt;20.74&gt;&lt;24.88&gt;logosl10}{}
%\DeclareFontShape{U}{logo}{bx}{n}{%
%      &lt;5&gt;&lt;6&gt;&lt;7&gt;&lt;8&gt;&lt;9&gt;%
%      &lt;10&gt;&lt;10.95&gt;&lt;12&gt;&lt;14.4&gt;&lt;17.28&gt;&lt;20.74&gt;&lt;24.88&gt;logobf10}{}
%\DeclareFontShape{U}{logo}{m}{it}
%  {&lt;-&gt;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} 繝代ャ繧ｱ繝ｼ繧ｸ縺悟ｿ�ｦ√〒縺吶�
% 逕ｻ髱｢蜃ｺ蜉帑ｾ九′繧ｳ繝ｩ繝�蟷�ｒ雜�∴繧句�ｴ蜷医�蟇ｾ蜃ｦ豕輔→縺励※譛牙柑縺九ｂ縺励ｌ縺ｾ縺帙ｓ縲�
% 縺溘□�茎creen迺ｰ蠅��譛蛻昴↓ |[| 縺梧擂繧句�ｴ蜷医�隱､蜍穂ｽ懊＠縺ｾ縺吶�縺ｧ�芸\relax|
% 縺� |{}| 繧貞�繧後※隱､鬲泌喧縺励※縺上□縺輔＞縲�
%
% [2016-07-30] 蜈�↓縺ｪ縺｣縺ｦ縺�ｋp\LaTeX 縺ｮascmac繝代ャ繧ｱ繝ｼ繧ｸ(tascmac.sty)縺ｮ
% screen迺ｰ蠅���後が繝励す繝ｧ繝ｳ蠑墓焚縺ｮ謨ｰ蛟､縺ｧ隗偵�荳ｸ縺ｿ縺ｮ螟ｧ縺阪＆繧呈紛謨ｰ蛟､(0--8)縺ｧ謖�ｮ壹＠
% 縺ｾ縺吶′�経kumacro繝代ャ繧ｱ繝ｼ繧ｸ縺ｧ縺ｯ讓ｪ縺ｮ蛟咲紫繧呈欠螳壹☆繧九→縺�≧驕輔＞縺後≠繧翫∪縺吶�
% 荳｡譁ｹ縺ｮ繝代ャ繧ｱ繝ｼ繧ｸ繧定ｪｭ縺ｿ霎ｼ繧蝣ｴ蜷医��悟ｾ後↓隱ｭ縺ｿ霎ｼ繧薙□縺ｻ縺��螳夂ｾｩ縺悟享縺｡縺ｾ縺吶�
% screen迺ｰ蠅���経kumacro縺悟享縺､蝣ｴ蜷医↓縺ｯ讓ｪ縺ｮ蛟咲紫繧呈欠螳壹〒縺阪ｋ
% 繧ｹ繧ｯ繝ｪ繝ｼ繝ｳ鬚ｨ縺ｮ迺ｰ蠅�↓縺ｪ繧翫∪縺吶＠�径scmac縺悟享縺､蝣ｴ蜷医�隗偵�荳ｸ縺ｿ繧呈欠螳壹〒縺阪ｋ
% 繧ｹ繧ｯ繝ｪ繝ｼ繝ｳ鬚ｨ縺ｮ迺ｰ蠅�↓縺ｪ繧翫∪縺吶�
%
% [2016-10-08] 逕ｻ髱｢蜃ｺ蜉帑ｾ九′繧ｳ繝ｩ繝�蟷�ｒ雜�∴繧句�ｴ蜷医�蟇ｾ蜃ｦ豕輔→縺励※讓ｪ蛟咲紫謖�ｮ壹�
% 繧ｪ繝励す繝ｧ繝ｳ繧定ｿｽ蜉�縺励∪縺励◆縺鯉ｼ悟酔縺俶棧蜀�↓謾ｹ陦悟庄閭ｽ縺ｪ譁�ｫ�繧ょ性縺ｾ繧後ｋ蝣ｴ蜷医↓
% 譫�縺ｮ蜿ｳ遶ｯ縺九ｉ髮｢繧後◆荳崎�辟ｶ縺ｪ菴咲ｽｮ�域ｨｪ蛟咲紫繧堤ｸｮ繧√↑縺��ｴ蜷医↓遶ｯ縺ｫ縺ゅ◆縺｣縺ｦ縺�◆
% 菴咲ｽｮ�峨〒謾ｹ陦後＠縺ｦ縺�∪縺励◆縲ゅ％繧後ｒ菫ｮ豁｣縺励∪縺励◆縲�
%
% 縺ｾ縺滂ｼ梧眠縺溘↓okuscreen迺ｰ蠅�ｒ霑ｽ蜉�縺励∪縺吶ゅ％繧後�ascmac縺ｨ蟷ｲ貂峨○縺夲ｼ悟ｸｸ縺ｫ讓ｪ縺ｮ
% 蛟咲紫繧呈欠螳壹〒縺阪ｋ繧ｹ繧ｯ繝ｪ繝ｼ繝ｳ鬚ｨ縺ｮ迺ｰ蠅�↓縺ｪ繧翫∪縺吶�
%
% [2018-06-11] 2017/10/04迚医∪縺ｧ縺ｯ�梧棧縺ｮ荳ｭ霄ｫ縺ｮ豺ｱ縺輔ｒ閠��縺励※縺�↑縺九▲縺溘�縺ｧ��
% 陦ｨ(tabular)繧�ｷｱ縺輔�縺ゅｋ謨ｰ蠑上ｒ蝗ｲ繧縺ｨ譫�縺九ｉ縺ｯ縺ｿ蜃ｺ縺励※縺�∪縺励◆縲ゅ％縺ｮ蝠城｡後ｒ
% 菫ｮ豁｣縺励∪縺励◆縺鯉ｼ後↑繧九∋縺乗里蟄俶枚譖ｸ縺ｮ繝ｬ繧､繧｢繧ｦ繝医′螟峨ｏ繧峨↑縺�ｈ縺�↓�碁壼ｸｸ縺ｮ
% 繝�く繧ｹ繝医�豺ｱ縺募�縺�縺大ｼ輔＞縺ｦ縺翫″縺ｾ縺励◆��|!| 縺ｨ蜊ｰ繧偵▽縺代◆驛ｨ蛻�ｼ峨�
%
%    \begin{macrocode}
\expandafter\ifx\csname ver@tascmac.sty\endcsname\relax
  \newdimen\@scw
  \newbox\scb@x
\fi
\newenvironment{okuscreen}[1][1]%
 {\def\screensc@le{#1}\@scw=\linewidth \advance \@scw by -20pt
  \dimen1=#1\p@\relax
  \@tempcnta=\dimen1\relax
  \@tempcntb=65536\relax
  \divide\@scw by \@tempcnta
  \multiply\@scw by \@tempcntb
  \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=\dp\scb@x \advance \dimen0 by 5pt
  \advance \dimen0 by -.5\cdp %% !
  \removept{\dimen0}{\hdxPT}%
  \advance \dimen0 by \ht\scb@x \advance \dimen0 by 5pt
  \advance \dimen0 by -.5\cdp %% !
  \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,\hdxPT){\ifdim\screensc@le pt=1pt \box\scb@x
                 \else\scalebox{\screensc@le}[1]{\box\scb@x}\fi}
    \end{picture}%
  \end{flushleft}}
\let\screen\okuscreen \let\endscreen\endokuscreen
%    \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| 縺九ｉ蜿悶ｊ縺ｾ縺励◆縲�
%
% [2016-07-30] 蜈�↓縺ｪ縺｣縺ｦ縺�ｋp\LaTeX 縺ｮascmac繝代ャ繧ｱ繝ｼ繧ｸ(tascmac.sty)縺ｨ
% 陦晉ｪ√＠縺ｪ縺�ｈ縺�↓�梧眠縺励＞莉墓ｧ倥〒縺ｯ�径scmac縺ｨokumacro縺ｮ荳｡譁ｹ繧定ｪｭ縺ｿ霎ｼ繧蝣ｴ蜷医↓縺ｯ
% 縲悟ｾ後↓隱ｭ縺ｿ霎ｼ繧薙□縺ｻ縺�阪′蜍昴■縺ｾ縺吶�
%
% 縺ｾ縺滂ｼ梧眠縺溘↓okushadebox迺ｰ蠅�ｒ霑ｽ蜉�縺励∪縺吶ゅ％繧後�ascmac縺ｨ蟷ｲ貂峨○縺夲ｼ悟ｸｸ縺ｫ
% okumacro豬√�螳夂ｾｩ縺ｫ縺ｪ繧翫∪縺吶�
%
%    \begin{macrocode}
\expandafter\ifx\csname ver@tascmac.sty\endcsname\relax
  \newdimen\shaderule \shaderule 5\p@
\fi
\def\okushadebox{\dimen0\linewidth \advance\dimen0-20\p@ 
  \advance\dimen0-2\fboxrule \advance\dimen0-\shaderule
  \setbox\@tempboxa=\hbox\bgroup\minipage{\dimen0}}
\def\endokushadebox{\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}}
\let\shadebox\okushadebox \let\endshadebox\endokushadebox
%    \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&lt;}}
\def\GEQQ{\mathrel{\mathpalette\gl@align&gt;}}
\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}{\&gt;}
% 蜈ｨ隗偵さ繝ｳ繝槭�逶ｴ蠕後↓蜊願ｧ呈枚蟄励′譚･縺溷�ｴ蜷茨ｼ悟�隗偵さ繝ｳ繝槭�蠕後↓謖ｿ蜈･縺励※��
% 蜊願ｧ堤ｩｺ逋ｽ縺ｨ蜷後§縺�縺代�莨ｸ邵ｮ繧呈戟縺溘○繧九◆繧√�繧ｰ繝ｫ繝ｼ謖ｿ蜈･繧ｳ繝槭Φ繝峨〒縺吶�
% 菴ｿ縺｣縺ｦ縺�∪縺帙ｓ縲�
%    \begin{macrocode}
% \newcommand{\&gt;}{\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}\&lt;�域�ｪ�噂&lt;\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(*)| 迺ｰ蠅��鬘槭□縺代％縺薙〒逶ｴ縺励※縺翫″縺ｾ縺吶�
% 縺薙�縺ゅ◆繧翫�縺ｾ縺溯ｦ狗峩縺励∪縺吶�
%
% [2021-07-01] |okumacro| 縺梧怏繧九→ |xalignat| 荳企Κ縺ｮ繧｢繧ｭ縺悟､ｧ縺阪￥縺ｪ繧狗樟雎｡
% (forum:3029)縺悟�ｱ蜻翫＆繧後∪縺励◆縲�|js*| 繧ｯ繝ｩ繧ｹ縺ｮ縺溘ａ縺ｮ菫ｮ豁｣縺�縺｣縺溘�縺壹〒縺吶′��
% |js*| 繧ｯ繝ｩ繧ｹ繧剃ｽｿ縺｣縺溷�ｴ蜷医〒繧ゅ御ｿｮ豁｣縺励↑縺�婿縺後ヰ繝ｩ繝ｳ繧ｹ縺瑚憶縺�阪→縺�≧謖吝虚
% ^^A 蟆代↑縺上→繧�\TeX\ Live 2014--2021縺ｯ蜷後§謖吝虚縲�
% ^^A https://oku.edu.mie-u.ac.jp/tex/mod/forum/discuss.php?d=3029
% 縺�縺｣縺溘◆繧�ｼ悟炎髯､縺励∪縺励◆縲�
%
%    \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}
%&lt;/okumacro&gt;
\endinput
%    \end{macrocode}
%
% ^^A \endinput 縺ｮ蠕後↓ \CharacterTable 繧呈嶌縺�※縺翫￠縺ｰ�悟ｭ舌ヵ繧｡繧､繝ｫ縺ｫ縺ｯ
% ^^A 蜃ｺ蜉帙＆繧後∪縺帙ｓ縲ゅメ繧ｧ繝�け縺ｯ *.dtx 繧貞�逅�＠縺溘→縺阪↓縺励※縺上ｌ縺ｾ縺吶�
% ^^A [2016-09-03] 竊貞炎髯､縺励∪縺励◆縲�
%
% \Finale
</pre></body></html>