Home Reference Manual Return Flowchart Up
File trc_irreg.ins contains the description of the track irregularities.
##
##
## 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_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 SVtrac 0.001000 # Multiplying factor for gauge irregularities, from mm to m
func const FItrac 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. 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 SVtrac 0.001000 # Multiplying factor for gauge irregularities
func const FItrac 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 SVtrac 0.001000 # Multiplying factor for gauge irregularities
func const FItrac 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 SVtrac 0.001000 # Multiplying factor for gauge irregularities
func const FItrac 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 SVtrac 0.001000 # from mm to m, and factor 0.65
func const FItrac 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_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 SVtrac 0.001000 # from mm to m, and factor 0.65
func const FItrac 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
#
# ---------------------------------------------------------------------