library(rNodal) vlp_input <- set_vlp_input(VLP, field.name = "HAGBR.MOD", well.name = "Oilwell_01_Dry", depth.wh = 0, depth.bh = 9275, diam.in = 4.052, GLR = 800, liq.rt = 983, wcut = 0.0, thp = 100, tht = 60, bht = 210, API = 37, oil.visc = 5.0, gas.sg = 0.76, wat.sg = 1.07, if.tens = 30, salinity = 23000 ) vlp_model <- set_vlp_model(vlp.model = "hagbr.mod", segments = 29, tol = 0.00001) vlp <- VLP(vlp_input, vlp_model) show(vlp)
library(rNodal) well_input <- setWellInput(field.name = "HAGBR.MOD", well.name = "Oilwell_01_Dry", depth.wh = 0, depth.bh = 9275, diam.in = 4.052, GLR = 800, liq.rt = 983, wcut = 0.0, thp = 100, tht = 60, bht = 210, API = 37, oil.visc = 5.0, gas.sg = 0.76, wat.sg = 1.07, if.tens = 30, salinity = 23000 ) vlp_model <- setVLPmodel(vlp.model = "hagbr.mod", segments = 29, tol = 0.00001) vlp <- VLP(well_input, vlp_model) show(vlp)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.