Усовершенствование конструкции гидростойки, страница 5

Pc1    =100e6        !Давление в защитном цилиндре

  !Свойства материала

Es     =2e11           !Секущий модуль Юнга

Ek     =2.1e8          !Касательный модуль Юнга

Sig_t  =6.2e8         !Предел текучести

D      =7850           !Плотность

Mu     =0.29           !Коэффициент Пуассона

 !Параметры КЭ сетки

FESize1 =0.008     !Размер ребра КЭ

FESize2 =0.002

 !Параметры расчета

NSubNom=15         !Число подшагов при расчете

NSubMin=5                      !Минимальное число подшагов

NsubMax=100        !Максимальное число подшагов

!FlgKBC =0                      !Вид приложения нагрузки: 0 - постепенно;

!                   !                         1 - резко.

!Начальные параметры

KEYW,PR_SET,1           !Выбор вида анализа

KEYW,PR_STRUC,1     !Прочностной анализ

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

!Выбор элементов

ET,1,PLANE42               !КЭ PLANE42

KEYOPT,1,3,1                !Асимметричные элементы

Свойства материала

UIMP,1,EX, , ,Es            !Секущий модуль Юнга

UIMP,1,DENS, , ,D        !Плотность

UIMP,1,NUXY, , ,Mu     !Коэффициент Пуассона

TB,BISO,1,1, , ,              !Билинейное изотропное упрочнение

TBMODIF,2,1,Sig_t                   !Предел текучести

TBMODIF,3,1,Ek             !Касательный модуль Юнга

!Создание ключевых точек

K,1,rc,0,,

K,2,rc+dc0,0,,

K,3,rc,lc-dck-h,,

K,4,rc+dc1,lc-dck-h,,

k,5,rc+dc0+0.005,lc-dck-h,,

K,6,rc+dc0+0.033,lc-dck-h,,

k,7,rc,lc-dck-h+0.016,,

K,8,rc+dc2,lc-dck-h+0.016,,

K,9,rc+dc0+0.005,lc-dck-h+0.016,,

k,10,rc+dc0+0.033,lc-dck-h+0.016,,

k,11,rc,lc-dck-0.016,,

K,12,rc+dc3,lc-dck-0.016,,

K,13,rc+dc0+0.005,lc-dck-0.016,,

k,14,rc+dc0+0.033,lc-dck-0.016,,

K,15,0,lc-dck,,  

K,16,rc,lc-dck,,

K,17,rc+dc4,lc-dck,,

k,18,rc+dc0+0.005,lc-dck,,

K,19,rc+dc0+0.033,lc-dck,, 

K,20,0,lc,,

K,21,rc-dc0,lc,,

K,22,rc,lc,,

K,23,rc+dc5,lc,,

K,24,0,lc+1/8*dck+2*dck,,

K,25,1/5*rc,lc+1/8*dck+2*dck,, 

K,26,2/5*rc,lc+1/8*dck+2*dck-1/4*dck,,

K,27,3/5*rc,lc+1/8*dck+2*dck-1/2*dck,, 

K,28,1/2*rc,lc+1/8*dck+1/3*dck,, 

K,29,rc/2-1/15*dck,lc+1/8*dck+1/6*dck,,

K,30,rc/2,lc+1/8*dck,,

K,31,rc-dc0,lc+1/8*dck,,

!Создание линейных объектов

  !Линии

LSTR,       1, 2       ! 1 линия

LSTR,       1, 3       ! 2 линия

LSTR,       3, 7       ! 3 линия

LSTR,       7, 11     ! 4 линия

LSTR,      11,16     ! 5 линия

LSTR,      15, 16    ! 6 линия

LSTR,      15, 20    ! 7 линия

LSTR,      20, 24    ! 8 линия

LSTR,      2,  4       ! 9 линия

LSTR,      4,  8       ! 10 линия

LSTR,      8,  12     ! 11 линия

LSTR,      12,  17  ! 12 линия

LSTR,      17,  23  ! 13 линия

LSTR,      16, 22    ! 14 линия

LSTR,      21,  31  ! 15 линия

LSTR,      24, 25    ! 16 линия

LSTR,      4,  5       ! 17 линия

LSTR,      8,    9     ! 18 линия

LSTR,      12,  13  ! 19 линия

LSTR,      17, 18    ! 20 линия

LSTR,      7,   8      ! 21 линия

LSTR,      3,    4     ! 22 линия

LSTR,      11,  12  ! 23линия

LSTR,      16,  17  ! 24линия

LSTR,      20,  21  ! 25 линия

LSTR,      22,  23  ! 26 линия

LSTR,      30,  31  ! 27 линия

LSTR,      18, 19    ! 28 линия

LSTR,      13,  14  ! 29 линия

LSTR,      9,   10    ! 30 линия

LSTR,      5,    6     ! 31 линия

LSTR,      5,    9     ! 32 линия

LSTR,      9,   13    ! 33 линия

LSTR,      13,  18  ! 34 линия

LSTR,      6,   10    ! 35 линия

LSTR,      10,  14  ! 36 линия

LSTR,      14,  19  ! 37 линия

LSTR,      21,   22 ! 38 линия

  !Дуги

LARC,      30,       28,     29       ! 39 дуга

LARC,      28,       25,     27       ! 40 дуга

LDIV,40, , ,2,0                !Разбиение 40 линейного объекта (дуги) на

                                                   !2 равные части

!Создание поверхностей

AL,1,9,22,2                     !1 поверхность

AL,3,21,10,22                 !2 поверхность

AL,10,17,32,18               !3 поверхность

AL,32,31,35,30               !4 поверхность