Основы анализа конструкций в ANSYS. Конюхов А.В. - 51 стр.

H=10
! Геометрические параметры сечения
d1=5e-2
d2=3e-2
d=3e-2
!* Задание ключевых точек
K,1,0,0,,
K,2,0,L,,
K,3,0,H,,
K,4,2*R,H,,
K,5,2*R,L,,
K,6,2*R,0,,
K,7,R,H,,
!* Построение дуги окружности
CIRCLE,7,R ! Построить полный круг с центром в точке 7
! Выделение нижнего полукруга
LSEL,S,RADIUS, ,R
LSEL,R,LOC,Y,H-R,H
! Удаление нижнего полукруга
LDELE,ALL
!* Построение линий
LSTR, 1, 2
LSTR, 2, 3
LSTR, 6, 5
LSTR, 5, 4
! Выделить все
ALLSEL, ALL
! Склеить линии для образования единой конструкции
LGLUE, ALL
!* Задание свойств материала
UIMP,1,EX, , ,2e11, ! Модуль Юнга
UIMP,1,NUXY, , ,0.3, ! Коэффициент Пуассона
!* Задание типа элемента
ET,1,BEAM3
!* Задание опций элемента
KEYOPT,1,6,0
KEYOPT,1,9,9
KEYOPT,1,10,0
!* Задание констант элемента, первое сечение
! Номер констант, площадь сечения, момент инерции, высота сечения
R,1, PI*(D1**2-D2**2), PI*(D1**4-D2**4)/64, D1, , , ,
!* Задание констант элемента, второе сечение
R,2, PI*D**2/4, PI*D**4/64, D, , , ,
!* Задание атрибутов элемента, первое сечение
LSEL,S,LOC,Y,0,L ! Выделение линии
LATT,1,1,1 ! Присвоить атрибуты
LESIZE, ALL, , ,5,1, ! Число разбиений линии – 10, коэф. сжатия – 1
!* Задание атрибутов элемента, второе сечение
LSEL,S,LOC,Y,L,H+R ! Выделить линию
LATT,1,2,1 ! Присвоить атрибуты