Исследование устойчивости цилиндрических оболочек, нагруженных осевой сжимающей силой и внешним давлением, страница 5

FITEM,5,10 

CM,_Y,LINE 

LSEL, , , ,P51X

CM,_Y1,LINE

CMSEL,,_Y  

!* 

LESIZE,_Y1, , ,25, , , , ,1

!* 

MSHAPE,0,2D

MSHKEY,0

!* 

FLST,5,4,5,ORDE,2  

FITEM,5,1  

FITEM,5,-4 

CM,_Y,AREA 

ASEL, , , ,P51X

CM,_Y1,AREA

CHKMSH,'AREA'  

CMSEL,S,_Y 

!* 

AMESH,_Y1  

!* 

CMDELE,_Y  

CMDELE,_Y1 

CMDELE,_Y2 

!* 

NUMMRG,ALL, , , ,LOW

FINISH 

/SOL

!* 

ANTYPE,0

PSTRES,1

FLST,2,8,4,ORDE,6  

FITEM,2,1  

FITEM,2,-4 

FITEM,2,6  

FITEM,2,9  

FITEM,2,11 

FITEM,2,13 

!* 

/GO

DL,P51X, ,UX,  

FLST,2,8,4,ORDE,6  

FITEM,2,1  

FITEM,2,-4 

FITEM,2,6  

FITEM,2,9  

FITEM,2,11 

FITEM,2,13 

!* 

/GO

DL,P51X, ,UY,  

FLST,2,8,4,ORDE,6  

FITEM,2,1  

FITEM,2,-4 

FITEM,2,6  

FITEM,2,9  

FITEM,2,11 

FITEM,2,13 

!* 

/GO

DL,P51X, ,UZ,  

FLST,2,4,5,ORDE,2  

FITEM,2,1  

FITEM,2,-4 

/GO

!* 

SFA,P51X,1,PRES,-1 

! /STATUS,SOLU

SOLVE  

FINISH 

/SOLU  

!* 

ANTYPE,1

!* 

!* 

BUCOPT,LANB,4,0,0  

!* 

MXPAND,4,0,0,0,0.001,  

! /STATUS,SOLU

SOLVE  

FINISH 

/POST1 

SET,LIST,2 

SET,FIRST  

! PLDISP,0

/UI,COPY,SAVE,PNG,GRAPH,COLOR,NORM,LANDSCAPE,YES

SET,LAST

! PLDISP,0

/UI,COPY,SAVE,PNG,GRAPH,COLOR,NORM,LANDSCAPE,YES

! LGWRITE,&спдгнюядЯбкемзе','lgw','C:\DOCUME~1\ЙЗПИКЛ[РїАНЧИ~1\КїАА4[РРДГМЯ~1\',COMMENT

Длинная оболочка, нагруженная внешним давлением.

/BATCH 

! /COM,ANSYS RELEASE 11.0SP1 UP20070830       21:21:42    12/13/2009             

/input,menust,tmp,'',,,,,,,,,,,,,,,,1  

! /GRA,POWER 

! /GST,ON

! /PLO,INFO,3

! /GRO,CURL,ON

! /CPLANE,1  

! /REPLOT,RESIZE 

WPSTYLE,,,,,,,,0

/PREP7 

K, ,,,0.25,

K, ,,,-0.25,

K, ,0.25,,,

K, ,-0.25,,,

K, ,-0.25,1.127,,  

! /ANG,1,30,XS,1 

! /REP,FAST  

CSYS,5 

L,       1,       3

L,       3,       2

L,       2,       4

L,       4,       1

L,       4,       5

FLST,2,4,4,ORDE,2  

FITEM,2,1  

FITEM,2,-4 

ADRAG,P51X, , , , , ,       5  

NUMMRG,ALL, , , ,LOW

! LGWRITE,'davl','lgw','E:\',COMMENT

!* 

ET,1,SHELL63

!* 

R,1,0.004, , , , , ,

RMORE, , , ,

RMORE  

RMORE, ,

!* 

!* 

MPTEMP,,,,,,,, 

MPTEMP,1,0 

MPDATA,EX,1,,0.68e11

MPDATA,PRXY,1,,0.3 

FLST,5,8,4,ORDE,6  

FITEM,5,1  

FITEM,5,-4 

FITEM,5,6  

FITEM,5,9  

FITEM,5,11 

FITEM,5,13 

CM,_Y,LINE 

LSEL, , , ,P51X

CM,_Y1,LINE

CMSEL,,_Y  

!* 

LESIZE,_Y1, , ,25, , , , ,1

!* 

FLST,5,4,4,ORDE,4  

FITEM,5,5  

FITEM,5,7  

FITEM,5,-8 

FITEM,5,10 

CM,_Y,LINE 

LSEL, , , ,P51X

CM,_Y1,LINE

CMSEL,,_Y  

!* 

LESIZE,_Y1, , ,35, , , , ,1

!* 

MSHAPE,0,2D

MSHKEY,0

!* 

FLST,5,4,5,ORDE,2  

FITEM,5,1  

FITEM,5,-4 

CM,_Y,AREA 

ASEL, , , ,P51X

CM,_Y1,AREA

CHKMSH,'AREA'  

CMSEL,S,_Y 

!* 

AMESH,_Y1  

!* 

CMDELE,_Y  

CMDELE,_Y1 

CMDELE,_Y2 

!* 

! LGWRITE,'1212','lgw','E:\',COMMENT

NUMMRG,ALL, , , ,LOW

FINISH 

/SOL

!* 

ANTYPE,0

PSTRES,1

FLST,2,8,4,ORDE,6  

FITEM,2,1  

FITEM,2,-4 

FITEM,2,6  

FITEM,2,9  

FITEM,2,11 

FITEM,2,13 

!* 

/GO

DL,P51X, ,UX,  

FLST,2,8,4,ORDE,6  

FITEM,2,1  

FITEM,2,-4 

FITEM,2,6  

FITEM,2,9  

FITEM,2,11 

FITEM,2,13 

!* 

/GO

DL,P51X, ,UY,  

FLST,2,8,4,ORDE,6  

FITEM,2,1  

FITEM,2,-4 

FITEM,2,6  

FITEM,2,9  

FITEM,2,11 

FITEM,2,13 

!* 

/GO

DL,P51X, ,UZ,  

FLST,2,4,5,ORDE,2  

FITEM,2,1  

FITEM,2,-4 

/GO

!* 

SFA,P51X,1,PRES,-1 

! /STATUS,SOLU

SOLVE  

FINISH 

/SOLU  

!* 

ANTYPE,1

!* 

!* 

BUCOPT,LANB,4,0,0  

!* 

MXPAND,4,0,0,0,0.001,  

! /STATUS,SOLU

SOLVE  

FINISH 

/POST1 

SET,LIST,2 

SET,FIRST  

! PLDISP,0

/UI,COPY,SAVE,PNG,GRAPH,COLOR,NORM,LANDSCAPE,YES

SET,LAST

! PLDISP,0

/UI,COPY,SAVE,PNG,GRAPH,COLOR,NORM,LANDSCAPE,YES