4-5.txt

来自「是用apdl语言编的」· 文本 代码 · 共 121 行

/PREP7  
ET,1,LINK8  
ET,2,SOLID65
ET,3,PLANE42
R,1,6126 
MP,EX,1,2e5
MP,PRXY,1,0.3  
MP,ALPX,1,2e-5 
MP,EX,2,3.354e 
MP,PRXY,2,0.2 
 
BLC4, , ,780,210
BLC4,275,210,230,1690   
BLC4,-570,1900,1920,200  

wpoff,390,191   
wprot,0,90
ASBW,1  
wprot,0,0,90
ASBW,4
ASBW,5
/PNUM,AREA,1
/PNUM,LINE,1
gplot
aglue,all
nummrg,all
numcmp,all
SAVE

lesize,8,,,20
lesize,21,,,8
lesize,22,,,8
lesize,5,,,4
lesize,9,,,2
lesize,7,,,2
lsel,s,,,21,22,1
lsel,a,,,5
LCCAT,all
allsel
amesh,6
LSEL,s,LCCA
lDELE,all

allsel
lesize,4,,,20 
lesize,6,,,20
lesize,18,,,2
lesize,19,,,2
lsel,s,,,18,19,1
LCCAT,all
allsel
amesh,4
LSEL,s,LCCA
lDELE,all

allsel
lesize,2,,,6
lesize,3,,,8
lesize,14,,,2
lesize,12,,,2
lsel,s,,,2,18,16
LCCAT,all
allsel
amesh,2
LSEL,s,LCCA
lDELE,all

allsel
lesize,20,,,6
lesize,17,,,8
lesize,13,,,2
lsel,s,,,19,20,1
LCCAT,all
allsel
amesh,5
LSEL,s,LCCA
lDELE,all

allsel
lesize,10,,,6
lesize,15,,,6
lesize,11,,,6
lesize,1,,,8
lesize,16,,,8
allsel
amesh,1
amesh,3
SAVE

TYPE,   2   
EXTOPT,ESIZE,40,0,  
EXTOPT,ACLEAR,1 
EXTOPT,ATTR,0,0,0   
MAT,2   
REAL,1  
VEXT,all, , ,0,0,4000,,,,  
/VIEW, 1 ,1,1,1 
/ANG, 1 
EPLOT   

TYPE,1   
MAT,1
REAL,1   
lmesh,29
FINISH
  
/SOL
DL,23, ,ALL,
DL,38, ,ALL,  
DL,1, ,UY, 
DL,16, ,UY,  
DK,1, , , ,0,UX,UY 
SAVE
BFL,29,TEMP,-375  
  
CNVTOL,F, ,0.05,2, ,
NSUBST,10,0,0   
OUTRES,ERASE
OUTRES,ALL,ALL  
TIME,5  
SOLVE