e6.02.txt

来自「185个ANSYS工程结构数值分析非常实用的命令流」· 文本 代码 · 共 185 行

!EX6.2 N型万能杆件桁架
finish
/clear
arean1=2330e-6
arean3=1670e-6
arean45=1150e-6
sl=2.0
/prep7
et,1,link8
r,1,2*arean1
r,2,3*arean1
r,3,4*arean1
r,4,3*arean3
r,5,4*arean3
r,6,4*arean45
r,7,2*arean45
mp,ex,1,2.1e11
mp,dens,1,7850*1.07

k,1
k,2,sl
k,3,2*sl
kgen,2,all,,,,sl
l,1,2
l,2,3
l,4,5
l,5,6
l,1,4
l,2,5
l,3,6
l,1,5
l,5,3
lgen,6,all,,,2*sl
nummrg,all
lgen,2,all,,,,,sl
lsel,none
k,101,,,sl
k,102,sl,,sl
k,103,2*sl,,sl
l,1,101
l,2,102
l,3,103
l,1,102
l,3,102
lgen,6,all,,,2*sl
lgen,2,all,,,,sl
lsel,all
l,1,16
*get,l1,line,,num,max
lgen,13,l1,,,sl
nummrg,all
numcmp,all

lsel,s,loc,x,0,4
lsel,a,loc,x,20,24
lsel,r,tan1,y
lsel,r,tan1,z
cm,l2n1,line
latt,1,1,1
lsel,s,loc,x,4,8
lsel,a,loc,x,16,20
lsel,r,tan1,y
lsel,r,tan1,z
cm,l3n1,line
latt,1,2,1
lsel,s,loc,x,8,16
lsel,r,tan1,y
lsel,r,tan1,z
cm,l4n1,line
latt,1,3,1
cmsel,a,l3n1
cmsel,a,l2n1
cm,xg,line

lsel,s,loc,x,6,18
cmsel,u,xg
lsel,u,tan1,y
lsel,u,tan1,x
latt,1,4,1
cm,l3n3,line

lsel,s,loc,x,0,6
lsel,a,loc,x,18,24
cmsel,u,xg
lsel,u,tan1,y
lsel,u,tan1,x
latt,1,5,1
cm,l4n3,line

lsel,s,loc,x,0,2
lsel,a,loc,x,22,24
lsel,r,tan1,x
lsel,r,tan1,z
latt,1,6,1
cm,l4n4,line
allsel
cmsel,u,xg
cmsel,u,l3n3
cmsel,u,l4n3
cmsel,u,l4n4
latt,1,7,1
allsel

lesize,all,,,1
lmesh,all

ksel,s,loc,x,0
ksel,r,loc,y,0
ksel,r,loc,z,0
dk,all,all
ksel,s,loc,x,0
ksel,r,loc,y,0
ksel,r,loc,z,sl
dk,all,uy
ksel,s,loc,x,24
ksel,r,loc,y,0
ksel,r,loc,z,0
dk,all,uy,,,,uz
ksel,s,loc,x,24
ksel,r,loc,y,0
ksel,r,loc,z,sl
dk,all,uy
allsel
finish
/solu
acel,,9.8
solve
acel,,0
p1=500*sl
nsel,s,loc,z,0
f,all,fz,p1
nsel,u,loc,x,1,23
f,all,fz,p1/2
nsel,all
solve
*do,i,1,5
fdele,all,all
nsel,s,loc,x,(i+1)*sl
nsel,r,loc,y,sl
f,all,fy,-300000
nsel,all
solve
*enddo
finish
/post1
set,list
*do,i,1,7
lcdef,i,i
*enddo
lcfact,1,1.0
lcfact,2,1.0
*do,i,3,7
lcfact,i,1.1
*enddo
lczero
lcase,1
lcoper,add,2
*do,i,3,7
j=i+5
lcoper,add,i
lcwrite,j,lc%j%
lcoper,sub,i
*enddo
/output,resfile0,txt
/view,1,1,2,3
/ang,1,-6,xs,1
etable,stre,ls,1
etable,forc,smisc,1
*do,ic,1,12
/output,resfile%ic%,txt
lczero
lcase,ic
etable,refl
/show,jpeg
pletab,stre
pldisp,1
/show,term
/com,--------荷载工况或组合%ic%的结果---------
pretab
prrsol
prnsol,u
*enddo
/output