```##
##
##       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       -------------------------------------------
]
```