##
##  Input data file for postprocessing results from a FRESP analysis in program MPLOT
##
 func mul omega=  freq 6.283185
 func mul omega2= omega omega

#			$1=mass, $2=direction
 substruct abs_fresp [
  func cabs  $1.b$2=  $1.v$2 $1.$2   # Calculate absolute value
  func mul   $1.a$2=  $1.b$2 omega2  # Calculate acceleration
  func atan2 $1.p$2=  $1.v$2 $1.$2   # Calculate phase angle
  stat  $1.b$2			     # Calculate statistics on the absolute value
  stat  $1.a$2			     # Calculate statistics on the acceleration
 ]

 in_substruct abs_fresp [ car_1 x ]
 in_substruct abs_fresp [ car_1 y ]
 in_substruct abs_fresp [ car_1 z ]
 in_substruct abs_fresp [ car_1 f ]
 in_substruct abs_fresp [ car_1 k ]
 in_substruct abs_fresp [ car_1 p ]

 in_substruct abs_fresp [ bog_11 x ]
 in_substruct abs_fresp [ bog_11 y ]
 in_substruct abs_fresp [ bog_11 z ]
 in_substruct abs_fresp [ bog_11 f ]
 in_substruct abs_fresp [ bog_11 k ]
 in_substruct abs_fresp [ bog_11 p ]

 in_substruct abs_fresp [ bog_12 x ]
 in_substruct abs_fresp [ bog_12 y ]
 in_substruct abs_fresp [ bog_12 z ]
 in_substruct abs_fresp [ bog_12 f ]
 in_substruct abs_fresp [ bog_12 k ]
 in_substruct abs_fresp [ bog_12 p ]

 page ------------------------------------------------
  x_left = 0.  xint/cm = 1.
  diagram 11 
   curve yvar=car_1.bx 
  diagram 12 
   curve yvar=car_1.by 
  diagram 13 
   curve yvar=car_1.bz
  diagram 21 
   curve yvar=car_1.bf 
  diagram 22 
   curve yvar=car_1.bk 
  diagram 23 
   curve yvar=car_1.bp
 exec

 page ------------------------------------------------
  x_left = 0.  xint/cm = 1.
  diagram 11 
   curve yvar=car_1.px 
  diagram 12 
   curve yvar=car_1.py 
  diagram 13 
   curve yvar=car_1.pz
  diagram 21 
   curve yvar=car_1.pf 
  diagram 22 
   curve yvar=car_1.pk 
  diagram 23 
   curve yvar=car_1.pp
 exec

 page ------------------------------------------------
  x_left = 0.  xint/cm = 2
  diagram 11 
   curve yvar=car_1.ax 
  diagram 12 
   curve yvar=car_1.ay 
  diagram 13 
   curve yvar=car_1.az
  diagram 21 
   curve yvar=car_1.af 
  diagram 22 
   curve yvar=car_1.ak 
  diagram 23 
   curve yvar=car_1.ap
 exec

 page ------------------------------------------------
  x_left = 0.  xint/cm = 1.
  diagram 11 
   curve yvar=bog_11.bx  
  diagram 12 
   curve yvar=bog_11.by  
  diagram 13 
   curve yvar=bog_11.bz
  diagram 21 
   curve yvar=bog_11.bf  
  diagram 22 
   curve yvar=bog_11.bk  
  diagram 23 
   curve yvar=bog_11.bp
 exec

 page ------------------------------------------------
  x_left = 0.  xint/cm = 2
  diagram 11 
   curve yvar=bog_11.bx  
  diagram 12 
   curve yvar=bog_11.by  
  diagram 13 
   curve yvar=bog_11.bz
  diagram 21 
   curve yvar=bog_11.bf  
  diagram 22 
   curve yvar=bog_11.bk  
  diagram 23 
   curve yvar=bog_11.bp
 exec

 page ------------------------------------------------
  x_left = 0.  xint/cm = 1.
  diagram 11 
   curve yvar=car_1.x  
  diagram 12 
   curve yvar=car_1.y  
  diagram 13 
   curve yvar=car_1.z
  diagram 21 
   curve yvar=car_1.f  
  diagram 22 
   curve yvar=car_1.k  
  diagram 23 
   curve yvar=car_1.p
  diagram 11 
   curve yvar=car_1.vx 
  diagram 12 
   curve yvar=car_1.vy 
  diagram 13 
   curve yvar=car_1.vz
  diagram 21 
   curve yvar=car_1.vf 
  diagram 22 
   curve yvar=car_1.vk 
  diagram 23 
   curve yvar=car_1.vp
 exec