func Test_mdl01(tst *testing.T) {
//verbose()
//doplot := true
doplot := false
chk.PrintTitle("mdl01")
// info
simfnk := "mdl01"
matname := "mat1"
getnew := false
example := true
// conductivity model
cnd := mconduct.GetModel(simfnk, matname, "m1", getnew)
err := cnd.Init(cnd.GetPrms(example))
if err != nil {
tst.Errorf("mconduct.Init failed: %v\n", err)
return
}
// liquid retention model
lrm_name := "ref-m1"
//lrm_name := "vg"
lrm := mreten.GetModel(simfnk, matname, lrm_name, getnew)
err = lrm.Init(lrm.GetPrms(example))
if err != nil {
tst.Errorf("mreten.Init failed: %v\n", err)
return
}
// porous model
mdl := GetModel(simfnk, matname, getnew)
err = mdl.Init(mdl.GetPrms(example), cnd, lrm)
if err != nil {
tst.Errorf("mporous.Init failed: %v\n", err)
return
}
//mdl.MEtrial = false
mdl.ShowR = true
// initial and final values
pc0 := -5.0
sl0 := 1.0
pcf := 20.0
// plot lrm
if doplot {
npts := 41
plt.Reset()
mreten.Plot(mdl.Lrm, pc0, sl0, pcf, npts, "'b.-'", "'r+-'", lrm_name)
}
// state A
pcA := 5.0
A, err := mdl.NewState(mdl.RhoL0, mdl.RhoG0, -pcA, 0)
if err != nil {
tst.Errorf("mporous.NewState failed: %v\n", err)
return
}
// state B
pcB := 10.0
B, err := mdl.NewState(mdl.RhoL0, mdl.RhoG0, -pcB, 0)
if err != nil {
tst.Errorf("mporous.NewState failed: %v\n", err)
return
}
// plot A and B points
if doplot {
plt.PlotOne(pcA, A.A_sl, "'gs', clip_on=0, label='A', ms=10")
plt.PlotOne(pcB, B.A_sl, "'ks', clip_on=0, label='B'")
}
// incremental update
//Δpl := -20.0 // << problems with this one and VG
Δpl := -5.0
n := 23
iwet := 10
Pc := make([]float64, n)
Sl := make([]float64, n)
pl := -pcA
Pc[0] = pcA
Sl[0] = A.A_sl
for i := 1; i < n; i++ {
if i > iwet {
Δpl = -Δpl
iwet = n
}
pl += Δpl
err = mdl.Update(A, Δpl, 0, pl, 0)
if err != nil {
tst.Errorf("test failed: %v\n", err)
return
}
Pc[i] = -pl
Sl[i] = A.A_sl
}
// show graph
if doplot {
plt.Plot(Pc, Sl, "'ro-', clip_on=0, label='update'")
mreten.PlotEnd(true)
}
}
func Test_derivs01(tst *testing.T) {
//verbose()
//doplot := true
doplot := false
chk.PrintTitle("derivs01")
// info
simfnk := "derivs01"
matname := "mat1"
getnew := false
example := true
// conductivity model
cnd := mconduct.GetModel(simfnk, matname, "m1", getnew)
err := cnd.Init(cnd.GetPrms(example))
if err != nil {
tst.Errorf("mconduct.Init failed: %v\n", err)
return
}
// liquid retention model
lrm_name := "ref-m1"
//lrm_name := "vg"
lrm := mreten.GetModel(simfnk, matname, lrm_name, getnew)
err = lrm.Init(lrm.GetPrms(example))
if err != nil {
tst.Errorf("mreten.Init failed: %v\n", err)
return
}
// porous model
mdl := GetModel(simfnk, matname, getnew)
err = mdl.Init(mdl.GetPrms(example), cnd, lrm)
if err != nil {
tst.Errorf("mporous.Init failed: %v\n", err)
return
}
//mdl.Ncns = true
//mdl.Ncns2 = true
// path
pc0 := 0.0
pcf := 20.0
np := 5
//P := []float64{10, 5, 20, 0}
P := []float64{5}
Pc := GetPathCycle(pc0, P, np)
io.Pforan("Pc = %v\n", Pc)
// driver
var drv Driver
err = drv.Init(mdl)
if err != nil {
tst.Errorf("test failed: %v\n", err)
return
}
err = drv.Run(Pc)
if err != nil {
tst.Errorf("test failed: %v\n", err)
return
}
// plot
if doplot {
npts := 41
plt.Reset()
mreten.Plot(mdl.Lrm, pc0, 1.0, pcf, npts, "'b.-'", "'r+-'", lrm_name)
n := len(drv.Res)
Sl := make([]float64, n)
for i, s := range drv.Res {
Sl[i] = s.A_sl
}
plt.Plot(Pc, Sl, "'ko--', clip_on=0")
mreten.PlotEnd(true)
}
}