#
  page_head 3 Calculation of motion sickness according to ISO 8041
#
  substruct sISO8041Vms [ trans $1.a$2 $1.a$2 iso8041v_ms
                          stat  $1.a$2 ]
#
  in_substruct sISO8041Vms [ car1b1 x ]
  in_substruct sISO8041Vms [ car1b1 y ]
  in_substruct sISO8041Vms [ car1b1 z ]
  in_substruct sISO8041Vms [ car1.m x ]
  in_substruct sISO8041Vms [ car1.m y ]
  in_substruct sISO8041Vms [ car1.m z ]
  in_substruct sISO8041Vms [ car1b2 x ]
  in_substruct sISO8041Vms [ car1b2 y ]
  in_substruct sISO8041Vms [ car1b2 z ]
# ------------------------------------------------------------

  page_head 3 Calculation of motion sickness according to BS 6841:1987
#
  substruct sBS_WF [ trans $1.a$2 $1.a$2 iso8041v_ms
                     stat  $1.a$2 ]
#
  in_substruct sBS_WF [ car1b1 x ]
  in_substruct sBS_WF [ car1b1 y ]
  in_substruct sBS_WF [ car1b1 z ]
  in_substruct sBS_WF [ car1.m x ]
  in_substruct sBS_WF [ car1.m y ]
  in_substruct sBS_WF [ car1.m z ]
  in_substruct sBS_WF [ car1b2 x ]
  in_substruct sBS_WF [ car1b2 y ]
  in_substruct sBS_WF [ car1b2 z ]
# ------------------------------------------------------------