Home    Search    Reference Manuals    Return   

 

##
## VERTICAL TRACK EXCITATION (for "fresp")
##
  if_then_char_init cexcitation .eq. Track_Vertical.001
   func intpl_r spectra  0 0.001  100 0.001
   func oper t_axl_111  (  acb + aba ) / Vo
   func oper t_axl_112  (  acb - aba ) / Vo
   func oper t_axl_121  ( -acb + aba ) / Vo
   func oper t_axl_122  ( -acb - aba ) / Vo
##
## fexcit displ_fr m_name  dire spectra    t_delay
## ------------------------------------------------
   fexcit displ_fr trc_111  z   spectra  -t_axl_111
   fexcit displ_fr trc_112  z   spectra  -t_axl_112
   fexcit displ_fr trc_121  z   spectra  -t_axl_121
   fexcit displ_fr trc_122  z   spectra  -t_axl_122
  endif

##
## LATERAL  TRACK EXCITATION (for "fresp")
##
  if_then_char_init cexcitation .eq. Track_Lateral.001
   func intpl_r spectra  0 0.001  100 0.001
   func oper t_axl_111  (  acb + aba ) / Vo
   func oper t_axl_112  (  acb - aba ) / Vo
   func oper t_axl_121  ( -acb + aba ) / Vo
   func oper t_axl_122  ( -acb - aba ) / Vo
##
## Set constraints to all track-pieces in lateral direction:
## ------------------------------------------------
   constr fix_rigid_1 trc_111  y  0.
   constr fix_rigid_1 trc_112  y  0.
   constr fix_rigid_1 trc_121  y  0.
   constr fix_rigid_1 trc_122  y  0.
##
## fexcit displ_fr m_name  dire spectra    t_delay
## ------------------------------------------------
   fexcit displ_fr trc_111  y   spectra  -t_axl_111
   fexcit displ_fr trc_112  y   spectra  -t_axl_112
   fexcit displ_fr trc_121  y   spectra  -t_axl_121
   fexcit displ_fr trc_122  y   spectra  -t_axl_122
  endif