tbdata, 1,delta0,stiff0,scap!*++++++++++++++++++++++++++++++++
!* Define Gasket Compression Curve
!*++++++++++++++++++++++++++++++++
tb,gask,2,1,13,comp
tbpt,,0.460800E-03, 0.161226E+07
tbpt,,0.511600E-03, 0.520884E+07
tbpt,,0.562400E-03, 0.113134E+08
tbpt,,0.613200E-03, 0.200499E+08
tbpt,,0.664000E-03, 0.259960E+08
tbpt,,0.714800E-03, 0.290345E+08
tbpt,,0.765600E-03, 0.357453E+08
tbpt,,0.816400E-03, 0.440064E+08
tbpt,,0.867200E-03, 0.563189E+08
tbpt,,0.918000E-03, 0.748254E+08
tbpt,,0.968800E-03, 0.967287E+08
tbpt,,0.101960E-02, 0.129001E+09
tbpt,,0.109326E-02, 0.157147E+09
!*+++++++++++++++++++++++++++++++++++++
!* Define Gasket Linear Unloading Curve
!*+++++++++++++++++++++++++++++++++++++
tb,gask,2,1,5,lunl
tbpt,,0.460800E-03, 2.430000E+11
tbpt,,0.714800E-03, 3.565000E+11
tbpt,,0.816400E-03, 5.92300E+11
tbpt,,0.968800E-03, 1.088000e+12
tbpt,,0.109326E-02, 1.490000E+12
!*+++++++++++++++++++++++++++
!* List Gasket Material Model
!*+++++++++++++++++++++++++++
tblist,gask,all
!*++++++++++++++++++
!* Define Parameters
!*++++++++++++++++++
n1 = 20
n2 = n1*100
n3 = n1
dis1 = -0.0008
dis2 = -0.000001
pres = 1.0e7
pres2 = 10
pres3 = 1.4E8
dp = -2.0e7
elb = 1.0
elg = 0.1
!*+++++++++++++++
!* Generate Nodes
!*+++++++++++++++
n,1,
n,2,1.0
n,3,1.0,1.0
n,4,0.0,1.0
ngen,2,4,1,4,,0.0,0.0,elb
ngen,2,8,1,4,,0.0,0.0,elb+elg
ngen,2,12,1,4,,0.0,0.0,2*elb+elg
!*+++++++++++++++++++++++++++++++++++++++++
!* Generate Front and Back SOLID185 Element
!*+++++++++++++++++++++++++++++++++++++++++
et,1,185,,1
mat,1
e,1,2,3,4,5,6,7,8
e,9,10,11,12,13,14,15,16
!*+++++++++++++++++++++++++++++++++
!* Generate Middle INTER195 Element
!*+++++++++++++++++++++++++++++++++Release 15.0 - © SAS IP, Inc. All rights reserved. - Contains proprietary and confidential informationGasket Joints Simulation