Home    Reference Manuals    Return   

##
## Evaluate Nmv according to: ERRI Question B 153 Report no.18
##                            EN 12299  CEN Technical Committee 256 WG 7
## ------------------------------------------------------------------

substruct EN12299_Nmv [
  Trans $1.ax     Fname= $1_axWD  type= EN12299_WD
  Trans $1.ay     Fname= $1_ayWD  type= EN12299_WD
  Trans $1.az     Fname= $1_azWB  type= EN12299_WB

  Stat  $1_axWD  tstart= Xeval_start   tstop=Xeval_stop  Tname=$2
  Stat  $1_ayWD  tstart= Xeval_start   tstop=Xeval_stop  Tname=$2
  Stat  $1_azWB  tstart= Xeval_start   tstop=Xeval_stop  Tname=$2

  func cen_erri_595  $1_ax_Nmv= $1_axWD
  func cen_erri_595  $1_ay_Nmv= $1_ayWD
  func cen_erri_595  $1_az_Nmv= $1_azWB

  func operf $1_Nmv= `6*sqrt($1_ax_Nmv^2+$1_ay_Nmv^2+$1_az_Nmv^2)`
]

 in_substruct EN12299_Nmv [ car_1_m lsc_1.pn ]
 in_substruct EN12299_Nmv [ car_1b1 lsb_11.pn ]
 in_substruct EN12299_Nmv [ car_1b2 lsb_12.pn ]

 print scalar car_1_m_Nmv car_1b1_Nmv car_1b2_Nmv


##
## Create plot
## -----------------------------------------------------------
 Page
  page_head 1           "Ride Comfort: Wz, CEN TC256 WG7 and ERRI B153"
  xvar= lsa_111.pn
  x_left= Xplot_start
  Diagram 11                                        
   head1= 'Curve_1= car_1_m.ay    Wz=$car_1_m.ayWZ   Nmv=$car_1_m_Nmv'
   head2= 'Curve_2= car_1b1.ay    Wz=$car_1b1.ayWZ   Nmv=$car_1b1_Nmv'
   head3= 'Curve_3= car_1b2.ay    Wz=$car_1b2.ayWZ   Nmv=$car_1b2_Nmv'
   Curve yvar= car_1_m.ay
   Curve yvar= car_1b1.ay
   Curve yvar= car_1b2.ay
  EndDiagram

  Diagram 21
   head1= 'Curve_1= car_1_m.az    Wz=$car_1_m.azWZ'
   head2= 'Curve_2= car_1b1.az    Wz=$car_1b1.azWZ'
   head3= 'Curve_3= car_1b2.az    Wz=$car_1b2.azWZ'
   Curve yvar= car_1_m.az
   Curve yvar= car_1b1.az
   Curve yvar= car_1b2.az
  EndDiagram
 EndPage