% jjasmac.sty --- 応用統計学会・論文誌スタイル出力のためのマクロ
%
% $Id: jjasmac.sty,v 1.5 2005/03/14 08:58:33 tunenori Exp tunenori $
%
% Copyright 1993,1997 by Ricoh Company, Ltd.
%
% 本ソフトウエアを使用, 複製, 修正, 配布することは, 以下の条件を満たす限
% り自由に行なうことができます。
% ・本著作権表示がすべての複製物に含まれていること
% ・本著作権表示が附属の文書に表示されていること
% ・(株)リコーの社名が配布に関連する文書に表示されたり, 宣伝に事前の文書
% 　による許可なしに用いられないこと
%
% Permission to use, copy, modify and distrubute this software and its
% documentation without fee for any purpose is hereby granted, provided
% that the above copyright notice appear in all copies and that both the
% copyright notice and this permission notice appere in supporting
% documentation, and the name of Ricoh not be used in advertising or
% publicity pertaining to distribution of the software without specific,
% written prior permission.
%
% (株)リコーは本ソフトウェアに関するいかなる保証もいたしません。本ソフトウ
% エアを使用することにより発生したいかなる障害/データの消滅/不利益に対して
% 責を負いません。
%
% RICOH DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
% ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT
% SHALL RICOH BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
% DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
% PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
% TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
% PERFORMANCE OF THIS SOFTWARE.
%
% 使用例
%
% latex ユーザはこちらを使う
% \documentstyle[jjasmac]{jarticle}	
% latex2e  ユーザはこちらを使う
% \documentclass{jarticle}
% \usepackage{jjasmac}
% \usepackage{bm}
% ここまで
%
% \class{統計計算}
% \jtitle{ポリ・ガンマ関数のC言語，および\\Fortran77言語による算譜}
% \title{Polygamma Functions Subroutine Programmed\\ in C and Fortran77}
% \jauthor{{\small 株式会社リコー ソフトウェア事業部} 石岡 恒憲}
% \author{{\rm Tsunenori}~{\sc Ishioka}}
% \keywords{gamma function, incomplete gamma function ratio,
%	numerical analysis, free software}
% \jaddress{
%	〒112 東京都文京区小石川1-1-17 とみん日生春日町ビル7F\\
%	株式会社リコー システムソリューション事業部 ソフトウェア研究所\\
%	TEL 03-3815-7261 E-mail tunenori@src.ricoh.co.jp}
%
% \begin{document}
% \maketitle
% \begin{abstract} ... \end{abstract}
% \section{はじめに}
% ...
%	\cite{NAMEi}
% \section{おわりに}
% ...
% \begin{acknowledge} ... \end{acknowledge}
% \begin{thebibliography}{}
% \bibitem[LABELi]{NAMEi}
% \end{thebibliography}
% \makejaddress
% \end{document}



%\makeatletter
% 
% page layout
%
\textwidth=43em		%% 43 kanji-characters for line
\oddsidemargin=0em	%% no side-margin
\parindent=1em		%% one kanji-character for paragraph indentation
\renewcommand{\@afterindentfalse}{}	%% indentation for first paragraph 

%
% latex.tex
%
\def\class#1{\gdef\@class{#1}}
\def\jtitle#1{\gdef\@jtitle{#1}}
\def\title#1{\gdef\@title{#1}}

\def\jauthor#1{\gdef\@jauthor{#1}}
\def\author#1{\gdef\@author{#1}}

\def\jaffil#1{\gdef\@jaffil{#1}}
\def\jaddress#1{\gdef\@jaddress{#1}}
\def\ackowledge#1{\gdef\@ackowledge{#1}}

\def\keywords#1{\begingroup
\def\protect{\noexpand\protect\noexpand}\xdef\@keywords{\@keywords
  \protect\footnotetext[\the\c@footnote]{\hspace*{-1.5em}{\bf Key words:~}{#1}}}\endgroup}

\def\@keywords{}

\def\and{%%                             % \begin{tabular}
\end{tabular}\par\hskip 1em plus .17fil\begin{tabular}[t]{r}%% \end{tabular}
}

%
% jarticle.sty
%	modified `maketitle'
%
\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}\@keywords
 \endgroup
 \setcounter{footnote}{0}
 \let\maketitle\relax
 \let\@maketitle\relax
 \gdef\@author{}\gdef\@title{}
 \gdef\@keywords{}\gdef\@jauthor{}\gdef\@jtitle{}\let\keywords\relax}
\def\@maketitle{\newpage
 \null
 \hfill{\fbox{\@class}}
 \begin{center}
 {\Large \@jtitle \par}
 \end{center}
 \begin{flushright}
\begin{tabular}[t]{r}\@jauthor
 \end{tabular}
 \end{flushright}
 \begin{center}
 {\Large \@title \par}
 \end{center}
 \begin{flushright}
\begin{tabular}[t]{r}\@author
 \end{tabular}
 \end{flushright}
% \vskip 1em {\large \@date}
% \par
 \vskip 1.5em} 
\def\abstract{\if@twocolumn
\noindent {\large\bf 要 旨 } 
\else \small 
\quotation
\noindent {\normalsize\bf 要 旨 }
\fi}
\def\endabstract{\if@twocolumn\else\endquotation\fi}


%
% create makejaddress
%
\def\makejaddress{\par
 \begin{flushright}
\begin{tabular}[h]{r}著者連絡先：\@jaddress 
 \end{tabular}
 \end{flushright}
 \let\makejaddress\relax
 \let\@makejaddress\relax
 \gdef\@jaddress{}}
	

%
% bibliography
% small caption font
%
\def\thebibliography#1{\subsection*{参 考 文 献\markboth
 {参 考 文 献}{参 考 文 献}}\list
 {[\arabic{enumi}]}{\settowidth\labelwidth{}\leftmargin\labelwidth
 \advance\leftmargin\labelsep
 \usecounter{enumi}}
 \def\newblock{\hskip .11em plus .33em minus -.07em}
 \sloppy
 \sfcode`\.=1000\relax}
\let\endthebibliography=\endlist
 

%
% donot print citation number
%
%\def\@cite#1#2{[#1\if@tempswa; #2\fi]}
%\def\@citefmt{{\@cite@namepart}, {\@cite@yearpart}}
%\def\@altcite#1#2{#1\if@tempswa ; #2\fi}
%\def\@altcitefmt{{\@cite@namepart}\ [{\@cite@yearpart}]}
\let\@biblabel\@gobble
\def\thebibliography#1{%
   \section*{\refname}%
   \@mkboth{\MakeUppercase\refname}{\MakeUppercase\refname}%
   \list{}%
        {\leftmargin 3em\relax \labelsep\z@
         \itemindent-\leftmargin
         \@openbib@code}%%% ←↑ list 環境の体裁に関するパラメータを変更
      \sloppy
      \clubpenalty4000
      \@clubpenalty \clubpenalty
      \widowpenalty4000%
      \sfcode`\.\@m}
\def\@lbibitem[#1]#2{\item[{}]\if@filesw 
      { \def\protect##1{\string ##1\space}\immediate
        \write\@auxout{\string\bibcite{#2}{#1}}}\fi\ignorespaces}
%
% donot print branket in citation
%
\def\@cite#1#2{{#1\if@tempswa , #2\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 \tw@\arraycolsep%%% mischievous
%%%       \hfil${##}$\hfil%%% original
       \hfil${{}##{}}$\hfil%%% ``\displaystyle'' could be added
      &\global\@eqcnt\tw@
       %%% \hskip \tw@\arraycolsep%%% mischievous
         $\displaystyle{##}$\hfil\tabskip\@centering
      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
         \tabskip\z@skip
      \cr
}

%
% create acknowlegement envirnment
%
\def\acknowledge{\par
 \vskip 1.5em\relax 
\markboth {謝 辞}{謝 辞}
 \noindent {\large\bf 謝 辞}\hspace{1em}}
\def\endacknowledge{}
	

%\makeatother