next up previous
Next: About this document Up: LaTeX のスタイルファイルを変更する ---ファミリーセダンをチューンアップ--- Previous: 付録 1: 本解説の文章ファイルの最初の部分

付録 2: 本解説用のスタイルファイル KOHO.STY

%
%  九州大学大型計算機センター広報用スタイルファイル
%                                Sep 14, '89
%                                by Nawata & Otabe
%

\typeout{Document Style 'koho'. Released 25 Sep 1989}

\newcommand{\JTeX}{\leavevmode\lower.5ex\hbox{J}\kern-.18em\TeX}
\newcommand{\JLaTeX}{\leavevmode\lower.5ex\hbox{\rm J}\kern-.1em\LaTeX}
\newlength{\Ywidth}
\def\yen{\mbox{\settowidth{\Ywidth}{Y}Y\hspace{-\Ywidth}=}}

%------------------------------------------------------------------
%
%  ページスタイル
%

\input jart12.sty               % 本文の文字の大きさ12ptを読み込む

\oddsidemargin -0.54cm          % 奇数番号ページの左マージン
\evensidemargin -0.54cm         % 偶数番号ページの左マージン
\topmargin -2cm                 % ページの上端と本文の間隔
\headheight 1pc                 % ヘッダーの高さ
\headsep 2pc                    % ヘッダーと本文の間隔
\footheight 1pc                 % フットノートの高さ
\footskip 2pc                   % 本文とフットノートの間隔
\textheight 60pc                % 本文の縦幅
\textwidth 40pc                 % 本文の横幅
\columnsep 2pc                  % 二段組時のカラムの間隔
\columnseprule 0pt              % 二段組時のカラム間の線幅


%------------------------------------------------------------------
% 
%  表題 - title
%

%所属の記号を定義する

\def\blsymbol#1{\@blsymbol{\@nameuse{c@#1}}} % 所属シンボルを定義する

\def\@blsymbol#1{\ifcase#1\or *\or **\or ***\or ****\or
                 \dagger\or \dagger\dagger\or \dagger\daggar\daggar\or
       \ddagger\or \ddagger\ddagger \else\@ctrerr\fi\relax}

% belongs を定義する
%

\gdef\@belongs{}

\def\belongs{\@ifnextchar[{\@xbelongs}{\@xxbelongs}}

\def\@xbelongs[#1]#2{\@ifundefined{c@@belongs.#1}{\footnotemark
\newcounter{@belongs.#1}\setcounter{@belongs.#1}{\value{footnote}}
\xdef\@belongs{\@belongs\noindent\hbox to 5mm{$^{\thefootnote}$}{#2}\par}}
{\footnotemark[\value{@belongs.#1}]}
}

\def\@xxbelongs#1{\footnotemark\begingroup
    \xdef\@belongs{\@belongs 
           \noindent \hbox to 5mm{$^{\thefootnote}$}{#1}\par}
 \endgroup}

% accept を定義する。
%

\gdef\@accept{\today}

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

\def\maketitle{\par
 \begingroup
 \def\thefootnote{\blsymbol{footnote}}
 \def\@makefnmark{\hbox to 5mm{$^{\@thefnmark}$}}
 \if@twocolumn 
 \twocolumn[\@maketitle] 
 \else \newpage
 \global\@topnum\z@ \@maketitle \fi\thispagestyle{plain}\@thanks
 \endgroup
 \setcounter{footnote}{0}
 \let\maketitle\relax
 \let\@maketitle\relax
 \let\belongs\relax                     % 後始末
 \let\accept\relax
 \gdef\@belongs{}\gdef\@accept{}
 \gdef\@thanks{}\gdef\@author{}\gdef\@title{}\let\thanks\relax}

\def\@maketitle{
 \newpage                                % 改ページ
 \null        
 \vskip 2em                              % 少し空ける
 \begin{center}                          % 中央寄せ
  {\jLarge \@title \par} \vskip 1.5em    % タイトルを印刷
  {\jlarge \lineskip .5em
   \hfill                                % 著者名を左寄せ
   \begin{tabular}[t]{l}\@author         % 著者名を印刷
   \end{tabular}\par} 
 \end{center}

 \par

 \begin{figure}[b]                       % figure環境を利用して脚注を印刷
   \vspace{-\baselineskip}
   \rule{\textwidth}{0.5mm}\\             % 横線
   \dg\sf                                % ゴシック体
   \@accept 受理\\                        % ?年受理
   \@belongs                             % 所属を印刷
 \end{figure}

} 


%------------------------------------------------------------------
%
%  章建て- section
%

\def\thepart{\Roman{part}} 
\def\thesection {\S \,\arabic{section}.}        % \S 1. はじめに
                                                % ~~  ~ のように変更する
\def\thesubsection {\arabic{section}.\arabic{subsection}.}
\def\thesubsubsection {\thesubsection \arabic{subsubsection}.}
\def\theparagraph {\thesubsubsection\arabic{paragraph}.}
\def\thesubparagraph {\theparagraph\arabic{subparagraph}.}

\def\section{\@startsection {section}{1}{\z@}{2.75ex plus 0.5ex minus 
 .2ex}{1.5ex plus .2ex}{\font@s}}
\def\subsection{\@startsection{subsection}{2}{\z@}{2.5ex plus 0.5ex minus 
 .2ex}{1.5ex plus .2ex}{\font@ss}}
\def\subsubsection{\@startsection{subsubsection}{3}{\z@}{2.5ex plus
 0.5ex minus .2ex}{1.5ex plus .2ex}{\font@sss}}
\def\paragraph{\@startsection
 {paragraph}{4}{\z@}{2.5ex plus 0.5ex minus .2ex}{1em}{\jnormalsize\bf\dg}}
\def\subparagraph{\@startsection
 {subparagraph}{4}{\parindent}{2.5ex plus 0.5ex minus 
 .2ex}{1em}{\jnormalsize\bf\dg}}

\def\sectionfont#1#2#3{\gdef\font@s{#1}\gdef\font@ss{#2}\gdef\font@sss{#3}}
\sectionfont{\jlarge\dg\bf}{\jlarge\dg\bf}{\jnormalsize\dg\bf}


%------------------------------------------------------------------
%
%  式番号 - equation
%

\def\equation{\@ifnextchar[{\@xequation}{\@xxequation}}
                        % ~ [ラベル] ならば \@xequation でなければ \@xxequation

\def\@xequation[#1]{
\@ifundefined{c@@eqc#1}{                % `@eqcラベル' の名前のカウ
                                        % ンタが未定義ならば
\refstepcounter{equation}               % equation カウンタを進める
\newcounter{@eqc#1}                     % @eqcラベル カウンタを作る
\setcounter{@eqc#1}{\value{equation}}   % @eqcラベル <= equation
\newcounter{@eqcl#1}                    % @eqclラベル カウンタを作る
}{}
\refstepcounter{@eqcl#1}                % @eqclラベル カウンタを進める
\def\c@equation{\csname c@@eqc#1\endcsname} % equation カウンタに一時
                                            % 的に @eqcラベル カウンタ
                                            % の値を代入する
\def\@eqnnum{{\rm (\theequation\alph{@eqcl#1})}} % (1a), (1b) ,... の
                                                 % ようにする
$$}

\def\@xxequation{               % ラベルが無い場合の equation環境
\def\@eqnnum{{\rm (\theequation)}} 
$$\refstepcounter{equation}}

\def\endequation{\eqno \@eqnnum % $$ BRACE MATCHING HACK
$$\global\@ignoretrue}

%------------------------------------------------------------------
%
%  箇条書 - enumerate, itemize
%

\def\labelitemi{$\circ$}                      % ○
\def\labelitemii{$\bullet$}                   % ●
\def\labelitemiii{$\diamond$}                 % ◇
\def\labelitemiv{$\ast$}                      % *

\def\labelenumi{\arabic{enumi}.}              % 1. 2. 3. ....
\def\theenumi{\arabic{enumi}}
\def\labelenumii{\roman{enumii})}             % i) ii) iii) iv) ...
\def\theenumii{\roman{enumii}}
\def\labelenumiii{\alph{enumiii})}            % a) b) c) .....
\def\theenumiii{\alph{enumiii}}
\def\labelenumiv{\Roman{enumiv}.}             % I. II. III. .....
\def\theenumiv{\Roman{enumiv}}


%------------------------------------------------------------------
%
%  定理 証明 - newtheorem
%

\def\@begintheorem#1#2{\trivlist \item[\hskip \labelsep{\bf\dg [#1\,#2]}]}
                          %                             ~~~~~~ ~      ~
\def\@opargbegintheorem#1#2#3{\trivlist
      \item[\hskip \labelsep{\bf\dg [#1\,#2\ (#3)]}]}
                          %  ~~~~~~ ~            ~ 括弧を付けた

%-----------------------------------------------------------------
%
%  脚注 - footnote
%

%\@addtoreset{footnote}{page}                       % ページごとに0にする 
%
%\def\thefootnote{\fnsymbol{footnote}}              % マークの変更
%
% LaTeX のバグのため、正常に行かないこともある。
%

\long\def\@makefntext#1{\begin{list}{}             % 脚注の書式
                        {\topsep 0cm \parsep 0cm} 
                        \item[{\hss$^{\@thefnmark}$}] #1
                        \end{list}}



%------------------------------------------------------------------
%
%  参考文献
%


\def\thebibliography#1{\section*{参考文献\markboth
 {参考文献}{参考文献}}
 \list                                             % list環境を用いている
  {\arabic{enumi}.}                                % 1. 2. 3. ...
  {\settowidth\labelwidth{#1.}
  \leftmargin\labelwidth
  \advance\leftmargin\labelsep
  \usecounter{enumi}}
  \def\newblock{\hskip .11em plus .33em minus -.07em}
  \fussy
  \sfcode`\.=1000\relax}
\let\endthebibliography=\endlist

% 参考文献の引用形式

\def\@cite#1#2{$^{\mbox{\scriptsize{#1\if@tempswa,#2\fi})}}$} % 1) を上付きで

%------------------------------------------------------------------



otabe@cse.kyutech.ac.jp
Fri Dec 1 20:53:03 JST 1995