CFD Online Logo CFD Online URL
www.cfd-online.com
[Sponsors]
Home > Forums > General Forums > Structural Mechanics

Nrotate

Register Blogs Community New Posts Updated Threads Search

Reply
 
LinkBack Thread Tools Search this Thread Display Modes
Old   May 6, 2014, 12:03
Default Nrotate
  #1
New Member
 
Makar Zabiyakin
Join Date: May 2014
Posts: 1
Rep Power: 0
spbsmile is on a distinguished road
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!
spbsmile is offline   Reply With Quote

Reply


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are On



All times are GMT -4. The time now is 14:05.