Программа решения задачи.

Предлагается решить задачу в интерактивном режиме, вводя команды в окно ANSYS Input и отслеживая получаемые результаты.

/PREP7! Вход в препроцессор

/UNITS, SI! Задать единицы измерения СИ! * Геометрические параметры рамы

c=2

a=2

b=4

! * Геометрические параметры сечения

B1=0.01

H1=0.03

! * Задание ключевых точек

K, 1, 0, 0, 0,

K, 2, 0, 0, c,

K, 3, b+2*a, 0, 0,

K, 4, b+2*a, 0, c,

K, 5, a, 0, c,

K, 6, a, 0, 0,

K, 7, a+b, 0, 0,

K, 8, a+b, 0, c,

! Ключевые точки, образующие дуги окружности

K, 9, a, c/2, c/2,

K, 10, a+b, c/2, c/2, K, 11, a, c*(sqrt(2)/4), c/2-c*(sqrt(2)/4), K, 12, a, c*(sqrt(2)/4), c/2+c*(sqrt(2)/4), K, 13, a+b, c*(sqrt(2)/4), c/2-c*(sqrt(2)/4), K, 14, a+b, c*(sqrt(2)/4), c/2+c*(sqrt(2)/4),! * Действующие нагрузки

P=1000

q=100

! * Задание линий

LSTR, 2, 5

LSTR, 5, 8

LSTR, 8, 4

LSTR, 4, 3

LSTR, 3, 7

LSTR, 7, 6

LSTR, 6, 1

LSTR, 1, 2

LSTR, 5, 6

LSTR, 8, 7

LSTR, 3, 4

LSTR, 9, 10

! Построение дуг – сплайнов

SPLINE, 5, 12, 9, 11, 6

SPLINE, 8, 14, 10, 13, 7

! Склеивание линий

! Операция склеивания необходима для того, чтобы ANSYS воспринимал

! конструкцию, как единое целое

LGLUE, ALL

! Задание свойств материала

UIMP, 1, EX,,, 2e11,! Модуль Юнга первого материала UIMP, 1, DENS,,, 7800,! Плотность первого материала UIMP, 1, NUXY,,, 0.3,! Коэффициент Пуассона первого материала UIMP, 2, EX,,, 2.9e10,! Модуль Юнга второго материала UIMP, 2, DENS,,, 2700,! Плотность второго материала UIMP, 2, NUXY,,, 0.3,! Коэффициент Пуассона второго материала! Задание параметров экрана – косоугольная проекция

/VIEW, 1, 1, 2, 3 /ANG, 1 /REP, FAST

LPLOT! Прорисовать линии

! * Задание типа элемента – элемент пространственный балочный BEAM4

ET, 1, BEAM4

! * Задание опций элемента

KEYOPT, 1, 2, 0

KEYOPT, 1, 6, 0

KEYOPT, 1, 7, 0

KEYOPT, 1, 9, 9! 9 промежуточных точек для построения эпюр

KEYOPT, 1, 10, 0

! * Задание констант элемента. Сечение первое

! Через запятую заданы:

! Площадь сечения: B1*H1

! Момент инерции сечения Izz: (B1*H1**3)/12

! Момент инерции сечения Iyy: (H1*B1**3)/12

! Высота сечения вдоль оси z: B1

! Высота сечения вдоль оси y: H1

! Угол поворота сечения вдоль продольной оси: -90

! Начальная деформация: 0

! Момент инерции сечения Ixx: (H1*B1**3)/12+(B1*H1**3)/12 R, 1, B1*H1, (H1*B1**3)/12, (B1*H1**3)/12, H1, B1, -90, RMORE,, (B1*H1**3)/12+(H1*B1**3)/12,,,,,

! * Задание констант элемента. Сечение второе

R, 2, B1*B1, (B1**4)/12, (B1**4)/12, B1, B1,, RMORE,, (B1**4)/6,,,,,

! * Присвоение атрибутов линии и числа разбиений на элементы

LSEL, S, LOC, Y, 0! Выделить линию

! Присвоить атрибуты: материал, номер констант, номер типа элемента

LATT, 1, 1, 1, 0

LESIZE, ALL,,, 10, 1,! Присвоить число разбиений на элементы: 10 на линию

! *

LSEL, INVE! Обратить выделение LATT, 2, 2, 1, 0! Присвоить атрибуты

LESIZE, ALL,,, 5, 1,! Присвоить число разбиений на элементы: 5 на линию

ALLSEL, ALL! Выделить все

LMESH, ALL! Построить сетку FINISH! Выход из препроцессора

Группа операторов управления экраном, позволяющая просмотреть построенное сечение балки и присвоенные атрибуты.

! *******

/PNUM, MAT, 1! Пронумеровать линии по свойствам материала /ESHAPE, 1.0! Показать форму сечения

/REPLOT! Перерисовать

! ******