发一个膜结构找形的算例吧,LOG文件做的修改,供参考。复杂些的也可以照此比划!!!!我做了很多。
!!!定义单元与材料特性
/PREP7
ET,1,SHELL41
KEYOPT,1,1,2
ET,2,LINK10
R,1,0.001, , , , , ,
RMORE, ,
R,2,0.000314,0.9999999,
MP,EX,1,8e6
MP,PRXY,1,0.3
MP,alpx,1,1
UIMP,1,REFT,,,0
MP,EX,2,2e8
MP,PRXY,2,0.3
K,1,,,,
K,2,15,,,
K,3,7.5,6,,
K,4,7.5,-6,,
!!!定义结构几何模型
LSTR, 1, 3
LSTR, 3, 2
LSTR, 2, 4
LSTR, 4, 1
FLST,2,4,4
FITEM,2,4
FITEM,2,1
FITEM,2,2
FITEM,2,3
AL,P51X
AATT, 1, 1, 1, 0,
LATT,2,2,2, , , ,
LESIZE,ALL, , ,15, ,1, , ,1, !!!定义单元边界长度
MSHAPE,1,2D
MSHKEY,1
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
AMESH,_Y1 !!!三角划分面单元
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
FLST,2,4,4,ORDE,2 !!!划分索单元
FITEM,2,1
FITEM,2,-4
LMESH,P51X
FINISH
!!!设定边界并且第一次求解
/SOLU
FLST,2,4,3,ORDE,2
FITEM,2,1
FITEM,2,-4
/GO
DK,P51X, , , ,0,ALL, , , , , ,
NLGEOM,1
NROPT,AUTO, ,
LUMPM,0
EQSLV, , ,0,
PRECISION,0
MSAVE,0
PIVCHECK,1
SSTIF,ON
FLST,2,2,3,ORDE,2
FITEM,2,3
FITEM,2,-4
/GO
DK,P51X, ,5, ,0,UZ, , , , , ,
/STATUS,SOLU
SOLVE
EPLOT
UPCOORD,1,OFF
FLST,2,2,3,ORDE,2
FITEM,2,3
FITEM,2,-4
/GO
DK,P51X, ,0, ,0,ALL, , , , , ,
FINISH
/PREP7
MP,EX,2,2E+11
MP,PRXY,2,0.3
R,2,0.000314,0.9999999e-3,
FINISH
/SOL
FLST,2,1,5,ORDE,1
FITEM,2,1
BFA,P51X,TEMP,-0.1
/STATUS,SOLU
SOLVE
EPLOT
FINISH
/POST1
PLDISP,0
/VIEW, 1 ,,1
/ANG, 1
/REP,FAST
FINISH
!!!第一次循环更新坐标,释放不平衡应力
n=15
*do,i,1,n
/solu
antype,static
sstif,on
/solu
solve
upcoord,0.5,off,lx,rst
*enddo
!!!施加真实应力
/SOL
FLST,2,1,5,ORDE,1
FITEM,2,1
!*
BFA,P51X,TEMP,-2
/STATUS,SOLU
SOLVE
FINISH
/POST1
AVPRIN,0, ,
!*
PLESOL,S,EQV,0,1
FINISH
!!!第二次循环更新坐标,释放不平衡应力
n=15
*do,i,1,n
/solu
antype,static
sstif,on
/solu
solve
upcoord,0.5,off,lx,rst
*enddo
!!!还原膜的真实弹性模量
/PREP7
MP,EX,1,8E+8
MP,PRXY,1,0.3
FINISH
/SOL
FLST,2,1,5,ORDE,1
FITEM,2,1
BFA,P51X,TEMP,-2e-2
/STATUS,SOLU
SOLVE
FINISH
/POST1
AVPRIN,0, ,
PLESOL,S,EQV,0,1
!!!第三次循环更新坐标,释放不平衡应力,找形结束
n=3
*do,i,1,n
/solu
antype,static
sstif,on
/solu
solve
upcoord,0.5,off,lx,rst
*enddo
|