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

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 поверхность

AL,21,4,23,11                 !5 поверхность

AL,30,33,29,36               !6 поверхность

AL,29,37,28,34               !7 поверхность

AL,20,34,19,12               !8 поверхность

AL,24,12,23,5                 !9 поверхность

AL,24,13,26,14               !10 поверхность

AL,6,14,38,25,7              !11 поверхность

AL,25,15,27,40,41,39,16,8       !12 поверхность

!Задание контрольных размеров

lsel,s,,,1,11,1        

lsel,a,,,1,38,1        

lsel,a,,,12,25,1

LESIZE,all,FESize1, , ,1,          !Все линейные объекты разметить по FESize

!Создание КЭ сетки

AMESH,1,11,1

AMESH,1,,

lsel,s,,,12,,

lsel,a,,,15,25,1

lsel,a,,,41, ,

LESIZE,all,FESize2, , ,1,         

AMESH,12,,

FINISH                  !Выход из препроцессора

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

ANTYPE,0            !Выбор типа анализа - статический

lsel,s,,,3,6,1             !Выбор 3 и 6 линейных объектов

SFL,all,PRES,Pc,    !Приложение давления Рс ко всем активным линейным

                                    !объектам

alls                           !Выбрать (активизировать) все объекты

lsel,s,,,18,19,1             !Выбор 68 и 97 линейных объектов

lsel,a,,,11,33,22

SFL,all,PRES,Pc1,      !Приложение давления Рс ко всем активным линейным

                                             !объектам

alls                               !Активизация всех объектов

lsel,s,,,41                     !Выбор 116 линейного объекта

DL,all,,ALL,                       !Наложение ограничения на перемещение вдоль всех осей у

                                       !всех активных линейных объектов

alls                             !Активизация всех объектов

NSUBST,NSubNom,NSubMax,NSubMin,1 !Задние  подшагов, максимально,

                               ! минимально

!KBC,FlgKBC      !Вид приложения нагрузки

SOLVE                  !Запуск на счет

FINISH                  !Выход из процессора

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

SET,LAST            !Чтение данных последнего шага нагружения