本帖最后由 hitboy 于 2010-9-10 14:12 编辑
哦,谢谢tonnyw
我发现我发的程序是错误的,少些了一些东西。
/PREP7
ET,1,SOLID46
KEYOPT,1,2,0
KEYOPT,1,8,1
R,1,20,1
RMORE
RMORE,1,0,0.1308,1,45,0.1308
RMORE,1,-45,0.1308,1,+45,0.1308
RMORE,1,-45,0.1308,1,+45,0.1308
RMORE,1,-45,0.1308,1,90,0.1308
RMORE,1,90,0.1308,1,90,0.1308
ET,2,200
KEYOPT,2,1,6
EX=146900
EY=11380
EZ=12380
VXY=0.3
VYZ=0.4
VXZ=0.3
GXY=6185
GXZ=6185
GYZ=5780
*dim,m_1,array,enum
*do,i,1,enum
m_1(i)=1
*enddo
*dim,EX1,array,enum !!!定义单元突降刚度系数数组
*dim,EY1,array,enum
*dim,EZ1,array,enum
*dim,GXY1,array,enum
*dim,GYZ1,array,enum
*dim,GXZ1,array,enum
*dim,PRXY1,array,enum
*dim,PRYZ1,array,enum
*dim,PRXZ1,array,enum !!!定义单元突降刚度系数数组
*vfact,EX
*vfun,EX1(1),copy,m_1(1) !!ex1中存储了单元的无损伤的初始刚度系数,ex1存放突降刚度系数
*vfact,EY
*vfun,EY1(1),copy,m_1(1)
*vfact,EZ
*vfun,EZ1(1),copy,m_1(1)
*vfact,GXY
*vfun,GXY1(1),copy,m_1(1)
*vfact,GYZ
*vfun,GYZ1(1),copy,m_1(1)
*vfact,GXZ
*vfun,GXZ1(1),copy,m_1(1)
*vfact,VXY
*vfun,PRXY1(1),copy,m_1(1)
*vfact,VYZ
*vfun,PRYZ1(1),copy,m_1(1)
*vfact,VXZ
*vfun,PRXZ1(1),copy,m_1(1)
enum=24000
L=88.9
W=6.35
D=1.5875
K,1,-L,-W
K,2,L,-W
K,3,L,W
K,4,-L,W
K,5,10,W
K,6,-10,W
K,7,-10,-W
K,8,10,-W
L,1,7
L,7,8
L,8,2
L,2,3
L,3,5
L,5,6
L,6,4
L,4,1
L,6,7
L,8,5
L,6,8
L,5,7
K,9,0,0
CIRCLE,9,D,,,,,
LPTN,11,14,16
LPTN,12,13,15
LCOMB,21,25
LCOMB,26,22
LCOMB,16,19
LCOMB,20,24
LDELE,23
LDELE,27
NUMCMP,ALL
AL,1,9,7,8
AL,3,4,5,10
AL,12,17,14,9
AL,2,15,18,12
AL,15,10,11,13
AL,16,11,6,14
LPLOT
TYPE,2
LSEL,S,,,1,7,6
LESIZE,ALL,,,40
LSEL,S,,,8,9
LESIZE,ALL,,,10
LSEL,S,,,4,10,6
LESIZE,ALL,,,10
LSEL,S,,,3,5,2
LESIZE,ALL,,,40
LSEL,S,,,9,17,8
LESIZE,ALL,,,10
LSEL,S,,,12,14,2
LESIZE,ALL,,,10
LSEL,S,,,2,18,16
LESIZE,ALL,,,10
LSEL,S,,,12,15,3
LESIZE,ALL,,,10
ALLSEL
LSEL,S,,,10,13,3
LESIZE,ALL,,,10
LSEL,S,,,11,15,4
LESIZE,ALL,,,10
LSEL,S,,,6,16,10
LESIZE,ALL,,,10
LSEL,S,,,11,14,3
LESIZE,ALL,,,10
MSHKEY,1
AMESH,ALL
TYPE,1
EXTOPT,ESIZE,20,0
VEXT,1,6,1,0,0,2.616
aclear,1,6
NUMMRG,NODE
NUMMRG,ELEM
numcmp,all
*do,i,1,enum
MP,EX,i,EX1(i)
MP,EY,i,EY1(i)
MP,EZ,i,EZ1(i)
MP,GXY,i,GXY1(i)
MP,GXZ,i,GXZ1(i)
MP,GYZ,i,GYZ1(i)
MP,prXY,i,PRXY1(i)
MP,prXZ,i,PRXZ1(i)
MP,prYZ,i,PRYZ1(i)
*enddo
*do,i,1,enum
mpchg,i,i
*enddo
/solu
antype,static
nsel,s,loc,x,0
d,all,UX,0
nsel,s,loc,Y,0
D,ALL,UY,0
nsel,s,loc,x,-88.9
sf,all,pres,-10
nsel,s,loc,x,88.9
sf,all,pres,-10
allsel
solve
我从新发了一下程序,写的很罗嗦啊,才开始研究,希望哪位大师帮忙看看,弄了好几天了,实在是不找不到问题。很着急,谢谢 |