耦合节点处理 麻烦大侠指导 附上了命令流
浏览:56054 回答:1
fini
/clear
k=16840
/prep7
et,1,pipe16,,,,,,,1
et,2,combin14
keyopt,2,2,6
r,1,48e-3,3.5e-3
r,2, k
mp,ex,1,2.06e11
mp,prxy,1,0.3
mp,dens,1,7850
type,1
real,1
mat,1
n,1
n,2,0,2.1
n,3,2,0
n,4,2,2.1
n,5,0,2.1
n,6,2,2.1
e,1,2
e,3,4
e,5,6
type,2
real,2
e,2,5
e,4,6
cp,1,ux,2,5
cplgen,1,uy,uz,rotx,roty
cp,2,ux,4,6
cplgen,2,uy,uz,rotx,roty
d,1,all
d,3,all
f,2,fx,500
f,2,fy,-1000
f,4,fy,-1000
allsel
/solu
antype,0
solve
/post1
pldisp,0
prdisp
prnsol,u,x
plnsol,u,x
prnsol,u,y
plnsol,u,y
/clear
k=16840
/prep7
et,1,pipe16,,,,,,,1
et,2,combin14
keyopt,2,2,6
r,1,48e-3,3.5e-3
r,2, k
mp,ex,1,2.06e11
mp,prxy,1,0.3
mp,dens,1,7850
type,1
real,1
mat,1
n,1
n,2,0,2.1
n,3,2,0
n,4,2,2.1
n,5,0,2.1
n,6,2,2.1
e,1,2
e,3,4
e,5,6
type,2
real,2
e,2,5
e,4,6
cp,1,ux,2,5
cplgen,1,uy,uz,rotx,roty
cp,2,ux,4,6
cplgen,2,uy,uz,rotx,roty
d,1,all
d,3,all
f,2,fx,500
f,2,fy,-1000
f,4,fy,-1000
allsel
/solu
antype,0
solve
/post1
pldisp,0
prdisp
prnsol,u,x
plnsol,u,x
prnsol,u,y
plnsol,u,y