```##
## 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
Curve yvar= car_1_m.ay
Curve yvar= car_1b1.ay
Curve yvar= car_1b2.ay
EndDiagram

Diagram 21