calculate_operational_parameters_berlin_f: Calculate operational parameters for Berlin-Friedrichshagen

In KWB-R/kwb.pilot: Importing, Aggregating and Visualising Data From KWB Pilot Plants

Calculate operational parameters for Berlin-Friedrichshagen

Description

Calculate operational parameters for Berlin-Friedrichshagen

Usage

calculate_operational_parameters_berlin_f(
  df,
  calc_list = list(vfrPerm = "`Durchfluss_Rohwasser` - `Durchfluss_Konzentrat`", yield
    = "100*(`Durchfluss_Rohwasser` - `Durchfluss_Konzentrat`) / `Durchfluss_Rohwasser`",
    conLoop =
    "(`Durchfluss_Rohwasser`*`LF_Rohwasser` + `Durchfluss_Rezirkulation`*`LF_Konzentrat`)/(`Durchfluss_Rohwasser` + `Durchfluss_Rezirkulation`)",
    recovery = "100*(1 - `LF_Permeat` / conLoop)", deltaPreProcConc =
    "`Druck_Arbeitsdruck` - `Druck_Konzentrat`", flux = "vfrPerm / (4 * 7.6)", cfv =
    "(`Durchfluss_Rohwasser`+ `Durchfluss_Rezirkulation`) / ((pi * 0.0095^2) * 1000 * 3600)",
         tmp = "((`Druck_Arbeitsdruck` + `Druck_Konzentrat`) / 2) - `Druck_Permeat`",
    nwpt =
    "normalised_permeate_flow(tempFeed = `Temperatur_Rohwasser`,\n                                     conLoop = `conLoop`,\n                                     vfrPerm = `vfrPerm`,\n                                     vfrLoop = `Durchfluss_Rezirkulation`,\n                                     vfrFeed = `Durchfluss_Rohwasser`,\n                                     prePerm = `Druck_Permeat`,\n                                     preProc = `Druck_Arbeitsdruck`,\n                                     preConc = `Druck_Konzentrat`,\n                                     nwp0 = 1.429162,\n                                     vfrPerm0 = 800)",
         nwpr = "- ((1 - (nwpt / vfrPerm))) * 100"),
  calc_list_name = c("Durchfluss Permeat", "Ausbeute", "Leitfähigkeit Rezirkulation",
    "Rückhalt", "Druckverlust (Feed - Konzentrat)", "Flux",
    "Überströmungsgeschwindigkeit", "Transmembrandruck", "Normalisierter Permeatstrom",
    "Relativer Permeatstrom"),
  calc_list_unit = c("l/h", "%", "\xb5S/cm", "%", "bar", "l/h/m2", "m/s", "bar",
    "l/h", "%"),
  calc_paras = c("Durchfluss_Rohwasser", "Durchfluss_Konzentrat",
    "Durchfluss_Rezirkulation", "Druck_Arbeitsdruck", "Druck_Rohwasser",
    "Druck_Konzentrat", "Druck_Permeat", "LF_Permeat", "LF_Rohwasser", "LF_Konzentrat",
    "Temperatur_Rohwasser")
)

Arguments

df	a data frame as retrieved by import_data_berlin_f()
calc_list	list with calculation operations to be carried out
calc_list_name	full names of parameters to be used for plotting for each calculation specified wit 'calc_list'.
calc_list_unit	units of parameters to be used for plotting for each calculation specified wit 'calc_list'.
calc_paras	a vector with parameter codes used for performing calculations defined in 'calc_list'

Value

dataframe with calculated operational parameters

Examples

## Not run: 
raw_list <- import_data_berlin_f()
myDat <- calculate_operational_parameters_berlin_f(df = raw_list)

## End(Not run)

KWB-R/kwb.pilot documentation built on Nov. 1, 2022, 2:49 p.m.