24小时热门版块排行榜

返回列表

雨小喊

新虫 (初入文坛)

应助: 1 (幼儿园)
金币: 167.5
红花: 2
帖子: 18
在线: 6小时
虫号: 2071643
注册: 2012-10-19
专业: 结构工程

【答案】应助回帖

我写了个命令流  可以算的应力也有的没具体看  参数随便编的  你自己改一下好了

/filename,Q1
/title,JD
/prep7
et,1,solid65,,,,,,,1
mp,ex,1,24320
mp,prxy,1,0.2
mp,dens,1,20e-6
fc=25.6
ft=2.6
qc=7.8
qt=0.28

tb,concr,1
tbdata,,0.5,0.95,ft,-1
tb,mkin,1,
tbtemp,,strain
tbdata,,0.0002,0.0008,0.0014,0.002,0.0033
tbtemp,0.0
tbdata,,0.19*fc,0.64*fc,0.91*fc,fc,0.9*fc

blc4,,,500,300,500
elemsiz=100
vsel,s,,,1
vatt,1,1,1
mshkey,1
esize,elemsiz
vmesh,all

nsel,s,loc,y,0
d,all,all
allsel,all
*SET,NT,50
*DIM,TIME,,NT
*DIM,AC_X,,NT
*CREATE,ansuitmp
*VREAD,TIME,'TIME','txt',' ',1, , , , , ,
(F6.2)
*END
/INPUT,ansuitmp
*CREATE,ansuitmp
*VREAD,AC_X,'AC_X','txt',' ',1, , , , , ,
(F6.2)
*END
/INPUT,ansuitmp
FINISH
/SOL
ANTYPE,TRANS
nlgeom,off
nropt,full,,on
ncnv,1
neqit,50
lnsrch,on
pred,on
autots,on
nsubst,1,
*DO,K,1,NT
ACEL,AC_X(K),AC_X(K),0
TIME,TIME(K)
SOLVE
*ENDDO
FINISH

赞一下(1人)

回复此楼

11楼2014-01-26 09:30:12

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

雨小喊

新虫 (初入文坛)

应助: 1 (幼儿园)
金币: 167.5
红花: 2
帖子: 18
在线: 6小时
虫号: 2071643
注册: 2012-10-19
专业: 结构工程

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
zhaoxiu1227: 金币+15, ★★★很有帮助 2014-02-08 16:20:04
zhaoxiu1227: 金币+15, ★★★很有帮助, 非常感谢您！！！我先自己查下命令流，实在看不懂再麻烦您，最后能解决的话，我把所有的金币都给您！！！ 2014-02-08 16:27:24

网格大小材料属性参数你都改一下吧命令不懂的可以问我

赞一下

回复此楼

12楼2014-01-26 10:05:15

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖