## ## ## Create wheelset-track connections ## Creep forces are calculated in a lookup table, according to ## Kalker's simplified theory. ## --------------------------------------------------------------- ## ## substruct wr_coupl [ # $1= axle # note note note Start of substructure file wr_coupl_pe3.ins Rev.091001 note ---------------------------------------------------------- # # # Set constraints and initial values to axle and track # ---------------------------------------------------- constr fix_free_1 axl_$1.k = 0. initval set_var axl_$1.vk= -Vo/ro_$1 # constr fix_rigid_1 trc_$1 x 0. constr fix_rigid_1 trc_$1 z 0. constr fix_rigid_1 trc_$1 f 0. constr fix_rigid_1 trc_$1 k 0. constr fix_rigid_1 trc_$1 p 0. # # func wr_coupl_pe3 # $1 # Name/number of the wheelset lsa_$1 # Name of the linear local coordinate system # lat_trac vert_trac spv_trac fi_trac # Track irregularities memory fields YMtrac ZMtrac GMtrac CMtrac # Multiplication factors for track irregularities gauge_average # Average gauge of spv_trac gauge_dev_$1 # Modify average gauge for a different conicity 1 # Type of contact normal to the contact surface # axl_$1 # Body wheel right side axl_$1 # Body wheel left side trc_$1 # Body track right side trc_$1 # Body track left side # # # Right wheel: ro_$1r # Nominal radius kyrt_$1r # Lateral stiffness rail - track kzrt_$1r # Vertical stiffness rail - track kzrt.F0_$1r # Vertical prestress force rail - track cyrt_$1r # Lateral damping rail - track czrt_$1r # Vertical damping rail - track bo_$1r # Lateral semi-distance to nominal running circle, right side # # # Left wheel: ro_$1l # Nominal radius kyrt_$1l # Lateral stiffness rail - track kzrt_$1l # Vertical stiffness rail - track kzrt.F0_$1l # Vertical prestress force rail - track cyrt_$1l # Lateral damping rail - track czrt_$1l # Vertical damping rail - track -bo_$1l # Lateral semi-distance to nominal running circle, left side # cp1_$1r # Name of contact point #1 right side trc_$1 cp1_$1r.ksi cp1_$1r.bo 0. # Contact on track axl_$1 0. cp1_$1r.bo 0. # Contact on wheel/wheelset mu_$1r1 # Coefficient of friction 2.05e11 .3 # Modulus of elasticity and Poisson's ratio mulfact_nux_$1r1 mulfact_nuy_$1r1 # Creepage reduction due to contaminated rail surface mulfact_spin_$1r1 knwr.F0_$1r1 knwr_$1r1 # Prestress force and stiffness normal to the surface # cp1_$1l trc_$1 cp1_$1l.ksi cp1_$1l.bo 0. # Contact on track axl_$1 0. cp1_$1l.bo 0. # Contact on wheel/wheelset mu_$1l1 # Coefficient of friction 2.05e11 .3 # Modulus of elasticity and Poisson's ratio mulfact_nux_$1l1 mulfact_nuy_$1l1 # Creepage reduction due to contaminated rail surface mulfact_spin_$1l1 knwr.F0_$1l1 knwr_$1l1 # Prestress force and stiffness normal to the surface # # cp2_$1r trc_$1 cp2_$1r.ksi cp2_$1r.bo 0. # Contact on track axl_$1 0. cp2_$1r.bo 0. # Contact on wheel/wheelset mu_$1r2 # Coefficient of friction 2.05e11 .3 # Modulus of elasticity and Poisson's ratio mulfact_nux_$1r2 mulfact_nuy_$1r2 # Creepage reduction due to contaminated rail surface mulfact_spin_$1r2 knwr.F0_$1r2 knwr_$1r2 # Prestress force and stiffness normal to the surface # cp2_$1l trc_$1 cp2_$1l.ksi cp2_$1l.bo 0. # Contact on track axl_$1 0. cp2_$1l.bo 0. # Contact on wheel/wheelset mu_$1l2 # Coefficient of friction 2.05e11 .3 # Modulus of elasticity and Poisson's ratio mulfact_nux_$1l2 mulfact_nuy_$1l2 # Creepage reduction due to contaminated rail surface mulfact_spin_$1l2 knwr.F0_$1l2 knwr_$1l2 # Prestress force and stiffness normal to the surface # # cp3_$1r trc_$1 cp3_$1r.ksi cp3_$1r.bo 0. # Contact on track axl_$1 0. cp3_$1r.bo 0. # Contact on wheel/wheelset mu_$1r3 # Coefficient of friction 2.05e11 .3 # Modulus of elasticity and Poisson's ratio mulfact_nux_$1r3 mulfact_nuy_$1r3 # Creepage reduction due to contaminated rail surface mulfact_spin_$1r3 knwr.F0_$1r3 knwr_$1r3 # Prestress force and stiffness normal to the surface # cp3_$1l trc_$1 cp3_$1l.ksi cp3_$1l.bo 0. # Contact on track axl_$1 0. cp3_$1l.bo 0. # Contact on wheel/wheelset mu_$1l3 # Coefficient of friction 2.05e11 .3 # Modulus of elasticity and Poisson's ratio mulfact_nux_$1l3 mulfact_nuy_$1l3 # Creepage reduction due to contaminated rail surface mulfact_spin_$1l3 knwr.F0_$1l3 knwr_$1l3 # Prestress force and stiffness normal to the surface ## ## Animate track irregularities in GPLOT ## ====================================== if_then_init .exist. rail_$1r.z no_warning func copy rail_$1r.y= tral$1r.y no_warning func copy rail_$1r.z= tral$1r.z no_warning func copy rail_$1r.k= tral$1r.k no_warning func copy rail_$1r.p= tral$1r.p # no_warning func copy rail_$1l.y= tral$1l.y no_warning func copy rail_$1l.z= tral$1l.z no_warning func copy rail_$1l.k= tral$1l.k no_warning func copy rail_$1l.p= tral$1l.p endif # func print06_all cpt_$1r.nux # func print06_all cpt_$1r.nuy # func print06_all cpt_$1r.spi # func print06_all cpt_$1r.Fnx # func print06_all cpt_$1l.Fn # func print06_all cpt_$1l.Fnx # func print06_all cpt_$1l.Fny # func print06_all cpt_$1r.Fn # func print06_all cpt_$1r.Fny # note note ---------------------------------------------------- note End of substructure file wr_coupl_pe3.ins note ---------------------------------------------------- ]