Как грамотно задать закрепления?

[VICT0R_1945 21]

Решая одну задачу в следующей постановке.

Имеется 3 упрощенные модели (два коренных подшипника и одно колено коленчатого вала), которые испытывают сжатие газовой и разгрузку инерционной силы в ВМТ, необходимо закрепить по схеме:

Красная сплошная линия - Поверхность закрепления.

Зеленная прерывистая линия - Поверхность контакта.

Подшипники ограничены в перемещении вдоль оси X,Y.

Часть коленчатого вала с торца левой шейки вдоль оси Z.

Высылаю код:

Цитата

 

/CLEAR, START ! Создание нового файла

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

RMZK=6E+6 ! Результирующая максимальная сжимающая сила, действующая вдоль кривошипа (Па)

TR=0.008 ! Коэффициент трения

FKN=0.1 ! Нормальный коэффициент жесткости (%)

!*Импортируем геометрию в ANSYS Mechanical APDL в формате *.x_t

~PARAIN,'Koleno_KV_and_Vkladish','x_t','.\Documents\Ulanov_2020\VAZ_2123\Koleno_KV\',SOLIDS,0,0

/NOPR

/GO

!*Включаем отображения

/FACET,NORML

VPLOT

!*Задаем свойства материала поршневого пальца (Легированная сталь - 50ХФА)

MPTEMP,,,,,,,, 

MPTEMP,1,0 

MPDATA,EX,1,,2.17E+11  

MPDATA,PRXY,1,,0.28

!*Выбираем конечный элемент

ET,1,92

!*Задаем размер конечного элемента 

ESIZE,0.002,0,

!*Разбиваем модель на КЭ-сетку

MSHKEY,0

MSHAPE,1,3d

FLST,5,3,6,ORDE,2  

FITEM,5,1  

FITEM,5,-3 

CM,_Y,VOLU 

VSEL, , , ,P51X

CM,_Y1,VOLU

CHKMSH,'VOLU'  

CMSEL,S,_Y 

VMESH,_Y1  

CMDELE,_Y  

CMDELE,_Y1 

CMDELE,_Y2 

!*Приложение силы к шатунной шейки КВ, действующей на 1/3 цилиндрической поверхности

FLST,2,1,5,ORDE,1 ! Указание количества выбранных поверхностей

FITEM,2,73 ! Выбор поверхности №72

/GO  

SFA,P51X,1,PRES,RMZK ! Приложение нагрузки к выбранной поверхности

!*Создание запрета на перемещения вдоль оси Z колену КВ

FLST,2,1,5,ORDE,1 ! Указание количества выбранных поверхностей

FITEM,2,37 ! Выбор поверхности №37

/GO

DA,P51X,UZ, ! Установка закрепления вдоль оси Z

!*Создание запрета на перемещения вдоль оси X коренным подшипникам

FLST,2,4,5,ORDE,4 ! Указание количества выбранных поверхностей 

FITEM,2,77  ! Выбор поверхности №77 (левый подшипник)

FITEM,2,-78 ! Выбор поверхности №78 (левый подшипник)

FITEM,2,83  ! Выбор поверхности №83 (правый подшипник)

FITEM,2,-84 ! Выбор поверхности №84 (правый подшипник)

/GO

DA,P51X,UX, ! Установка закрепления вдоль оси X

!*Создание запрета на перемещения вдоль оси Y коренным подшипникам

FLST,2,4,5,ORDE,4 ! Указание количества выбранных 

FITEM,2,77  ! Выбор поверхности №77 (левый подшипник)

FITEM,2,-78 ! Выбор поверхности №78 (левый подшипник)

FITEM,2,83  ! Выбор поверхности №83 (правый подшипник)

FITEM,2,-84 ! Выбор поверхности №84 (правый подшипник)

/GO

DA,P51X,UY, ! Установка закрепления вдоль оси Y

!*Создание контактной пары (левый подшипник + левая шейка КВ)

/COM, CONTACT PAIR CREATION - START

CM,_NODECM,NODE

CM,_ELEMCM,ELEM

CM,_KPCM,KP

CM,_LINECM,LINE

CM,_AREACM,AREA

CM,_VOLUCM,VOLU

/GSAV,cwz,gsav,,temp

MP,MU,1,TR 

MAT,1  

MP,EMIS,1,7.88860905221e-31

R,3

REAL,3 

ET,2,170

ET,3,174

R,3,,,FKN,0.1,0,

RMORE,,,1.0E20,0.0,1.0,

RMORE,0.0,0,1.0,,1.0,0.5

RMORE,0,1.0,1.0,0.0,,1.0

RMORE,,,,,,1.0 

KEYOPT,3,4,0

KEYOPT,3,5,0

KEYOPT,3,7,0

KEYOPT,3,8,0

KEYOPT,3,9,0

KEYOPT,3,10,0  

KEYOPT,3,11,0  

KEYOPT,3,12,0  

KEYOPT,3,14,0  

KEYOPT,3,18,0  

KEYOPT,3,2,0

KEYOPT,2,5,0

!*Создаем целевые поверхности на упругой шейке КВ, которые формируют исходные данные для расчета

ASEL,S,,,9 ! Выбор поверхности №9

ASEL,A,,,36 ! Выбор поверхности №36

CM,_TARGET,AREA

TYPE,2 

NSLA,S,1

ESLN,S,0

ESLL,U 

ESEL,U,ENAME,,188,189  

NSLE,A,CT2 

ESURF  

CMSEL,S,_ELEMCM

!*Создаем контактные поверхности на жестком подшипнике, которые отвечают за вычисления результата

ASEL,S,,,77 ! Выбор поверхности №77

ASEL,A,,,78 ! Выбор поверхности №78

CM,_CONTACT,AREA

TYPE,3 

NSLA,S,1

ESLN,S,0

NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008)

ESURF  

ALLSEL 

ESEL,ALL

ESEL,S,TYPE,,2 

ESEL,A,TYPE,,3 

ESEL,R,REAL,,3 

/PSYMB,ESYS,1  

/PNUM,TYPE,1

/NUM,1 

EPLOT  

ESEL,ALL

ESEL,S,TYPE,,2 

ESEL,A,TYPE,,3 

ESEL,R,REAL,,3 

CMSEL,A,_NODECM

CMDEL,_NODECM  

CMSEL,A,_ELEMCM

CMDEL,_ELEMCM  

CMSEL,S,_KPCM  

CMDEL,_KPCM

CMSEL,S,_LINECM

CMDEL,_LINECM  

CMSEL,S,_AREACM

CMDEL,_AREACM  

CMSEL,S,_VOLUCM

CMDEL,_VOLUCM  

/GRES,cwz,gsav 

CMDEL,_TARGET  

CMDEL,_CONTACT 

/COM, CONTACT PAIR CREATION - END  

!*Создание контактной пары (правый подшипник + правая шейка КВ)

/COM, CONTACT PAIR CREATION - START

CM,_NODECM,NODE

CM,_ELEMCM,ELEM

CM,_KPCM,KP

CM,_LINECM,LINE

CM,_AREACM,AREA

CM,_VOLUCM,VOLU

/GSAV,cwz,gsav,,temp

MP,MU,1,TR 

MAT,1  

MP,EMIS,1,7.88860905221e-31

R,4

REAL,4 

ET,4,170

ET,5,174

R,4,,,FKN,0.1,0,

RMORE,,,1.0E20,0.0,1.0,

RMORE,0.0,0,1.0,,1.0,0.5

RMORE,0,1.0,1.0,0.0,,1.0

RMORE,,,,,,1.0 

KEYOPT,5,4,0

KEYOPT,5,5,0

KEYOPT,5,7,0

KEYOPT,5,8,0

KEYOPT,5,9,0

KEYOPT,5,10,0  

KEYOPT,5,11,0  

KEYOPT,5,12,0  

KEYOPT,5,14,0  

KEYOPT,5,18,0  

KEYOPT,5,2,0

KEYOPT,4,5,0

!*Создаем целевые поверхности на упругой шейке КВ, которые формируют исходные данные для расчета

ASEL,S,,,8 ! Выбор поверхности №8

ASEL,A,,,63 ! Выбор поверхности №63

CM,_TARGET,AREA

TYPE,4 

NSLA,S,1

ESLN,S,0

ESLL,U 

ESEL,U,ENAME,,188,189  

NSLE,A,CT2 

ESURF  

CMSEL,S,_ELEMCM

!*Создаем контактные поверхности на жестком подшипнике, которые отвечают за вычисления результата

ASEL,S,,,83 ! Выбор поверхности №83

ASEL,A,,,84 ! Выбор поверхности №84

CM,_CONTACT,AREA

TYPE,5 

NSLA,S,1

ESLN,S,0

NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008)

ESURF  

ALLSEL 

ESEL,ALL

ESEL,S,TYPE,,4 

ESEL,A,TYPE,,5 

ESEL,R,REAL,,4 

/PSYMB,ESYS,1  

/PNUM,TYPE,1

/NUM,1 

EPLOT  

ESEL,ALL

ESEL,S,TYPE,,4 

ESEL,A,TYPE,,5 

ESEL,R,REAL,,4 

CMSEL,A,_NODECM

CMDEL,_NODECM  

CMSEL,A,_ELEMCM

CMDEL,_ELEMCM  

CMSEL,S,_KPCM  

CMDEL,_KPCM

CMSEL,S,_LINECM

CMDEL,_LINECM  

CMSEL,S,_AREACM

CMDEL,_AREACM  

CMSEL,S,_VOLUCM

CMDEL,_VOLUCM  

/GRES,cwz,gsav 

CMDEL,_TARGET  

CMDEL,_CONTACT 

/COM, CONTACT PAIR CREATION - END  

!*Запускаем решение задачи

/SOL

/STATUS,SOLU

SOLVE  

FINISH

!*Получаем результаты

/POST1

!*Отображение суммарных перемещений конструкции

/EFACET,1  

PLNSOL, U,SUM, 0,1.0

!*Отображение эквивалентных напряжений по фон Мизесу

/EFACET,1  

PLNSOL, S,EQV, 0,1.0

 

Высылаю модель (кликабельно)!

 

Суть проблемы: Какие-то закрепления лишние или каких-то закреплений не хватает.

Пишет яко бы что-там улетает далеко, хотя вроде и так избыточные условиях задал.

 

Изменено 12 ноября 2020 пользователем VICT0R_1945

[Борман 2 375]

4 минуты назад, soklakov сказал:

а ведь насколько все проще с верстаком-то.

с чего вдруг вы пытаетесь разжечь огонь с помощью трения и соломы, когда на столе лежит зажигалка?

На зажигалку любой пёрнуть может, а ты вот на огниво попробуй.

[SHARit 2 808]

3 часа назад, Борман сказал:

На зажигалку любой пёрнуть может, а ты вот на огниво попробуй.

Легко - только не загорится..

 

[soklakov 1 475]

11 часов назад, Борман сказал:

На зажигалку любой пёрнуть может, а ты вот на огниво попробуй.

я ж не говорю, что это легко. я спрашиваю - зачем такие сложности?

[piden 2 874]

19 minutes ago, soklakov said:

я спрашиваю - зачем такие сложности?

 

29 minutes ago, VICT0R_1945 said:

как разработчик прог скажу, что нынешний ансис это бредятина еще та, апдл рулит...