Home    Search    Reference Manuals    Return   


##
##
## The ctrack_irreg variable can following values
## ==============================================
## func char ctrack_irreg Ideal_track      # Ideal track alignment
## func char ctrack_irreg Latpuls_L20_A10  # Track with an initial lateral disturbance
## func char ctrack_irreg Latpuls_L10_A40  # Track with an initial lateral disturbance
## func char ctrack_irreg Vertpuls_L20_A10 # Track with an initial vertical disturbance
## func char ctrack_irreg track_irr1       # Track irregularities read from file
## func char ctrack_irreg track_irr2       # Track irregularities read from file
## func char track_99210855.trax_irr3      # Reading track irregularities and designed track alignment
## func char ctrack_irreg track_irr4       # Track irregularities read from file
##
# ---------------------------------------------------------------------

 if_then_char_init ctrack_irreg .eq. Ideal_track

  func const YMtrac 0.001000    # Multiplying factor for lateral irregularities, from mm to m
  func const ZMtrac 0.001000    # Multiplying factor for vertical irregularities, from mm to m
  func const GMtrac 0.001000    # Multiplying factor for gauge irregularities, from mm to m
  func const CMtrac 0.000667    # Multiplying factor for cant irregularities, from mm to rad

  func const Xtrac_start=   0.
  func const Xtrac_stop=  500.

  func intpl_track_irr2 Xtrac_start Xtrac_stop Ideal_track 1435.
 endif
# ---------------------------------------------------------------------

 if_then_char_init ctrack_irreg .eq. IdealTrack

  func const YMtrac 0.001000    # Multiplying factor for lateral irregularities
  func const ZMtrac 0.001000    # Multiplying factor for vertical irregularities
  func const GMtrac 0.001000    # Multiplying factor for gauge irregularities
  func const CMtrac 0.000667    # Multiplying factor for cant irregularities

  func const Xtrac_start=   0.
  func const Xtrac_stop=  500.

  func intpl_r lat_trac         # Lateral alignment in mm
  -100.0     0.0
   -10.0     0.0
    -9.0     0.0
    -8.0     0.0
    -7.0     0.0
  func intpl_r vert_trac        # vertical alignment in mm
  -100.0     0.0
   -10.0     0.0
    -9.0     0.0
    -8.0     0.0
    -7.0     0.0
  func intpl_r spv_trac         # track gauge in mm
  -100.0    1435.
   -10.0    1435.
    -9.0    1435.
    -8.0    1435.
    -7.0    1435.
     0.0    1435.
   500.0    1435.
  func intpl_r fi_trac          # cant in mm
  -100.0     0.0
   -10.0     0.0
    -9.0     0.0
    -8.0     0.0
    -7.0     0.0

 endif
# ---------------------------------------------------------------------

 if_then_char_init ctrack_irreg .eq. Latpuls_L20_A10

  func const YMtrac 0.001000    # Multiplying factor for lateral irregularities
  func const ZMtrac 0.001000    # Multiplying factor for vertical irregularities
  func const GMtrac 0.001000    # Multiplying factor for gauge irregularities
  func const CMtrac 0.000667    # Multiplying factor for cant irregularities

  func const Xtrac_start=   0.
  func const Xtrac_stop=  500.

  func intpl_r lat_trac         # Lateral puls peak-to-peak 20 mm
  -100.0      0.0               # Length of puls 20 meters
    -9.0      0.0
    -6.0      0.0
    -3.0      0.0
     0.0      0.0
     5.0     10.0
    10.0      0.0
    15.0    -10.0
    20.0      0.0
    30.0      0.0
    40.0      0.0
   500.0      0.0
  func intpl_r vert_trac        # vertical alignment in mm
  -100.0     0.0
   -10.0     0.0
    -9.0     0.0
    -8.0     0.0
    -7.0     0.0
  func intpl_r spv_trac         # track gauge in mm
  -100.0    1435.
   -10.0    1435.
    -9.0    1435.
    -8.0    1435.
    -7.0    1435.
     0.0    1435.
   500.0    1435.
  func intpl_r fi_trac          # cant in mm
  -100.0     0.0
   -10.0     0.0
    -9.0     0.0
    -8.0     0.0
    -7.0     0.0

 endif
# ---------------------------------------------------------------------

 if_then_char_init ctrack_irreg .eq. Latpuls_L10_A40

  func const YMtrac 0.001000    # Multiplying factor for lateral irregularities
  func const ZMtrac 0.001000    # Multiplying factor for vertical irregularities
  func const GMtrac 0.001000    # Multiplying factor for gauge irregularities
  func const CMtrac 0.000667    # Multiplying factor for cant irregularities

  func const Xtrac_start=   0.
  func const Xtrac_stop=  500.

  func intpl_r lat_trac         # Lateral puls peak-to-peak 20 mm
  -100.0     0.                 # Length of puls 20 meters
    -9.0     0.
    -6.0     0.
    -3.0     0.
    -1.0     0.
    -0.5     0.
     0.0     0.
     2.5    40.
     5.0     0.
     7.5   -40.
    10.0     0.
    10.5     0.
    11.0     0.
    20.0     0.
    30.0     0.
   500.0     0.
  func intpl_r vert_trac        # vertical alignment in mm
  -100.0    0.
   -10.0    0.
    -9.0    0.
    -8.0    0.
    -7.0    0.
  func intpl_r spv_trac         # track gauge in mm
  -100.0   1435.
   -10.0   1435.
    -9.0   1435.
    -8.0   1435.
    -7.0   1435.
     0.0    1435.
   500.0    1435.
  func intpl_r fi_trac          # cant in mm
  -100.0    0.
   -10.0    0.
    -9.0    0.
    -8.0    0.
    -7.0    0.

 endif
# ---------------------------------------------------------------------

 if_then_char_init ctrack_irreg .eq. Vertpuls_L20_A10

  func const YMtrac 0.001000    # Multiplying factor for lateral irregularities
  func const ZMtrac 0.001000    # Multiplying factor for vertical irregularities
  func const GMtrac 0.001000    # Multiplying factor for gauge irregularities
  func const CMtrac 0.000667    # Multiplying factor for cant irregularities

  func const Xtrac_start=   0.
  func const Xtrac_stop=  500.

  func intpl_r lat_trac         # Lateral alignment in mm
  -100.0     0.0
   -10.0     0.0
    -9.0     0.0
    -8.0     0.0
    -7.0     0.0
  func intpl_r vert_trac        # Vertical puls peak-to-peak 20 mm
  -100.0      0.0               # Length of puls 20 meters
    -9.0      0.0
    -6.0      0.0
    -3.0      0.0
     0.0      0.0
     5.0     10.0
    10.0      0.0
    15.0    -10.0
    20.0      0.0
    30.0      0.0
    40.0      0.0
   500.0      0.0
  func intpl_r spv_trac         # track gauge in mm
  -100.0     1435.
   -10.0     1435.
    -9.0     1435.
    -8.0     1435.
    -7.0     1435.
     0.0     1435.
   500.0     1435.
  func intpl_r fi_trac          # cant in mm
  -100.0     0.0
   -10.0     0.0
    -9.0     0.0
    -8.0     0.0
    -7.0     0.0

 endif
# ---------------------------------------------------------------------

 if_then_char_init ctrack_irreg .eq. track_irr1
#
  func const YMtrac 0.000650  # from mm to m, and factor 0.65
  func const ZMtrac 0.000800  # from mm to m, and factor 0.80
  func const GMtrac 0.001000  # from mm to m, and factor 1.00
  func const CMtrac 0.000533  # from mm to rad, and factor 0.80
#
  func const Xtrac_start=   0.
  func const Xtrac_stop=  500.
#
  func intpl_track_irr2 Xtrac_start Xtrac_stop track/track_irr1.trac 1435.
 endif
# ---------------------------------------------------------------------

 if_then_char_init ctrack_irreg .eq. track_irr2
#
  func const YMtrac 0.001300  # from mm to m, and factor 1.30
  func const ZMtrac 0.001600  # from mm to m, and factor 1.60
  func const GMtrac 0.001300  # from mm to m, and factor 1.30
  func const CMtrac 0.001067  # from mm to rad, and factor 1.60
#
  func const Xtrac_start=   0.
  func const Xtrac_stop=  500.
#
  func intpl_track_irr2 Xtrac_start Xtrac_stop track/track_irr1.trac 1435.
 endif
# ---------------------------------------------------------------------

 if_then_char_init ctrack_irreg .eq. track_99210855.trax_irr3
#
  func const YMtrac= 0.0010000  # from mm to m
  func const ZMtrac= 0.0010000  # from mm to m
  func const GMtrac= 0.0010000  # from mm to m
  func const CMtrac= 0.0006667  # from mm to rad
#
  func const Xtrac_start= 1800.
  func const Xtrac_stop=  5000.
#
# func intpl_track_irr2  Xtrac_start  Xtrac_stop  track/track_irr1.trac  1435.
  func intpl_track_irr3  Xtrac_start  Xtrac_stop
       $gensys/verif/track/ver_test/99210855.trax_wdesign
       1435. ro_trac_design f_trac_design z_trac_design
 endif
# ---------------------------------------------------------------------

 if_then_char_init ctrack_irreg .eq. track_irr4
#
  func const YMtrac 0.000650  # from mm to m, and factor 0.65
  func const ZMtrac 0.000800  # from mm to m, and factor 0.80
  func const GMtrac 0.001000  # from mm to m, and factor 0.65
  func const CMtrac 0.000533  # from mm to rad, and factor 0.80
#
  func const Xtrac_start=    0.
  func const Xtrac_stop=  2000.
#
  func intpl_track_irr2 Xtrac_start Xtrac_stop track/track_irr4.trax 1435.
 endif
# ---------------------------------------------------------------------