## ## 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