/TITLE, Heat Flow in 3D shell
/PREP7

!  Все величины в системе Си

! Геометрические размеры тела в форме буквы "R"
HL=1.4 	 ! Высота 
WL=0.8   ! Ширина 
WWL=0.2 ! Ширина стенок буквы "R"
HAL=0.7 ! Дополнительный размер по высоте

PEL=(HAL/2)/(WL-WWL) ! Параметр эллиптичности для криволинейной части фигуры
LOCAL,11,1,WWL,HL-HAL/2,,,,,PEL ! Эллиптическая система координат 11
CSYS,0	! Переход в основную декартову систему координат

! Определение основных опорных точек для внешней границы
K,1,0,0
K,2,WWL,0
K,3,WWL,HL-HAL-WWL
K,4,WL-WWL,0
K,5,WL,0
K,6,WWL,HL-HAL
K,7,WL,HL-HAL/2
K,8,WWL,HL
K,9,0,HL

 !   создание линий по точкам
L,1,2 $ L,2,3  $ L,3,4 $ L,4,5 $ L,5,6
CSYS,11    ! Переход в систему координат с номером 11
L,6,7 $ L,7,8
CSYS,0 ! Переход в основную декартову систему координат
L,8,9 $ L,9,1 
AL,1,2,3,4,5,6,7,8,9 ! Определение площади 1 по линиям

! Определение отверстия - площади 2
K,10,WWL,HL-HAL/2-(WL-2*WWL)*PEL
K,11,WL-WWL,HL-HAL/2
K,12,WWL,HL-HAL/2+(WL-2*WWL)*PEL
CSYS,11
L,10,11 $ L,11,12
CSYS,0
L,12,10
AL,10,11,12
ASBA,1,2 ! Вырезать из области 1 область 2

!ЭКСТРУЗИЯ -ПРИРАЩЕНИЕ КООРДИНАТ + МАСШТАБ
!VEXT, NA1, NA2, NINC, DX, DY, DZ, RX, RY, RZ
!VEXT,3,,,,,2*HL,0.5,0.5

!ПАРАЛЛЕЛЬНЫЙ ПЕРЕНОС - ЛИНИЯ ПЕРЕНОСА
!VDRAG, NA1, NA2, NA3, NA4, NA5, NA6, NLP1, NLP2, NLP3, NLP4, NLP5, NLP6
!K,100,0,HL/2,HL
!L,1,100
!VDRAG,3, , , , , , 13

!ВРАЩЕНИЕ - УГОЛ + ОСЬ ВРАЩЕНИЯ
K,101,0,-WWL
K,102,WWL,-WWL
!VROTAT, NA1, NA2, NA3, NA4, NA5, NA6, PAX1, PAX2, ARC, NSEG
VROTAT, 3, , , , , , 101, 102, 260

!3d СПЛОШНАЯ
DMESH=WWL/8
ET,1,SOLID70
ET,2,MESH200,6
TYPE,2
AMESH,3
TYPE,1
VSWEEP,ALL