Home    Search    Reference Manuals    Return   

##
## Input data for program MPLOT for orienting a measured profile 6h.wheel
## relative to a new unworn profile using the command "func rot_orient"
## ------------------------------------------------------------------------
##
 ilaser= 6
#
 create_curve file_vpair_free  xS1002           S1002           format='(a,a)'
                               file= $genkpf/../w_prof/EN13715.2006/S1002t32.5_EN13715.wheel
 create_curve file_vpair_free  measured_prof_x  measured_prof   format='(a,a)'
                               file= measured_profile.wheel


 func add         measured_prof_x=  measured_prof_x  -1.1  # Laterally shift the measured profile

 func rot_orient  measured_prof_rot measured_prof S1002    # Rotate the measured profile
                                   -57 -53  53  57         # according to theoretical profile

 pryfil= measured_prof_rot.wheel
 print variable measured_prof_rot

 
 Page  ----------------------------------------
  
  Page_head 1 "Upper diagram: measured and theoretical profile"
  Page_head 2 "Lower diagram: measured profile adjusted"

  Diagram 11
   x_left= -70   x_right= 70
   y_bot=   -5   y_top  = 35
   Curve yvar= S1002
   Curve yvar= measured_prof
  EndDiagram

  Diagram 21
   x_left= -70   x_right= 70
   y_bot=   -5   y_top  = 35
   Curve yvar= S1002
   Curve yvar= measured_prof_rot
  EndDiagram

 EndPage