马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
大家好,这段时间我研究了下ABAQUS里的无限元,其实质就是一种粘性边界。现在的问题是如果我要实现粘弹性边界(粘性边界精度不高),即在粘性边界上加弹簧,该如何若考虑? 有这方面的研究的可以一起探讨下! 我的QQ: 94658376
附件为实现无限元的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 |