Home    Search    Reference Manuals    Return   


##
##
##       Substructure file wr_coupl_ne1.ins
##       ----------------------------------------------------------
##  Creep forces are calculated in a lookup table, according to
##  Kalker's simplified theory.
##
##
##  The documentation of this file can be found in the file:
##
##     $gensys/homepage/doc_html/analyse_wr_coupl_ne1.html
##
##  Please mark the file above and press "view_html" with mouse button 3.
##
##
##
   substruct wr_coupl [    # $1=car #, $2=axle #
note
note
note       Start of substructure file wr_coupl_ne1.ins     Rev.020918
note       ----------------------------------------------------------
#
#
#       Set constraints to axle and track
#       ---------------------------------
  constr fix_free_1  axl_$2.k  0.
#
  constr fix_rigid_1 trc_$2  x 0.  constr fix_rigid_1 trc_$2  z 0.
  constr fix_rigid_1 trc_$2  f 0.  constr fix_rigid_1 trc_$2  k 0.
  constr fix_rigid_1 trc_$2  p 0.
#
#
  func wr_coupl_ne1  $2  $1
#
       cpt_$2r     trc_$2  cpt_$2r.ksi cpt_$2r.bo 0.
                   axl_$2  cpt_$2r.ksi cpt_$2r.bo 0.
       0.          fzwrnr$2 cpt_$2r.gam cpt_$2r.nuxm cpt_$2r.nuym cpt_$2r.spim
#      1/Rh+1/Rr   1/Ryh+1/Ryr   mu
       cpt_$2r.irx cpt_$2r.iry { kph$2.my | cpt_$2r.mu | cpt_$1.mu | myh | mutr | my | mu }
#        E        nu  jvkt.rikt
#      2.05e11 .25   z
       2.05e11 .3    z
#
       cpt_$2l     trc_$2  cpt_$2l.ksi cpt_$2l.bo 0.
                   axl_$2  cpt_$2l.ksi cpt_$2l.bo 0.
       0.          fzwrnl$2 cpt_$2l.gam cpt_$2l.nuxm cpt_$2l.nuym cpt_$2l.spim
#      1/Rh+1/Rr   1/Ryh+1/Ryr   mu
       cpt_$2l.irx cpt_$2l.iry { kpv$2.my | cpt_$2l.mu | cpt_$1.mu | myv | mutl | my | mu }
#      E        nu  jvkt.rikt
#      2.05e11 .25   z
       2.05e11 .3    z
#
#
       cpf_$2r     trc_$2  cpf_$2r.ksi cpf_$2r.bo 0.
                   axl_$2  cpf_$2r.ksi cpf_$2r.bo 0.
       0.          fzfrnr$2 cpf_$2r.gam cpf_$2r.nuxm cpf_$2r.nuym cpf_$2r.spim
#      1/Rh+1/Rr   1/Ryh+1/Ryr   mu
       cpf_$2r.irx cpf_$2r.iry { kfh$2.my | cpf_$2r.mu | cpf_$1.mu | myfh | mufr | myf | muf | my | mu }
#      E        nu  jvkt.rikt
#      2.05e11 .25   z
       2.05e11 .3    z
#
       cpf_$2l     trc_$2  cpf_$2l.ksi cpf_$2l.bo 0.
                   axl_$2  cpf_$2l.ksi cpf_$2l.bo 0.
       0.          fzfrnl$2 cpf_$2l.gam cpf_$2l.nuxm cpf_$2l.nuym cpf_$2l.spim
#      1/Rh+1/Rr   1/Ryh+1/Ryr   mu
       cpf_$2l.irx cpf_$2l.iry { kfv$2.my | cpf_$2l.mu | cpf_$1.mu | myfv | mufl | myf | muf | my | mu }
#      E        nu  jvkt.rikt
#      2.05e11 .25   z
       2.05e11 .3    z
#
#  func print06_all cpt_$2r.nux
#  func print06_all cpt_$2r.nuy
#  func print06_all cpt_$2r.spi
#  func print06_all cpt_$2r.Fnx
#  func print06_all cpt_$2l.Fn
#  func print06_all cpt_$2l.Fnx
#  func print06_all cpt_$2l.Fny
#  func print06_all cpt_$2r.Fn
#  func print06_all cpt_$2r.Fny
#
note
note       -------------------------------------------
note       End   of substructure file wr_coupl_ne1.ins
note       -------------------------------------------
  ]