下面是一个单层球面网壳的命令流文件,内容包括线性静力分析,几何非线性静力分析,模态分析。以下文件只要做少许改动,就可适用于椭圆球壳,扭网壳以及双曲扁壳。
/title,single-layer sphere s**** ansys,developed by 北门吹雪.
/PREP7
local,11,2,0,0,0
CSCIR,11,1
N,1,20,0,30
N,13,20,180,30
N,24,20,345,30
fill,1,13
FILL,13,24
ngen,6,24,1,24,1,0,0,10
n,145,20,0,90
ET,1,LINK8----
MP,EX,1,2E8
MP,DENS,1,7.8E3
MP,NUXY,2,0.3
R,1,700e-6
*DO,I,1,121,24
E,I,I+1
EGEN,23,1,I,I,1
E,I+23,I
*ENDDO
E,1,25
EGEN,5,24,145,145,1
EGEN,24,1,145,149,1
*DO,I,121,144,1
E,I,145
*ENDDO
E,1,26
E,25,50
E,49,74
E,73,98
E,97,122
EGEN,23,1,289,293,1
E,24,25
E,48,49
E,72,73
E,96,97
E,120,121
FINISH
/SOLO
!ANTYPE,STATIC
ANTYPE,MODAL
MODOPT,REDU
M,25,UZ,145,1
!NLGEOM,ON
OUTRES,ALL,ALL
NSEL,S,NODE,,1,24,1
D,ALL,UX,0
D,ALL,UY,0
D,ALL,UZ,0
!CSYS,0
!NSEL,ALL
!F,145,FZ,-200
!ACEL,0,0,-0.01
!NSUBST,40
!ARCLEN,ON,4
SOLVE
FINISH
/SOLU
EXPASS,ON
MXPAND,50
SOLVE
FINISH
/POST1
SET,LIST
SET,1,1
SET,1,2
PLDISP
!ETABLE,A,LS,1
!PLETAB,A,NOAV
!PRETAB,A
!/OUT
FINISH
!/POST26
!NSOL,2,145,U,Z
!PROD,3,2,,,,,,,-1
!FINISH |