ABAQUS 无限元 粘弹性边界
大家好,这段时间我研究了下ABAQUS里的无限元,其实质就是一种粘性边界。现在
的问题是如果我要实现粘弹性边界(粘性边界精度不高),即在粘性边界上加弹簧,该如何
若考虑, 有这方面的研究的可以一起探讨下~ 附件为实现无限元的inp文件
*HEADING
*NODE
1,0.,0.
801,2E-3,0.
17,0.,-2E-3
817,2E-3,-2E-3
*NGEN,NSET=LHS
1,17
*NGEN,NSET=RHS
801,817
*NFILL
LHS,RHS,16,50
*NSET,NSET=INFER1,GEN 17,817,50
*NSET,NSET=INFER2,GEN 801,816
*NSET,NSET=INTER
INFER1,INFER2
*NCOPY,OLD SET=INTER,CHANGE NUMBER=1000,POLE,NEW SET=FAR
1,
*NSET,NSET=FILEN
13,103,601
*ELEMENT,TYPE=CPE4R,ELSET=FE
1,2,52,51,1
*ELGEN,ELSET=FE
1,16,1,1,16,50,16
*SOLID SECTION,ELSET=FE,MATERIAL=MAT1
*ELEMENT,TYPE=CINPE4,ELSET=IE 257,67,17,1017,1067
273,816,817,1817,1816
*ELGEN,ELSET=IE
257,16,50,1
273,16,-1,1
*ELSET,ELSET=LOAD,GEN
1,81,16
*SOLID SECTION,ELSET=IE,MATERIAL=MAT1 *MATERIAL,NAME=MAT1 *ELASTIC
7.3E10,0.33
*DENSITY
2842.0,
*BOUNDARY
LHS,1
*AMPLITUDE,NAME=PULSE 0,0E-7,1,2E-7,0
**
*STEP,INC=400
*DYNAMIC,NOHAF
8E-9,1.5E-6
*DLOAD,AMPLITUDE=PULSE
LOAD,P3,1E9
*OUTPUT,FIELD
*NODE OUTPUT U,V,A
*OUTPUT,HISTORY
*NODE OUTPUT,NSET=FILEN U,V,A
*NODE FILE,FREQUENCY=1000,NSET=FILEN
U
本文档为【ABAQUS 无限元 粘弹性边界】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。