Up

##
##  Input data file for program MPLOT for calculating and
##  plotting the effective conicity according to TU Berlin
##  ------------------------------------------------------
  
 substruct integrand2 [
 CREATE_SCALAR new       ampl$1 $1
 CREATE_SCALAR curve_sum summa$1 integrand$1
 func operp lambda$1= summa$1 * time_out / 2 / 3.14159 / $1
 ]

  in_substruct integrand2 [ .0005 ]
  in_substruct integrand2 [ .001 ]
  in_substruct integrand2 [ .002 ]
  in_substruct integrand2 [ .004 ]
  in_substruct integrand2 [ .006 ]
  in_substruct integrand2 [ .007 ]
  in_substruct integrand2 [ .008 ]
  in_substruct integrand2 [ .010 ]
  in_substruct integrand2 [ .012 ]


 PAGE  ----------------------------------------
  x_left=0. xint/cm=2.e-3   xax_yval=bot
  y_bot =0. yint/cm=0.25    yax_xval=left

  DIAGRAM 11
    POINT       yvar= lambda.0005 xvar= ampl.000
    POINT       yvar= lambda.001  xvar= ampl.001
    POINT       yvar= lambda.002  xvar= ampl.002
    POINT       yvar= lambda.004  xvar= ampl.004
    POINT       yvar= lambda.006  xvar= ampl.006
    POINT       yvar= lambda.007  xvar= ampl.007
    POINT       yvar= lambda.008  xvar= ampl.008
    POINT       yvar= lambda.010  xvar= ampl.010
    POINT       yvar= lambda.012  xvar= ampl.012
    POINT_LINE  polygon all
 EXEC