%ɽ��   MATH1���̴��ܿ��ؽ����饤�֥���ե���󥹥ޥ˥奢��
%
%����
%\Drireki{
%         90/03/22 ��ë����
%         91/09/05 �ӾͲ�
%         91/12/11 ��ë����
%         92/01/31 ��ë����
%         92/03/14 ��ë����
%         92/04/22 �ӾͲ�   (4.1��)
%         94/04/04 ��ë����
%        }
%
%\Dchapter{FNCLIB : ���ܴؿ�(��������, ��;�ʤ�)}
\Dchapterhead
\label{fnclib}

\section{����}

  ����Ū�ʴؿ��ѥå�����.

\section{�ؿ��Υꥹ��}

  \begin{tabular}{lp{10cm}}
    {\tt IGUS(RX)} & {\tt RX}��ۤ��ʤ���������� ($[ {\tt RX} ]$) ���֤�. \\
    {\tt IMOD(IX,ID)} & ����Ū�ʾ�; (${\tt IX} \bmod {\tt ID}$) �����. \\
    {\tt RMOD(RX,RD)} & ����Ū�ʾ�; (${\tt RX} \bmod {\tt RD}$) �����. \\
    {\tt REXP(RX,IB,IE)} & ${\tt RX} \times {\tt IB}^{\tt IE}$ �����. \\
    {\tt RFPI()} & �߼�Ψ $\pi$ ���֤�. \\
    {\tt RD2R(X)} & ���٤��Ѵ�(�٤���饸����)�򤪤��ʤ�. \\
    {\tt RR2D(X)} & ���٤��Ѵ�(�饸���󤫤���)�򤪤��ʤ�. \\
  \end{tabular}

\section{�ؿ�������}

  \subsection{IGUS}

    \label{fnclib.sub.igus}
    \begin{enumerate}
      \item ��ǽ
        \begin{quote}
           Ϳ�����¿���ۤ��ʤ���������������.
        \end{quote}
      \item �ƤӽФ���ˡ
        \begin{quote}
          {\tt IGUS(RX)}
        \end{quote}
      \item �ѥ�᡼����������
        \begin{quote}
          \begin{tabular}{llp{10cm}}
            {\tt RX}   & {\tt (R)} & Ĵ�٤�¿���. \\
            {\tt IGUS} & {\tt (I)} & ��������� $[ {\tt RX} ]$ �ؿ���.
          \end{tabular}
        \end{quote}
      \item ����
        \begin{enumerate}
          \item FORTRAN���ȹ��ߴؿ�{\tt INT(X)}��,
            {\tt X}���ͤξ������ʲ����ڤ�ΤƤ���,
            �Ĥޤ�$| {\tt X} | \geq 1$�ʤ��
            $| {\tt X} |$�ʲ��κ����������{\tt X}��Ʊ������Ĥ�����,
            $| {\tt X} | < 1$�ʤ�Х������֤�.
            ���Ȥ���{\tt INT(4.5)=4}, {\tt INT(-4.5)=-4} �Ǥ���.
            ���äݤ�{\tt IGUS}��,
            ���Ȥ���{\tt IGUS(4.5)=4}, {\tt IGUS(-4.5)=-5}�Ȥʤ�.
        \end{enumerate}
    \end{enumerate}

  \subsection{IMOD/RMOD}

    \label{fnclib.sub.imod}
    \begin{enumerate}
      \item ��ǽ
        \begin{quote}
           ����Ū�ʾ�;�����. {\tt IMOD} ��������
           (${\tt IX} \bmod {\tt ID}$),
           {\tt RMOD} �ϼ¿��� (${\tt RX} \bmod {\tt RD}$) �Ǥ���.
        \end{quote}
      \item �ƤӽФ���ˡ
        \begin{quote}
          {\tt IMOD(IX,ID)} \\
          {\tt RMOD(RX,RD)}
        \end{quote}
      \item �ѥ�᡼����������
        \begin{quote}
          \begin{tabular}{llp{10cm}}
            {\tt IX}   & {\tt (I)} & Ĵ�٤�������. \\
            {\tt ID}   & {\tt (I)} & ����. \\
            {\tt IMOD} & {\tt (I)} & ��;�ؿ���. \\
            {\tt RX}   & {\tt (R)} & Ĵ�٤�¿���. \\
            {\tt RD}   & {\tt (R)} & ����. \\
            {\tt RMOD} & {\tt (R)} & ��;�ؿ���.
          \end{tabular}
        \end{quote}
      \item ����
        \begin{enumerate}
          \item FORTRAN���ȹ��ߴؿ�{\tt MOD(X,Y)}��,
            {\tt X-INT(X/Y)*Y}���֤�.
            ���Ȥ���{\tt MOD(4,3)=1}, {\tt MOD(-4,3)=-1}�Ǥ���.
            ���äݤ�{\tt IMOD}��, ���Ȥ���{\tt IMOD(4,3)=1},
            {\tt IMOD(-4,3)=2}�Ȥʤ�.
            �ޤ�{\tt RMOD}��, ���Ȥ���{\tt RMOD(4.0,3.0)=1.0},
            {\tt RMOD(-4.0,3.0)=2.0}�Ȥʤ�.
          \item {\tt ID}$\neq$0, {\tt RD}$\neq$0�Ǥʤ���Фʤ�ʤ�.
        \end{enumerate}
    \end{enumerate}

  \subsection{REXP}

    \label{fnclib.sub.rexp}
    \begin{enumerate}
      \item ��ǽ
        \begin{quote}
           ${\tt RX} \times {\tt IB}^{\tt IE}$ �����.
        \end{quote}
      \item �ƤӽФ���ˡ
        \begin{quote}
          {\tt REXP(RX,IB,IE)}
        \end{quote}
      \item �ѥ�᡼����������
        \begin{quote}
          \begin{tabular}{llp{10cm}}
            {\tt RX}   & {\tt (R)} & ��ǽ�󻲾�. \\
            {\tt IB}   & {\tt (I)} & ��ǽ�󻲾�. \\
            {\tt IE}   & {\tt (I)} & ��ǽ�󻲾�. \\
            {\tt REXP} & {\tt (R)} & ����ؿ���.
          \end{tabular}
        \end{quote}
      \item ����
        \begin{enumerate}
          \item FORTRAN�λؿ��׻���, ����ˤ�äƤ��ʤ����٤�
             ������Τ�����ΤǤ��Υ롼����Ϻ������줿.
             �º�, {\tt REXP}��{\tt RX*IB**REAL(IE)}��
             �񤯤Τ���٤ư���Ū�ˤ�����������ʤ���,
             ��äȤ��®�����٤ι⤤�׻��򤹤뤿��ˤ�
             �����٤ǻؿ��׻��򤪤��ʤ��Τ��褤.
          \item {\tt IB}$\neq$0�Ǥʤ���Фʤ�ʤ�.
        \end{enumerate}
    \end{enumerate}

  \subsection{RFPI}

    \label{fnclib.sub.rfpi}
    \begin{enumerate}
      \item ��ǽ
        \begin{quote}
           �߼�Ψ $\pi$ ���֤�.
        \end{quote}
      \item �ƤӽФ���ˡ
        \begin{quote}
          {\tt RFPI()}
        \end{quote}
      \item �ѥ�᡼����������
        \begin{quote}
          \begin{tabular}{llp{10cm}}
            {\tt RFPI} & {\tt (R)} & �߼�Ψ $\pi$ ���֤��¿��ؿ���.
          \end{tabular}
        \end{quote}
      \item ����
        \begin{enumerate}
          \item �ʤ�.
        \end{enumerate}
    \end{enumerate}

  \subsection{RD2R/RR2D}

    \label{fnclib.sub.rd2r}
    \begin{enumerate}
      \item ��ǽ
        \begin{quote}
           ���٤��Ѵ��򤪤��ʤ�.
        \end{quote}
      \item �ƤӽФ���ˡ
        \begin{quote}
          {\tt RD2R(X)} \\
          {\tt RR2D(X)}
        \end{quote}
      \item �ѥ�᡼����������
        \begin{quote}
          \begin{tabular}{llp{10cm}}
            {\tt X} & {\tt (R)} &
              {\tt RD2R} ���Ф��Ƥϡ��١�, {\tt RR2D} ���Ф��Ƥ�
              �֥饸����פ�ñ�̤Ȥ���¿���. \\
            {\tt RD2R} & {\tt (R)} &
              �֥饸����פ�ñ�̤Ȥ����ͤ��֤��¿��ؿ���. \\
            {\tt RR2D} & {\tt (R)} &
              ���١פ�ñ�̤Ȥ����ͤ��֤��¿��ؿ���.
          \end{tabular}
        \end{quote}
      \item ����
        \begin{enumerate}
          \item �ʤ�.
        \end{enumerate}
    \end{enumerate}
