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

      KEYOPT,1,10,0
      ! Блок задания констант элемента
      R,1,B1*H1,(B1*H1**3)/12,H1,0, , , ! Площадь, момент инерции, высота сечения
      LESIZE,All, , ,2,1, ! Всем линиям присвоить 2 деления на элементы
      LMESH,ALL ! Построить сетку на всех линиях
      FINISH ! Выход из препроцессора
      /SOLU ! Вход в процессор решения
      NSEL,S,LOC,X,0 ! Выбор слоя с координатой X = 0
      D,ALL, , , , , ,UX,UY, , , , ! Закрепление всех выбранных узлов
      NSEL,S,LOC,X,a
      D,ALL, , , , , ,UY, , , , ,
      NSEL,S,LOC,X,a+b+c
      D,ALL, , , , , ,ALL, , , , ,
      ! Задание нагрузки
      NSEL,S,LOC,X,a+b+c-d
      F,ALL,FY,-P ! Сила
      NSEL,S,LOC,X,a+b
      F,ALL,MZ,M ! Момент
      ! Распределенная нагрузка
      LSEL,S,LOC,X,0,a ! Выделить линию
      ESLL,S ! Выделить элементы, образующие линию
      SFBEAM,ALL,1,PRES,q,q, , , , , ! Приложить нагрузку
      ALLSEL, ALL ! Выделить все
      SOLVE ! Запуск на решение
      FINISH
      /POST1 ! Вход в постпроцессор
      ! Деформированная форма
      SET,FIRST
      PLDISP,1
      ! Эпюры перерезывающих сил
      ! Таблица значений перерезывающей силы в узле i. Присвоено qyi
      etable, qyi, smisc, 2
      ! Таблица значений перерезывающей силы в узле j. Присвоено qyj
      etable, qyj, smisc, 62
      plls, qyi, qyj ! Графический вывод
      ! Эпюры изгибающих моментов
      ETABLE, MXI, SMISC, 6
      ETABLE, MXJ, SMISC, 66
      PLLS, MXI, MXJ
      ! Эпюры максимальных по модулю напряжений
      ETABLE, SI, NMISC, 1
      ETABLE, SJ, NMISC, 21
      PLLS, SI, SJ

Задание.
Используя данные эпюры максимальных напряжений, подобрать размеры сечения из
условия прочности по допускаемым напряжениям [σ] = 400 МПа.