%%%
%% pLaTeX2e Class File for the Bulletin of Data Analysis 
%%  of Japanese Classification Society
%%   by ULS & Company (2010-2011), E-mail: teppei@uls.co.jp
\NeedsTeXFormat{pLaTeX2e}
\ProvidesClass{bda}
%% based on [2008/05/07 v1.1-RC06 for jjas.cls]
%%[2010/10/18 v0.1 for Bulletin of Data Analysis]
%%[2010/11/30 v1.0 for データ分析の理論と応用 (Bulletin of Data Analysis)]
%%[2011/02/17 v1.0 for 日本分類学会誌 (Journal of the Japanese Classification Society)]
  [2011/08/12 v1.0 for データ分析の理論と応用 (日本分類学会)]

\newdimen\@JQ
 \@JQ=0.7392507pt
\newdimen\@Q
 \@Q=0.71144pt
\newdimen\@EM
 \@EM=.03125em

\def\bda@warning{\ClassWarningNoLine{bda}}

\newif\if@usejistfm \@usejistfmfalse
\DeclareOption{usejistfm}{\@usejistfmtrue}

\newif\if@english \@englishfalse
\DeclareOption{english}{\@englishtrue}

\newif\if@Proof \@Prooffalse
\DeclareOption{Proof}{\@Prooftrue}
\newif\if@cameraready \@camerareadyfalse
\DeclareOption{cameraready}{\@camerareadytrue}

\newcounter{@paper}
\newcommand{\@ptsize}{}
\newif\if@restonecol
\hour\time \divide\hour by 60\relax
\@tempcnta\hour \multiply\@tempcnta 60\relax
\minute\time \advance\minute-\@tempcnta
\newif\if@stysize \@stysizefalse
\newif\if@enablejfam \@enablejfamtrue
\newif\if@mathrmmc \@mathrmmcfalse
\DeclareOption{b5paper}{\setcounter{@paper}{4}%
  \setlength\paperheight {257mm}
  \setlength\paperwidth  {182mm}}
\DeclareOption{b5j}{\setcounter{@paper}{4}% \@stysizetrue
  \setlength\paperheight {257mm}
  \setlength\paperwidth  {182mm}}
\DeclareOption{10pt}{\renewcommand{\@ptsize}{0}}
\DeclareOption{11pt}{\renewcommand{\@ptsize}{1}}
\DeclareOption{12pt}{\renewcommand{\@ptsize}{2}}
\DeclareOption{tombow}{%
  \tombowtrue \tombowdatetrue
  \setlength{\@tombowwidth}{.1\p@}%
  \@bannertoken{%
     \jobname\space:\space\number\year/\number\month/\number\day
      (\number\hour:\number\minute)}
  \maketombowbox}
\DeclareOption{tombo}{%
  \tombowtrue \tombowdatefalse
  \setlength{\@tombowwidth}{.1\p@}%
  \maketombowbox}
\DeclareOption{mentuke}{%
  \tombowtrue
  \setlength{\@tombowwidth}{\z@}%
  \@bannertoken{}% \@empty
  \maketombowbox}
\DeclareOption{tate}{\AtBeginDocument{\tate\message{《縦組モード》}}}
\DeclareOption{oneside}{\@twosidefalse}
\DeclareOption{twoside}{\@twosidetrue}
\DeclareOption{onecolumn}{\@twocolumnfalse}
\DeclareOption{twocolumn}{\@twocolumntrue}
%%\DeclareOption{leqno}{\input{leqno.clo}}
%%\DeclareOption{fleqn}{\input{fleqn.clo}}
\DeclareOption{openbib}{%
  \AtEndOfPackage{%
   \renewcommand\@openbib@code{%
      \advance\leftmargin\bibindent
      \itemindent -\bibindent
      \listparindent \itemindent
      \parsep \z@
      }%
   \renewcommand\newblock{\par}}}
\DeclareOption{disablejfam}{\@enablejfamfalse}
\DeclareOption{draft}{\setlength\overfullrule{5pt}}
\DeclareOption{final}{\setlength\overfullrule{0pt}}
\ExecuteOptions{b5paper,10pt,twoside,onecolumn,final}
\ProcessOptions\relax

\if@cameraready
 \input bda.fd
\else
\if@usejistfm
\DeclareFontShape{JY1}{mc}{m}{n}{%
  <5>     sfixed * [5.1748] jis %  7Q
  <6>     sfixed * [5.9141] jis %  8Q
  <7>     sfixed * [7.3926] jis % 10Q
  <8>     sfixed * [8.1318] jis % 11Q
  <9>     sfixed * [8.8711] jis % 12Q
  <10>    sfixed * [9.6104] jis % 13Q
  <10.95> sfixed * [11.089] jis % 15Q
  <12>    sfixed * [13.307] jis % 18Q
  <14.4>  sfixed * [14.785] jis % 20Q
  <17.28> sfixed * [17.742] jis % 24Q
  <20.74> sfixed * [20.699] jis % 28Q
  <24.88> sfixed * [23.656] jis % 32Q
  <->                       jis % 
}{}
\DeclareFontShape{JY1}{mc}{bx}{n}{%
  <5>     sfixed * [5.1748] jisg
  <6>     sfixed * [5.9141] jisg
  <7>     sfixed * [7.3926] jisg
  <8>     sfixed * [8.1318] jisg
  <9>     sfixed * [8.8711] jisg
  <10>    sfixed * [9.6104] jisg
  <10.95> sfixed * [11.089] jisg
  <12>    sfixed * [13.307] jisg
  <14.4>  sfixed * [14.785] jisg
  <17.28> sfixed * [17.742] jisg
  <20.74> sfixed * [20.699] jisg
  <24.88> sfixed * [23.656] jisg
  <->                       jisg
}{}
\DeclareFontShape{JY1}{gt}{m}{n}{%
  <5>     sfixed * [5.1748] jisg
  <6>     sfixed * [5.9141] jisg
  <7>     sfixed * [7.3926] jisg
  <8>     sfixed * [8.1318] jisg
  <9>     sfixed * [8.8711] jisg
  <10>    sfixed * [9.6104] jisg
  <10.95> sfixed * [11.089] jisg
  <12>    sfixed * [13.307] jisg
  <14.4>  sfixed * [14.785] jisg
  <17.28> sfixed * [17.742] jisg
  <20.74> sfixed * [20.699] jisg
  <24.88> sfixed * [23.656] jisg
  <->                       jisg
}{}
\DeclareFontShape{JY1}{gt}{bx}{n}{%
  <5>     sfixed * [5.1748] jisg
  <6>     sfixed * [5.9141] jisg
  <7>     sfixed * [7.3926] jisg
  <8>     sfixed * [8.1318] jisg
  <9>     sfixed * [8.8711] jisg
  <10>    sfixed * [9.6104] jisg
  <10.95> sfixed * [11.089] jisg
  <12>    sfixed * [13.307] jisg
  <14.4>  sfixed * [14.785] jisg
  <17.28> sfixed * [17.742] jisg
  <20.74> sfixed * [20.699] jisg
  <24.88> sfixed * [23.656] jisg
  <->                       jisg
}{}
\else
\DeclareFontShape{JY1}{mc}{m}{n}{%
  <5>     sfixed * [5.1748] min5  %  7Q
  <6>     sfixed * [5.9141] min6  %  8Q
  <7>     sfixed * [7.3926] min7  % 10Q
  <8>     sfixed * [8.1318] min8  % 11Q
  <9>     sfixed * [8.8711] min9  % 12Q
  <10>    sfixed * [9.6104] min10 % 13Q
  <10.95> sfixed * [11.089] min10 % 15Q
  <12>    sfixed * [13.307] min10 % 18Q
  <14.4>  sfixed * [14.785] min10 % 20Q
  <17.28> sfixed * [17.742] min10 % 24Q
  <20.74> sfixed * [20.699] min10 % 28Q
  <24.88> sfixed * [23.656] min10 % 32Q
  <->                       min10 % 
}{}
\DeclareFontShape{JY1}{mc}{bx}{n}{%
  <5>     sfixed * [5.1748] goth5
  <6>     sfixed * [5.9141] goth6
  <7>     sfixed * [7.3926] goth7
  <8>     sfixed * [8.1318] goth8
  <9>     sfixed * [8.8711] goth9
  <10>    sfixed * [9.6104] goth10
  <10.95> sfixed * [11.089] goth10
  <12>    sfixed * [13.307] goth10
  <14.4>  sfixed * [14.785] goth10
  <17.28> sfixed * [17.742] goth10
  <20.74> sfixed * [20.699] goth10
  <24.88> sfixed * [23.656] goth10
  <->                       goth10
}{}
\DeclareFontShape{JY1}{gt}{m}{n}{%
  <5>     sfixed * [5.1748] goth5
  <6>     sfixed * [5.9141] goth6
  <7>     sfixed * [7.3926] goth7
  <8>     sfixed * [8.1318] goth8
  <9>     sfixed * [8.8711] goth9
  <10>    sfixed * [9.6104] goth10
  <10.95> sfixed * [11.089] goth10
  <12>    sfixed * [13.307] goth10
  <14.4>  sfixed * [14.785] goth10
  <17.28> sfixed * [17.742] goth10
  <20.74> sfixed * [20.699] goth10
  <24.88> sfixed * [23.656] goth10
  <->                       goth10
}{}
\DeclareFontShape{JY1}{gt}{bx}{n}{%
  <5>     sfixed * [5.1748] goth5
  <6>     sfixed * [5.9141] goth6
  <7>     sfixed * [7.3926] goth7
  <8>     sfixed * [8.1318] goth8
  <9>     sfixed * [8.8711] goth9
  <10>    sfixed * [9.6104] goth10
  <10.95> sfixed * [11.089] goth10
  <12>    sfixed * [13.307] goth10
  <14.4>  sfixed * [14.785] goth10
  <17.28> sfixed * [17.742] goth10
  <20.74> sfixed * [20.699] goth10
  <24.88> sfixed * [23.656] goth10
  <->                       goth10
}{}
\fi
\DeclareFontShape{JY1}{mc}{m}{it}{<->ssub*mc/m/n}{}
\DeclareFontShape{JY1}{mc}{bx}{it}{<->ssub*gt/m/n}{}
\DeclareFontShape{JY1}{gt}{m}{it}{<->ssub*gt/m/n}{}
\DeclareFontShape{JY1}{gt}{bx}{it}{<->ssub*gt/m/n}{}
\DeclareFontShape{JT1}{mc}{m}{it}{<->ssub*mc/m/n}{}
\DeclareFontShape{JT1}{mc}{bx}{it}{<->ssub*gt/m/n}{}
\DeclareFontShape{JT1}{gt}{m}{it}{<->ssub*gt/m/n}{}
\DeclareFontShape{JT1}{gt}{bx}{it}{<->ssub*gt/m/n}{}
\DeclareFontShape{JY1}{mc}{m}{sc}{<->ssub*mc/m/n}{}
\DeclareFontShape{JT1}{mc}{m}{sc}{<->ssub*mc/m/n}{}
\fi

\DeclareFontShape{OT1}{cmr}{m}{n}%
     {%
      <-6>cmr5%
      <6-7>cmr6%
      <7-8>cmr7%
      <8-9>cmr8%
      <9-10>cmr9%
      <10-12>cmr10%
      <12-17>cmr12%
      <17->cmr17%
      }{}
\DeclareFontShape{OT1}{cmr}{m}{sl}%
     {%
      <-9>cmsl8%
      <9-10>cmsl9%
      <10-12>cmsl10%
      <12->cmsl12%
      }{}
\DeclareFontShape{OT1}{cmr}{m}{it}%
     {%
      <-8>cmti7%
      <8-9>cmti8%
      <9-10>cmti9%
      <10-12>cmti10%
      <12->cmti12%
      }{}
\DeclareFontShape{OT1}{cmr}{m}{sc}%
     {%
      <->cmcsc10%
      }{}
\DeclareFontShape{OT1}{cmr}{m}{ui}
     {%
      <->cmu10%
      }{}
\DeclareFontShape{OT1}{cmr}{b}{n}
     {%
      <->cmb10%
      }{}
\DeclareFontShape{OT1}{cmr}{bx}{n}
     {%
      <-6>cmbx5%
      <6-7>cmbx6%
      <7-8>cmbx7%
      <8-9>cmbx8%
      <9-10>cmbx9%
      <10-12>cmbx10%
      <12->cmbx12%
      }{}
\DeclareFontShape{OT1}{cmr}{bx}{sl}
     {%
      <->cmbxsl10%
      }{}
\DeclareFontShape{OT1}{cmr}{bx}{it}
     {%
      <->cmbxti10%
      }{}
\DeclareFontShape{OT1}{cmr}{bx}{ui}
     {%
      <->sub*cmr/m/ui
      }{}
\DeclareFontShape{OT1}{cmss}{bx}{n}
     {%
      <->cmssbx10%
      }{}

\renewcommand{\normalsize}{%
    \@setfontsize\normalsize\@xpt{21H}%
  \abovedisplayskip 10\p@ \@plus2\p@ \@minus5\p@
  \abovedisplayshortskip \z@ \@plus3\p@
  \belowdisplayshortskip 6\p@ \@plus3\p@ \@minus3\p@
   \belowdisplayskip \abovedisplayskip
   \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}{%
  \@setfontsize\small\@ixpt{18H}%
  \abovedisplayskip 8.5\p@ \@plus3\p@ \@minus4\p@
  \abovedisplayshortskip \z@ \@plus2\p@
  \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@
  \def\@listi{\leftmargin\leftmargini
              \topsep 4\p@ \@plus2\p@ \@minus2\p@
              \parsep 2\p@ \@plus\p@ \@minus\p@
              \itemsep \parsep}%
  \belowdisplayskip \abovedisplayskip}

\newcommand{\footnotesize}{%
  \@setfontsize\footnotesize\@viiipt{13H}%
  \abovedisplayskip 6\p@ \@plus2\p@ \@minus4\p@
  \abovedisplayshortskip \z@ \@plus\p@
  \belowdisplayshortskip 3\p@ \@plus\p@ \@minus2\p@
  \def\@listi{\leftmargin\leftmargini
              \topsep 3\p@ \@plus\p@ \@minus\p@
              \parsep 2\p@ \@plus\p@ \@minus\p@
              \itemsep \parsep}%
  \belowdisplayskip \abovedisplayskip}

\newcommand{\scriptsize}{\@setfontsize\scriptsize\@viipt\@viiipt}
\newcommand{\tiny}{\@setfontsize\tiny\@vpt\@vipt}
\newcommand{\large}{\@setfontsize\large\@xiipt{22H}}%% ??
\newcommand{\Large}{\@setfontsize\Large\@xivpt{28H}}% ??
\newcommand{\LARGE}{\@setfontsize\LARGE\@xviipt{25}}
\newcommand{\huge}{\@setfontsize\huge\@xxpt{40H}}% title
\newcommand{\Huge}{\@setfontsize\Huge\@xxvpt{33}}

\headheight 12H %% 11Q
\headsep 5mm
\topskip 1\Cht
\footskip 7mm
\maxdepth .5\topskip
\textwidth 139.75mm %% 13Qx43w
%\@settopoint\textwidth
\textheight 39\Cvs
\advance \textheight \topskip
\advance \textheight .4mm %% limit .34mm
%\@settopoint\textheight
\if@twocolumn
  \setlength\marginparsep{10\p@}
\else
  \setlength\marginparsep{10\p@}
\fi
\setlength\marginparpush{5\p@}

\iftombow
 \topmargin\paperheight
 \advance \topmargin -\textheight
 \advance \topmargin -\headheight
 \advance \topmargin -\headsep
 \advance \topmargin -\footskip
 \divide \topmargin \tw@
 \advance \topmargin -2mm
 \advance \topmargin -1in
 %\@settopoint\topmargin
 \oddsidemargin\paperwidth
 \advance \oddsidemargin -\textwidth
 \divide \oddsidemargin \tw@
 \advance \oddsidemargin -1in
 %\@settopoint\oddsidemargin
 \evensidemargin\oddsidemargin
 %\@settopoint\evensidemargin
\else
 \topmargin\paperheight
 \advance \topmargin -\textheight
 \advance \topmargin -\headheight
 \advance \topmargin -\headsep
 \advance \topmargin -\footskip
 \divide \topmargin \tw@
 \advance \topmargin -2mm
 \advance \topmargin -1in
 %\@settopoint\topmargin
 \oddsidemargin\paperwidth
 \advance \oddsidemargin -\textwidth
 \divide \oddsidemargin \tw@
 \advance \oddsidemargin -1in
 %\@settopoint\oddsidemargin
 \evensidemargin\oddsidemargin
 %\@settopoint\evensidemargin
\fi

\marginparwidth 2in
%\@settopoint\marginparwidth

\footnotesep 2.275mm
\skip\footins .75\Cvs \@plus 4\p@ \@minus 2\p@
\floatsep 1\Cvs \@plus 2\p@ \@minus 2\p@
\textfloatsep 1.5\Cvs \@plus 2\p@ \@minus 4\p@
\intextsep 1.5\Cvs \@plus 2\p@ \@minus 2\p@
\dblfloatsep 1\Cvs \@plus 2\p@ \@minus 2\p@
\dbltextfloatsep 1.5\Cvs \@plus 2\p@ \@minus 4\p@

\@fptop 0\p@ \@plus 1fil
\@fpsep 8\p@ \@plus 2fil
\@fpbot 0\p@ \@plus 1fil
\@dblfptop 0\p@ \@plus 1fil
\@dblfpsep 8\p@ \@plus 2fil
\@dblfpbot 0\p@ \@plus 1fil
\partopsep \z@

\def\@listi{\leftmargin\leftmargini
  \parsep  4\p@ \@plus2\p@ \@minus\p@
  \topsep  8\p@ \@plus2\p@ \@minus4\p@
  \itemsep 4\p@ \@plus2\p@ \@minus\p@}
\let\@listI\@listi
\@listi
\def\@listii{\leftmargin\leftmarginii
   \labelwidth\leftmarginii \advance\labelwidth-\labelsep
   \topsep 4\p@ \@plus2\p@ \@minus\p@
   \parsep 2\p@ \@plus\p@  \@minus\p@
   \itemsep\parsep}
\def\@listiii{\leftmargin\leftmarginiii
   \labelwidth\leftmarginiii \advance\labelwidth-\labelsep
   \topsep    2\p@  \@plus\p@\@minus\p@
   \parsep    \z@
   \partopsep \p@ \@plus\z@ \@minus\p@
   \itemsep\topsep}
\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}

\columnsep 2zw
\columnseprule 0\p@
\lineskip 1\p@ 
\normallineskip 1\p@
\renewcommand{\baselinestretch}{}
\parskip\z@
\parindent1zw

\@lowpenalty   51
\@medpenalty  151
\@highpenalty 301
\setcounter{topnumber}{5}
\setcounter{bottomnumber}{5}
\setcounter{totalnumber}{10}
\setcounter{dbltopnumber}{5}
\renewcommand{\topfraction}{.95}
\renewcommand{\bottomfraction}{.95}
\renewcommand{\textfraction}{.05}
\renewcommand{\floatpagefraction}{.05}
\renewcommand{\dbltopfraction}{.95}
\renewcommand{\dblfloatpagefraction}{.05}

\if@Proof
 \def\@Rtop{\rlap{\smash{\rule[-\headsep]{0.05mm}{10mm}%
  \rule[-\headsep]{10mm}{0.05mm}}}}
 \def\@Ltop{\llap{\smash{\rule[-\headsep]{10mm}{0.05mm}%
  \rule[-\headsep]{0.05mm}{10mm}}}}
 \def\@Rbot{\rlap{\smash{\raisebox{1\footskip}
  {\rule[-10mm]{0.05mm}{10mm}\rule{10mm}{0.05mm}}}}}
 \def\@Lbot{\llap{\smash{\raisebox{1\footskip}
  {\rule{10mm}{0.05mm}\rule[-10mm]{0.05mm}{10mm}}}}}
\else
 \let\@Rtop\relax\let\@Ltop\relax\let\@Rbot\relax\let\@Lbot\relax
\fi

\def\nombre@font{\sffamily\bfseries\fontsize{7.5}{\z@}\selectfont}
\def\header@font{\footnotesize}

\def\ps@empty{%
 \let\ps@jpl@in\ps@plain%
 \def\@oddhead{\@Ltop\hfill\@Rtop}%
 \def\@oddfoot{\@Lbot\hfill\@Rbot}%
 \let\@evenhead\@oddhead
 \let\@evenfoot\@oddfoot
 \let\@mkboth\@gobbletwo
 %\let\chaptermark\@gobble
 %\let\sectionmark\@gobble
 %\let\subsectionmark\@gobble
}
\def\ps@plain{%
 \let\@mkboth\@gobbletwo
 \let\ps@jpl@in\ps@plain
 \def\@oddhead{\@Ltop\hfil\@Rtop}%
 \let\@evenhead\@oddhead
 \def\@oddfoot{\@Lbot\hfil{\nombre@font \thepage}\hfil\@Rbot}%
 \let\@evenfoot\@oddfoot
}
\let\ps@jpl@in\ps@plain

%\def\ps@headnombre{\let\@mkboth\@gobbletwo
%    \let\ps@jpl@in\ps@headnombre
%  \def\@evenhead{\@Ltop\thepage\hfill\@Rtop}%
%  \def\@oddhead{\@Ltop\hfill\thepage\@Rtop}%
%  \def\@oddfoot{\@Lbot\hfill\@Rbot}%
%  \let\@evenfoot\@oddfoot
%}
%\def\ps@footnombre{\let\@mkboth\@gobbletwo
%    \let\ps@jpl@in\ps@footnombre
%  \def\@evenfoot{\@Lbot\thepage\hfill\@Rbot}%
%  \def\@oddfoot{\@Lbot\hfill\thepage\@Rbot}%
%  \def\@oddhead{\@Ltop\hfill\@Rtop}%
%  \let\@evenhead\@oddhead}

%\def\ps@headings{\let\ps@jpl@in\ps@headnombre
%  \def\@oddfoot{\@Lbot\hfill\@Rbot}%
%  \def\@evenfoot{\@Lbot\hfill\@Rbot}%
%  \def\@evenhead{\@Ltop\thepage\hfill\leftmark\@Rtop}%
%  \def\@oddhead{\@Ltop{\rightmark}\hfil\thepage\@Rtop}%
%  \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}}%
%}

\if@english
 \def\oddhead@BDA{Bulletin of Data Analysis 
  of Japanese Classification Society\ }
\else
 \def\oddhead@BDA{データ分析の理論と応用}
\fi

\def\ps@bothstyle{%
 \let\ps@jpl@in\ps@plain
 \def\@evenhead{\@Ltop\hfil
  {\header@font \header@title}\hfil
  \@Rtop}%
 \def\@oddhead{\@Ltop\hfil
  {\header@font \oddhead@BDA Vol.\,\@Vol, No.\,\@No\ (\@Year)}\hfil
  \@Rtop}%
 \def\@oddfoot{\@Lbot\hfil{\nombre@font \thepage}\hfil\@Rbot}%
 \let\@evenfoot\@oddfoot
 \let\@mkboth\markboth
 %\let\sectionmark\@gobble
 %\let\subsectionmark\@gobble
}

\def\ps@myheadings{\let\ps@jpl@in\ps@plain%
 \def\@oddfoot{\@Lbot\hfil{\nombre@font \thepage}\hfil\@Rbot}%
 \let\@evenfoot\@oddfoot
 \def\@oddhead{\@Ltop\hfil
  {\header@font データ分析の理論と応用Vol.\,\@Vol, No.\,\@No\ (\@Year)}\hfil
  \@Rtop}%
 \def\@evenhead{\@Ltop\hfil
  {\header@font \leftmark}\hfil
  \@Rtop}%
 \let\@mkboth\@gobbletwo
 %\let\sectionmark\@gobble
 %\let\subsectionmark\@gobble
}

\def\Year#1{%
 \def\@tempa{#1}%
 \ifx\@tempa\empty
  \gdef\@Year{201x}%
 \else
  \edef\@tempb{\zap@space#1 \@empty}%
  \afterassignment\remove@to@nnil
  \count@ 0\@tempb\relax\@nnil
  \ifnum\count@=\z@
   \xdef\@Year{201x}%
  \else
   \xdef\@Year{\@tempb}%
  \fi
 \fi
}
\def\@Year{201x}

\def\Vol#1{% Vol.1 = Year 2010
 \def\@tempa{#1}%
 \ifx\@tempa\empty
  \gdef\@Vol{xx}%
  %\gdef\@Year{201x}%
 \else
  \edef\@tempb{\zap@space#1 \@empty}%
  \afterassignment\remove@to@nnil
  \count@ 0\@tempb\relax\@nnil
  \ifnum\count@=\z@
   \gdef\@Vol{xx}%
  \else
   %\@tempcnta=#1\relax
   %\advance \@tempcnta 2009\relax
   %\xdef\@Year{\the\@tempcnta}%
   \gdef\@Vol{\zap@space#1 \@empty}%
  \fi
 \fi
}
\def\@Vol{xx}%

\def\No#1{%
 \def\@tempa{#1}%
 \ifx\@tempa\empty
  \gdef\@No{x}%
 \else
  \edef\@tempb{\zap@space#1 \@empty}%
  \afterassignment\remove@to@nnil
  \count@ 0\@tempb\relax\@nnil
  \ifnum\count@=\z@
   \gdef\@No{x}%
  \else
   \gdef\@No{\zap@space#1 \@empty}%
  \fi
 \fi
}
\def\@No{x}%

\def\title{\@dblarg{\d@title}}
\def\d@title[#1]#2{%
 \gdef\header@title{\def\\{\unskip}#1}%
 \gdef\@title{#2}%
}
\def\header@title{}
\def\@title{}

\def\subtitle#1{%
 \gdef\@subtitle{#1}%
}
\def\@subtitle{}

\def\type#1{\def\@tempa{論文}\def\@tempb{#1}%
 \ifx\@tempb\@tempa\gdef\@type{論文}\else\gdef\@type{#1}\fi
 \gdef\@type{#1}}
\def\@type{}
\type{論文}

\newcommand{\maketitle}{\par
 \begingroup
  \newpage
  \global\@topnum\z@
  \@maketitle
  \thispagestyle{plain}%
 \endgroup
 \setcounter{footnote}{0}%
}

\if@cameraready
 \def\title@font{\usekanji{JY1}{mc}{b}{n}\huge}% 28Q
\else
 \def\title@font{\normalfont\huge}% 28Q
\fi
\def\subtitle@font{\large}% 12pt 18Q
\def\affiliate@font{\normalfont\small}
\def\author@font{\normalfont\fontsize{10.95}{\z@}\selectfont}% 15Q
%\def\etitle@font{}
%\def\esubtitle@font{}
%\def\eaffiliate@font{}
%\def\eauthor@font}

\newtoks\@authorlist
\newcount\@authorcnt
\newcount\total@nr

\def\authorlist#1{%
 \if@english\let\authorentry\Eauthorentry\fi
 \@authorlist={#1}\the\@authorlist
}

\def\@checkword#1{\@tempcnta\z@\@getword #1\end}
\def\@getword#1{\ifx#1\end \let\next\relax \else
 \global\advance\@tempcnta \@ne
 \ifnum \@tempcnta=\@ne \gdef\@Getword{#1}\else \fi
 \let\next=\@getword\fi \next}
\def\@Getword{}

\def\authorentry#1#2{\@ifnextchar[% ]
 {\@aeN{#1}{#2}}{\@ae{#1}{#2}}}

\newif\if@oneaffi\@oneaffitrue

\def\fmt@ae#1#2{%
 \advance \@authorcnt \@ne
 %% author's name in Japanese
 \def\@checkname{#1}%
 \setbox\@tempboxa\hbox{\spaceskip 100mm #1}%
 \ifdim \wd\@tempboxa < 100mm
  \bda@warning{Author's name "#1" doesn't have a space}%
  \def\@tempx{#1}%
 \else
  \@checkword{#1}%
  \setbox\@tempboxa\hbox{\@Getword}%
  \ifdim \wd\@tempboxa=1zw
   \setbox\@tempboxb\hbox{#1}%
   \ifdim \wd\@tempboxb > 6.5zw
    \def\@tempx{\spaceskip1zw #1}%
   \else
    \def\@checkbox##1 ##2\@nil{%
     \global\setbox\@tempboxa\hbox{##1}\global\setbox\@tempboxb\hbox{##2}}%
    \edef\@tempcheck{\expandafter\@checkbox\@checkname\@nil}\@tempcheck
     \def\@tempy##1 ##2\@nil{\hbox{%
      \ifdim \wd\@tempboxa < 3zw
       \hbox to 3zw{\kanjiskip 1zw plus 1zw ##1\hss}%
      \else
       \hbox to 3zw{##1\hss}%
      \fi
     \hskip 1zw
      \ifdim \wd\@tempboxb < 3zw
       \hbox to 3zw{\hss\kanjiskip 1zw plus 1zw ##2}%
      \else
       \hbox to 3zw{\hss ##2}%
      \fi
     }}%
    \edef\@tempx{\expandafter\@tempy\@checkname\@nil}%
   \fi
  \else
   \def\@tempx{#1}%
  \fi
 \fi
 %% \LastPageinEnglish の著者所属が1か所の場合 上付き数字なしのため
 %% 所属が複数あるかどうかここで判定
 \ifx\@hold@affi\empty
  \hold@affi{#2}%
 \else
  \def\another@affi{#2}%
  \ifx\@hold@affi\another@affi\else
   \global\@oneaffifalse
  \fi
 \fi
 %%
}

\def\hold@affi#1{\gdef\@hold@affi{#1}}%
\def\@hold@affi{}

%% 現在の所属なしの著者
\def\@ae#1#2{%
 \fmt@ae{#1}{#2}%
  \expandafter\protected@xdef
  \csname @Jauthorname\number\@authorcnt\endcsname{%
   \noexpand\affiliate@font #2
    & \noexpand\author@font\@tempx\\}%
 \global\total@nr\@authorcnt
}

%% 現在の所属ありの著者
\newcount\ae@n@cnt
\def\@aeN#1#2[#3]{%
 \fmt@ae{#1}{#2}%
 \advance \ae@n@cnt \@ne
  \expandafter\protected@xdef
  \csname @Jauthorname\number\@authorcnt\endcsname{%
   \noexpand\affiliate@font #2\unskip\inhibitglue
     \rlap{$^\@fnsymbol{\the\ae@n@cnt}$}
    & \noexpand\author@font\@tempx\\}%
  \bgroup
   \renewcommand{\thefootnote}{\fnsymbol{footnote}}%
   \protect\footnotetext[\the\ae@n@cnt]{#3}%
  \egroup
 \global\total@nr\@authorcnt
}

\def\@tempname{}

\def\@outputJauthorlist{%
 \loop
  \ifnum \@authorcnt<\total@nr
   \advance \@authorcnt \@ne
   \protected@xdef\@tempname{\@tempname
    \csname @Jauthorname\number\@authorcnt\endcsname
   }%
 \repeat
 \@tempname
}

\def\@maketitle{%
 \@authorcnt\z@
 \setbox\@tempboxa\hbox{%
  \begin{minipage}{\textwidth}
   {\footnotesize\bfseries データ分析の理論と応用\hskip1zw
     \raise.35mm\hbox{\footnotesize Vol.\,\@Vol, No.\,\@No\ (\@Year), 
      \@ifundefined{r@bda@last@page}{}{%
       \edef\get@firstpage{\expandafter\@secondoftwo\r@bda@first@page}%
       \edef\get@lastpage{\expandafter\@secondoftwo\r@bda@last@page}%
      }%
      \ifx\get@firstpage\get@lastpage
       \pageref{bda@first@page}%
      \else
       \pageref{bda@first@page}--\pageref{bda@last@page}%
      \fi
     }%
   }\hfill
    \ifx\@type\empty
     \fboxrule\z@\fboxsep1.15mm
    \else
     \fboxrule.12mm\fboxsep1.15mm
    \fi
    \fbox{\small\bfseries
     \rule{0mm}{2.75mm}%
     \setbox0\hbox{\@type}%
     \hskip.25mm
     \ifdim \wd0<4.5zw
      \kintou{5zw}{\@type}%
     \else
      \@type
     \fi
     \hskip.25mm
    }\par
   \nointerlineskip
   \vskip11mm % 実寸 12mm
   \centering
   {\title@font \inhibitglue\@title\inhibitglue\par}%
   \ifx\@subtitle\empty\else
    \vskip4mm
    {\subtitle@font \ddash\inhibitglue\@subtitle\inhibitglue\ddash\par}%
    \nointerlineskip
   \fi
   \nointerlineskip
   \vskip6mm % 実寸 8mm
   \hfill
   %% 
   {\def\arraystretch{1.43}% 30H送りに
    \tabcolsep\z@
    \if@english
     \expandafter\@temptokena\expandafter{\@outputEauthorlist}%
    \else
     \expandafter\@temptokena\expandafter{\@outputJauthorlist}%
    \fi
    \begin{tabular}{r@{\hskip15H}l}
     \the\@temptokena
     \if@english\else
      \noalign{\vskip -\arraystretch\dp\strutbox}%
     \fi
    \end{tabular}\par
   }%
   \nointerlineskip
   \vskip10mm   % 実寸 10mm
   \ifvoid\@abstractbox\else
    \leavevmode\box\@abstractbox\par
   \fi
   \ifvoid\@keywordsbox\else
    \vskip.5\Cvs
    \leavevmode\box\@keywordsbox
   \fi
  \end{minipage}%
 }%
 %%
 \@tempdima \ht\@tempboxa
 \advance \@tempdima \dp\@tempboxa
 \divide \@tempdima \Cvs
 \@tempcnta=\@tempdima
 \advance \@tempcnta \@ne
 %%
 \newpage\null
 \boxmaxdepth\z@
 \lineskiplimit\z@
 \lineskip\z@
 \vbox to \@tempcnta\Cvs{%
  \vskip-2.5mm
  \box\@tempboxa
  \vss
 }%
 \nobreak
}

\newbox\@abstractbox
\def\abstract{%
 \global\setbox\@abstractbox\hbox\bgroup
  \small
  \begin{minipage}{37zw}
   \parindent1zw
   \noindent
   {\bfseries \abstractname}\hskip1zw
   \ignorespaces
}
\def\endabstract{%
   \inhibitglue
  \end{minipage}%
 \egroup
}

\newbox\@keywordsbox
\def\keywords{%
 \global\setbox\@keywordsbox\hbox\bgroup
  \small
  \begin{minipage}{37zw}
   \parindent1zw
   \noindent
   {\bfseries \keywordname}%
   \ignorespaces
}
\def\endkeywords{%
   \inhibitglue
  \end{minipage}%
 \egroup
}

\def\LastPageinEnglish{%
 \clearpage
 \title{}%
 \subtitle{}%
 \total@nr\z@
 \setcounter{figure}{0}%
 \setcounter{table}{0}%
 \setcounter{equation}{0}%
 \thispagestyle{plain}%
 \let\authorentry\Eauthorentry
 \global\let\@maketitle\@makeEtitle
 \@authorcnt\z@
 %%
 \def\abstract{%
    \normalsize \baselineskip18H
    \parindent1zw
    \noindent
    \hfil{\bfseries Abstract}\par
    \vskip.5\baselineskip
    \ignorespaces
 }%
 \def\endabstract{\par}%
 \def\keywords{%
  \setbox0\hbox{M}%
  \@tempdima \ht0
  \advance \@tempdima \dp0
  \@tempdimb\baselineskip
  \advance \@tempdimb -\@tempdima
  \vskip\@tempdimb
  \vskip.5\baselineskip
  \nointerlineskip
  \raggedright
  \normalsize \baselineskip18H
  \noindent
  \@hangfrom{\bfseries Key words:\ }%
  \ignorespaces
 }%
 \def\endkeywords{\onelineskip}
 %%
 \let\refereed\output@Erefereed
 \let\CorrespondingAuthor\E@CorrespondingAuthor
}

\def\@makeEtitle{%
 %%
 \def\@fnsymbol##1{\ensuremath{\ifcase##1\or
   1\or 2\or 3\or 4\or 5\or 6\or *\or **\or ***\else\@ctrerr\fi}}%
 \@authorcnt\z@
 %%
 \newpage\null
 \boxmaxdepth\z@
 \lineskiplimit\z@
 \lineskip\z@
 \vbox{\parindent\z@
  \vskip-2.5mm
%  \if@english
%   {\footnotesize\bfseries
%    Bulletin of Data Analysis of Japanese Classification Society\hskip1zw
%     \raise.35mm\hbox{\footnotesize Vol.\,\@Vol, No.\,\@No\ (\@Year), 
%      \pageref{bda@first@page}--\pageref{bda@last@page}%
%     }%
%   }\hfill
%    \ifx\@type\empty
%     \fboxrule\z@\fboxsep1.15mm
%    \else
%     \fboxrule.12mm\fboxsep1.15mm
%    \fi
%    \fbox{\small\bfseries
%     \rule{0mm}{2.75mm}%
%     \setbox0\hbox{\@type}%
%     \hskip.25mm
%     \ifdim \wd0<4.5zw
%      \kintou{5zw}{\@type}%
%     \else
%      \@type
%     \fi
%     \hskip.25mm
%    }\par
%   \nointerlineskip
%   \vskip11mm % 実寸 12mm
%  \else
   {\small
    Bulletin of Data Analysis of Japanese Classification Society\ 
    \@Vol\ (\@No)\ (\@Year), 
    \pageref{bda@first@page}--\pageref{bda@last@page}%
   }\par
   \vskip4mm
%  \fi
   \centering
   {\Large\bfseries \@title\par}%
   \ifx\@subtitle\empty\else
    \vskip3mm
    {\subtitle@font \ddash\@subtitle\ddash\par}%
    \nointerlineskip
   \fi
   \nointerlineskip
   \vskip5mm
   %% 
   {\large\bfseries\centering
    \@outputEauthorlist\par
   }%
   \nointerlineskip
   \vskip5mm
   {\small \baselineskip16H
    \centering
    \@affiliate\par
   }%
  \vss
 }%
 \nobreak
 \vskip7mm
}

\newcount\@alcnt

\def\Eauthorentry{\@ifstar{\p@Eauthorentry}{\@Eauthorentry}}

\def\@Eauthorentry#1#2{%
 \@tempcnta\z@
 \advance \@authorcnt \@ne
 \get@al{#2}%
 \fmt@an{#1}%
 \expandafter\protected@xdef\csname @authorname\number\@authorcnt\endcsname{%
  \@authorname\if@oneaffi\else\unskip\plural@affi{#2}\fi}%
 \global\total@nr=\@authorcnt
}

\newif\if@p@Eae \@p@Eaefalse

\def\p@Eauthorentry#1#2{%
 \global\@p@Eaetrue
 \@tempcnta\z@
 \advance \@authorcnt \@ne
 \get@al{#2}%
 \fmt@an{#1}%
 \expandafter\protected@xdef\csname @authorname\number\@authorcnt\endcsname{%
  \@authorname
  \if@oneaffi
   \unskip${}^{*}$%
  \else
   \unskip\plural@affi{#2}\hskip-.1ex${}^{,*}$%
  \fi}%
 \global\total@nr=\@authorcnt
}

\def\get@al#1{%
 \@for\get@label:=#1\do{%
  \@ifundefined{al@\get@label}%
   {\def\@noaffi{none}\def\@tempaffi{#1}%
    \ifx\@noaffi\@tempaffi\else
     \global\advance \@alcnt \@ne\fi
    \expandafter\xdef\csname al@\get@label\endcsname{\the\@alcnt}%
    \advance \@tempcnta \@ne
    \expandafter\xdef\csname al@\romannumeral\@tempcnta\endcsname{%
     \get@label}%
   }%
   {\advance \@tempcnta \@ne
    \expandafter\xdef\csname al@\romannumeral\@tempcnta\endcsname{%
     \get@label}%
   }%
 }%
}

\def\fmt@an#1{%
 \@temptokena{#1}%
 \setbox\@tempboxa\hbox{\spaceskip=100mm #1}%
 \ifdim \wd\@tempboxa < 100mm
  \bda@warning{a space should be added between 1st and 2nd name: "#1"}%
 \else
  \def\name@form##1 ##2\@nil{\gdef\@tempan{##1 ##2}}% \uppercase{##2}
  \expandafter\name@form\the\@temptokena\@nil
  \expandafter\@temptokena\expandafter{\@tempan}%
 \fi
 \def\@authorname{\the\@temptokena}%
}

\def\plural@affi#1{%
 \@ifundefined{al@#1}
  {\expandafter\ifnum\expandafter\csname al@\al@i\endcsname\expandafter %%<
     >\csname al@\al@ii\endcsname
    $^{\csname al@\al@ii\endcsname,}$%
    $^{\csname al@\al@i\endcsname}$%
   \else
    $^{\csname al@\al@i\endcsname,}$%
    $^{\csname al@\al@ii\endcsname}$%
   \fi
  }%
   {\expandafter\ifnum\csname al@#1\endcsname=\z@\else
    $^{\csname al@#1\endcsname}$\fi}%
}

%\def\plural@p@affi#1#2{%
% \@ifundefined{al@#1}% --> LabelA,LabelB,..
%  {%
%   \if@oneaffi\else
%    \expandafter\ifnum\expandafter\csname al@\al@i\endcsname\expandafter %%<
%      >\csname al@\al@ii\endcsname
%     $^{\csname al@\al@ii\endcsname,}$%
%     $^{\csname al@\al@i\endcsname,}$%
%    \else
%     $^{\csname al@\al@i\endcsname,}$%
%     $^{\csname al@\al@ii\endcsname,}$%
%    \fi
%   \fi
%   \ifnum\total@nr=\@ne\else %% pr10
%    $^{\noexpand\@fnsymbol{\csname p@al@#2\endcsname}}$%
%   \fi
%  }%
%  {%
%   \if@oneaffi
%   \else %% pr10
%    $^{\csname al@#1\endcsname,}$% ==> vol33no3/2.tex
%   \fi
%   \ifnum\total@nr=\@ne
%   \else %% pr10
%    $^{\noexpand\@fnsymbol{\csname p@al@#2\endcsname}}$%
%   \fi
%  }% 
%}

\newcount\chk@al@cnt

\def\affiliate[#1]#2{%
 \advance \chk@al@cnt \@ne
 \@ifundefined{al@#1}{%
  \expandafter\def\csname al@#1\endcsname{1}%
  \bda@warning{Check the "#1" label, it does not correspond to
    ^^J\space\space any labels in \string\authorentry\space command}%
 }{}%
  \protected@xdef\@affiliate{\@affiliate
   \if@oneaffi\else
   $^{\csname al@#1\endcsname}$\ \fi
   #2\endgraf}%
}
\def\@affiliate{}

\newcount\totalnumberm@ne

\def\breakauthorline#1{%
 \@for\@breakauthor:=#1\do{%
  \expandafter\gdef\csname @breakauthorline\@breakauthor\endcsname{\\}%
 }%
  \@authorcnt=\z@
  \loop\ifnum\@authorcnt<\total@nr
   \advance \@authorcnt \@ne
    \@ifundefined{@breakauthorline\number\@authorcnt}%
     {\expandafter\gdef\csname @breakauthorline\number\@authorcnt\endcsname{%
      \relax}}
     {\relax}%
  \repeat
}

\def\@outputEauthorlist{%
  \@authorcnt\z@
  \totalnumberm@ne\total@nr \advance \totalnumberm@ne -\@ne
  \loop\ifnum\@authorcnt<\total@nr
   \advance \@authorcnt \@ne 
    \ifnum\@authorcnt < \totalnumberm@ne
     \mbox{\csname @authorname\number\@authorcnt\endcsname
     }\nobreak,
     \csname @breakauthorline\number\@authorcnt\endcsname
    \else
     \ifnum\@authorcnt=\total@nr
      \mbox{\csname @authorname\number\@authorcnt\endcsname
      }
      \csname @breakauthorline\number\@authorcnt\endcsname
     \else
      \ifnum\total@nr=\tw@
       \mbox{\csname @authorname\number\@authorcnt\endcsname
       }%
       \csname @breakauthorline\number\@authorcnt\endcsname
       \allowbreak\mbox{\bfseries \ and\ }\nobreak 
      \else
       \mbox{\csname @authorname\number\@authorcnt\endcsname
       }%
       \csname @breakauthorline\number\@authorcnt\endcsname
       \allowbreak\mbox{\bfseries\ and\ }\nobreak 
      \fi
     \fi
    \fi
  \repeat
}

\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{\thesubsection}{\thesection.\@arabic\c@subsection}
\renewcommand{\thesubsubsection}{%
   \thesubsection.\@arabic\c@subsubsection}
\renewcommand{\theparagraph}{%
   \thesubsubsection.\@arabic\c@paragraph}
\renewcommand{\thesubparagraph}{%
   \theparagraph.\@arabic\c@subparagraph}

\def\@afterheading{%
 \global\@nobreaktrue
 \everypar{%
  \if@nobreak
   \global\@nobreakfalse
   \clubpenalty \z@
    \if@afterindent
    \else
     {\setbox\z@=\lastbox}%
    \fi
  \else
   \clubpenalty\@clubpenalty
   \everypar{}%
  \fi}%
}

\def\@startsection#1#2#3#4#5#6{%
 \if@noskipsec \leavevmode \fi
 \par \@tempskipa #4\relax
 \@afterindenttrue
 \ifdim \@tempskipa <\z@ \@tempskipa -\@tempskipa \@afterindentfalse\fi
  \if@nobreak
   \everypar{}%
  \else
   %\addpenalty\@secpenalty
     \ifnum#2=\@ne  %% 2(pagetop=1)/*/1 or 1.5(pagetop=0.5)/*/0.5
      \vskip-\prevdepth \prevdepth\z@ \vskip\Cvs
      \advance\@tempskipa-\Cvs
      \advance\@tempskipa-\Cvs
      \vspace{\Cvs}
      \vspace*{\@tempskipa}
     \else
      \ifnum#2=\tw@  %% 1/*/1 or 0.5/*/0.5
       \vskip-\prevdepth \prevdepth\z@ \vskip\Cvs
       \advance\@tempskipa-\Cvs
       \vspace*{\@tempskipa}
      \else
       \ifnum#2=\thr@@ %% 1(pagetop=0)/*/0 same as 1st case
        \vskip-\prevdepth \prevdepth\z@ \vskip\Cvs
        \advance\@tempskipa-\Cvs
        \advance\@tempskipa-\Cvs
        \vspace{\Cvs}
        \vspace*{\@tempskipa}
       \else
        \ifnum#2=4\relax
         \addvspace\@tempskipa
        \else %% subpara -> ??
         \vskip-\prevdepth \prevdepth\z@ \vskip\Cvs
         \advance\@tempskipa-\Cvs
         \vspace*{\@tempskipa}
        \fi
       \fi
      \fi
     \fi
  \fi
 \@ifstar{\@ssect{#3}{#4}{#5}{#6}}{\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}

%% \@sect{NAME}{LEVEL}{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}[ARG1]{ARG2}
%% \ifdim \@tempskipa>\z@ --> \ifdim \@tempskipa<\z@
\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 \sec@format{#2}{#8}}%
   }%
  \else
   \begingroup
    #6{%
     \@hangfrom{\hskip #3\relax{\secnum@font \@svsec}}%
      \interlinepenalty\@M\sec@format{#2}{#8}\@@par
      }%
   \endgroup
  \fi
  \@xsect{#5}%
}

\newif\ifjidori \jidoritrue %%!! type が「コメント」のときは 字どりしない
\def\sec@format#1#2{%
 \ifjidori
  \setbox\@tempboxa\hbox{\inhibitglue #2\inhibitglue}%
  \ifnum#1=\@ne %% 5字どり
   \ifdim\wd\@tempboxa<5.5zw
    \kintou{5zw}{\inhibitglue #2\inhibitglue}%
   \else
    \inhibitglue #2\inhibitglue
   \fi
  \else         %% 3字どり
   \ifdim\wd\@tempboxa<3.5zw
    \kintou{3zw}{\inhibitglue #2\inhibitglue}%
   \else
    \inhibitglue #2\inhibitglue
   \fi
  \fi
 \else
  \inhibitglue #2\inhibitglue
 \fi
}

%% \@ssect{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}{ARG} ==
%% \ifdim \@tempskipa>\z@ --> \ifdim \@tempskipa<\z@
\def\@ssect#1#2#3#4#5{%
  \@tempskipa #3\relax
  \ifdim \@tempskipa<\z@
   \def\@svsechd{#4{\hskip #1\relax\inhibitglue #5\inhibitglue}}%
  \else
   \begingroup
    #4{%
     \@hangfrom{\hskip #1}%
      \interlinepenalty\@M\ssec@format{#2}{#5}\@@par
      }%
   \endgroup
  \fi
  \@xsect{#3}%
}

\def\ssec@format#1#2{%
 \ifjidori
  \setbox\@tempboxa\hbox{\inhibitglue #2\inhibitglue}%
  \@tempskipa #1\relax
  \ifdim\@tempskipa>\Cvs %% 5字どり
   \ifdim\wd\@tempboxa<5.5zw
    \kintou{5zw}{\inhibitglue #2\inhibitglue}%
   \else
    \inhibitglue #2\inhibitglue
   \fi
  \else                  %% 3字どり
   \ifdim\wd\@tempboxa<3.5zw
    \kintou{3zw}{\inhibitglue #2\inhibitglue}%
   \else
    \inhibitglue #2\inhibitglue
   \fi
  \fi
 \else
  \inhibitglue #2\inhibitglue
 \fi
}

%% \ifdim \@tempskipa>\z@ --> \ifdim \@tempskipa<\z@
\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
        \pagebreak[2]%
      \else
        \clubpenalty \@clubpenalty
        \everypar{}%
      \fi}%
  \else
    \par \nobreak
    \vskip \@tempskipa
    \@afterheading
  \fi
  \ignorespaces}

\def\@seccntformat#1{\csname the#1\endcsname.\hskip1zw}
\def\secnum@font{\sffamily}
\def\sec@font{\bfseries\fontsize{14\@JQ}{\Cvs}\selectfont\mathversion{bold}}
\def\subsec@font{\bfseries\normalsize\mathversion{bold}}
\def\subsubsec@font{\bfseries\small\baselineskip\Cvs\mathversion{bold}}

\newcommand{\section}{% }{
 \@startsection{section}{1}{\z@}%
 {1.4\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
 {0.6\Cvs \@plus.3\Cdp \@minus.2\Cdp}%
 {\reset@font\sec@font}}% \Large\bfseries
\newcommand{\subsection}{% }{
 \@startsection{subsection}{2}{\z@}%
 {.7\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
 {.3\Cvs \@plus.3\Cdp \@minus.2\Cdp}%
 {\reset@font\subsec@font}}% \large\bfseries
\newcommand{\subsubsection}{% }{
 \@startsection{subsubsection}{3}{\z@}%
 {\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
 {\z@ \@plus.3\Cdp \@minus.1\Cdp}%
 {\reset@font\subsubsec@font}}% \normalsize\bfseries
\newcommand{\paragraph}{% }{
 \@startsection{paragraph}{4}{\z@}%
 {.5\Cvs \@plus.3\Cdp \@minus.2\Cdp}%
 {-1zw}%
 {\reset@font\normalsize\bfseries}}
\newcommand{\subparagraph}{% }{
 \@startsection{subparagraph}{5}{\z@}%
 {.5\Cvs \@plus.3\Cdp \@minus.2\Cdp}%
 {-1zw}%
 {\reset@font\normalsize\bfseries}}

\newcommand{\appendix}{\par
 \jidorifalse
 \section*{\appendixname}
 \jidoritrue
 %%
 \setcounter{figure}{0}%
 \setcounter{table}{0}%
 \setcounter{equation}{0}%
 \setcounter{section}{0}%
 \setcounter{subsection}{0}%
 \renewcommand{\thesection}{\@Alph\c@section}%
 \renewcommand{\thesubsection}{\thesection.\the\c@subsection}%
 \renewcommand{\theequation}{\@Alph\c@section.\@arabic\c@equation}%
 \renewcommand{\thefigure}{\@Alph\c@section.\@arabic\c@figure}%
 \renewcommand{\thetable}{\@Alph\c@section.\@arabic\c@table}%
}

\if@twocolumn
 \setlength\leftmargini {2zw}% 2em
\else
 \setlength\leftmargini {2zw}% 2.5em
\fi
\setlength\leftmarginii  {2zw}% 2.2em
\setlength\leftmarginiii {2zw}% 1.87em
\setlength\leftmarginiv  {2zw}% 1.7em
\if@twocolumn
 \setlength\leftmarginv {1zw}% .5em
 \setlength\leftmarginvi{1zw}% .5em
\else
 \setlength\leftmarginv {1zw}% 1em
 \setlength\leftmarginvi{1zw}% 1em
\fi
\setlength  \labelsep  {1zw}% .5em
\setlength  \labelwidth{\leftmargini}
\addtolength\labelwidth{-\labelsep}
\@beginparpenalty \z@ %-\@lowpenalty
\@endparpenalty   \z@ %-\@lowpenalty
\@itempenalty     \z@ %-\@lowpenalty

\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}{(\theenumii)}
\newcommand{\labelenumiii}{\theenumiii.}
\newcommand{\labelenumiv}{\theenumiv.}
\renewcommand{\p@enumii}{\theenumi}
\renewcommand{\p@enumiii}{\theenumi(\theenumii)}
\renewcommand{\p@enumiv}{\p@enumiii\theenumiii}

\renewenvironment{enumerate}
  {\ifnum \@enumdepth >3\relax\@toodeep\else
   \advance\@enumdepth\@ne
   \edef\@enumctr{enum\romannumeral\the\@enumdepth}%
   \list{\csname label\@enumctr\endcsname}{%
         \ifnum \@listdepth=\@ne \topsep.5\normalbaselineskip
           \else\topsep\z@\fi
         \parskip\z@ \itemsep\z@ \parsep\z@
         \labelwidth1zw \labelsep.5zw
         \ifnum \@enumdepth=\@ne \leftmargin1zw\relax
           \else\leftmargin\leftskip\fi
         \advance\leftmargin 1zw
         \usecounter{\@enumctr}%
         \def\makelabel##1{\hss\llap{##1}}}%
   \fi}{\endlist}

\newcommand{\labelitemi}{\leavevmode
 \if@english\textbullet\else
  \raise.05zh\hbox to 1zw{\hss \textbullet\hss}\fi}
\newcommand{\labelitemii}{\leavevmode
 \if@english $\circ$\else
  \raise.05zh\hbox to 1zw{\hss $\circ$\hss}\fi}
\newcommand{\labelitemiii}{\leavevmode
 \if@english\textasteriskcentered\else
  \raise.05zh\hbox to 1zw{\hss \textasteriskcentered\hss}\fi}
\newcommand{\labelitemiv}{\leavevmode
 \if@english\textperiodcentered\else
  \hbox to 1zw{\hss ・\hss}\fi}

\renewenvironment{itemize}
  {\ifnum \@itemdepth >3\relax\@toodeep\else
   \advance\@itemdepth\@ne
   \edef\@itemitem{labelitem\romannumeral\the\@itemdepth}%
   \expandafter
   \list{\csname \@itemitem\endcsname}{%
       \ifnum \@listdepth=\@ne
        \topsep.5\normalbaselineskip
       \else
        \topsep\z@
       \fi
       \parsep\z@\partopsep\z@\itemsep\z@
       \labelwidth1zw
       \labelsep\z@
       \leftmargin1zw
       \def\makelabel##1{\hss\llap{##1}}}%
   \fi}{\endlist}

\newenvironment{description}
  {\list{}{%
%%   \labelwidth\z@ \itemindent-\leftmargin
%%   \iftdir
%%     \leftmargin\leftskip \advance\leftmargin3\Cwd
%%     \rightmargin\rightskip
%%     \labelsep=1zw \itemsep\z@
%%     \listparindent\z@ \topskip\z@ \parskip\z@ \partopsep\z@
%%   \fi
   \leftmargin=1zw
   \labelwidth=\leftmargin
   \labelsep=1zw
   \listparindent1zw
   \advance \labelwidth by -\labelsep
   \itemsep\z@\topsep\z@\parsep\z@\partopsep\z@
   \let\makelabel\descriptionlabel
  }}{\endlist}
\newcommand{\descriptionlabel}[1]{%
%%   \hspace\labelsep\normalfont\bfseries #1
  \setbox0=\hbox{\normalfont\bfseries #1}%
  \dimen0=\wd0  \dimen1=1zw
  \divide \dimen0 by \dimen1
  \multiply \dimen0 by \dimen1
  \ifdim \dimen0<\wd0 \advance \dimen0 by \dimen1 \fi
  \hbox to \dimen0{\box0 \hfil}\hfil
}

\newenvironment{verse}
  {\let\\\@centercr
   \list{}{\itemsep\z@
           \topsep.5\Cvs\parsep\z@\partopsep\z@
           \itemindent -1zw
           \listparindent\itemindent
           \rightmargin\leftmargin \advance\leftmargin 1zw}%
           \item\relax}{\endlist}

\newenvironment{quotation}
  {\list{}{\listparindent 1zw
           \itemindent\listparindent
           \rightmargin\leftmargin
           \topsep.5\Cvs\parsep\z@\partopsep\z@
           }%
           \item\relax}{\endlist}

\newenvironment{quote}
  {\list{}{%
           \topsep.5\Cvs\parsep\z@\partopsep\z@
           \rightmargin\leftmargin}%
           \item\relax}{\endlist}

\gdef\tabbing{\lineskip \z@skip\let\>\@rtab\let\<\@ltab\let\=\@settab
     \let\+\@tabplus\let\-\@tabminus\let\`\@tabrj\let\'\@tablab
     \let\\=\@tabcr
     \@hightab\@firsttab
     \global\@nxttabmar\@firsttab
     \dimen\@firsttab\@totalleftmargin
     \global\@tabpush\z@ \global\@rjfieldfalse
     \topsep.5\Cvs\parsep\z@\partopsep\z@
     \trivlist \item\relax
     \if@minipage\else\vskip\parskip\fi
     \setbox\@tabfbox\hbox{%
       \rlap{\hskip\@totalleftmargin\indent\the\everypar}}%
     \def\@itemfudge{\box\@tabfbox}%
     \@startline\ignorespaces}

\newdimen\verbatimleftmargin
  \verbatimleftmargin\z@
\newdimen\verbatimbaselineskip
  \verbatimbaselineskip\baselineskip
\def\verbatimsize{\normalsize}

\def\@verbatim{%
 \topsep\z@ %.5\Cvs
 \partopsep\z@\parsep\z@\itemsep\z@
 \trivlist \item\relax
  \if@minipage\else
   \vskip\baselineskip
   \vskip-\verbatimbaselineskip
   %\vskip\parskip
  \fi
  \leftskip\@totalleftmargin
  \if@minipage\else
   \advance \leftskip by \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 
   \verbatimsize \baselineskip\verbatimbaselineskip
   \verbatim@font\@noligs
  \everypar \expandafter{\the\everypar \unpenalty}%
}
\def\verbatim@font{\normalfont\ttfamily}

%% from latex.ltx
\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\z@ % \@M --> \z@ 
    \else
      \clubpenalty \@clubpenalty
      \everypar{}%
    \fi}%
  \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\inhibitglue
}

\newcounter{figure}
\renewcommand{\thefigure}{\@arabic\c@figure}
\def\fps@figure{tbp}
\def\ftype@figure{1}
\def\ext@figure{lof}
\def\fnum@figure{\figurename~\thefigure.}
\newenvironment{figure}
               {\floatenv\capwidth\hsize
                \abovecaptionskip3pt\belowcaptionskip\z@\@float{figure}}
               {\end@float}
\newenvironment{figure*}
               {\floatenv\capwidth\hsize
                \abovecaptionskip3pt\belowcaptionskip\z@\@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~\thetable.}
\newenvironment{table}
               {\floatenv\capwidth\hsize
                \abovecaptionskip\z@\belowcaptionskip3pt\@float{table}}
               {\end@float}
\newenvironment{table*}
               {\floatenv\capwidth\hsize
                \abovecaptionskip\z@\belowcaptionskip3pt\@dblfloat{table}}
               {\end@dblfloat}

\def\@floatboxreset {%
        \reset@font
        \footnotesize\tabcolsep.5zw
        \@setminipage
}

\def\floatenv{\let\center\Center\def\arraystretch{1.3}}

\def\Center{\topsep\z@\partopsep\z@\parsep\z@\itemsep\z@
 \trivlist \centering\item\relax}
\def\endCenter{\endtrivlist}

\long\def\@caption#1[#2]#3{\par
 %\addcontentsline{\csname ext@#1\endcsname}{#1}%
 % {\protect\numberline{\csname the#1\endcsname}{\ignorespaces #2}}%
 \begingroup
  \@parboxrestore
  \if@minipage
   \@setminipage
  \fi
  \footnotesize\baselineskip13H\captionfont
  \@makecaption{\csname fnum@#1\endcsname}{\ignorespaces #3}\par
 \endgroup}

\newdimen\capwidth
\newdimen\abovecaptionskip
\newdimen\belowcaptionskip
\newbox\@tempboxb

\def\captionfont{\footnotesize\bfseries\mathversion{bold}}
\def\capnumfont{\footnotesize\sffamily\gtfamily}

\long\def\@makecaption#1#2{%
 \vskip\abovecaptionskip
 \setbox\@tempboxa\hbox{{\capnumfont #1}\hskip1zw\mbox{}}%
 \setbox\@tempboxb\hbox{\shortstack[l]{\inhibitglue #2\inhibitglue}}%
 \@tempdimb\wd\@tempboxb
 \@tempdima\wd\@tempboxa
 \ifdim \@tempdimb=\z@
  \hbox to \hsize{\capnumfont\hss #1\hss}\par
 \else
  \advance\@tempdima \@tempdimb % <
   \ifdim \@tempdima > \capwidth
    \hfil
    \begin{minipage}[t]{\capwidth}%
     \hangindent=\wd\@tempboxa
     \leavevmode\box\@tempboxa\kern0mm\inhibitglue #2\inhibitglue
    \end{minipage}\par
    \hrule height \z@
   \else
    \hbox to\hsize{\hss\box\@tempboxa
     \parbox[t]{\@tempdimb}{\inhibitglue #2\inhibitglue}\hss}\par
     \hrule height \z@
   \fi
 \fi
 \vspace{\belowcaptionskip}%
}

\arraycolsep 5\p@
\tabcolsep .5zw
\arrayrulewidth .12mm
\doublerulesep 2\p@
\tabbingsep \labelsep

\skip\@mpfootins = \skip\footins
\if@english
 \setlength\fboxsep{3\p@}
 \setlength\fboxrule{.4\p@}
\else
 \setlength\fboxsep{.25zw}
 \setlength\fboxrule{.12mm}
\fi

\renewcommand{\theequation}{\@arabic\c@equation}
\def\@eqnnum{{\normalfont \normalcolor (\theequation)\hskip1zw\mbox{}}}

\if@enablejfam
  \if@compatibility\else
    \DeclareSymbolFont{mincho}{JY1}{mc}{m}{n}
    \DeclareSymbolFontAlphabet{\mathmc}{mincho}
    \SetSymbolFont{mincho}{bold}{JY1}{gt}{m}{n}
    \jfam\symmincho
    \DeclareMathAlphabet{\mathgt}{JY1}{gt}{m}{n}
  \fi
  \if@mathrmmc
    \AtBeginDocument{%
    \reDeclareMathAlphabet{\mathrm}{\mathrm}{\mathmc}
    \reDeclareMathAlphabet{\mathbf}{\mathbf}{\mathgt}
  }%
  \fi
\else
  \DeclareRobustCommand{\mathmc}{%
    \@latex@error{Command \noexpand\mathmc invalid with\space
       `disablejfam' class option.}\@eha
  }
  \DeclareRobustCommand{\mathgt}{%
    \@latex@error{Command \noexpand\mathgt invalid with\space
       `disablejfam' class option.}\@eha
  }
\fi

\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}

\newdimen\bibindent
\setlength\bibindent{1.5em}
\newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}

\newenvironment{thebibliography}[1]
 {%
   \onelineskip
   \if@english
    \subsection*{\refname}%
   \else
    \subsection*{\kintou{7zw}{\refname}}%
   \fi
    %\let\bibitem\@gobble
    \def\bibitem##1{\leavevmode\ignorespaces}%
    \footnotesize\baselineskip15H
    \parindent\z@
    \everypar{\hangindent2zw}%
    \sloppy
    \clubpenalty4000
    \@clubpenalty\clubpenalty
    \widowpenalty4000\relax
    \sfcode`\.\@m
 }{\par}

\renewcommand{\footnoterule}{%
  \kern-3\p@
  \hrule width 82.5mm % 11Qx30w
  \kern 2.6\p@}

%\@addtoreset{footnote}{page}

\def\@makefnmark{\hbox{\@textsuperscript{\normalfont\tiny\@thefnmark}}}

\newcommand\@makefntext[1]{%
 \parindent 2zw
 \everypar{\hangindent1zw}%
 \noindent
 \hbox to 1zw{\@makefnmark\hss}#1}

%\def\thefootnote{\fnsymbol{footnote}}
\def\@fnsymbol#1{\ensuremath{\ifcase#1\or *\or \dagger\or \ddagger\or
   \mathchar "278\or \mathchar "27B\or \|\or **\or \dagger\dagger
   \or \ddagger\ddagger \else\@ctrerr\fi}}

%% センタリングの eqnarray
\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\hskip .8\arraycolsep \hfil${##}$\hfil %% \tw@
      &\global\@eqcnt\tw@ \hskip .8\arraycolsep                 %% 
         $\displaystyle{##}$\hfil\tabskip\@centering
      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
         \tabskip\z@skip
      \cr
}
%\def\endeqnarray{%
%      \@@eqncr
%      \egroup
%      \global\advance\c@equation\m@ne
%   $$\@ignoretrue
%}

\def\@begintheorem#1#2{%
 \topsep.5\Cvs
 \parsep\z@\partopsep\z@\itemsep\z@ \labelsep1zw
 \trivlist
   \item[\hskip \labelsep{\bfseries #1\ #2}]}% \itshape
\def\@opargbegintheorem#1#2#3{%
 \topsep.5\Cvs
 \parsep\z@\partopsep\z@\itemsep\z@ \labelsep1zw
 \trivlist
   \item[\hskip \labelsep{\bfseries #1\ #2（#3）\inhibitglue}]}% \itshape
\def\@endtheorem{\endtrivlist}

%\newif\if西暦 \西暦false
%\def\西暦{\西暦true}
%\def\和暦{\西暦false}
%\def\today{{%
%  \iftdir
%    \if西暦
%      \kansuji\number\year 年
%      \kansuji\number\month 月
%      \kansuji\number\day 日
%    \else \@tempcnta\year
%      \advance\@tempcnta-1988 平成
%      \ifnum \@tempcnta =1 元\else\kansuji\number\@tempcnta\fi 年
%      \kansuji\number\month 月\kansuji\number\day 日
%    \fi
%  \else
%    \if西暦
%      \number\year\, 年\hspace{.5em}\nobreak
%      \number\month\, 月\hspace{.5em}\nobreak
%      \number\day\, 日
%    \else \@tempcnta\year
%      \advance\@tempcnta-1988 平成
%      \ifnum \@tempcnta =1 元\else\number\@tempcnta\fi
%        \, 年\hspace{.5em}\nobreak
%      \number\month\, 月\hspace{.5em}\nobreak\number\day\, 日
%    \fi
%  \fi}}

\if@english
 \newcommand{\refname}{References}
 \newcommand{\figurename}{Figure}
 \newcommand{\tablename}{Table}
 \newcommand{\appendixname}{Appendix}
 \newcommand{\abstractname}{Abstract}
 \newcommand{\keywordname}{Key words:\ }
\else
 \newcommand{\refname}{参考文献}
 \newcommand{\figurename}{図}
 \newcommand{\tablename}{表}
 \newcommand{\appendixname}{付\hskip2zw 録}
 \newcommand{\abstractname}{要\hskip1zw 旨}
 \newcommand{\keywordname}{キーワード：}
\fi

\def\acknowledgment{%
 \if@english
  \onelineskip
  \noindent
  {\bfseries Acknowledgment}\par
 \else
  \onelineskip
  \noindent
  {\bfseries 謝\hskip1zw 辞}\hskip1zw
 \fi
}
\def\endacknowledgment{\par}

\def\received#1#2#3{%
 %% J
 \gdef\j@received{#1年#2月#3日受付}%
 \gdef\rec@YY{#1}%
 %% E
 \def\@temp@m{#2}\ifx\@temp@m\empty\def\@temp@m{0}\fi
 \def\rec@month{%
  \ifcase\@temp@m xxx\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}%
 \gdef\e@received{Received \rec@month\space #3, #1}%
}
\def\revised#1#2#3{%
 %% J
 \gdef\j@revised{\hskip1zw
  \ifnum\rec@YY=#1\relax\else #1年\fi
   #2月#3日最終修正}%
 \gdef\rev@YY{#1}%
 %% E
 \def\rev@month{\def\@temp@m{#2}\ifx\@temp@m\empty\def\@temp@m{0}\fi
  \ifcase\@temp@m xxx\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}%
 \gdef\e@revised{Received in final form \rev@month\space #3, #1}%
}
\def\accepted#1#2#3{%
 %% J
 \gdef\j@accepted{\hskip1zw
  \ifnum\rev@YY=\z@ % 0 のとき(revisedなしのとき)は received の年と比較する
   \ifnum\rec@YY=#1\relax\else #1年\fi
  \else
   \ifnum\rev@YY=#1\relax\else #1年\fi
  \fi
   #2月#3日採択}%
 %% E
 \def\acc@month{\def\@temp@m{#2}\ifx \@temp@m\empty\def\@temp@m{0}\fi
  \ifcase\@temp@m xxx\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}%
 \gdef\e@accepted{Accepted \acc@month\space #3, #1}%
}

\def\output@Jrefereed{\par
 \ifx \j@received\empty
 \else
  \onelineskip
  \noindent\hfill
  {\footnotesize
   \inhibitglue （\j@received\j@revised\j@accepted ）\inhibitglue}\par
 \fi
 \let\j@received\relax
 \let\j@revised\relax
 \let\j@accepted\relax
}

\def\output@Erefereed{%
 \ifx\e@received\empty\else
  \vskip\Cvs
  {\small
   \parindent\z@
   %\raggedleft
   \ifx\e@received\empty\let\after@rec\relax\else
    \e@received\fi
   \ifx\e@revised\empty\else
    \after@rec
    \e@revised\fi
   \ifx\e@accepted\empty.\else
    \after@rev
    \e@accepted.\fi
   \par
  }%
  \let\e@received\relax
  \let\e@revised\relax
  \let\e@accepted\relax
 \fi
}%

\def\j@received{}
\def\j@revised{}
\def\j@accepted{}
\def\rec@YY{0}
\def\rev@YY{0}
\let\refereed\output@Jrefereed

\def\e@received{}
\def\e@revised{}
\def\e@accepted{}
\def\after@rec{;\ }%
\def\after@rev{;\ }%

\def\CorrespondingAuthor#1{\par
 \onelineskip
 \bgroup
  \footnotesize
  \hfill
  著者連絡先\hbox to 1zw{\hss ：\hss}%
  \begin{tabular}[t]{@{}l@{}}
   \@for\@getinfo:=#1\do{%
    \ignorespaces\@getinfo\\
   }%
   \\[-4mm]
  \end{tabular}\par
  \vskip\Cvs
 \egroup
}

\def\E@CorrespondingAuthor#1{\par
 \bgroup
  \parindent\z@
  \ifnum\total@nr=\@ne\else
   \if@p@Eae $^{\ast}$\fi
   Corresponding author\par
  \fi
  %%
  \@tempcnta\z@
  \@for\@getinfo:=#1\do{%
   \advance \@tempcnta \@ne
  }%
  \ifnum\@tempcnta>\@ne
   E-mail addresses:\ 
  \else
   E-mail address:\ 
  \fi
  \begin{tabular}[t]{@{}l@{}}
   \@for\@getinfo:=#1\do{%
    \ignorespaces\@getinfo\\
   }%
   \\[-4mm]
  \end{tabular}\par
 \egroup
}

%% <small macros>
\def\onelineskip{\par\vspace{1\baselineskip}\par}
\def\halflineskip{\par\vspace{.5\baselineskip}\par}
\def\RN#1{\uppercase\expandafter{\romannumeral#1}}
\def\ddash{\penalty10000\leavevmode
 \if@english\else\raise.1zh\fi\hbox to 2zw{\,---\hss ---\,}}
\def\SA{\leavevmode
 \if@english\else\raise.05zh\fi\hbox to 1zw{\hss $\bullet$\hss}}
\def\kintou#1#2{%
 \leavevmode\hbox to #1{%
  \kanjiskip=0pt plus 1fill minus 1fill\xkanjiskip=\kanjiskip#2\hfil}}
\def\ruby#1#2{\leavevmode \setbox0=\hbox{#1}\setbox1=\hbox{\tiny #2}%
 \ifdim\wd0>\wd1 \dimen0=\wd0 \else \dimen0=\wd1 \fi
 \hbox{\kanjiskip=\fill
  \vbox{\hbox to \dimen0{\tiny \hfil#2\hfil}%
  \nointerlineskip \hbox to \dimen0{\hfil#1\hfil}}}}
\def\QED{{\unskip\nobreak\hfil\penalty50
 \hskip1zw\hbox{}\nobreak\hfil \hbox{$\Box$\hskip1zw}
 \parfillskip\z@ \finalhyphendemerits\z@\par}}
\def\MARU#1{\raisebox{0.1zh}%
 {{\normalfont\ooalign{\hfil\lower.168ex\hbox{#1}\hfil\crcr\mathhexbox20D}}}}
%% </small macros>

\postbreakpenalty`（=10000
\prebreakpenalty`）=10000
\postbreakpenalty`［=10000
\prebreakpenalty`］=10000
\postbreakpenalty`〈=10000
\prebreakpenalty`〉=10000
\prebreakpenalty`"=10000
\prebreakpenalty`℃=10000
\prebreakpenalty`　=10000
\prebreakpenalty`・=10000
\prebreakpenalty`〜=10000
\prebreakpenalty`ー=10000
\prebreakpenalty`？=10000
\prebreakpenalty`！=10000
\postbreakpenalty"5C=10000
\postbreakpenalty`【=10000
\prebreakpenalty`】=10000
\postbreakpenalty`〔=10000
\prebreakpenalty`〕=10000
\postbreakpenalty`『=10000
\prebreakpenalty`』=10000

\def\sloppy{\tolerance9999\hbadness9999\hfuzz.5\p@ \vfuzz.5\p@}

\hbadness4000
%\vbadness10001
\tolerance4000\pretolerance\m@ne
\clubpenalty\z@
\widowpenalty\z@

\AtBeginDocument{%
 \label{bda@first@page}%
 %%
 \displaywidowpenalty\z@
 \interdisplaylinepenalty\z@ % 100 
 \predisplaypenalty\z@       % 1000
 \postdisplaypenalty\z@      % 1000
 %% cmex
 \@ifundefined{cmex@opt}{%
  \DeclareFontFamily{OMX}{cmex}{}{}%
  \DeclareFontShape{OMX}{cmex}{m}{n}{%
   <->    cmex10
  }{}%
 }{%
  \ifnum\cmex@opt=7\relax
   \DeclareFontFamily{OMX}{cmex}{}{}%
   \DeclareFontShape{OMX}{cmex}{m}{n}{%
    <->    cmex10
   }{}%
  \fi
 }%
 %% ams
 \@ifundefined{maketag@@@}{}{%
   %% /usr/local/teTeX/share/texmf/tex/latex/amsmath/amsmath.sty, v2.13
   \multlinegap2zw
   \def\maketag@@@#1{\hbox{\m@th\normalfont #1}\hskip1zw}% v2.13
   \renewcommand{\eqref}[1]{\textup{\tagform@{\ref{#1}}\unskip}}%
 }%
 %% here.sty
 \@ifundefined{@HHfloat}{}{%
  \def\@HHfloat#1[H]{%
   \expandafter\let\csname end#1\endcsname\end@Hfloat
   \vskip\intextsep
   \vbox\bgroup\def\@captype{#1}\parindent\z@
   \@floatboxreset %% added
   \ignorespaces}%
  \def\end@Hfloat{\egroup\vskip-1zh %% added
   \vskip \intextsep}%
 }%
}

\newif\if@addwhitepage \@addwhitepagefalse
\def\addwhitepage{%
 %\label{bda@last@page}%
 \clearpage
 \addtocounter{page}{-1}%
 \immediate\write\@auxout{\string
  \newlabel{bda@last@page}{{}{\thepage}}}%
 \addtocounter{page}{1}%
 \clearpage
 \thispagestyle{empty}
 \mbox{}\par
 \global\@addwhitepagetrue
}

\AtEndDocument{%
 \if@addwhitepage\else
  %\label{bda@last@page}%
  \clearpage
  \addtocounter{page}{-1}%
  \immediate\write\@auxout{\string
   \newlabel{bda@last@page}{{}{\thepage}}}%
  \addtocounter{page}{1}%
 \fi
}

\pagestyle{bothstyle}
\pagenumbering{arabic}
\raggedbottom
\if@twocolumn
 \twocolumn
 %\sloppy
 \flushbottom
\else
 \onecolumn
\fi
\if@twoside
 \@mparswitchtrue
\else
 \@mparswitchfalse
\fi

\endinput