Explicit
This LS-DYNA example shows the explicit modeling of Bolt Type D.
https://www.dynaexamples.com/show-cases/bolts/typed/explicit
https://www.dynaexamples.com/@@site-logo/LS-DYNA-Examples-Logo480x80.png
Explicit
This LS-DYNA example shows the explicit modeling of Bolt Type D.
*BOUNDARY_PRESCRIBED_MOTION_SET *BOUNDARY_SPC_SET *CONTACT_AUTOMATIC_GENERAL_MPP_ID *CONTACT_AUTOMATIC_SINGLE_SURFACE_ID *CONTACT_FORCE_TRANSDUCER_PENALTY_ID *CONTROL_ACCURACY *CONTROL_BULK_VISCOSITY *CONTROL_CONTACT *CONTROL_ENERGY *CONTROL_HOURGLASS *CONTROL_MPP_IO_NODUMP *CONTROL_OUTPUT *CONTROL_RIGID *CONTROL_SHELL *CONTROL_SOLID *CONTROL_SOLUTION *CONTROL_TERMINATION *CONTROL_TIMESTEP *ELEMENT_BEAM *ELEMENT_SHELL *ELEMENT_SOLID *END *INCLUDE *INITIAL_STRESS_SECTION *KEYWORD *MAT_NULL *MAT_PLASTIC_KINEMATIC *NODE *PARAMETER *PARAMETER_EXPRESSION *PART *PART_CONTACT *SECTION_BEAM *SECTION_SHELL *SECTION_SOLID *SET_NODE_LIST_TITLE *SET_PART *SET_PART_LIST *TITLE
$-----------------------------------------------------------------------------
$
$ Example provided by Dr. Nils Karajan (DYNAmore Corporation)
$
$ Date: Wed Apr 11 10:42:53 CET 2018
$
$ E-Mail: info@dynamore.de
$ Web: http://www.dynamore.de
$
$ Copyright, 2018 DYNAmore Corp.
$ Copying for non-commercial usage allowed if
$ copy bears this notice completely.
$
$-------------------------------------------------------------------------------
$
$ Run file as is. It was tested with LS-DYNA R9.2 with double precision.
$
$-------------------------------------------------------------------------------
$# Units: kg / mm / ms / kN / GPa / kN-mm
$-------------------------------------------------------------------------------
$
*KEYWORD
*PARAMETER
$# prmr1 val1 prmr2 val2 prmr3 val3 prmr4 val4
$
$--- Simulation time
R tEnd 5.0
$
$--- Pre-force in beams / Pre-stress in solids (cross sect 74.9859 mm^2)
R bltForce 28.8
R bltStrss 0.3841
$
$--- Loading of the connection
R distX 5.0
$
*PARAMETER_EXPRESSION
$# prmr1 expression1
$
$--- Plot intervals
R dtPlot TEnd/100.0
R dtAscii TEnd/1000.0
$
$--- Load application times
R dtPreStr TEnd/5.0
R tLoad TEnd/2.0
$
$--- Implicit time integration
R dt0 dtPreStr/20.
R dtMin dtPreStr/30.
R dtMax dtPreStr/10.
R tDyDth dtPreStr*2./3.
R tDyBur dtPreStr
R tDyBir tLoad
$
$--- Infinity time
R tInfty tEnd*1.01
$
$ =============
$ INCLUDE cards
$ =============
$# title
Bolted Connection Type d
$
$
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$
$ SET cards for contact treatment
$
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$
$ INITIAL cards
$
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$
*INITIAL_STRESS_SECTION
$# issid csid lcid psid vid izshear
100 100 100 100 2
$
*DATABASE_CROSS_SECTION_PLANE_ID
$# csid title
100Cross Section Bolt
$# psid xct yct zct xch ych zch radius
100 -1.6 0.6 5.5
$# xhev yhev zhev lenl lenm id itype
*SET_PART
$# sid
100
$# k1 k2 k3 k4 k5 k6 k7 k8
100
$
*DEFINE_CURVE
$# lcid sidr sfa sfo offa offo dattyp lcint
100 &dtPreStr &bltStrss
$# a1 o1
0.0 0.0
1.0 1.0
$
$
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$
$ BOUNDARY cards
$
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$
*BOUNDARY_PRESCRIBED_MOTION_SET
$# nsid dof vad lcid sf vid death birth
20 1 2 11
*DEFINE_CURVE
$# lcid sidr sfa sfo offa offo dattyp lcint
11
$# a1 o1
0.0 0.0
&tLoad 0.0
&tEnd &distX
&tInfty &distX
$
$---
$
*BOUNDARY_SPC_SET
$# nsid cid dofx dofy dofz dofrx dofry dofrz
10 1 1 1 1 1 1
$
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$
$ PART / SECTION / MATERIALS
$
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$
$--- Bolt
$
*PART
$# title
Bolt
$# pid secid mid eosid hgid grav adpopt tmid
100 100 100
*SECTION_SOLID
$# secid elform aet
100 -1
*MAT_PLASTIC_KINEMATIC
$# mid ro e pr sigy etan beta
100 7.85e-6 210.0 0.3 0.64 9.5
$# src srp fs vp
1.0
$
$--- Bolt Head and Nut
$
*PART
$# title
Bolt Head
$# pid secid mid eosid hgid grav adpopt tmid
110 110 110
*PART
$# title
Bolt Nut
$# pid secid mid eosid hgid grav adpopt tmid
120 110 110
$
*SECTION_SOLID
$# secid elform aet
110 -1
*MAT_PLASTIC_KINEMATIC
$# mid ro e pr sigy etan beta
110 7.85e-6 210.0 0.3 0.64 9.5
$# src srp fs vp
1.0
$
$--- Contact Beams
$
*PART_CONTACT
$# title
Contact Beams Plates
$# pid secid mid eosid hgid grav adpopt tmid
310 310 310
$# fs fd dc vc optt sft ssf
0.5
*SECTION_BEAM
$
$# secid elform shrf qr/irid cst scoor nsm
310 1 1.0 2 1
$# ts1 ts2 tt1 tt2 nsloc ntloc
0.5 0.5
$
*MAT_NULL
$# mid ro pc mu terod cerod ym pr
310 7.85e-6 210.0 0.3
$
$
$
*CONTACT_AUTOMATIC_SINGLE_SURFACE_ID
$# cid title
10001 Global Contact
$
$# ssid msid sstyp mstyp sboxid mboxid spr mpr
10001 2
$# fs fd dc vc vdc penchk bt dt
0.15 0.1 1.0 20.0
$# sfs sfm sst mst sfst sfmt fsf vsf
$# soft sofscl lcidab maxpar sbopt depth bsort frcfrq
1 1
$# penmax thkopt shlthk snlog isym i2d3d sldthk sldstf
$# igap ignodprfac/mpadtstif/mpar2 unused unused flangl cid_rcf
2 0.7e-3
$# q2tri dtpchk sfnbr fnlscl dnlscl tcso tiedid shledg
$# sharec cparm8 ipback srnde fricsf icor ftorq region
$# pstiff ignroff beam-cs
$
$---
$
*CONTACT_FORCE_TRANSDUCER_PENALTY_ID
$# cid title
2 Contact Force Between Sheets
$
$# ssid msid sstyp mstyp sboxid mboxid spr mpr
10 20 3 3
$# fs fd dc vc vdc penchk bt dt
$# sfs sfm sst mst sfst sfmt fsf vsf
$
$---
$
*CONTACT_AUTOMATIC_GENERAL_MPP_ID
$# cid title
10013 Beam Contact
$# ignore bckt lcbckt ns2trk inititr parmax cparm8
2
$# ssid msid sstyp mstyp sboxid mboxid spr mpr
10013 2
$# fs fd dc vc vdc penchk bt dt
0.15 0.1 1.0 20.0
$# sfs sfm sst mst sfst sfmt fsf vsf
$# soft sofscl lcidab maxpar sbopt depth bsort frcfrq
1 1
$# penmax thkopt shlthk snlog isym i2d3d sldthk sldstf
$# igap ignodprfac/mpadtstif/mpar2 unused unused flangl cid_rcf
2 0.7e-3
$# q2tri dtpchk sfnbr fnlscl dnlscl tcso tiedid shledg
$# sharec cparm8 ipback srnde fricsf icor ftorq region
$# pstiff ignroff beam-cs
$ =============
$ CONTROL cards
$ =============
$
*CONTROL_TERMINATION
$# endtim endcyc dtmin endeng endmas nosol
&tEnd
*CONTROL_TIMESTEP
$# dtinit tssfac isdo tslimt dt2ms lctm erode ms1st
$# dt2msf dt2mslc imscl unused unused rmscl
$
*END