    
Раздел: Документация
0 ... 15 16 17 18 19 20 21 ... 33 ! Создать массив для строковой переменной LABEL размерностью 1*2 *DIM,LABEL,CHAR,1,2 ! Создать массив для действительной переменной VALUE размерностью 1*3 *DIM,VALUE,,1,3 ! Присвоение значений переменной LABEL(1,1) = F, LABEL(1,2) = (Hz) ! Вычислить теоретическое значение собственной частоты FreqTh=SQRT(C/M)/(8*ATAN(1)) ! Заполнить массив данными *VFILL,VALUE(1,1),DATA, FreqTh *VFILL,VALUE(1,2),DATA, FREQ *VFILL,VALUe(1,3),DATA, (FreqTh-FREQ)*100/FREQ ! Задать файл MODE.txt, в который напечатаны значения /OUT, MODE,txt ! Следующие значения будут содержать комментарии в файле /COM /COM, RESULTS /COM, /COM, THEORY ANSYS Eps (%) /COM, ! *VWRITE - это оператор печати в файл, следующая за ним строка ! содержит формат вывода данных. Синтаксис форматного вывода аналогичен ! оператору FORMAT в FORTRAN *VWRITE,LABEL(1,1),LABEL(1,2),VALUE( 1,1),VALUE(1,2),VALUE(1,3) (1X,A8,A8, ,F18.14, ,F18.14, ,F5.3) /COM, /OUT FINISH Результат выполнения программы будет в файле MODE,txt в следующем виде: RESULTS THEORY ANSYS Eps (%) F, (Hz) 0.15915494309190 0.15915494309190 0.000 Замечание. В ANSYS выдается значение не круговой частоты сс, а обычной частоты v = -ас—. Из решения 1С1 данной задачи следует, что а =А— = 1, v = — = 0,15915 . V m2п Задание. Определить частоты колебаний системы с двумя степенями свободы. Cl C2 4.7. ОПРЕДЕЛЕНИЕ СОБСТВЕННЫХ ЧАСТОТ ПЛОСКОЙ РАМЫ. Дана плоская рамная конструкция. Найти собственные формы и собственные частоты конструкции.
/77 Рама сделана из стали, поперечное сечение - круг диаметром 2 см. Геометрические параметры: а = 1 м, b = 1.5 м, с = 0.5 м. Приложенная сила Р = 1000 Н. /PREP7 /UNITS,SI PI=4*ATAN(1) ! Определим число Пи ! Геометрические параметры рамы a=1 b=1.5 c=0.5 ! Диаметр сечения d=1e-2 ! Сила P=1000 !* Построение точек K,1,0,0,, K,2,a,0,, K,3,a+b,0,, K,4,a+b,-c,, !* Построение линий LSTR, 1, 2 LSTR, 2, 3 LSTR, 3, 4 ALLSEL, ALL !* Задаем тип элемента ET,1,BEAM3 ! Задание опций элемента KEYOPT,1,6,0 KEYOPT,1,9,9 KEYOPT,1,10,0 ! Задание констант элемента R,1, PI*D**2/4, PI*D**4/64,D, , , , ! Свойства материала UIMP,1,EX, , ,2e11, ! Модуль Юнга UIMP,1,DENS, , ,7800, ! Плотность материала UIMP,1,NUXY, , ,0.3, ! Коэффициент Пуассона !* Построение сетки LESIZE, ALL, , , 10, 1, ! Задание числа разбиений LMESH,ALL ! Построение сетки !* Задаем условия закрепления узлов NSEL,S,LOC,X,0 NSEL,R,LOC,Y,0 D,ALL, , , , , , ,UX, UY ! NSEL,S,LOC,X,A NSEL,R,LOC,Y,0 D,ALL, , , , , , ,UY ! NSEL,S,LOC,X,A+B NSEL,R,LOC,Y,-C D,ALL, , , , , ,UX,UY !* Задание силы NSEL,S,LOC,X,A+B NSEL,R,LOC,Y,0 F,ALL,FX,-P, ! ALLSEL, ALL ! /SOLU !* Анализ на собственные частоты ANTYPE,2 !* MODOPT,SUBSP,4 ! Спецификация метода решения и количества частот EQSLV,FRONT ! Тип решателя MXPAND,4, , ,0 ! Записывать решения 4 собственных форм 0 ... 15 16 17 18 19 20 21 ... 33 |
|||||||||||||||||||
