弹塑性

发布日期:[10-04-20 22:33:18] 浏览人次:[]

sp; !yield stress

stn1=sts1/exx

sts2=112

stn2=0.00575

sts3=172

stn3=0.02925

sts4=241

stn4=0.1

nex=15     ! No. of elements along the radius

net=2      ! No. of elements in the plate's thickness

/prep7

et,1,42,,,1

! define node for convenient postprocessing

n,1,rpl,0

n,2,0,0

n,3,0,h/2

!define geometry

k,1,,-(h/2)

k,2,rpu,-(h/2)

k,3,rpl,-(h/2)

kgen,2,1,3,1,,h,,3

nex1=nint(0.8*net)

nex2=nex-nex1

l,1,2

l,4,5

l,2,3

l,5,6

a,1,2,5,4

a,2,3,6,5 

lesize,1,,,nex1

lesize,2,,,nex1

lesize,3,,,nex2,2.5

lesize,4,,,nex2,2.5

esize,(h/net)

amesh,all

nummrg,node

nodes

nsel,s,loc,x,0,rpu

nsel,r,loc,y,(h/2)

cp,1,uy,all

nsel,all

esel,all

fini

/solu

nsel,s,loc,x,rpl

nsel,r,loc,y,0

d,all,uy

nsel,s,loc,x,0

d,all,ux

nsel,all

outres,all,all

fini

/prep7

mp,ex,1,exx

mp,nuxy,1,0.325

tb,mkin,1

tbtemp,,strain

tbdata,,stn1,stn2,stn3,stn4

tbtemp,,

tbdata,,sts1,sts2,sts3,sts4

fini

/solu

pred,on

outres,all,all

nsubst,1

time,1e-6

f,3,fy,0

lswrite

autots,on

nsubst,10

time,1

f,3,fy,-6000

lswrite

time,2

f,3,fy,750

lswrite

time,3

f,3,fy,-6000

lswrite

lssolve,1,4

fini

/post1

set,2

/dscal,1,1

pldisp,2

fini

/post26

nsol,2,2,u,y,uy2

rforce,3,1,f,y,ry1

add,2,2,,,uy2,,,-1

/grid,1

/axlab,x,deflection [mm]

/axlab,y,force [n]

xval,2

plvar,3

prvar,2,3

fini

|<< << < 1 2 3 4 5 6 7 > >> >>|
www.mapeng.net 马棚网
www.mapeng.net
文章作者:未知 | 文章来源:网络 | 责任编辑:intoner | 发送至邮箱: | 加入收藏:
本文关键字:弹塑性  ANSYS
本文所属专题:ANSYS技术 
相关资讯
热点资讯
推荐资讯

关于我们 | 站点导航 | 使用帮助 | 友情链接 | 广告服务 | 免责声明 | 新手上路
设为首页 | 加入收藏 | 在线留言 | 马棚网QQ群:{92562572}{102901272}{333259257} | 交流QQ: 客户服务 客户服务 客户服务