Explicit
This LS-DYNA example shows the explicit modeling of Bolt Type B.
https://www.dynaexamples.com/show-cases/bolts/typeb/explicit
https://www.dynaexamples.com/@@site-logo/LS-DYNA-Examples-Logo480x80.png
Explicit
This LS-DYNA example shows the explicit modeling of Bolt Type B.
*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 *DEFINE_CURVE *DEFINE_CURVE *ELEMENT_BEAM *ELEMENT_SHELL *ELEMENT_SOLID *END *INCLUDE *INITIAL_AXIAL_FORCE_BEAM *KEYWORD *MAT_NULL *MAT_PLASTIC_KINEMATIC *MAT_SPOTWELD *NODE *PARAMETER *PARAMETER_EXPRESSION *PART *PART_CONTACT *SECTION_BEAM *SECTION_SHELL *SECTION_SOLID *SET_BEAM *SET_NODE_LIST_TITLE *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 b
$
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$
$ INITIAL cards
$
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$
*INITIAL_AXIAL_FORCE_BEAM
$# bsid lcid scale kbend
100 100 0
$
*SET_BEAM
$# sid
100
$# k1 k2 k3 k4 k5 k6 k7 k8
1000000
$
*DEFINE_CURVE
$# lcid sidr sfa sfo offa offo dattyp lcint
100 &dtPreStr &bltForce
$# 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_CONTACT
$# title
Bolt
$# pid secid mid eosid hgid grav adpopt tmid
100 100 100
$# fs fd dc vc optt sft ssf
10.0
*SECTION_BEAM
$# secid elform shrf qr/irid cst scoor nsm
100 9 1.0 2 1
$# ts1 ts2 tt1 tt2 print
10.0 10.0
$
*MAT_SPOTWELD
$# mid ro e pr sigy eh dt tfail
100 7.85e-6 210.0 0.3 0.64 9.5
$# efail nrr nrs nrt mrr mss mtt nf
$
$--- Bolt Head and Nut
$
*PART_CONTACT
$# title
Bolt Head
$# pid secid mid eosid hgid grav adpopt tmid
110 110 110
$# fs fd dc vc optt sft ssf
6.4
*PART_CONTACT
$# title
Bolt Nut
$# pid secid mid eosid hgid grav adpopt tmid
120 110 110
$# fs fd dc vc optt sft ssf
6.4
$
*SECTION_SHELL
$# secid elform shrf nip propt qr/irid icomp setyp
110 16 1.0 5 3.0
$# t1 t2 t3 t4 nloc marea idof edgset
6.4
*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 Beam Bolt (imp only)
$# pid secid mid eosid hgid grav adpopt tmid
101 101 310
$# fs fd dc vc optt sft ssf
10.0
*SECTION_BEAM
$
$# secid elform shrf qr/irid cst scoor nsm
101 1 1.0 2 1
$# ts1 ts2 tt1 tt2 nsloc ntloc
10.0 10.0
$
*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
$
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$
$ CONTACT cards
$
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$
*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