大家有没有用solid65和link8建立的混凝土模型的例子

persistance

大家有没有用solid65和link8建立的混凝土模型的例子

n3ch

关于混凝土滞回曲线计算
!钢筋混凝土柱分析  
/COM, Structural  
!----------定义单元及材料等---------------------  
/PREP7  
et,1,link8 !定义link8单元  
et,2,solid65 !定义solid65单元  
keyopt,2,7,1  
r,1,115 !定义link8单元的面积  
r,2 !定义solid65的实常数号  
mp,ex,1,2e5 !定义link8单元的弹性模量  
mp,prxy,1,0.27 !定义link8单元的泊松系数  
TBDE,BKIN,1  
TB,BKIN,1,1,2,1  
TBTEMP,0
TBDATA,,210,2000,,,,
mp,ex,2,3e4 !定义solid65单元的弹性模量  
mp,prxy,2,0.2 !定义solid65单元的泊松系数  
tb,concr,2 !定义2号为混凝土  
tbdata,,0.6,0.95,1.8,-1  !定义混凝土的c1,c2,Rl,Ra  
TB,MKIN,2,,,0   
TBMODIF,1,1,
TBMODIF,1,2,0.0005   
TBMODIF,1,3,0.001   
TBMODIF,1,4,0.002   
TBMODIF,1,5,0.0025   
TBMODIF,1,6,0.0038   
TBMODIF,2,1,
TBMODIF,2,2,15   
TBMODIF,2,3,24   
TBMODIF,2,4,30   
TBMODIF,2,5,29   
TBMODIF,2,6,22   
  
!----------建立几何模型-------------------------  
blc4, , ,200,200,700 !定义梁体  
/view,1,1,1,1 !定义ISO查看  
/ang,1  
vplot !绘制梁体  
kwpave,5 !工作平面移动到关键点5  
wpoff,15 !工作平面移动15mm  
wprot,0,0,90 !工作平面旋转  
vsbw,1 !分割梁体
wpoff,,,85 !工作平面移动100mm  
vsbw,all !分割梁体  
wpoff,,,85 !工作平面移动185mm  
vsbw,all !分割梁体  
wpoff,0,15 !工作平面移动15mm  
wprot,0,90 !工作平面旋转  
vsbw,all !分割梁体
wpoff,0,0,-85 !工作平面移动100mm  
vsbw,all !分割梁体
wpoff,0,0,-85 !工作平面移动100mm  
vsbw,all !分割梁体  
  
wpstyl !关闭工作平面显示  
nummrg,all !整理编号  
numcmp,all  
  
!------------划分单元网格---------------------------  
latt,1,1,1  
lesize,19,,,10,,,,,1  
lesize,38,,,10,,,,,1  
lesize,50,,,10,,,,,1
lesize,54,,,10,,,,,1
lesize,58,,,10,,,,,1
lesize,67,,,10,,,,,1
lesize,92,,,10,,,,,1
lesize,99,,,10,,,,,1
FLST,2,8,4,ORDE,8   
FITEM,2,19   
FITEM,2,38   
FITEM,2,50   
FITEM,2,54   
FITEM,2,58   
FITEM,2,67   
FITEM,2,92   
FITEM,2,99   
LMESH,P51X  
  
!-------------  
vatt,2,2,2  
lesize,9,,,10,,,,,1  
lesize,41,,,10,,,,,1  
lesize,3,,,10,,,,,1  
lesize,4,,,10,,,,,1
lesize,6,,,10,,,,,1
lesize,15,,,10,,,,,1
lesize,29,,,10,,,,,1
lesize,7,,,10,,,,,1
lesize,45,,,10,,,,,1  
lesize,64,,,10,,,,,1  
lesize,87,,,10,,,,,1  
lesize,8,,,10,,,,,1
lesize,30,,,10,,,,,1
lesize,16,,,10,,,,,1
  
lesize,27,,,2,,,,,1  
lesize,34,,,2,,,,,1  
lesize,105,,,2,,,,,1  
lesize,101,,,2,,,,,1
lesize,84,,,2,,,,,1
lesize,61,,,2,,,,,1
lesize,96,,,2,,,,,1
lesize,94,,,2,,,,,1
lesize,74,,,2,,,,,1  
lesize,76,,,2,,,,,1  
lesize,80,,,2,,,,,1  
lesize,78,,,2,,,,,1
lesize,59,,,2,,,,,1
lesize,26,,,2,,,,,1
lesize,63,,,2,,,,,1  
lesize,33,,,2,,,,,1  
lesize,69,,,2,,,,,1  
lesize,72,,,2,,,,,1
lesize,103,,,2,,,,,1
lesize,82,,,2,,,,,1
lesize,24,,,2,,,,,1  
lesize,100,,,2,,,,,1  
lesize,31,,,2,,,,,1  
lesize,104,,,2,,,,,1
lesize,68,,,2,,,,,1
lesize,71,,,2,,,,,1
lesize,56,,,2,,,,,1
lesize,62,,,2,,,,,1
lesize,25,,,2,,,,,1  
lesize,32,,,2,,,,,1  
lesize,60,,,2,,,,,1  
lesize,83,,,2,,,,,1
lesize,102,,,2,,,,,1
lesize,95,,,2,,,,,1
lesize,93,,,2,,,,,1  
lesize,73,,,2,,,,,1  
lesize,75,,,2,,,,,1  
lesize,81,,,2,,,,,1
lesize,79,,,2,,,,,1
lesize,77,,,2,,,,,1
  
lesize,40,,,1,,,,,1  
lesize,13,,,1,,,,,1  
lesize,52,,,1,,,,,1  
lesize,53,,,1,,,,,1
lesize,14,,,1,,,,,1
lesize,37,,,1,,,,,1
lesize,2,,,1,,,,,1
lesize,12,,,1,,,,,1
lesize,36,,,1,,,,,1  
lesize,48,,,1,,,,,1  
lesize,20,,,1,,,,,1  
lesize,44,,,1,,,,,1
lesize,49,,,1,,,,,1
lesize,57,,,1,,,,,1
lesize,66,,,1,,,,,1
lesize,91,,,1,,,,,1  
lesize,86,,,1,,,,,1  
lesize,28,,,1,,,,,1  
lesize,90,,,1,,,,,1
lesize,98,,,1,,,,,1
lesize,10,,,1,,,,,1  
lesize,39,,,1,,,,,1  
lesize,42,,,1,,,,,1  
lesize,51,,,1,,,,,1
lesize,97,,,1,,,,,1
lesize,17,,,1,,,,,1
lesize,85,,,1,,,,,1
lesize,88,,,1,,,,,1
lesize,89,,,1,,,,,1  
lesize,5,,,1,,,,,1  
lesize,65,,,1,,,,,1  
lesize,43,,,1,,,,,1
lesize,18,,,1,,,,,1
lesize,47,,,1,,,,,1
lesize,46,,,1,,,,,1  
lesize,55,,,1,,,,,1  
lesize,21,,,1,,,,,1  
lesize,35,,,1,,,,,1
lesize,1,,,1,,,,,1
lesize,11,,,1,,,,,1
  
mshape,0,3d !将体划分单元的形状定位HEX  
vmesh,all !对体进行划分单元  
finish  
  
/SOLU   
NSEL,ALL
NSEL,S,LOC,Z,0   
NPLOT
D,ALL,ALL
ALLSEL,ALL
  
!第1荷载步  
D,387,ux,20  
TIME,1  
AUTOTS,0  
NSUBST,10, , ,1  
KBC,0  
LSWRITE,01,  
!第2荷载步  
D,387,ux,-20  
TIME,3  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,02,  
!第3荷载步  
D,387,ux,20  
TIME,5  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,03,  
!第4荷载步  
D,387,ux,-20  
TIME,7  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,04,  
!第5荷载步  
D,387,ux,40  
TIME,9  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,05,  
!第6荷载步  
D,387,ux,-40  
TIME,11  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,06,  
!第7荷载步  
D,387,ux,40  
TIME,13  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,07,  
!第8荷载步  
D,387,ux,-40  
TIME,15  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,08,  
!第9荷载步  
D,387,ux,50  
TIME,17  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,09,  
!第10荷载步  
D,387,ux,-50  
TIME,19  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,10,  
!第11荷载步  
D,387,ux,50  
TIME,21  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,11,  
!第12荷载步  
D,387,ux,-50  
TIME,23  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,12,  
!第13荷载步  
D,387,ux,60  
TIME,25  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,13,  
!第14荷载步  
D,387,ux,-60  
TIME,27  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,14,  
!第15荷载步  
D,387,ux,60  
TIME,29  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,15,  
!第16荷载步  
D,387,ux,-60  
TIME,31  
AUTOTS,0  
NSUBST,20, , ,1  
KBC,0  
LSWRITE,16,  
  
OUTPR,BASIC,ALL,  
OUTRES,ALL,ALL,  
  
!--------------定义非线性分析选项--------------------  
cnvtol,f,,0.05,2 !定义收敛条件,使用缺省的VALUE  
!outres,all,all !输出每一子步的结果  
!autots,1 !打开自动时间步控制  
!lnsrch,1 !打开线性搜索  
ncnv,2 !如果不收敛时结束而不退出  
!neqit,50 !每一子步中方程的迭代次数限值  
!pred,on !打开预测器  
  
!求解  
FINISH  
/SOLU  
LSSOLVE,1,16,1,  
!画出荷载位移曲线  
FINISH  
/POST26  
NSOL,2,387,U,X,  
RFORCE,3,387,F,X,  
XVAR,2  
PLVAR,3, , , , , , , , , ,  

n3ch

最近也在做这个，做完了再共享自己的，上面是别人求助的一个命令流，希望对你有用

persistance

n3ch 发表于 2013-8-26 14:06
最近也在做这个，做完了再共享自己的，上面是别人求助的一个命令流，希望对你有用 ...

好的，谢谢啦，不过我刚开始学，对命令流不熟，有的地方还不明白，不过还是挺感谢的

malkwax

这是《土木应用实例》里的例子，有你说的单元。