<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">%è¡¨é¡Œ   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)} &amp; {\tt RX}ã‚’è¶Šãˆãªã„æœ€å¤§ã®æ•´æ•° ($[ {\tt RX} ]$) ã‚’è¿”ã™. \\
    {\tt IMOD(IX,ID)} &amp; æ•°å­¦çš„ãªå‰°ä½™ (${\tt IX} \bmod {\tt ID}$) ã‚’æ±‚ã‚ã‚‹. \\
    {\tt RMOD(RX,RD)} &amp; æ•°å­¦çš„ãªå‰°ä½™ (${\tt RX} \bmod {\tt RD}$) ã‚’æ±‚ã‚ã‚‹. \\
    {\tt REXP(RX,IB,IE)} &amp; ${\tt RX} \times {\tt IB}^{\tt IE}$ ã‚’æ±‚ã‚ã‚‹. \\
    {\tt RFPI()} &amp; å††å‘¨çŽ‡ $\pi$ ã‚’è¿”ã™. \\
    {\tt RD2R(X)} &amp; è§’åº¦ã®å¤‰æ›(åº¦ã‹ã‚‰ãƒ©ã‚¸ã‚¢ãƒ³)ã‚’ãŠã“ãªã†. \\
    {\tt RR2D(X)} &amp; è§’åº¦ã®å¤‰æ›(ãƒ©ã‚¸ã‚¢ãƒ³ã‹ã‚‰åº¦)ã‚’ãŠã“ãªã†. \\
  \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}   &amp; {\tt (R)} &amp; èª¿ã¹ã‚‹å®Ÿæ•°å€¤. \\
            {\tt IGUS} &amp; {\tt (I)} &amp; æœ€å¤§ã®æ•´æ•° $[ {\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} | &lt; 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}   &amp; {\tt (I)} &amp; èª¿ã¹ã‚‹æ•´æ•°å€¤. \\
            {\tt ID}   &amp; {\tt (I)} &amp; é™¤æ•°. \\
            {\tt IMOD} &amp; {\tt (I)} &amp; å‰°ä½™é–¢æ•°å€¤. \\
            {\tt RX}   &amp; {\tt (R)} &amp; èª¿ã¹ã‚‹å®Ÿæ•°å€¤. \\
            {\tt RD}   &amp; {\tt (R)} &amp; é™¤æ•°. \\
            {\tt RMOD} &amp; {\tt (R)} &amp; å‰°ä½™é–¢æ•°å€¤.
          \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}   &amp; {\tt (R)} &amp; æ©Ÿèƒ½æ¬„å‚ç…§. \\
            {\tt IB}   &amp; {\tt (I)} &amp; æ©Ÿèƒ½æ¬„å‚ç…§. \\
            {\tt IE}   &amp; {\tt (I)} &amp; æ©Ÿèƒ½æ¬„å‚ç…§. \\
            {\tt REXP} &amp; {\tt (R)} &amp; æ±‚ã‚ã‚‹é–¢æ•°å€¤.
          \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} &amp; {\tt (R)} &amp; å††å‘¨çŽ‡ $\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} &amp; {\tt (R)} &amp;
              {\tt RD2R} ã«å¯¾ã—ã¦ã¯ã€Œåº¦ã€, {\tt RR2D} ã«å¯¾ã—ã¦ã¯
              ã€Œãƒ©ã‚¸ã‚¢ãƒ³ã€ã‚’å˜ä½ã¨ã™ã‚‹å®Ÿæ•°å€¤. \\
            {\tt RD2R} &amp; {\tt (R)} &amp;
              ã€Œãƒ©ã‚¸ã‚¢ãƒ³ã€ã‚’å˜ä½ã¨ã—ãŸå€¤ã‚’è¿”ã™å®Ÿæ•°é–¢æ•°å€¤. \\
            {\tt RR2D} &amp; {\tt (R)} &amp;
              ã€Œåº¦ã€ã‚’å˜ä½ã¨ã—ãŸå€¤ã‚’è¿”ã™å®Ÿæ•°é–¢æ•°å€¤.
          \end{tabular}
        \end{quote}
      \item å‚™è€ƒ
        \begin{enumerate}
          \item ãªã—.
        \end{enumerate}
    \end{enumerate}
</pre></body></html>