View source: R/subunit_profile.R
subunit_profile | R Documentation |
subunit_profile
Calculates the pressure and flow profile in a subunit
subunit_profile(
h_fim_manifold,
d_manifold,
s_manifold,
s_ini_manifold = s_manifold,
n_manifold,
dec_manifold,
d_lateral,
s_lateral,
s_ini_lateral = s_lateral,
n_lateral,
dec_lateral,
coef_em,
exp_em,
q_unit = q_unit
)
h_fim_manifold |
Pressure at the end of the manifold line, mca |
d_manifold |
Diameter of the manifold line, meter |
s_manifold |
Spacing between lateral lines in the manifold line, meter |
s_ini_manifold |
Spacing of the initial section of the manifold line, meter |
n_manifold |
Number of lateral lines in the manifold line |
dec_manifold |
Slope of the manifold line, decimal |
d_lateral |
Diameter of the lateral line, milimeter |
s_lateral |
Spacing between emitters on the lateral line, meter |
s_ini_lateral |
Spacing of the initial stretch of the lateral line, meter |
n_lateral |
Number of issuers on the lateral line |
dec_lateral |
Lateral line slope, decimal |
coef_em |
Coefficient of the flow-pressure equation of the emitter |
exp_em |
Exponent of the flow-pressure equation of the emitter |
args_subunit_profile <- list(
h_fim_manifold = 10,
d_manifold = 40, s_manifold = 6, s_ini_manifold = 10, n_manifold = 8, dec_manifold = 0.02,
d_lateral = 16, s_lateral = 1, s_ini_lateral = 4, n_lateral = 40, dec_lateral = -0.01,
coef_em = 6.41e-7*3600000, exp_em = 0.54, q_unit="l/h"
)
do.call(subunit_profile, args_subunit_profile)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.