%ɽ��   �餯�餯��ǽ�饤�֥��
%
%����
%\Drireki{
%         95/04/13 ;�� ����
%        }
%
%\Dchapter{2�����̤�ɽ��}
\Dchapterhead
\label{c:u2d1}

��\ref{c:quick}�ϤǸ����褦��, 2�����ǡ�������᤯���󥿥�󥰤�������
�����Ȥ��ˤ�, ���֥롼���� {\tt UDCNTR} ��Ƥ֤�����, �Ȥꤢ����������
�ޤ������ޤ���. �����, GRPH2 ��2����������������롼����ѥå����� 
UDPACK �˴ޤޤ�륵�֥롼����Ǥ�. �����Ǥ�, UDPACK �Τ����Ĥ��ε�ǽ��
��ñ�ʥץ��������Ǽ����ޤ�. 

�ʤ�, UDPACK ��U-��ɸ�ϤǺ�褷�Ƥ��ޤ�����, ��\ref{c:map3d}�ϤǴ�ñ��
�դ���Ͽ���Ƥˤ��б��Ǥ��ޤ�.

%-----------------------------------------------------------------------
\section{���󥿡��饤��򥳥�ȥ�����}

��\ref{s:quick_con}��ǰ��ä��ǡ������Ѥ���, ���󥿡��饤���桼����
�ι��ߤ����椹�뤳�Ȥ�ͤ��Ƥߤޤ��礦({\tt U2D1}).

\Dproginput{u2d1/u2d1.f}
\vspace*{1em}

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

�ǥե���ȤǤϥ�٥��դ���������1�ܤ����˰�����ޤ���, �����᥸�㡼
�饤��Ȥ�Ӥޤ�. ���Υ᥸�㡼�饤����դ��Ƥ��륳�󥿡���٥�Υե���
�ޥåȤ�, {\tt UDSFMT} �롼���������Ǥ��ޤ�. 29�Ԥ�Τ褦��, ���ꤹ
��ե����ޥåȤ�ʸ������Ϳ���ޤ�. ���󥿡��饤��ˤĤ����٥��, ����
������٥����ꤹ��롼����������������ޤ�����, {\tt UDSFMT} �롼
����ϥ��󥿡��饤�����������롼����({\tt UDGCLA} �� {\tt UDGCLB})��
���˸ƤФʤ���Фʤ�ޤ���.
\vspace{1em}

���󥿡��饤��������Ǥ���, �����Ǥ�, {\tt UDGCLA} �롼��������ֳ֤�
���󥿡���٥���������ޤ�. �ǽ��2�Ĥΰ��������󥿡���٥�κǾ��ͤ�
�����ͤ�, 30�Ԥ����Ǥ���Υ��󥿡���������ޤ���. �Ǹ�ΰ����Ϲ��
���Ǥ���, ���줬��λ��ˤϤ������������٤��ܿ��Υ��󥿡���٥��������
�ޤ�.
\vspace{1em}

�����Υ롼����Ǥ�, ���ֳ֤Υ��󥿡���٥뤷����������ޤ���. �⤷��, 
�����ֳ֤Υ��󥿡���٥����ꤷ��������, ����Υ��󥿡���٥���ɲ�
����������, 31�Ԥ�Τ褦�� {\tt UDSCLV} �롼�����1��1�ܤΥ��󥿡���
�٥���������ޤ�. �ǽ�ΰ��������󥿡���٥���ͤ�, �Ĥ��4�Ĥ����󥿡�
�饤���°���Ǥ�. ���, �饤�󥤥�ǥ���, �饤�󥿥���, ��٥�, V-��ɸ
�Ϥˤ������٥���礭��, �Ǥ�. �դ�, ����1�ܤΥ��󥿡���٥��̵����
����ˤ� {\tt UDDCLV} �롼�����ƤӤޤ�. �����ϥ��󥿡���٥���ͤ�, 
������Ǥ�, 0.6���������������Ƥ��ޤ���. �ޤ�, ���٤ƤΥ��󥿡���٥�
��̵���ˤ���ˤ� {\tt UDICLV} �롼�����ƤӤޤ�.
\vspace{1em}

���Ȥ�, Ʊ�� {\tt UDCNTR} �롼�����Ƥ֤����Ǥ�.
���Υץ�������¹Ԥ����, ���Τ褦�ʥ�å��������Ф�Ϥ��Ǥ�. 
\begin{quote}
{\tt
 *** MESSAGE (UDCNTR) ***  INAPPROPRIATE DATA WILL BE MODIFIED INTERNALLY. \\   
 *** MESSAGE (-CNT.-) ***  Z(  1,  1)= -1.00000000     ===>  -1.00000119       
}
\end{quote}
{\tt UDCNTR} �Ǥ�, ����ʻ����Ǥ��ͤ����󥿡���٥������������, �ʻ�
���ͤ�鷺���ˤ��餷�ƺ�褷, ���Τ褦�ʥ�å���������Ϥ��ޤ�. ������
���ξ��, ���Υ�å������򵤤ˤ���ɬ�פϤ���ޤ���.
\vspace{1em}
\vspace{1em}


�⤦�������󥿡��饤��ˤ�����äƤߤޤ��礦. ���Υץ������ {\tt
U2D2} �Ǥ�, �����ѿ����ѹ����뤳�Ȥˤ��, ���󥿡��饤��򥳥�ȥ�����
���Ƥ��ޤ�. UDPACK ���֥롼����ѥå������ǻ��Ѥ��������ѿ��λ��Ȥ���
����, {\tt UDpGET} �� {\tt UDpSET} �Υ롼����ǹԤʤ��ޤ�. ������,
{\tt p} ��, �����ѿ��η��ˤ�ä� {\tt L}(������), {\tt I}(������),
{\tt R}(�¿���)�Τɤ줫��Ȥ�ޤ�. ������Ǥ�, �����ѿ� {\tt 'LABEL'} 
�� {\tt .FALSE.} �ˤ���, �᥸�㡼�饤��˥�٥���դ��ʤ��褦�ˤ��ޤ�. 
{\tt 'LDASH'} �� {\tt .FALSE.} �ˤ����������Ʊ���饤�󥿥��פǥ��󥿡�
�饤����������Ȥˤ��ޤ�. �ޤ�, ���λ��Υ饤�󥿥��פ� {\tt 'ISOLID'} 
��2(����)�Ȼ��ꤷ�Ƥ��ޤ�. �����, {\tt 'ICYCLE'} ��4�Ȥ���, 4�ܤ�1��
�γ��ǥ᥸�㡼�饤���������Ȥˤ��ޤ�.  ��̤�, ����ζ��̤�Ĥ���, 
�櫓�Τ狼��ʤ��������ޤȤʤäƤ��ޤ��ޤ�����, ���Τ褦�ʵ�ǽ�⤢���
�����ǥ�󥹥ȥ졼�����Ǥ�.

\Dproginput{u2d1/u2d2.f}

\begin{center}
\Depsf[10cm]{u2d1/u2d2.eps}\\
{\bf u2d2.f: frame1}\\
\end{center}
\vspace*{2em}

%-----------------------------------------------------------------------
\section{�ʻ����������ֳ֤ξ��}

UWPACK ��2�����γʻ�����ɸ�˴ؤ�������������륵�֥롼����ѥå�����
�Ǥ�. {\tt UDCNTR} �롼�����Ƥ����� UWPACK �Υ��֥롼�����Ƥ�ǳ�
�����κ�ɸ�ͤ򤢤餫������ꤷ�Ƥ�����, �����ֳ֤ʳʻ����Ǥ⥳�󥿥��
������ǽ�Ǥ�({\tt U2D3}).

\Dproginput{u2d1/u2d3.f}
\vspace{1em}

������Ǥ�, ����ޤǤ�Ʊ��2��������ǡ����Ǥ���, $y$�����ˤϥ��������
($-1$����1���ͤ���)�κ�ɸ�Ϥ����ꤷ�ƥ��󥿥�󥰤򤪤��ʤ��ޤ�. ��
��, ���� {\tt UY1} �˳ʻ����κ�ɸ��U-��ɸ�Ϥ��ͤ��Ѱդ��ޤ�. {\tt UY2} 
��, {\tt UYAXLB} �롼�����$y$��ɸ���Υ�٥�����������, ���κ�ɸ�ͤ�
�Ѱդ�������Ǥ�. 40�Ԥ�Ǥ�{\tt UYAXDV} �롼����ǥ�������٤κ�ɸ��
�����ֳ֤˹��������ޤ�. ����, ��¦��$y$��ɸ���˥�٥뤬������褦��
����, {\tt UYAXLB} �롼����ǥǡ����Τ���ʻ�����������Ĥ�, ����30��
��˥�٥��Ĥ��ޤ�. 
\vspace{1em}

����, $x$�����ˤĤ��Ƥ�, {\tt UWSGXB} �롼������Ѥ���, �Ǿ���, ������
����ӳʻ���������ꤹ�뤳�Ȥˤ�ä�, �ʻ�����ɸ�˴ؤ����������ꤷ��
��. ������, �����Ǥϳʻ����򥦥���ɥ����äѤ������ꤹ��褦�ˤ��Ƥ���
�����ʤΤ�, {\tt UWSGXB} �롼�����ƤФʤ��Ƥ��̤�Ʊ���Ǥ�. ������,
{\tt UWSGYA} �롼������Ѥ��������ֳ֤γʻ��������ꤷ�Ƥ��ޤ�. ������, 
��ɸ�ͤ���ꤹ������̾ {\tt UY1} �Ȥ���Ĺ���Ǥ�. $x$���������ֳ֤γʻ�
�������ꤹ��ˤ�, {\tt UWSGXA} �롼������Ѥ��ޤ�.
\vspace{1em}

���Ȥ�, {\tt UDCNTR} �롼�����Ƥ֤�, �ʻ����������ֳ֤ξ��Ǥ����
�Τ褦���������ޤ�������ޤ�. 
\vspace{1em}

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


%-----------------------------------------------------------------------
\section{����ΰ���ʬ����������}
\label{s:u2d1_bubun}

����ΰ���ʬ�������褹��ˤϤɤ�������褤�ΤǤ��礦? ����ޤǤ�Ʊ��
�ǡ�����, ���ΰ���ʬ�������������Ȥ�ͤ��Ƥߤޤ��礦({\tt U2D4}).
\vspace{1em}

����80$^{\circ}$����320$^{\circ}$, ����$-60^{\circ}$����60$^{\circ}$��
��ʬ�������������Ȥˤ��ޤ�. 6�Ԥ�Υѥ�᡼��ʸ��Ϳ���Ƥ���褦��, ��
�������ϰϤ�$x$������$9 \leq i \leq 33$, $y$������$7 \leq j \leq 31$��
�ʤ�ޤ�. ������ɥ�������򤳤��ϰϤȤ�, 36�Ԥ��{\tt UDCNTR} �롼��
����������ޤ������ΤǤ���, �����ǰ칩�פ�ɬ�פǤ�. �ǽ�ΰ����Ȥ��Ƥ�, 
���ζ���ΰ�κ������б������������� {\tt P(KXMN,KYMN)} ���ۤ�Ϳ��, 2
�֤�ˤϼºݤ���������������1������ˡ {\tt NX}, 3, 4�֤�ˤϼºݤκ�
��˻Ȥ��������1�����������2������ˡ {\tt (KXMX-KXMN+1,KYMX-KYMN+1)} 
��Ϳ���뤳�Ȥˤ�ä�����ΰ���ʬ�������褹�뤳�Ȥ��Ǥ��ޤ�.
\vspace{1em}

�����դλ�������������򤹤뤿��ˤ�, FORTRAN �ˤ�����, 2������������
�Ǥ������ΰ��ǤɤΤ褦�˽���Ť����, ���֥롼����ΰ����ˤ�������
�ɤΤ褦�˰����Ƥ��뤫���Τ�ɬ�פ�����ޤ�. FORTRAN �ޥ˥奢��ʤɤ�
���Ȥ��Ƥ�������.

\Dproginput{u2d1/u2d4.f}

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