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