%ɽ��   �����餯DCL
%
%����
%\Drireki{
%         95/04/13 ;�� ����
%        }
%
%\Dchapter{�Ĥ��Υ��ƥå�}
\Dchapterhead

�޷���������������Ǥ�, �ޤ����ȥޡ�������Ǥ�. ($x$,$y$)��ɸ�ͤ���
��Ȥ��Υǡ�������Ϳ����, �ޤ����Ƿ�����, �ޡ��������ɽ�����ޤ�. ��
����,���׿ޤ�ʬ���ޤδ��ܤǤ�. ����ޡ������ˤϤ��줾�줤���Ĥ���°
��������, �������ѹ������¿��¿�ͤ�����ޡ������������ޤ�. ���ϤΤ�
�ޤ����롼���� {\tt USGRPH} �򤤤��Ĥ��Υ��֥롼�����ʬ�򤹤��, ����
�褦���ѹ����ưפ˹Ԥʤ��ޤ�.
\vspace{1em}

���������δ������ǤȤ���, �������İʳ��ˤ�, ʸ�������������, ¿��
���ΰ���ɤ�Ĥ֤����ꤹ�뵡ǽ������ޤ���, �����ǤϾܤ����Ҥ٤ޤ���. 
���ˤʤ�ͤϡ֤餯�餯DCL�פ򻲹ͤˤ��Ʋ�����.
\vspace{1em}

��\ref{s:step_usgrph}��Ǥϡ��������Ѵ��פ˴ؤ��뵭�Ҥ��ФƤ��ޤ���, 
�����Ȥ��������ϼ��ϤǹԤʤ��ޤ�. �������о줹�� {\tt USPFIT} �� 
{\tt GRSTRF} ����ĤΥ��֥롼�����, �Ȥꤢ�����֤��ޤ��ʤ��פȻפä�
�����Ƥ⤫�ޤ��ޤ���. 

%-----------------------------------------------------------------------
\section{{\tt USGRPH}��ʬ��}
\label{s:step_usgrph}

��\ref{s:hop_kihonsousa}��Υץ������ {\tt HOP} �ǸƤ�� {\tt USGRPH} 
���֥롼���󤬤ɤΤ褦�ʥ롼����ǹ�������Ƥ��뤫, ���Ƥ����ޤ��礦. 
�¤�,
\begin{quote}
{\tt
      CALL USGRPH( NMAX, X, Y )
}
\end{quote}
�Ȥ������֥롼���󡦥������, ����5�ĤΥ��֥롼������˸Ƥ֤��Ȥ�Ʊ
���ʤΤǤ�.
\begin{quote}
{\tt
      CALL USSPNT( NMAX, X, Y ) \\[-1.5mm]
      CALL USPFIT               \\[-1.5mm]
      CALL GRSTRF               \\[-1.5mm]
      CALL USDAXS               \\[-1.5mm]
      CALL UULIN( NMAX, X, Y ) 
}
\end{quote}
�ǡ�����ưŪ�˥�������󥰤��뤿��ˤ�, �ޤ�, ���������ǡ������٤Ƥ�
�ʤ���������ͤȺǾ��ͤ򸫤Ĥ���ɬ�פ�����ޤ�.  ���֥롼���� {\tt
USSPNT} �������Ԥʤ��ޤ�. �Ĥ��� {\tt USPFIT} �Ǥ�, �����Υǡ�����
�����͡��Ǿ��ͤ��ڤ���ɤ����ͤ˴ݤ�ƺ���ϰϤ���, �ۤ��Ρ���������
���פΥѥ�᡼����֤��ޤ����פǷ��ޤ�. ������, {\tt GRSTRF} �롼��
��ǡ��������Ѵ��פ���ꤷ�ޤ�. �����ǽФƤ������������Ѵ��פˤĤ��Ƥ�, 
��
\ref{s:jump_ntr}��Ǿܤ����������ޤ�. ���ޤ�, {\tt USPFIT} �� {\tt
GRSTRF} ����ĤΥ��֥롼�����, �����κ�Ȥ�ԤʤäƤ���Ȥ���ǧ����
�Ƥ����Ʋ�����.
\vspace{1em}

���� {\tt USDAXS} �롼����ϡ֤��ޤ����פǺ�ɸ���������롼����Ǥ�. ��
���ˡ֤��ޤ����פǤ�����, �����Ϥ���ޤ���. ������, {\tt UULIN} �롼��
����ޤ����������Ƥ���ΤǤ�.

\begin{itemize}
\item {\tt USSPNT(N,X,Y)} [����ϰϤ˴ޤ᤿���ǡ����λ���] \label{USSPNT}
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt N}          & (������) & �ǡ�����. \\
      {\tt X}, {\tt Y} & (�¿���) & ($x$,$y$)��ɸ�ͤ�Ϳ��������.
    \end{tabular}
  \end{quote}

\item {\tt USDAXS} [�֤��ޤ����פǺ�ɸ��������] \label{USDAXS}
  \begin{quote}
    ��ɸ�����������4�դȤ�������뤬, ��٥�䥿���ȥ�Ϻ�¦�Ȳ�¦��
    �����������. ��٥뤬Ĺ���ʤ���ˤ�, ��ưŪ�˥ե��������䥪�ե���
    �Ȥ��Ѥ����, �����˼������. \\
    ��ɸ���Υ����ȥ��ñ�̤�, {\tt USSTTL} �����ꤹ���, �������������.
  \end{quote}

\item {\tt USPFIT} [�֤��ޤ����פ��������Ѵ��Υѥ�᡼�������] 
       \label{USPFIT1}
  \begin{quote}
    ��\ref{s:jump_ntr}�Ỳ��.
\end{quote}

\item {\tt GRSTRF} [�������Ѵ��γ���] \label{GRSTRF1}
  \begin{quote}
    ��\ref{s:jump_ntr}�Ỳ��.
  \end{quote}
\end{itemize}


%-----------------------------------------------------------------------
\section{���ܳ�ǰ(2): �ޤ���(���׿�)}
\label{s:step_lime}

���Υץ������ {\tt STEP1} �Ǥ�, {\tt UULIN} ���֥롼������Ѥ���4����
���ޤ��������οޤ˽Ťͽ񤭤��Ƥߤޤ��礦. �ޤ�, {\tt USSPNT}�롼����
��4��Ƥ�� {\tt X} �� {\tt Y0}, {\tt Y1}, {\tt Y2}, {\tt Y3} �Υǡ���
�Τʤ����� $x$ �� $y$ �κ����ͤȺǾ��ͤ򸫤Ĥ�, �֤��ޤ����פ���������
������ꤷ��, ��ɸ���������ޤ�.
\vspace{1em}

����, �ޤ���������Ǥ���, �ޤ����ˤ�, ���������������2�Ĥ�°��������
�ޤ�. {\tt UUSLNT} �� {\tt UUSLNI} �Υ��֥롼����Ǥ�����°�����ѹ�
�Ǥ�, {\tt UULIN} �롼������ޤ����������ޤ�. °�����ۤ��ѹ����ʤ����, 
���줾��ν����(�ǥե����)�����Τޤ޻Ȥ��ޤ�.
\vspace{1em}

���Υץ��������Ǥ�, �ޤ�����ͤΤޤ� {\tt (X,Y0)} ���ޤ���������, ��
�˾���������������, ������ {\tt (X,Y1)} ��, ������ {\tt (X,Y2)} ��, ��
����1�������� {\tt (X,Y3)} �������Ƥ��ޤ�.

\begin{itemize}
\item {\tt UULIN(N,X,Y)} [�ޤ���������]  \label{UULIN}
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt N}          & (������) & �ǡ�����. \\
      {\tt X}, {\tt Y} & (�¿���) & �ޤ�����������($x$,$y$)��ɸ��
                                        ��Ϳ��������.
    \end{tabular}
  \end{quote}

\item {\tt UUSLNT(ITYPE)} [�ޤ��������������] \label{UUSLNT}
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt ITYPE} & (������) & �ޤ���������. 
                              1:����, 2:����, 3:����, 4:1������. (����ͤ�1)
    \end{tabular}
  \end{quote}

\item {\tt UUSLNI(INDEX)} [�ޤ���������������] \label{UUSLNI}
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt INDEX} & (������) & �ޤ���������. 
                               1�����礭���ʤ�ˤĤ�������ʤ�. (����ͤ�1)
    \end{tabular}
  \end{quote}
\end{itemize}

������, �ġ��Υ롼�����°������Ƥ��� {\tt UULIN} ���ޤ���������,
�ֺ��󤷷��פΥ롼���󷲤Ǥ�. ������Ф���, �ҤȤĤΥ��֥롼�����°��
��Ʊ���˻��ꤷ���ޤ���������, �־�ղ�ã���פΥ롼���� {\tt UULINZ} ��
�Ѱդ���Ƥ��ޤ�. ���ߤ�����ȤäƲ�����.

\begin{itemize}
\item {\tt UULINZ(N,X,Y,ITYPE,INDEX)} 
      [�־�ղ�ã���פ��ޤ���������] \label{UULINZ}
  \begin{quote}
    �ѥ�᡼���Ͼ��Ʊ��. 
  \end{quote}
\end{itemize}

\begin{center}
\Depsf[10cm]{step/step1.eps}\\
{\bf step1.f: frame1}\\
\end{center}

\Dproginput{step/step1.f}


%-----------------------------------------------------------------------
\section{���ܳ�ǰ(3): �ޡ�������(ʬ�ۿ�)}
\label{s:step_marker}

����ǾҲ𤷤� {\tt UULIN} �롼����Τ����� {\tt UUMRK} ���Ѥ����, 
�ǡ������ޡ��������ɽ���Ǥ�, ������ʬ�ۿޤ������ޤ�. ���Υץ�����
�� {\tt STEP2} �Ǥ�, �������Ȥ� {\tt (X,Y)} �Υǡ�����Ĥ���, ʬ��
�ޤ������ޤ�. 8�Ԥ��10�Ԥ�δؿ� {\tt RNGU3(ISEED)} ��, DCL����Ρ֤�
��¾�δ��ܴؿ��ѥå������פˤ���, �����������������ؿ��ΤҤȤĤǤ�. 
���Τ褦��, DCL�ˤϥ���ե������ʳ��ˤ⤵�ޤ��ޤʥѥå��������Ѱդ���
�Ƥ��뤳�Ȥ򿴤�α��Ƥ����Ʋ�����. {\tt USSPNT} �ǥǡ������ϰϤ���,
{\tt USPFIT} �� {\tt GRSTRF} ���������Ѵ�����ꤷ, {\tt USDAXS} �Ǻ�ɸ
��������, {\tt UUMRK} ��Ȥäƥޡ�������������Ƥ��ޤ�.
\vspace{1em}

�Ȥ�����, �ޡ������ˤ�, �ޡ������μ���, ������������, �ޡ��������礭��
��3�Ĥ�°��������ޤ�. {\tt UUSMKT}, {\tt UUSMKI}, {\tt UUSMKS} �γƥ�
�֥롼����Ǥ�����°�����ѹ��Ǥ��ޤ�. ������Ƥ�ǻפ��̤�Υޡ�����
�����٤���, {\tt UUMRK} �롼����ǥޡ���������������Ȥˤʤ�ޤ�. �ޤ�, 
Ʊ�ͤˡ־�ղ�ã���פΥ롼���� {\tt UUMRKZ} �⤢��ޤ�.
\vspace{1em}

���Υץ��������Ǥ�, �������ǽ���ͤ�1.5�ܤ��礭���Υޡ�����������, 
�ޡ������μ����, �ǽ��25�Ĥ����ͤ� '$\cdot$' ��, �������25�Ĥ���
�򤽤줾��,' $+$', '$\ast$', '$\circ$' �������Ƥ��ޤ�.

\begin{itemize}
\item {\tt UUMRK(N,X,Y)} [�ޡ������������] \label{UUMRK}
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt N}          & (������) & �ǡ�����. \\
      {\tt X}, {\tt Y} & (�¿���) & �ޡ��������Ǥ�����($x$,$y$)��ɸ��
                                        ��Ϳ��������. 
    \end{tabular}
  \end{quote}

\item {\tt UUSMKT(ITYPE)} [�ޡ������μ��������] \label{UUSMKT}
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt ITYPE} & (������) & �ޡ������μ���. 
                               1:'$\cdot$', 2:'$+$', 3:'$\ast$', 4:'$\circ$',
                               �ʤ�, �ե���ȥơ��֥�(��Ͽ)��DCLʸ���ֹ��
                               �б�����ʸ�������������. (����ͤ�1)
    \end{tabular}
  \end{quote}

\item {\tt UUSMKI(INDEX)} [�ޡ�������������������������] \label{UUSMKI}
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt INDEX} & (������) & �ޡ�������������������. 
                               1�����������ʤ�. (����ͤ�1)
    \end{tabular}
  \end{quote}

\item {\tt UUSMKS(RSIZE)} [�ޡ��������礭��������] \label{UUSMKS}
  \begin{quote}

    \begin{tabular}{llp{11cm}}
      {\tt RSIZE} & (�¿���) & �ޡ��������礭��. 
                               V-��ɸ�ϤǤ��ͤ�Ϳ����. (����ͤ�0.01)
    \end{tabular}
  \end{quote}

\item {\tt UUMRKZ(N,X,Y,ITYPE,INDEX,RSIZE)} 
      [�־�ղ�ã���פǥޡ������������] \label{UUMRKZ}
  \begin{quote}
    �ѥ�᡼���Ͼ��Ʊ��. 
  \end{quote}
\end{itemize}

������, �ޡ��������礭���ǽФƤ�����V-��ɸ�ϡפˤĤ����������Ƥ����ޤ���
��. �ºݤ˺��Ǥ����ΰ�Ͻ������֤ˤ�äưۤʤ�ޤ���, DCL�ǤϤ�����
�������ܤ�����������ͤ���, �������ΰ�פȤ��ޤ�. ����1�դ�Ĺ����1�ˤ�
��褦�˵��ʲ�����$[0,1] \times [0,1]$�κ�ɸ�Ϥ�V-��ɸ�ϤȸƤӤޤ�. 

\Dproginput{step/step2.f}

\begin{center}
\Depsf[10cm]{step/step2.eps}\\
{\bf step2.f: frame1}\\
\end{center}


