x
Our website uses cookies. By using the website you agree ot its use. More information can be found in our privacy policy.

Reduced Input

$-----------------------------------------------------------------------------
$
$ 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