Раздел: Документация
0 ... 54 55 56 57 58 59 60 ... 87 3.3.2.1. Пакетный (командный) режим работы Программа (командный файл) Замечание: рис. а-л, иа которые делаются ссылки в тексте программы, приведены нце /batch! пакетный режим /fitname, curvedbeam ! ввод имени задачи (curved beam) /title.static analysis of spatially curved beam ! заголовок: статический анализ ! пространственного изогнутого ! стержня /units.si! переход к системе единиц 57 /show! инициализация графического драйвера для записи ! результатов в графический файл curvedbeam.grph I **************** ввод параметров для дальнейшего использования ехх = 2.0el 1! модуль Юнга материала стержня (2.0-10" Па) rext = .01! внешний радиус кольцевого сечения (0,01 м) r int = r ext*0.5! радиус шестигранного выреза (0,005 м) *afun,deg! в используемых функциях углы измеряются в градусах rhex = r int*cos(30) ! половина ширины шестигранного выреза lend = .05! длина концевых участков стержня (5 см) lmiddle =. 1! размер средней части стержня (10 см) bendrad = .02! радиус закругления (2 см) lelem = .01! линейный размер конечного элемента (70 см) divlin = 2! число делений линий и дуг сечеиия при построении сетки /сот, **************************** /ргер7! входим в препроцессор /ргер7 et,l,solid45 ! выбираем конечный элемент / SOUD45 с 8 узлами et,2,plane42! выбираем конечный элемент 2 PLANE42 с 4 узлами mp.ex, 1 ,ехх! модуль Юнга для материала элемента / cyl4,0,0,r ext ! создание круга с центром в начале координат (вдоль ! окружности автоматически создаются четыре ! равноотстоящие ключевые точки 1-4) rpoly,6„r int ! создание правильного шестиугольника (в вершинах ! шестиугольника автоматически создаются ключевые ! точки 5-10) asba,l,2! вырезание шестиугольного отверстия нз круга k,l 1! ключевая точка 11 (0,0,0) k, 12„,-l end ! ключевая точка 12 (0,0, -l end) иа изгибе стержня k,13„l middle,-l end ! ключевая точка 13 (0, l middle,-l end) иа изгибе ! стержня к, 14,l end,l middle,-l end ! ключевая точка 14 (lend, l middle,-l end) на ! конце стержня 1,1,3 ! диаметр окружности 1.11.12! осевая линия вдоль короткой стороны бруса 1.12.13! осевая линия вдоль длинной стороны бруса 1.13.14! осевая линия вдоль короткой стороны бруса 1.2.6! линия, делящая сечение на сегменты 1.2.7! линия, делящая сечение на сегменты 1.4.9! линия, делящая сечеиие на сегменты 1.4.10! линия, делящая сечеиие на сегменты lfillt, 12,13,bendrad ! создание закругления радиусом bendrad между ! линиями 12 и 13 /view„l,l,l! изометрическое изображение модели на дисплее (окно 1) /angle„90,xm! поворот модели иа 90° относительно оси X /pnum.line, 1! линии иа рисунке модели отличаются номерами и цветом {plot! показ на дисплее выделенных линий (рис. а) /pnum,line,0 ! отмена цвета и нумерации линий на дисплее lsel,s,line„l 1 ! выбор линии с номером lsel,a,line„ 15,18 ! дополнительный выбор линий с номерами 15-18 asbl,3,all,„keep ! разделение площади 3 на части выбранными линиями cm,crossec,area ! объединение двух площадей одним именем crossec ! генерирование сетки элементов lsla.s! выбор линий, принадлежащих поперечному сечению lesize,all,„div lin! деление выбранных линий на divjin = 2 элементов type, 2. для построения сетки сначала используется элемент 2 (plane42) mshape,0,2d ! использование элемента четырехугольной формы plane42 ! для построения двумерной сетки mshkey, 1! построение упорядоченной (mapped) сетки save! сохранить в базе данных (файл .аЪ) до построения сетки amesh.all! построение сетки с учетом всех узлов /title.meshed cross section eplot ! показ на экране элементов, входящих в поперечное сечение (рис. б) ! далее используем двумерные элементы ! для построения трехмерных элементов type, 1! установка указателя типа элемента esize,\ e\em ! установление размера элементов lelem =. 01 vdrag.all......12,19,13,20,14 ! построение объема посредством перемещения ! плоского сечения вдоль заданного пути ! (выдавливание) /type„hidp! установка типа дисплея /title,meshed curved beam eplot! показ элементов на экране (рис. в) cmsel„crossec ! выделение поверхностей с общим имененм crossec и aclear.all! удаление двумерных (2-D) элементов asel.all finish /solu! приложение нагрузок и получение решения antype.static ! выбор типа анализа (статический анализ) /title, curved beam - load step 1 ! заголовок: изогнутый брус — шаг нагружения / ! закрепляем все узлы на нижнем торце стержня (граничные условия) cmsel„crossec ! выбор поверхностей, составляющих нижний торец lsel„ext! установление линий, составляющих эти поверхности nsll„l! установление узлов, составляющих эти линии d,all,all! в выделенных узлах запрещение всех смещений lsel,all /pbc,u,,l! показ на экране символов перемещений /title.boundary conditions on end of curved beam! заголовок: граничные ! условия на конце изогнутого стержня nplot! показ узлов на экране (рис. г) ! приложение давления, соответствующего силе 50 Н vsel„loc,x, bendrad,l end ! выделение объемов asel„ext! выделение площадей asel,r,loc,z,-l end+r hex! выделение площади nsla„l! выделение узлов, связанных с выделенными площадями nsel,r,loc,x,l end-2*l elem,l end ! повторное выделение узлов ! на конце стержня на длине 2-х элементов *get,xmin,node„mnloc,x ! получение минимальных значений координат ! вдоль оси х в выделенных узлах Pi = 50/(r int*(l end-xmin)) ! давление, эквивалентное силе 50 Н sf,all,pres,pl! приложение давления ко всем выделенным узлам i82 Частьз allsel! выделить все /psf,pres„2! показ символов нагрузки на модели /title,boundary conditions on curved beam for load step 1 ! заголовок: гранич- ! ные условия для стержня на / шаге нагружения nplot! показ узлов на экране (рис. д) lswrite! запись в файл данных для первого шага нагружения /title, curved beam - load step 2! заголовок: изогнутый брус — шаг нагружения 2 ! действует давление на свободный торец стержня, соответствующее ! силе 40 Н secarea = 3.14*r ext*r ext-3 *r int*r int ! площадь поперечного сечения р2 = 40/secarea asel„loc,x,l end! площадь под нагрузкой nsla„l! узлы, соответствующие этой площади sf,all,pres,p2! приложение давления ко всем выделенным узлам allsel /title,boundary conditions on curved beam for load step 2 ! заголовок: гранич- ! ные условия изогнутого стержня для шага нагружения 2 nplot ! показ узлов на экране (рис. е) lswrite ! запись в файл данных для второго шага нагружения save! сохранение в базе данных (файл .<#>) lssolve,l,2 ! чтение исходных данных и решение для шагов нагружения / и 2 finish ! обзор результатов /postl ! вход в постпроцессор общего назначения set,l! чтение результатов первого шага нагружения prrsol! печать реакций в узлах /pbc.defa ! убрать символы граничных условий /psf,defa ! убрать символы поверхностной нагрузки /edge„l ! показывать только грани /title.deformation of curved beam under transverse load ! заголовок: деформация ! изогнутого стержня вследствие поперечной силы pldisp,2 ! показ деформированной и недеформированной формы стержня ! (рис. ж) /gsave,pldisp,gsav ! сохранить данные для графика в файле pldisp.gsav /plopts.info.on ! включить колонку легенды /plopts.legl.off ! выключить заголовок колонки /angle„120,ym,l ! дополнительный поворот на 120° относительно оси у ! (для показа площадок высоких напряжений) /title,stress intensity contours caused by transverse load ! заголовок: линии ! постоянных интенсивностей напряжений, вызванных ! действием поперечной силы plnsol,s,int! показать линии интенсивности напряжений (рис. з) /gsave,plnsol,gsav ! сохранить данные для графика в файле plnsol.gsav set3! читать результаты для шага нагружения 2 prrsol! печать реакций в узлах /gresume.pldisp.gsav ! восстановление данных для графика из файла pldisp.gsav /title.deformed curved beam caused by both loads ! заголовок: ! деформированный стержень при действии обеих нагрузок pldisp,2 ! показ деформирмированной и недеформирмированной формы ! стержня (рис. и) /gresume,pmsol,gsav ! восстановл. данных для графика из файла plnsol.gsav /title,stress intensity contours caused by both loads ! заголовок: линии ! интенсивности напряжений при действии обеих нагрузок plnsol,s,int! показать линии интенсивности напряжений (рис. к) 0 ... 54 55 56 57 58 59 60 ... 87
|
