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

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            !Чтение данных последнего шага нагружения

! Определение макс напряжения в рабочей зоне

LSEL,S,,,2,5,1                 !Выбор линий рабочей части гидростойки

NSLL,S,1                        !Выбрать узлы принадлежащие активным линейным объектам

*GET,NUM,NODE,0,COUNT           !NUM присваивается кол. активных узлов

*GET,MNNOD,NODE,,NUM,MIN   !MNNOD присваиваем мин. номер узла

*GET,MXNOD,NODE,,NUM,MAX  !MXNOD присваиваем макс. номер узла

!INDEX=0

SigMAXR=0

*DO,INODE,MNNOD,MXNOD        !Цикл по узлам от MNNOD до MXNOD

 *GET,KOO,NODE,INODE,NSEL    !присваивается KOO  1, если узел активен

                                                             !1, если узел неактивен 

  *IF,KOO,EQ,1,THEN                       !Если KOO=1, то

   *GET,SigMaxRN,NODE,INODE,S,EQV!SigMAXRN присваиваем номер узла INODE

   *IF,SigMAXRN,GT,SigMaxR,THEN !Если SigMAXRN> SigMaxR,то

     SigMAxR=SigMAXRN

!     Index=INODE

   *ENDIF 

 *ENDIF                                              !Конец если

*ENDDO                                             !Конец цикла DO

! Определение макс напряжения во всем цилиндре

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

*GET,NUM,NODE,0,COUNT           !NUM присваивается кол. активных узлов

*GET,MNNOD,NODE,,NUM,MIN   !MNNOD присваиваем мин. номер узла

*GET,MXNOD,NODE,,NUM,MAX  !MXNOD присваиваем макс. номер узла

!INDEX=0

SigMAXV=0

*DO,INODE,MNNOD,MXNOD        !Цикл по узлам от MNNOD до MXNOD

 *GET,KOO,NODE,INODE,NSEL    !присваивается KOO  1, если узел активен

                                                                                           !1, если узел неактивен 

  *IF,KOO,EQ,1,THEN                       !Если KOO=1, то

   *GET,SigMaxVN,NODE,INODE,S,EQV !SigMAXVN присваиваем номер узла INODE

   *IF,SigMAXVN,GT,SigMaxV,THEN       !Если SigMAXVN> SigMaxV,то

     SigMAxV=SigMAXVN

!     Index=INODE

   *ENDIF