Home    Search    Reference Manual    Up    Return   



File save_axl1.ins

File save_axl1.ins stores variables related to the axle.

#                                                                              
#                                                                              
#   Result storage file for an axle     Rev.000422                             
#   ----------------------------------------------                             
#                                                                              
#   Argument $1 = Axle number                                                  
#                                                                              
#                                                                              
   substruct save_axl1  [                                                      
note                                                                           
note                                                                           
note       Start of substructure file save_axl1.ins    Rev.000422              
note       ------------------------------------------------------              
#                                                                              
  s_var sngl axl_$1.x                                                          
  s_var sngl axl_$1.y                                                          
  s_var sngl axl_$1.z                                                          
  s_var sngl axl_$1.f                                                          
  s_var sngl axl_$1.k                                                          
  s_var sngl axl_$1.p                                                          
#                                                                              
  s_var sngl axl_$1.vx                                                         
  s_var sngl axl_$1.vy                                                         
  s_var sngl axl_$1.vz                                                         
  s_var sngl axl_$1.vf                                                         
  s_var sngl axl_$1.vk                                                         
  s_var sngl axl_$1.vp                                                         
#                                                                              
  s_var sngl lsa_$1.pn                                                         
#                                                                              
  s_var sngl trc_$1.y                                                          
  s_var sngl trc_$1.vy                                                         
#                                                                              
  s_var sngl tral$1r.y  s_var sngl tral$1l.y                                   
  s_var sngl tral$1r.z  s_var sngl tral$1l.z                                   
#                                                                              
  s_var sngl cpt_$1r.Fn    s_var sngl cpt_$1l.Fn                               
  s_var sngl cpt_$1r.Fny   s_var sngl cpt_$1l.Fny                              
  s_var sngl cpt_$1r.Fx    s_var sngl cpt_$1l.Fx                               
  s_var sngl cpt_$1r.Fy    s_var sngl cpt_$1l.Fy                               
  s_var sngl cpt_$1r.Fz    s_var sngl cpt_$1l.Fz                               
#                                                                              
 if_then_init .exist. cpf_$1r.z                                                
  s_var sngl cpf_$1r.Fn                 # Store flange forces if they exists   
  s_var sngl cpf_$1r.Fny                                                       
  s_var sngl cpf_$1r.Fx                                                        
  s_var sngl cpf_$1r.Fy                                                        
  s_var sngl cpf_$1r.Fz                                                        
 endif                                                                         
#                                                                              
 if_then_init .exist. cpf_$1l.z                                                
  s_var sngl cpf_$1l.Fn                 # Store flange forces if they exists   
  s_var sngl cpf_$1l.Fny                                                       
  s_var sngl cpf_$1l.Fx                                                        
  s_var sngl cpf_$1l.Fy                                                        
  s_var sngl cpf_$1l.Fz                                                        
 endif                                                                         
#                                                                              
  func  add  Y$1r   cpt_$1r.Fy {  cpf_$1r.Fy | 0. }     # Add flange forces    
  func  add  Y$1l  -cpt_$1l.Fy { -cpf_$1l.Fy | 0. }     # if they exists       
  func  add  Q$1r   cpt_$1r.Fz {  cpf_$1r.Fz | 0. }                            
  func  add  Q$1l   cpt_$1l.Fz {  cpf_$1l.Fz | 0. }                            
#                                                                              
  func  div  Y/Q$1r Y$1r Q$1r           # Calculate Y/Q-ratio                  
  func  div  Y/Q$1l Y$1l Q$1l           # also called L/V-ratio                
#                                                                              
  func  add  S$1   Y$1l -Y$1r           # Calculate lateral track-shift force  
#                                                                              
  s_var sngl Y$1r                                                              
  s_var sngl Y$1l                                                              
  s_var sngl Q$1r                                                              
  s_var sngl Q$1l                                                              
  s_var sngl Y/Q$1r                                                            
  s_var sngl Y/Q$1l                                                            
  s_var sngl S$1                                                               
#                                                                              
note                                                                           
note       -------------------------------------------                         
note       End   of substructure file  save_axl1.ins                           
note       -------------------------------------------                         
   ]