CFD Online Discussion Forums

hello!
sorry for my bad english
i have cylindrical shell supported by rollers :
http://i.imgur.com/iNpnN8V.png
rollers - mount it in a radial direction.
valid code for cylindrical shell :

Code:

/PREP7 !нАЧАЛО ЛЮБОЙ ПРОГРАММЫ В ANSYS

/TITLE, Cylindricallshell under exteranl pressere

ANTYPE,Modal           !         модальный анализ

height = 5                        !         Длина оболочки   ! си!!! метры

radius = 1                        !        Радиус основания оболочки

thicknes = 0.1                    !        Толщина оболочки .    !!оболочка считается тонкой, если h/R≤1/20.

exx = 1000                        !         Модуль Юнга ! сталь 2.07E11

nuy = 0.1                         !        Коэффициент Пуассона 0.3

elem_len = 0.05                   !        Длина элементта разбиения 

ET,1,SHELL63,,1                   !        Тип элемента 

R,1,thicknes                      !         Real constant (толщина оболочки)

MP,EX,1,exx                           !        Material properties (Модуль Юнга)

MP,DENS,1,7800                     

MP,NUXY,1,nyu                     !        Material properties (коеффицикнт Пуассона)

K,1,radius,0,0                    !        Keypoints (Построение точек)

K,2,radius,0,height

K,3,0,0,0

K,4,0,0,height

L,1,2                             !        Lines (Построение линии по точкам 1 и 2)

AROTAT,1,,,,,,3,4,360,4 !        Areas(Построение поверхности путем вращения линии 1 вокруг оси , опопределяемой точками 3 и 4, на угол 360, с построением 4 егментов)

ESIZE,elem_len                         !        Задание длины каждого элемента

AMESH,1,4,                          !        Разбиение поверхности на элементы

NUMMRG, NODE                         !        Перенумеровка всех узлов

LSEL,S,LINE,,6,12,2         !        Выделить линии с 6 по 12 с шагом 2

DL,ALL,,UX,0                        !        Шарнирный край. Закрепляем ux,uy,uz

DL,ALL,,UY,0

DL,ALL,,UZ,0                          !        

LSEL,S,LINE,,5,11,2                !         Выделить линии с 5 по 11 с шагом 2

DL,ALL,,UX,0                        !        Шарнирный край.  Закрепляем ux,uy,uz

DL,ALL,,UY,0

DL,ALL,,UZ,0 

LSEL,ALL                                  ! заново выделить все

then add rolls
algorithm rollers :
To begin, create cylindrical coordinate system. Then roll out the coordinates of nodes that are on the surface of a cylindrical system.
So that one of the axes was normal to the surface. Then for this axis coordinates specify binding.
code for one roller :

Code:

LSEL,S,LINE,,1,1,1,1  

!NSEL,ALL

NSLL,S,1

csys,1

NROTAT,ALL

D,     ALL,UX  ,,,,,

LSEL,ALL 

NSEL,ALL 

ESEL, ALL 

csys, 0

is that correct?
thanks!