Home    Search    Reference Manuals    Return   

##
## Comfort on Discrete Events: Pde
## EN 12299; CEN Technical Committee 256 WG 7
## ------------------------------------------------------------------
substruct EN12299_Pde [

 Trans $1.ay      Fname= $1_ayPDE  type= EN12299_PDE
 filt mean 2      Iname= $1_ayPDE  Fname= $1_ay_m2s  # Average value in a 2 s interval
 filt max_sign 2  Iname= $1_ayPDE  Fname= $1_ay_x2s  # Max     value in a 2 s interval
 filt min_sign 2  Iname= $1_ayPDE  Fname= $1_ay_n2s  # Min     value in a 2 s interval

 func operf $1_Pde = `8.4608*abs($1_ay_x2s-$1_ay_n2s) + 13.048*abs($1_ay_m2s) - 21.7`

 stat $1_Pde
]
 in_substruct EN12299_Pde [ car_1_m ]
 in_substruct EN12299_Pde [ car_1b1 ]
 in_substruct EN12299_Pde [ car_1b2 ]

 print scalar car_1_m_PdeMAX car_1b1_PdeMAX car_1b2_PdeMAX

##
## Create plot
## -----------------------------------------------------------
 Page
  page_head 1 "Comfort on Discrete Events PDE EN12299"
  Diagram 11
   head 1 " Accelerations middle of the car-body"
   Curve yvar= car_1_m_ayPDE
   Curve yvar= car_1_m_ay_m2s
   Curve yvar= car_1_m_ay_x2s
   Curve yvar= car_1_m_ay_n2s
  Diagram 12
   head 1 " PDE middle of the car-body  car_1_m_PdeMAX= $car_1_m_PdeMAX"
   Curve yvar= car_1_m_Pde

  Diagram 21
   head 1 " Accelerations over leading bogie"
   Curve yvar= car_1b1_ayPDE
   Curve yvar= car_1b1_ay_m2s
   Curve yvar= car_1b1_ay_x2s
   Curve yvar= car_1b1_ay_n2s
  Diagram 22
   head 1 " PDE over leading bogie  car_1b1_PdeMAX= $car_1b1_PdeMAX"
   Curve yvar= car_1b1_Pde

  Diagram 31
   head 1 " Accelerations over trailing bogie"
   Curve yvar= car_1b2_ayPDE
   Curve yvar= car_1b2_ay_m2s
   Curve yvar= car_1b2_ay_x2s
   Curve yvar= car_1b2_ay_n2s
  Diagram 32
   head 1 " PDE over trailing bogie  car_1b2_PdeMAX= $car_1b2_PdeMAX"
   Curve yvar= car_1b2_Pde
 EndPage