Home
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. 1R_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
# ---------------------------------------------------------------------