% aemJ_p.sty --- Japanese version of the style file for pLaTex
% Document Style Option `aemJ_p'					~~~~~~~~~~
% Version: Jun 12th, 2000
% Usage:\usepackage{aemJ_p}
% -------------------------------------------------------------------
% This file may be freely distributed.
% A companion sample file that may be used as a Japanese template is: 
% --------------------- <templateJ_p.tex> -----------------------------

% Originally Developed by: V. CINGOSKI
% Original File: aemJ.sty
% Developed for: 
% JSAEM(Japanese Society for Applied Electromagnetic and Mechnics)
% Based on the previous style file `aem11.sty' from <18 Dec 88>.
% Last version: October 30th, 1998.

% Modified for pLaTex by: JSEAM Secretariat
% Last virsion: June 12th, 2000
% Please suggest change to: secretariat@jseam.gr.jp

% *******************************************************
\typeout{Document Style Option `aemJ_p' -- Ver.1.0 -- <12 Jun 2000>}

% Layout definitions:
% -------------------
\textheight 240mm                    % text heigth
\textwidth 170mm                     % text width
\columnsep 8mm                        % column separation (for twocolumn.sty)
\columnseprule 0pt                    % no ruller
\topmargin -5mm                       % top margins
\oddsidemargin -5mm                % odd side margins
\evensidemargin -5mm              % even side margins
\headheight 5mm                       % header size
\headsep 5mm                           % distance between header and paper
\renewcommand{\baselinestretch}{1}      % normal distance between lines
\kanjiskip=-1pt plus 0.5pt minus 0.5pt    % distance between lines in kanji mode

% Numeral definitions:
% --------------------
\def\labelenumi{\theenumi.} 
\def\theenumi{\arabic{enumi}} 
\def\labelenumii{(\theenumii)}
\def\theenumii{\alph{enumii}}
\def\p@enumii{\theenumi}
\def\labelenumiii{\theenumiii.}
\def\theenumiii{\roman{enumiii}}
\def\p@enumiii{\theenumi(\theenumii)}
\def\labelenumiv{\theenumiv.}
\def\theenumiv{\Alph{enumiv}} 
\def\p@enumiv{\p@enumiii\theenumiii}

% Figure and table numbering
% -----------------
\def\fnum@figure{Fig. \thefigure}
\def\fnum@table{Table \thetable}

% Some label items:
% -----------------
\def\labelitemi{$\bullet$}
\def\labelitemii{\bf --}
\def\labelitemiii{$\ast$}
\def\labelitemiv{$\cdot$}

% Definitions of some useful environments:
% ----------------------------------------
% verse --> usage \begin{verse}   text ... \end{verse}
% ----------------------------------------------------
\def\verse{\let\\=\@centercr 
 \list{}{\itemsep\z@ \itemindent -1.5em\listparindent \itemindent 
 \rightmargin\leftmargin\advance\leftmargin 1.5em}\item[]}
\let\endverse\endlist

% quotation --> usage \begin{quotation}  text ... \end{quotation}
% ---------------------------------------------------------------
\def\quotation{\list{}{\listparindent 1.5em
 \itemindent\listparindent
 \rightmargin\leftmargin \parsep 0pt plus 1pt}\item[]}
\let\endquotation=\endlist

% quote --> usage \begin{quote}  text ... \end{quote}
% ---------------------------------------------------
\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
\let\endquote=\endlist

% description --> usage \begin{description}  text ... \end{description}
% ---------------------------------------------------------------------
\def\descriptionlabel#1{\hspace\labelsep \bf #1}
\def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin
 \let\makelabel\descriptionlabel}}
\let\enddescription\endlist

% namelist --> usage \begin{namelist}{width}  text ... \begin{namelist}
% NOTE: width is the text string with desired width. 
% example: \begin{namelist}{Step 1:}
% -------------------------------------------------------------
\newcommand{\namelistlabel}[1]{\mbox{#1}\hfill}
\newenvironment{namelist}[1]{%
\begin{list}{}
{\let\makelabel\namelistlabel
\settowidth{\labelwidth}{#1}
\setlength{\leftmargin}{1.1\labelwidth}}
}{%
\end{list}}

% Definition of equation numberings:
%-----------------------------------
\def\theequation{\arabic{equation}}

%  Define style for the Title-page:
% --------------------------------------------------------------
\def\titlepage{\@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn
 \else \newpage \fi \thispagestyle{empty}\c@page\z@}
\def\endtitlepage{\if@restonecol\twocolumn \else \newpage \fi}

\arraycolsep 5pt \tabcolsep 6pt \arrayrulewidth .4pt \doublerulesep 2pt 
\tabbingsep \labelsep 

\skip\@mpfootins = \skip\footins
\fboxsep = 3pt \fboxrule = .4pt 

\def\@pnumwidth{1.55em}
\def\@tocrmarg {2.55em}
\def\@dotsep{4.5}
\setcounter{tocdepth}{3}

% Table of Contents 
% List of Figures
% List of Tables 
% Index
% All of the above are deleted from this file.
% They are already defined in the main style file: jarticle.sty
%
%    by V/Cingoski -  Feb. 1998, vlatko@eml.hiroshima-u.ac.jp
% ------------------------------------------------------
% The Japanese style Bibliography - new definitions - smaller font!!!!
% -------------------------------------------------------------
\def\thebibliography#1{
\section*{参考文献}
\list{{\small[\arabic{enumi}]}}
         {\settowidth\labelwidth{[#1]}
          \leftmargin\labelwidth
          \advance\leftmargin\labelsep
          \usecounter{enumi}
          \partopsep 0pt
          \parsep 0pt
          \itemsep 0pt
}
 \def\newblock{\hskip .11em plus .33em minus .07em}
 \sloppy
 \clubpenalty 4000
 \widowpenalty 4000
 \sfcode`\.=1000\relax
 \small
 }
\def\endthebibliography{\par\normalsize\endlist}
%  -- end bibliography definitions

%    Set the size and style of the section, subsection and 
%    subsubsection titles
%  ----------------------------------------------------------
\def\section{\@startsection {section}{1}{\z@}{3.5ex plus 1ex minus
 0.2ex}{2.3ex plus 0.2ex}{\normalsize \bf }}
\def\subsection{\@startsection{subsection}{2}{\z@}{3.25ex plus 1ex
 minus 0.2ex}{1.5ex plus .2ex}{\normalsize \it}}
\def\subsubsection{\@startsection{subsubsection}{3}{\z@}{3.25ex plus 
 1ex minus .2ex}{1.5ex plus .2ex}{\normalsize\it}}
%\def\subsubsection#1{\@startsection{subsubsection}{3}
% {\parindent}{0ex}{0ex}{\normalsize \it }{#1:\ }}
\def\footnoterule{\kern-3\p@ 
 \hrule width .4\columnwidth 
 \kern 2.6\p@} 

\long\def\@makefntext#1{\parindent 1em\noindent 
 \hbox to 1.8em{\hss$^{\@thefnmark}$}#1}

\setcounter{topnumber}{2}
\def\topfraction{.7}
\setcounter{bottomnumber}{1}
\def\bottomfraction{.3}
\setcounter{totalnumber}{3}
\def\textfraction{.2}
\def\floatpagefraction{.5}
\setcounter{dbltopnumber}{2}
\def\dbltopfraction{.7}
\def\dblfloatpagefraction{.5}

\long\def\@makecaption#1#2{
 \vskip 10pt 
% \setbox\@tempboxa\hbox{#1: #2}
 \setbox\@tempboxa\hbox{#1　#2}
 \ifdim \wd\@tempboxa >\hsize \unhbox\@tempboxa\par \else \hbox
to\hsize{\hfil\box\@tempboxa\hfil} 
 \fi}

% Figure and Table definitions were taken out 
% They are already defined in jarticle.sty 
%        by V/Cingoski -  Dec. 1997, vlatko@eml.hiroshima-u.ac.jp
% -------------------------------------------------------

% Title Page Definitions:
%  This is not necessary since we are not using the \titlepage command
%  Here provided as a reference only
% --------------------------------------------------------------
\def\maketitle{\par
 \begingroup
 \def\thefootnote{\fnsymbol{footnote}}
 \def\@makefnmark{\hbox 
 to 0pt{$^{\@thefnmark}$\hss}} 
 \if@twocolumn 
 \twocolumn[\@maketitle] 
 \else \newpage
 \global\@topnum\z@ \@maketitle \fi\thispagestyle{plain}\@thanks
 \endgroup
 \setcounter{footnote}{0}
 \let\maketitle\relax
 \let\@maketitle\relax
 \gdef\@thanks{}\gdef\@author{}\gdef\@title{}\let\thanks\relax}
\def\@maketitle{\newpage
 \null
 \vskip 2em \begin{center}
 {\LARGE \@title \par} \vskip 1.5em {\large \lineskip .5em
\begin{tabular}[t]{c}\@author 
 \end{tabular}\par} 
 \vskip 1em {\large \@date} \end{center}
 \par
 \vskip 1.5em} 

% A list of new definitions; Made by V/Cingoski - Feb. 1998
% -----------------  by        vlatko@eml.hiroshima-u.ac.jp
% ------------------------------------------------------
%  Command \head - for definition of the paper's header.
%  This command should be used BY THE EDITOR ONLY.
%  if you are an author - please comment this line.
%  Usage:  \head{volime}{number}{year}
%  Example: for Vol. 6, No. 1 (1998); we write \head{6}{1}{1998}
% --------------------------------------------------------
\newcommand{\head}[3]{%
\markboth{\hspace*{4.5cm}日本AEM学会誌~~~Vol.~#1,~ No.~#2~~(#3)\hspace*{4.5cm}}{\hspace*{4.5cm}日本AEM学会誌~~~Vol.~#1,~ No.~#2~~(#3)\hspace*{4.5cm}}}

% Command \type for definition of the type of the article.
%  This command should ALSO be used BY THE EDITOR ONLY.
%  if you are an author - please comment this line.
%  Usage:    \type{学術論文｝
% -------------------------------------------------------------
\newcommand{\type}[1]{\vspace*{-4mm}\begin{flushleft}\fbox{\Large \bf#1}\end{flushleft}}
%
%                     New paper title definitions:
% --------------------------------------------------
% Japanese title \jt{}
% Usage:    \jt{Place the Japanese title of your paper here}
%-------------------
\newcommand{\jt}[1]{\begin{center}\Large\bf #1\end{center}}%
%
% English title \et{}
% Usage:   \et{Place the English title of your paper here}
%-------------------
\newcommand{\et}[1]{\begin{center}\Large\bf #1\end{center}}%
%
% Authors names:
% ---------------------------------------------------
% Japanese names:
% Usage:   \ja{name}{affilation}{name}{affiliation}
% Note: two authors are going per one line
%---------------------------------------------------
\newcommand{\ja}[4]{\setlength{\topsep}{0mm}%
\setlength{\partopsep}{0mm} \setlength{\parsep}{0mm}%
\begin{tabbing}%
\hspace{10mm} \= \hspace{10mm} \= \hspace{35mm} \=%
\hspace{30mm} \= \hspace{10mm} \= \hspace{30mm} \= \kill%
\> \>#1\>#2\> \>#3\>#4\end{tabbing}}
%
%  English names:
%  Usage:  \ea{name}{member status}
%  Note: one line per author. 
%  Member status can be: Student Memeber or Member
%  For non-members leave the last entry empty like \ea{name}{}
%-----------------------------------------------------
\newcommand{\ea}[2]{\setlength{\topsep}{0mm}%
\setlength{\partopsep}{0mm} \setlength{\parsep}{0mm}%
\begin{tabbing}%
\hspace{55mm} \= \hspace{40mm} \= \kill%
\>#1\>#2\end{tabbing}}%

% Address of the corresponding author:
% Define new command \correspondence{}
% Usage:   \correspondence{Place the entire address of the author here} 
% -------------------------------------------------------------
\def\thefootnote{\empty}
\newcommand{\correspondence}[1]{\footnotetext{{\bf 連絡先:} {\rm #1}}}

% New abstract definition:
% Usage : \begin{abst}  Place the abstract here ... \end{abst}
% ----------------------------------------------------
\def\abst{\normalsize \quotation}
\def\endabst{\endquotation}

% New key words definition:
% Usage: \begin{key} Place the key words here ... \end{key}
% ---------------------------------------------------
\def\key{\normalsize \quotation {\it Key Words:}}
\def\endkey{\endquotation}

\mark{{}{}} 

\if@twoside 
\def\ps@headings{\def\@oddfoot{}\def\@evenfoot{}\def\@evenhead{\rm\thepage\hfil \sl \leftmark}\def\@oddhead{\hbox{}\sl \rightmark \hfil\rm\thepage}\def\sectionmark##1{\markboth {\uppercase{\ifnum \c@secnumdepth
>\z@
 \thesection\hskip 1em\relax \fi ##1}}{}}\def\subsectionmark##1{\markright
{\ifnum \c@secnumdepth >\@ne
 \thesubsection\hskip 1em\relax \fi ##1}}}
\else \def\ps@headings{\def\@oddfoot{}\def\@evenfoot{}\def\@oddhead{\hbox
{}\sl \rightmark \hfil \rm\thepage}\def\sectionmark##1{\markright
{\uppercase{\ifnum \c@secnumdepth >\z@
 \thesection\hskip 1em\relax \fi ##1}}}}
\fi
\def\ps@myheadings{\def\@oddhead{\hbox{}\hspace
{8mm}\small\it\underline\rightmark
\hfil
}\def\@oddfoot{}\def\@evenhead{\hfil\small\bf\leftmark\hbox
{}}\def\@evenfoot{}\def\sectionmark##1{}\def\subsectionmark##1{}}


% Date definitions - not necessary - we don't use \maketitle command
% -------------------------------------------------------------
\newif\if西暦\let\if西暦=\iffalse \def\西暦{\let\if西暦=\iftrue}
\def\today{{\if西暦\count0=\year\else%
\count0=\year\advance\count0 -1988 平成\,\fi%
\ifnum\count0=1 元\else\number\count0\fi\,年\hspace{.5em}\nobreak%
\number\month\,月\hspace{.5em}\nobreak\number\day\,日}}

\ps@plain \pagenumbering{arabic} \onecolumn \if@twoside\else\raggedbottom\fi 


% New definitions for the ROMAN - MATH environment.
% Generated by V. Cingoski - for JSEAM - Feb. 1998
% ---------------- by  vlatko@eml.hiroshima-u.ac.jp
%--------------------------------------------------------------
\newcommand{\mr}{\rm}          %  this is for mathematical roman font
\newcommand{\mi}{\it}           %  this is for mathematical italic font
\newcommand{\mb}{\bf}          %  this is for mathematical bold font
%
% Generation of roman letters in math mode
% Usage:  \rl{letter}
%--------------------------------------
\newcommand{\rl}[1]{{\mr{#1}}}
%
% A small space between numbers and units
% Usage \e{unit}  - NOTE: Unit comes in roman letters.
%--------------------------------------
\newcommand {\e}[1]{\,\rl{#1}}
%
% Differential 'd' in roman
% Usage: \rd
%--------------------------------------
\newcommand{\rd}{{\rl{d}}}
%
% Euler's constant 'e' in roman
% Usage: \re
%--------------------------------------
\newcommand{\re}{{\rl{e}}}
%
% The imaginary unit 'j' in roman
% Usage: \rj
%--------------------------------------
\newcommand{\rj}{{\rl{j}}}
%
% The flux (large) 'phi' sign in italic
% Usage: \iPhi
%--------------------------------------
\newcommand{\iPhi}{{\mi\Phi}}
%
% First order partial derivative
% Usage: \fderiv{A}{x}
%--------------------------------------
\newcommand{\fderiv}[2]{{\frac{\partial\! {#1}}{\partial {#2}}}}
%
% Second order partial derivative
% Usage: \sderiv{A}{x}
%--------------------------------------
\newcommand{\sderiv}[2]{{\frac{\partial^{2}\!\! {#1}}{\partial {#2}^{2}}}}
%
% First order partial derivative (inside the text)
% Usage: \dfderiv{A}{x}
%--------------------------------------
\newcommand{\dfderiv}[2]{\displaystyle{\fderiv{#1}{#2}}}
%
% Second order partial derivative (inside the text)
% Usage: \dsderiv{A}{x}
%--------------------------------------
\newcommand{\dsderiv}[2]{\displaystyle{\sderiv{#1}{#2}}}
%   --- END OF THE LIST OF NEW COMMANDS --------------


% ----- ここ以降江澤改 -----


%% 表中の小数点の位置をあわせる
%% 参考文献：『LATEX スタイル・マクロ』 参照
%% 数字の前に `\dec' を付ける。
%% 有効桁数は \setdec 000.000 によって決定
%% 整数にも`.'を付けること
%%
% DECTAB.STY  (April 27, 1991)
% Allows decimal alignment in tabular environment
% \dec definitions taken from REVTEX.STY
% by Charles Franklin, April 27, 1991
% (C38871CF@WUVMD.WUSTL.EDU or C38871CF@WUVMD.Bitnet)
%
% USAGE:  For decimal alignment in a table, use \dec 3.14 for
%         the cell entry.  The column should be center aligned
%         to achieve the desired effect.
%         For example:
%
%         \begin{tabular}{lcc}
%
%         Constant          & \dec  -1.461    &  \dec  -0.724  \\
%         Standard Error    & \dec  (0.422)   &  \dec  (0.455) \\
%
%         Note that a `.' MUST appear for the alignment to work.
%         Use `\dec 520.' NOT `\dec 520' for integers.
%
%         DECTAB also defines \ra, \la, \ca for easy modification of
%         global alignments. These produce local right, left and center
%         alignments of the cell entry. If there are spaces in the cell
%         entry, enclose the contents in {...}, eg \la {This Column}
%
\typeout{Document Style Option `dectab', version April 27, 1991}

\newdimen\@Ldec \newdimen\@Rdec

\def\dec #1.#2 {\hbox to\@Ldec{\hss#1}\def\test{#2}%
\ifx\test\empty\hbox to\@Rdec{\hfill}\else\hbox to\@Rdec{.#2\hss}\fi
}

\def\setdec #1.#2 {\relax%
  \bgroup
    \setbox0\hbox{\kern1pt\relax#1}\setbox1\hbox{\kern1pt\relax#2}%
    \global\@Ldec\wd0\global\@Rdec\wd1%
  \egroup
}

\setdec 000.000 % default size of 3 digits on each side


%%
%%	3倍の太さの表用罫線
%%
\def\hlinet{\noalign{\ifnum0=`}\fi\hrule \@height 3\arrayrulewidth \futurelet
   \@tempa\@xhline}

\def\Emu{\raisebox{-.6ex}{{\sf l}}\kern-.25em\hbox{u}}% 立体μ(by Ezawa)
\def\Bmu{{ _{\sf l}}\kern-.28em\hbox{u}}% 章題，図題も表示可能の立体μ(by Banno)
\def\Dia{○\hspace{-1em}／}% 直径のφを入力できるようにした。(by Yajima)