\newpage
\section*{Příloha č. 3 Vytvoření vazeb mezi povrchem pláště a~střednicí konstrukce}

\begin{Verbatim}[label=input\_coupling.mac,frame=lines,framesep=2mm,labelposition=topline]
CSYS, 1
NSEL, S, LOC, Z, 8.45 ! adding BC to lower nodes
! NSEL, U, LOC, Y, 0
! NSEL, U, LOC, Y, 180   ! BC nodes
*GET, min_r, NODE,, MNLOC, X
NSEL, R, LOC, X, min_r
*GET, y_count, NODE,, COUNT
CM, y_nodes, NODE

NSEL, S, LOC, Y, 0
NSEL, U, LOC, Z, -1.8, 7.25
NSEL, U, LOC, Z, 110, 112
*GET, z_count, NODE,, COUNT
*SET, z_count, z_count / 3

*DIM, y_loc, ARRAY, y_count
*DIM, z_loc, ARRAY, z_count

*SET, num, 0
*DO, i, 1, z_count
    *GET, num, NODE, num, NXTH
    *GET, z_loc(i), NODE, num, LOC, Z
*ENDDO

CMSEL, S, y_nodes
*SET, num, 0
*DO, i, 1, y_count
    *GET, num, NODE, num, NXTH
    *GET, y_loc(i), NODE, num, LOC, Y
*ENDDO

SELTOL, 1e-1
*DO, i, 1, y_count
    *DO, j, 1, z_count
        NSEL, S, LOC, Y, y_loc(i)
        NSEL, R, LOC, Z, z_loc(j)
        CP,, ALL, ALL
    *ENDDO
*ENDDO
SELTOL, 0

ALLSEL
\end{Verbatim}