% jjasmac.sty --- 応用統計学会・論文誌スタイル出力のためのマクロ
%
% $Id: jjasmac.sty,v 2.1 2005/04/15 12:01:09 tunenori Exp tunenori $
%
%
% 使用例
%
% latex ユーザはこちらを使う
% \documentstyle[jjasmac]{jarticle}	
% latex2e  ユーザはこちらを使う
% \documentclass{jarticle}
% \usepackage{jjasmac}
% \usepackage{bm}
% ここまで
%
% \class{統計計算}
% \title{応用統計学会・論文誌スタイル出力のための\LaTeX2e マクロ}
% \author{{\small 独立行政法人 大学入試センター 研究開発部} 石岡 恒憲}
%
% \begin{document}
% \maketitle
% \begin{abstract} ... \end{abstract}
% \section{はじめに}
% ...
%	\cite{NAMEi}
% \section{おわりに}
% ...
% \begin{acknowledge} ... \end{acknowledge}
% \begin{thebibliography}{}
% \bibitem[LABELi]{NAMEi}
% \end{thebibliography}
%
% \jaddress{
%         〒153-8501 東京都目黒区駒場2-19-23 \\
%         独立行政法人 大学入試センター 研究開発部\\
%         TEL 03-5478-1272 E-mail tunenori@rd.dnc.ac.jp}
% \makejaddress % 著者連絡先を出力する
% 
% \newpage
%
% 英文部分
% 特にマクロ定義をしない。該当部分を著者が埋める。
%
% \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 
\renewcommand{\topfraction}{1.0} % ページ上部でfloatの占めることのできる割合
\renewcommand{\bottomfraction}{1.0} % ページ下部でfloatの占めることのできる割合
\renewcommand{\textfraction}{0.1} % float混在ページにおいて本文の占めるべき割合


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

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

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


\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
 \global\@topnum\z@ \@maketitle \fi\thispagestyle{plain}
 \endgroup
 \setcounter{footnote}{0}
 \let\maketitle\relax
 \let\@maketitle\relax
 \gdef\@author{}\gdef\@title{}
% \gdef\@author{}\gdef\@title{}\let\keywords\relax}
 \gdef\@author{}\gdef\@title{}}
\def\@maketitle{\newpage
 \null
 \hfill{\fbox{\@class}}
 \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 
{著者連絡先：} 
\begin{tabular}[t]{l} \@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