##
##  Automatic calculation of the speed in curves
##  ============================================
##
##   By using the following input data code the speed of the vehicle
##   can be calculated automatically. As input to this code is Y_cp
##   which is equal to the quasistatical acceleration in the circular
##   curve. The curve radius is defined in R12 and the cant angle of
##   the track is defined in f12.
##
  func const Y_cp= 3.
  if_then_init .exist. R12
#   no_warning
   func operp_init vkmh= 3.6 * sqrt( R12 * ( Y_cp + f12 * 9.81 ) )
  endif