func main() {
// finalise analysis process and catch errors
defer out.End()
var sol ana.PressCylin
sol.Init(fun.Prms{
&fun.Prm{N: "a", V: 100},
&fun.Prm{N: "b", V: 200},
&fun.Prm{N: "E", V: 210},
&fun.Prm{N: "ν", V: 0.3},
&fun.Prm{N: "σy", V: 0.24},
&fun.Prm{N: "P", V: 0.2},
})
// start analysis process
datadir := "$GOPATH/src/github.com/cpmech/gofem/examples/spo751_pressurised_cylinder/"
out.Start(datadir+"spo751.sim", 0, 0)
// define entities
out.Define("A", out.N{0})
out.Define("B", out.N{20})
out.Define("bottom", out.Along{{100, 0}, {101, 0}})
// load results
out.LoadResults(nil)
out.Splot("Pressure at inner and outer face")
out.Plot("ux", "t", "A", plt.Fmt{C: "b", M: ".", L: "inner"}, -1)
out.Plot("ux", "t", "B", plt.Fmt{C: "r", M: ".", L: "outer"}, -1)
//out.Splot("radial stress")
//X, _, _ := out.GetXYZ("ux", "bottom")
//SR := make([]float64, len(X))
//ST := make([]float64, len(X))
//c := sol.Getc()
//sol.Sig(c, X, SR, ST)
//out.Plt(X, ST, "bottom", plt.FmtS{"b.-"}, -1)
// show
out.Draw("", "", true, nil)
}
func plot_spo751(fnkey string) {
// constants
nidx := 20 // selected node at outer surface
didx := 0 // selected dof index for plot
nels := 4 // number of elements
nips := 4 // number of ips
// selected P values for stress plot
Psel := []float64{100, 140, 180, 190}
tolPsel := 2.0 // tolerance to compare P
GPa2MPa := 1000.0 // conversion factor
// input data
Pcen := 200.0 // [Mpa]
a, b := 100.0, 200.0 // [mm], [mm]
E, ν := 210000.0, 0.3 // [MPa], [-]
σy := 240.0 // [MPa]
// analytical solution
var sol ana.PressCylin
sol.Init([]*fun.Prm{
&fun.Prm{N: "a", V: a}, &fun.Prm{N: "b", V: b},
&fun.Prm{N: "E", V: E}, &fun.Prm{N: "ν", V: ν},
&fun.Prm{N: "σy", V: σy},
})
np := 41
P_ana, Ub_ana := sol.CalcPressDisp(np)
R_ana, Sr_ana, St_ana := sol.CalcStresses(Psel, np)
// read summary
sum := ReadSum(Global.Dirout, Global.Fnkey)
// allocate domain
distr := false
d := NewDomain(Global.Sim.Regions[0], distr)
if !d.SetStage(0, Global.Sim.Stages[0], distr) {
io.PfRed("plot_spo751: SetStage failed\n")
return
}
// gofem results
nto := len(sum.OutTimes)
P := make([]float64, nto)
Ub := make([]float64, nto)
R := utl.Deep3alloc(len(Psel), nels, nips)
Sr := utl.Deep3alloc(len(Psel), nels, nips)
St := utl.Deep3alloc(len(Psel), nels, nips)
i := 0
for tidx, t := range sum.OutTimes {
// read results from file
if !d.In(sum, tidx, true) {
io.PfRed("plot_spo751: cannot read solution\n")
return
}
// collect results for load versus displacement plot
nod := d.Nodes[nidx]
eq := nod.Dofs[didx].Eq
P[tidx] = t * Pcen
Ub[tidx] = d.Sol.Y[eq]
// stresses
if isPsel(Psel, P[tidx], tolPsel) {
for j, ele := range d.ElemIntvars {
e := ele.(*ElemU)
ipsdat := e.OutIpsData()
for k, dat := range ipsdat {
res := dat.Calc(d.Sol)
x, y := dat.X[0], dat.X[1]
sx := res["sx"] * GPa2MPa
sy := res["sy"] * GPa2MPa
sxy := res["sxy"] * GPa2MPa / math.Sqrt2
R[i][j][k], Sr[i][j][k], St[i][j][k], _ = ana.PolarStresses(x, y, sx, sy, sxy)
}
}
i++
}
}
// auxiliary data for plotting stresses
colors := []string{"r", "m", "g", "k", "y", "c", "r", "m"}
markers1 := []string{"o", "s", "x", ".", "^", "*", "o", "s"}
markers2 := []string{"+", "+", "+", "+", "+", "+", "+", "+"}
// plot load displacements
plt.SetForEps(0.8, 300)
if true {
//if false {
plt.Plot(Ub_ana, P_ana, "'b-', ms=2, label='solution', clip_on=0")
plt.Plot(Ub, P, "'r.--', label='fem: outer', clip_on=0")
plt.Gll("$u_x\\;\\mathrm{[mm]}$", "$P\\;\\mathrm{[MPa]}$", "")
plt.SaveD("/tmp", io.Sf("gofem_%s_disp.eps", fnkey))
}
// plot radial stresses
if true {
//if false {
plt.Reset()
for i, Pval := range Psel {
plt.Plot(R_ana, Sr_ana[i], "'b-'")
for k := 0; k < nips; k++ {
for j := 0; j < nels; j++ {
args := io.Sf("'%s%s'", colors[i], markers1[i])
if k > 1 {
args = io.Sf("'k%s', ms=10", markers2[i])
}
if k == 0 && j == 0 {
args += io.Sf(", label='P=%g'", Pval)
}
plt.PlotOne(R[i][j][k], Sr[i][j][k], args)
}
}
}
plt.Gll("$r\\;\\mathrm{[mm]}$", "$\\sigma_r\\;\\mathrm{[MPa]}$", "leg_loc='lower right'")
plt.AxisXrange(a, b)
plt.SaveD("/tmp", io.Sf("gofem_%s_sr.eps", fnkey))
}
// plot tangential stresses
if true {
//if false {
plt.Reset()
for i, Pval := range Psel {
plt.Plot(R_ana, St_ana[i], "'b-'")
for k := 0; k < nips; k++ {
for j := 0; j < nels; j++ {
args := io.Sf("'%s%s'", colors[i], markers1[i])
if k > 1 {
args = io.Sf("'k%s', ms=10", markers2[i])
}
if k == 0 && j == 0 {
args += io.Sf(", label='P=%g'", Pval)
}
plt.PlotOne(R[i][j][k], St[i][j][k], args)
}
}
}
plt.Gll("$r\\;\\mathrm{[mm]}$", "$\\sigma_t\\;\\mathrm{[MPa]}$", "leg_loc='upper left'")
plt.SaveD("/tmp", io.Sf("gofem_%s_st.eps", fnkey))
}
}
