Home    Reference Manuals    Return   

# Recommended track stiffnesses for the substructures wr_coupl_p*

if_then_char_init  contact_stiffness .eq. "Hertz" # {{

    ##
    ## Hertzian stiffness in contact point
    ## ------------------------------------
      func  const  pknwr  = 0

else # }{

    ##
    ## Linear stiffness in contact point
    ## ----------------------------------
      func const  pknwr= 1
      func const  knwr.F0_= < Nominal wheel load >
    #
      func  intpl_r knwr_     # Stiffness Tread-Rail all wheels
       -1.57     2400e6   
        0.       2400e6   
        1.57     2400e6   
      func  intpl_r knfr_     # Stiffness Flange-Rail all wheels
       -1.57     2400e6   
        0.       2400e6   
        1.57     2400e6   
 endif # }}


if_then_char_init  Sleepers .eq. "Wooden" # {{

    ##
    ## Stiffness Railhead--Sleeper         Wooden sleepers
    ## ------------------------------------------------------
      func const  kzrt.F0_= (mc+2*mb+4*ma)*9.81/8
      func const  kzrt_=  60e6
      func const  kyrt_=  10e6
      func const  czrt_= 150e3
      func const  cyrt_= 100e3

else # }{

    ##
    ## Stiffness Railhead--Sleeper         Concrete sleepers
    ## ------------------------------------------------------
      func const  kzrt.F0_= (mc+2*mb+4*ma)*9.81/8
      func const  kzrt_=  75e6  
      func const  kyrt_=  42e6  
      func const  czrt_=1600e3  
      func const  cyrt_= 400e3  
endif # }}


##
## Lateral stiffness and damping between track and ground
## -------------------------------------------------------
  coupl p_lin  kytgp_  0  30e6
  coupl p_lin  cytgp_  0 300e3