## ## 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= `lower_limit(8.4608*(\$1_ay_x2s-\$1_ay_n2s) + 13.048*abs(\$1_ay_m2s) - 21.7, 0.)` 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" rot_ytext= -90 loc_frame_ll= 1.85,1. 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" rot_ytext= -90 loc_frame_ll= 1.25,1. Curve yvar= car_1_m_Pde Diagram 21 head 1 " Accelerations over leading bogie" rot_ytext= -90 loc_frame_ll= 1.85,1. 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" rot_ytext= -90 loc_frame_ll= 1.25,1. Curve yvar= car_1b1_Pde Diagram 31 head 1 " Accelerations over trailing bogie" rot_ytext= -90 loc_frame_ll= 1.85,1. 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" rot_ytext= -90 loc_frame_ll= 1.25,1. Curve yvar= car_1b2_Pde EndPage